| 
 | 
	
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 |   
 
 
 
 |