国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

用vbs產生的若干個隨機數并寫入到一個.txt中的代碼

2019-10-26 18:04:16
字體：大 中 小
來源：轉載
供稿：網友
復制代碼 代碼如下:

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可以看到結果

您可能感興趣的文章:

VBS合并一個文件夾里的TXT的實現代碼vbs解決處理TXT文本數據相關問題實現代碼VBS實現將Excel表格保存為txt文本TXT轉HTM、HTML「TXT轉網頁」的vbs實現代碼將HTML或txt文件轉換為ASP輸出的vbs代碼用VBS將一篇txt后綴的內容保存為html格式vbs實現的支持拖動的txt文本切割器vbs操作txt文本文件常用方法與函數代碼

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 惠水县| 罗江县| 阳朔县| 永春县| 西平县| 府谷县| 乃东县| 疏勒县| 宜宾市| 中山市| 新乐市| 五台县| 顺昌县| 沧源| 边坝县| 黄大仙区| 滦平县| 阿克陶县| 新绛县| 攀枝花市| 尉氏县| 平安县| 徐水县| 武汉市| 什邡市| 岳池县| 应城市| 曲周县| 黑山县| 弋阳县| 中卫市| 武穴市| 灌南县| 东乌珠穆沁旗| 新丰县| 五常市| 彩票| 大方县| 平罗县| 深水埗区| 娱乐|