Board logo

标题: [转贴] VBS脚本产生的若干个随机数并写入txt文件中的代码 [打印本页]
作者: find    时间: 2012-1-22 18:04     标题: 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
作者: applba    时间: 2012-1-22 19:37

又见sendkeys……
作者: Demon    时间: 2012-1-22 20:14

又见垃圾脚本之家



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2