如何吧按键精灵的代码转成易语言代码

fom

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这玩意我是真不懂。还请有能力的大哥能给翻译成易语言

妥神

fom 发表于 2021-1-12 15:54
主要是看不懂按键精灵的call 对乐玩是啥命令

按键精灵的call就是易语言的加一个按钮 创一个子程序 在按钮下面调用 子程序  啊

梦寻简单

跟子程序调用是一样的

fom

梦寻简单 发表于 2021-1-12 13:52
跟子程序调用是一样的

真是看不懂这代码。能否翻译成易语言

妥神

用乐玩模块试试？

magicwk

很简单一样的命令替换

fom

妥神 发表于 2021-1-12 15:02
用乐玩模块试试？

主要是看不懂按键精灵的call 对乐玩是啥命令

fom

妥神 发表于 2021-1-12 16:07
按键精灵的call就是易语言的加一个按钮 创一个子程序 在按钮下面调用 子程序  啊 ...

真不会翻译。但是还是谢谢了。