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

find

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

又见sendkeys……

Demon

又见垃圾脚本之家