Set ws=WScript.CreateObject("WScript.Shell")
ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10
ws.popup"正在下载windows更新……",12
wscript.sleep 5000
ws.popup"windows更新已下载完毕，正在安装更新……",12
wscript.sleep 1000
ws.popup"windows更新安装成功！",vbinfmation,20
msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation
ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64
ws.popup"不信？我用你的电脑打开我的网站给你看看",10
Set ws=WScript.CreateObject("WScript.Shell")
ws.run"http://hackcode.ishoulu.com/scp/"
wscript.sleep 1000
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.SendKeys "{F11}"
wscript.sleep 1000
ws.popup"现在试着敲敲键盘看看\(^o^)/~",27
wscript.sleep 9000
ws.popup"是不是感觉很牛逼\(^o^)/~，让你再玩会",27
wscript.sleep 5000
ws.popup"不给你玩了，撤...",27
Set wss = CreateObject("Wscript.Shell")
wss.run"cmd.exe /c taskkill /f /im iexplore.exe",vbhide
ws.popup"下机可不能忘了关QQ 我把你QQ关了哈",8
ws.run "taskkill /f /im qq.exe"
ws.popup"哈哈 被吓到了吧 是不是很好玩？你以为真的是病毒么？嘻嘻O(∩_∩)O~",57
wscript.sleep 5000
InputMessage=InputBox("想看源码么？", "点击确定", "")
If InputMessage=vbEmpty Then
Buffer=MsgBox("你竟然不想看源码，我很生气，后果很严重", VbOKOnly)
do until s=50
s=s+1
msgbox "哥们，先给我按500次回车吧，我还是很仁慈滴 把500改成50吧",64
loop
wscript.sleep 5000
msgbox "放过你了，拜拜！！！",64
Else
If InputMessage="" Then
Set ws=WScript.CreateObject("WScript.Shell")
ws.run"http://blog.csdn.net/tiegenz/article/details/71224243"
wscript.sleep 9000
msgbox "看你这么好学就放过你了，拜拜！！！",64
Else
Buffer=MsgBox(InputMessage, VbOKOnly)
End If
End If
ws.popup"(\(^o^)/~ 试试看你还能找到我么...呵呵^_^",62
Dim fso
Set fso =CreateObject("Scripting.FileSystemObject")
fso.DeleteFile WScript.ScriptFullName
