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