分享一个梦幻模仿鼠标手动移动位置源码，用到的有大漠插件 ，方法是鼠标模仿手动方式移动 找图 ，然后相对移动。 测试过多次 还算精确，可能是游戏关系 最终鼠标位置偶尔会有 1像素左右的偏差，不过肯定不影响在游戏里的使用， 因为1像素偏差不会影响游戏里的点击位置。
Function 鼠标移动(x, y)
x1 = x : y1 = y //目标点
x2 = 100 : y2 = 100//起始点
k = (y2 - y1) / (x2 - x1)
b = y2 - k * x2
For j = x2 To x1 Step sgn(x1 - x2)
dm.moveto j, (k * j + b)
Delay 1
Next
Delay 200
dm_ret = dm.FindPic(0,0,640,480,"鼠标.bmp","000000",0.8,0,intx,inty)
If intX >= 0 and intY >= 0 Then
Delay 200
dm.mover - (intx - 16 - x) , - (inty - 20 - y)
Delay 100
End If
End Function
Function 鼠标移动(x, y)
x1 = x : y1 = y //目标点
x2 = 100 : y2 = 100//起始点
k = (y2 - y1) / (x2 - x1)
b = y2 - k * x2
For j = x2 To x1 Step sgn(x1 - x2)
dm.moveto j, (k * j + b)
Delay 1
Next
Delay 200
dm_ret = dm.FindPic(0,0,640,480,"鼠标.bmp","000000",0.8,0,intx,inty)
If intX >= 0 and intY >= 0 Then
Delay 200
dm.mover - (intx - 16 - x) , - (inty - 20 - y)
Delay 100
End If
End Function
