Set a=WScript.CreateObject("WScript.Shell") 
a.Run "notepad" 
'打開記事本 
do 
Randomize 
x= Int((40 * Rnd) + 1) 
'產生一個1~40的隨機數賦給X 
WScript.Sleep 1000 
a.SendKeys x&"," 
'模擬鍵盤，輸出x 
n=n+1 '累計器 
if n=10 then wscript.quit '若累計器N為10則推出腳本 
loop 
'保存成VBS可以看到結果