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