按键精灵改php文件代码,如何吧按键精灵的代码转成易语言代码

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

以是是按键精灵的代码。测试是可以用的，上面的那个是Hwnd是窗口句柄， Hwnd1是子句柄，就是后面的Call 寻路(921,994)  CALL这玩意我是真不懂。还请有能力的大哥能给翻译成易语言