复制代码 代码如下:

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可以看到结果