|
发表于 2015-4-19 17:44:30
|
显示全部楼层
function MouseMove(Hwnd,x,y)//模拟轨迹
var Nowx,Nowy,Tox,Toy,XLen,YLen,Count,Set,XCount,YCount,LoopRec,SetUp// 当前坐标,目标坐标,坐标距离,总坐标数,步进,X Y坐标数 循环记数
if(Hwnd>64)
windowclienttoscreen(Hwnd,x,y,Tox,Toy)
else
Tox=x
Toy=y
end
mousegetpoint(Nowx,Nowy)
XLen=mabs(Tox-Nowx)
YLen=mabs(Toy-Nowy)
Count=msqrt(XLen*XLen + YLen*YLen)
SetUp=cint(Count/10)
editsettext("edit5",Count&","&SetUp)
if(SetUp<10)
SetUp=10
end
Set=cint(Count/SetUp)//步进值
XCount=cint((Tox-Nowx)/Set)
YCount=cint((Toy-Nowy)/Set)
for(var i=0;i<Count;i=i+Count/Set )
LoopRec=LoopRec+1
Tox=Nowx+XCount*LoopRec
Toy=Nowy+YCount*LoopRec
if(Tox<0 && Toy<0)
drivemousemove(Nowx,Nowy)
else
drivemousemove(Tox,Toy)
end
sleep(3)
end
end |
|