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
本文出自 “马广杰——博客” 博客，转载请与作者联系！
原文：http://maguangjie.blog.51cto.com/11214671/1944488