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