'大漠后台随机鼠标移动的坐标(防封),直接call调用,括号内的参数可以相加减,单位:x,y坐标
sub 后台移动(x, y)
Set dm = createobject("dm.dmsoft")
'随机0-5个数的范围
fx = Int(5 * Rnd + 1) * 1+x
fy = Int(5 * Rnd + 1) * 1+y
dm.MoveTo fx, fy
TracePrint fx & "," & fy
GetCursorPos x,y'得到当前鼠标的位置
TracePrint x&","&y
End Sub
'前台随机鼠标移动的坐标(防封),直接call调用,括号内的参数可以相加减,单位:x,y坐标
Sub 前台移动(x, y)
'随机0-5个数的范围
fx = Int(5 * Rnd + 1) * 1+x
fy = Int(5 * Rnd + 1) * 1+y
MoveTo fx, fy
TracePrint fx & "," & fy
GetCursorPos x,y'得到当前鼠标的位置
TracePrint x&","&y
End Sub
'随机延时(防封),直接call调用,修改n的参数,单位:毫秒
Sub 延时(n)
'随机0-10个数的范围
s = Int(10 * Rnd + 1) * 10 + n
Delay s
TracePrint s
End sub