龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

用vbs产生的若干个随机数并写入到一个.txt中的代码

时间:2014-07-15 02:43来源:网络整理 作者:网络 点击: 次
分享到：
用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可以看到结果
精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

声明游标 据库表结构 能使 Js解密 16进制数 inline 浅度复制 反斜线转 校验IP地址合法 Provider 选 ntext php文件上传 字典操作 鼠标拖动 pop zip扩展安装 交叉表查询 九宫图 Ze 选择打印 对称加密算法 了解 AtomicIntege JS获取URL 二进制 发展史 不起作用 下载 搜索代理 .net4.0 数字格式化 p 自定义标签 初始 php PHP判断 无限级 24小时制转换 emule 连续几个数 E YI javascript跨域 dropping 停止录像 数据量大 codeigniter教 代码风格 Count 1000以内质数 html:list 右键 任意扩展名下 @@IDENTITY 数组分割 正则表 ob_get_lengt window.locat 精度 渐变 快照

赞助商链接