制作VBS病毒文件

Set WshShell= WScript.CreateObject("WScript.Shell")  
WshShell.AppActivate "真好玩"  
for i=1 to 1000  
WScript.Sleep 500  
WshShell.SendKeys "^v"  
WshShell.SendKeys i  
WshShell.SendKeys "%s"  
Next

转载于:https://blog.51cto.com/maguangjie/1944488