国产探花免费观看_亚洲丰满少妇自慰呻吟_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文本文件常用方法與函數代碼

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

圖片精選

主站蜘蛛池模板： 关岭| 韶山市| 佛教| 平湖市| 秦皇岛市| 印江| 彰武县| 新野县| 广宁县| 平顺县| 南召县| 东安县| 兴国县| 芜湖市| 崇明县| 永和县| 娱乐| 新乡市| 金溪县| 新营市| 嫩江县| 韶山市| 响水县| 兰州市| 全南县| 沙雅县| 泰来县| 共和县| 奈曼旗| 上饶县| 龙游县| 常宁市| 彭泽县| 松原市| 彰武县| 大姚县| 修水县| 平山县| 皮山县| 南昌市| 安康市|