POE_AutoItem (v1.3)

//----------------------------------------------------註冊大漠插件
PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
CALL Plugin.RegDll.Reg("C:\test_game\dm.dll")
Set dm = createobject("dm.dmsoft")
//這裡設置插件基本目錄
dm.SetPath "C:\test_game"
//dm_ret = dm.SetDict(0, "dm_soft.txt")
// 獲取句柄
hwnd = dm.GetMousePointWindow()
dm.MoveWindow hwnd, 0, 0
CALL Plugin.WINDOW.Active(Hwnd)
// 綁定
dm_ret = dm.BindWindow(hwnd, "normal", "dx2", "dx", 0)
//----------------------------------------------------註冊大漠插件結束
DIM MyArray
DIM Mypage
Dimenv i
i=0
//---------------------------主程序-------------------------------
CALL 選取倉庫
Delay 500
CALL 強調物品
CALL 領取物品
WHILE page(i) > 0
    CALL 選取倉庫
    Delay 500
    CALL 領取物品
WEND
MessageBox "該物品領取完畢"
//----------------------------------------------------------------
//--------------------------選取倉庫------------------------------
SUB 選取倉庫
    MoveTo 363,108
    Delay 50
    dm.leftclick
    Mypage = Form1.InputBox2.Text
    page = split(Mypage, ",")
    FOR page(i)
        dm.KeyPress 40
    NEXT
    dm.KeyPress 13
    MoveTo 363,108
    Delay 50
    dm.leftclick
END SUB
//----------------------------------------------------------------
//--------------------------強調物品------------------------------
SUB 強調物品
    Item = Form1.InputBox1.Text
    MoveTo 361,528
    Delay 50
    dm.leftclick
    MoveTo 273, 528
    Delay 50
    dm.leftclick
    dm.SendString hwnd,Item
    TracePrint Item
    Delay 1000
END SUB
//----------------------------------------------------------------
//--------------------------領取物品------------------------------
SUB 領取物品
    XY=Plugin.Color.FindMutiColor(16,119,371,476,"1E0707","3|0|78B5E8,0|3|78B5E8,3|3|78B5E8",1)
    MyArray = Split(XY, "|")
    intX = CINT(MyArray(0)) : intY = CINT(MyArray(1))
    WHILE intX > 0 AND intY > 0
        dm.KeyDown 17
        MoveTo intX - 15, intY - 10
        Delay 50
        dm.leftclick
        TracePrint "XY座標為" & intX+15 & " , " & intY+10
        Delay 50
        XY=Plugin.Color.FindMutiColor(16,119,371,476,"1E0707","3|0|78B5E8,0|3|78B5E8,3|3|78B5E8",1)
        MyArray = Split(XY, "|")
        intX = CINT(MyArray(0)) : intY = CINT(MyArray(1))
        dm.KeyUp 17
    WEND
    i = i + 1
END SUB
//----------------------------------------------------------------