Set WshShell= WScript.CreateObject("WScript.Shell")

WshShell.AppActivate "文采呱呱"

for i=1 to 100

WScript.Sleep 500

WshShell.SendKeys "^v"

WshShell.SendKeys i

WshShell.SendKeys "%s"

Next

后缀改vbs