小白 不知道怎么改
Set objShell = CreateObject("Wscript.Shell")
Funtion GetRandomMath(m,n)
Randomize GetRandomMath = Int(((n-m+1) * Rnd) + m)
End Function
do
dim t
t=GetRandomMath(200,300) //t取随机数
WScript.Sleep t //每隔t点击一次
objShell.SendKeys "{a}"
WScript.Sleep t
objShell.SendKeys "{a}"
loop
https://jingyan.baidu.com/article/3052f5a10d194097f31f86d0.html