[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] VBS脚本产生的若干个随机数并写入txt文件中的代码

  1. Set a=WScript.CreateObject("WScript.Shell")
  2. a.Run "notepad"
  3. '打开记事本
  4. do
  5. Randomize
  6. x= Int((40 * Rnd) + 1)
  7. '产生一个1~40的随机数赋给X
  8. WScript.Sleep 1000
  9. a.SendKeys x&","
  10. '模拟键盘,输出x
  11. n=n+1 '累计器
  12. if n=10 then wscript.quit '若累计器N为10则推出脚本
  13. loop
  14. '保存成VBS可以看到结果
复制代码

转自:http://www.jb51.net/article/28313.htm

返回列表