用vbs产生的若干个随机数并写入到一个.txt中的代码
更新时间：2011年09月16日 19:39:13 作者：
用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 生成不重复随机数代码[0-10]](//img.jbzj.com/images/xgimg/bcimg0.png)
VBS 生成不重复随机数代码[0-10]2009-12-12
VBS中常用脚本代码...2007-03-03
可以从一台远程服务器运行 SP2 安装程序Install.vbs
可以从一台远程服务器运行 SP2 安装程序Install.vbs...2007-04-04
用vbs实现本地连接禁用/启用脚本代码...2007-03-03
可以将文件转换为vbs语句的vbs代码...2007-03-03
VBS教程：方法-Copy 方法...2006-11-11
ntiIframe.vbs用于批量清除被添加到文件中的恶意代码
ntiIframe.vbs用于批量清除被添加到文件中的恶意代码...2007-03-03
用vbs返回 Internet Explorer 的下载控件和 Applet 的列表
用vbs返回 Internet Explorer 的下载控件和 Applet 的列表...2007-04-04
在实际应用中，发现了一个问题，vbs跨盘移动文件夹无权限，权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除2008-10-10
内容加密vbs实现代码 本人不能保证文件能改过来.请大家先测试下，注意备份。2009-09-09
![VBS 生成不重复随机数代码[0-10]](http://img.jbzj.com/images/xgimg/bcimg0.png)
最新评论