Set WshShell= WScript.CreateObject("WScript.Shell") 
WshShell.AppActivate ""
for i=1 to 10 ´要發(fā)送的次數(shù)
WScript.Sleep 500 ´定義發(fā)送信的所要的時間以ms毫秒為單位。如：1000為一秒發(fā)一次
WshShell.SendKeys "^v" ´把剪貼版上的內(nèi)容粘貼出來
WshShell.SendKeys i ´輸出次數(shù)值
WshShell.SendKeys "%s"´按下鍵盤上的Alt+S發(fā)送信息
next