用vbs生成若干个随机数并写入txt文件中的代码
发布时间：2014-10-10 编辑：jiaochengji.com
用vbs生成若干个随机数并写入txt文件中的代码
用vbs生成若干个随机数并写入txt文件中的代码，供大家学习参考。
复制代码 代码如下:
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可以看到结果
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方法及例子
vbscript基础教程-什么是vbscript
有关c# 随机函数的实例详解
mysql 随机生成某个范围内的整数
vbs恶作剧(整人代码)-写入大量的垃圾文件，吓哭他
php随机生成4位数字验证码
php生成N个不重复的随机数
php生成随机产生六位数密码的代码
php生成指定位数(长度)的随机字符串
[关闭]