求按键精灵随机按键(1——4)中一个按键,如何编写?

发布网友发布时间：2024-10-02 08:59

共3个回答

热心网友时间：1天前

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

热心网友时间：1天前

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

热心网友时间：1天前

Rem start
Randomize
x = Int(100 * Rnd)
If x<48 or x>57 then
Goto start
EndIf
x=cstr(chr(x))
Delay 1000
KeyPress x,1

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com