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

本文出自 “马广杰——博客” 博客，转载请与作者联系！

制作VBS病毒文件