无限往一个窗口疯狂发消息

Set WshShell = WScript.CreateObject("WScript.Shell")  //创建一个脚本程序 WshShell.AppActivate ""     //监控窗口，找到带有 “xxx” 字的窗口 for i=1 to 100   //循环次数 WScript.Sleep 3     //睡眠时间ms微秒 WshShell.SendKeys "^v"   ctrl+v WshShell.SendKeys "%s"   发送 Next