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

fom · 发表于 2021-1-17 17:21:56

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

能转的私密我，论坛里的找人居然开价1000，真没怎么多钱，