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

您可能感興趣的文章:

相關(guān)文章

VBS 生成不重復(fù)隨機(jī)數(shù)代碼[0-10]
VBS 生成不重復(fù)隨機(jī)數(shù)代碼[0-10]
2009-12-12
VBS中常用腳本代碼
VBS中常用腳本代碼...
2007-03-03
可以從一臺遠(yuǎn)程服務(wù)器運(yùn)行 SP2 安裝程序Install.vbs
可以從一臺遠(yuǎn)程服務(wù)器運(yùn)行 SP2 安裝程序Install.vbs...
2007-04-04
用vbs實現(xiàn)本地連接禁用/啟用腳本代碼
用vbs實現(xiàn)本地連接禁用/啟用腳本代碼...
2007-03-03
可以將文件轉(zhuǎn)換為vbs語句的vbs代碼
可以將文件轉(zhuǎn)換為vbs語句的vbs代碼...
2007-03-03
VBS教程：方法-Copy 方法
VBS教程：方法-Copy 方法...
2006-11-11
ntiIframe.vbs用于批量清除被添加到文件中的惡意代碼
ntiIframe.vbs用于批量清除被添加到文件中的惡意代碼...
2007-03-03
用vbs返回 Internet Explorer 的下載控件和 Applet 的列表
用vbs返回 Internet Explorer 的下載控件和 Applet 的列表...
2007-04-04
vbs fso跨盤移動文件夾的怪問題
在實際應(yīng)用中，發(fā)現(xiàn)了一個問題，vbs跨盤移動文件夾無權(quán)限，權(quán)限拒絕，但是copy就可以?？梢圆捎米兺ǖ霓k法先復(fù)制再刪除
2008-10-10
encrypt.vbs 內(nèi)容加密vbs實現(xiàn)代碼
內(nèi)容加密vbs實現(xiàn)代碼本人不能保證文件能改過來.請大家先測試下，注意備份。
2009-09-09