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