求按键精灵鼠标 坐标/点击次数/延时 同时随机的代码(求个按键精灵里 随机时间 随机坐标 鼠标点击的 脚本)
- 求个按键精灵里 随机时间 随机坐标 鼠标点击的 脚本
- 按键精灵：怎么写在某个坐标范围内，随机位置和延迟点击
- 求按键精灵点击延迟时间可以按设定的几个秒数随机变换的代码，秒数为10，15，18，跪求大神帮忙
- 按键精灵怎么让鼠标循环点击两个坐标各自范围的随机坐标？
求个按键精灵里 随机时间 随机坐标 鼠标点击的 脚本
按键精灵随机时间 随机坐标 鼠标点击的参考代码如下:
Do
x = int((1440 - 50 + 1) * Rnd + 50)
y = int((900 - 10 + 1) * Rnd + 10)
MoveTo x, y
LeftClick 1
s = int((5000 - 1000 + 1) * Rnd + 1000)
Delay s
Loop
按键精灵：怎么写在某个坐标范围内，随机位置和延迟点击
Randomize
x1=Array("700","900")//x坐标上下限
y1=Array("400","600")//y坐标上下限
d1 = Array("1000", "2000")//延时上下限
Do
x = int((x1(0) - x1(1) + 1) * rnd + x1(1))
y = int((y1(0) - y1(1) + 1) * rnd + y1(1))
d = int((d1(0) - d1(1) + 1) * rnd + d1(1))
TracePrint "x坐标为" & x & "，y坐标为" & y & "，延时为" & d & "毫秒"
MoveTo x, y
LeftClick 1
Delay d
Loop参考以上代码
求按键精灵点击延迟时间可以按设定的几个秒数随机变换的代码，秒数为10，15，18，跪求大神帮忙
Function Random_time_delay()
Randomize
num = int(rnd * 3) + 1 '3 可更改，为随机数上限
Select Case num
Case 1
Delay 10000
Case 2
Delay 15000
Case 3
Delay 18000
End Select
End Function
直接调用这个函数就可以
如果可以，把 Randomize 放到主线或者初始化部分
按键精灵怎么让鼠标循环点击两个坐标各自范围的随机坐标？
你要的抄就是目标点偏移点击吧?
Dim 偏移量偏, 移延迟
偏移量 = 20'表示对目标坐标点有正负20的偏移袭
偏移延迟 = 300'表示在百0-300毫秒之间取随机
Do
Y = 200 : X = 300 '第一个坐标
Call 偏移(X, Y)
Y = 500 : X = 600 '第二个坐标
Call 偏移(X, Y)
//如果还要添加坐标就像上面一样
Loop
Sub 偏移(X, Y)
Dim X偏移, Y偏移, 延迟
Randomize
X偏移 = Int((偏移量度 * 2 + 1) * rnd - 偏移量)
Y偏移 = Int((偏移量 * 2 + 1) * rnd - 偏移量)
延迟 = int(偏移延迟 + 1) * rnd
MoveTo X + X偏移, Y + Y偏移
Delay 延迟
LeftClick 1
End Sub