求按键精灵随机按键（1——4）中一个按键，如何编写？

显示全部楼层 · 2012-6-27 01:23:09

随机也算是按那个都无所谓吧那就让他循环rem 按下1键代码间隔时间多少秒按下2键代码间隔时间多少秒按下3键代码间隔时间多少秒按下4键代码间隔时间多少秒goto你不停止就继续按下去...

千问 · 2012-6-27 01:23:09

Dim n,nu,myArrayRandomizemyArray = Split("1 2 3 4")n = UBound(myArray)Nu = myArray(Int((n+1)*Rnd))KeyPress ""&nu&"",1...

千问 · 2012-6-27 01:23:09

Rem startRandomizex = Int(100 * Rnd)If x57 then Goto startEndIf x=cstr(chr(x))Delay 1000KeyPress x,1...