复制代码 代码如下:

SetWshShell=WScript.CreateObject("WScript.Shell")

WshShell.AppActivate""

fori=1to10´要发送的次数

WScript.Sleep500´定义发送信的所要的时间以ms毫秒为单位。如：1000为一秒发一次

WshShell.SendKeys"^v"´把剪贴版上的内容粘贴出来

WshShell.SendKeysi´输出次数值

WshShell.SendKeys"%s"´按下键盘上的Alt+S发送信息

next