用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼
更新時(shí)間：2011年09月16日 19:39:13 作者：
用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼，需要的朋友可以參考下。
復(fù)制代碼 代碼如下:
Set a=WScript.CreateObject("WScript.Shell")
a.Run "notepad"
'打開記事本
do
Randomize
x= Int((40 * Rnd) + 1)
'產(chǎn)生一個(gè)1~40的隨機(jī)數(shù)賦給X
WScript.Sleep 1000
a.SendKeys x&","
'模擬鍵盤，輸出x
n=n+1 '累計(jì)器
if n=10 then wscript.quit '若累計(jì)器N為10則推出腳本
loop
'保存成VBS可以看到結(jié)果
您可能感興趣的文章:
相關(guān)文章
這個(gè)VBS是用來將一個(gè)本地網(wǎng)頁中的URL篩選出來并保存在新的網(wǎng)頁文件中。當(dāng)然，只要改變里面的正則表達(dá)式，就可以作其他用途了。2009-08-08
一個(gè)可以用來修改系統(tǒng)的網(wǎng)關(guān)和dns地址的腳本。2009-07-07
用vbs確定腳本正在哪一個(gè)帳戶下運(yùn)行...2007-03-03
VBS教程：方法-Delete 方法...2006-11-11![進(jìn)程監(jiān)控實(shí)現(xiàn)代碼[vbs+bat]](http://img.jbzj.com/images/xgimg/bcimg4.png)
進(jìn)程監(jiān)控實(shí)現(xiàn)代碼[vbs+bat]
這是用BAT寫的，主體是VBS，所以放在VBS分類了，功能如果進(jìn)程中有QQ.exe、iexplore.exe、client.exe、game.exe進(jìn)程則會(huì)自動(dòng)結(jié)束進(jìn)程2009-12-12
VBScript教程 第六課VBScript運(yùn)算符
VBScript教程 第六課VBScript運(yùn)算符...2006-11-11
vbs Windows系統(tǒng)改變或修改網(wǎng)卡的MAC地址的腳本與軟件
這個(gè)文件比程序本身還大，感覺不爽，于是本人的VBS版MAC修改代碼便誕生了,在使用過程中如果出現(xiàn)不能上網(wǎng)的情況得返回一下網(wǎng)卡驅(qū)動(dòng)（有些機(jī)器比較特別）2008-07-07
VBS教程：對(duì)象-Folders 集合...2006-11-11
VBS教程：屬性-Type 屬性...2006-11-11
VBS教程：函數(shù)-UBound 函數(shù)...2006-11-11