按键精灵代码转易语言会的进有chang

fom · 发表于 2021-1-19 18:20:33

Hwnd = Plugin.Window.Find(0, "【魔域】")
hwnd1 = Plugin.window.findex(hwnd, 0, 0, 0)
Call 寻路(921,994)
Sub 寻路(a,b)
Do
      Call 当前坐标
      If 第一坐标 = a and 第二坐标 = b Then
         Exit Do
      Else
         Call 移动(a, b, juli)
         Delay 50
      End If
loop
End Sub
Sub 移动(ydx,ydy,juli)
Call 当前坐标
bx=ydx
by=ydy
SX= St1
SY= St2
If (Abs(sx - bx))+(Abs(sy - by))>juli Then
      do  While (Abs(sx - bx))+(Abs(sy - by))>juli
         Call 当前坐标
         SX= St1
         SY= St2
         HX = (512 + ((BX - SX) * 32)) - (((BY - SY) * 32))
         HY = (384 + ((BX - SX) * 16)) + (((BY - SY) * 16))
         Call Plugin.Bkgnd.LeftClick(hwnd1,HX,HY)
         Delay 50
      loop
      Delay 50
End If
End Sub
Sub 当前坐标
HwndArray = Plugin.WndEx6.EnumWindowA(hwnd ,"自动寻路",0,1)
if UBound(HwndArray)>-1 then
      x1 = Plugin.WndEx6.GetWindow(HwndArray(0), 5)
      Hv = Plugin.WndEx6.GetWindow(HwndArray(0), 5)
      x2 = Plugin.WndEx6.GetWindow(Hv, 5)
      xu1 = Plugin.Window.GetText(x1)
      xu2 = Plugin.Window.GetText(x2)
      MyVar1 = Mid(xu2, 15, 19)
      MyVar2 = Mid(xu1, 15, 19)
      St1 = MyVar1 + 0
      St2 = MyVar2 + 0
      第一坐标 = st1
      第二坐标 = st2
      u1 = st1
      u2 = st2
End If
End Sub

有会的私密我，谢谢，

补充内容 (2021-1-20 18:31):
已解决

zt8152070 · 发表于 2021-1-19 18:20:34

站内联系我

z692435632 · 发表于 2022-11-7 20:43:21

不是完整版的代码吧，是前台还是后台寻路啊？

fom · 发表于 2022-12-24 14:41:36

z692435632 发表于 2022-11-7 20:43
不是完整版的代码吧，是前台还是后台寻路啊？

前台的,这个是按键精灵的,

		自动登录	找回密码
密码			注册

[已解决] 按键精灵代码转易语言会的进有chang

最佳答案