自動領倉

/*----------------------------------------------------註冊大漠插件
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", "normal", 0)
----------------------------------------------------註冊大漠插件結束*/
hwnd = Plugin.WINDOW.MousePoint()
CALL Plugin.WINDOW.Move(hwnd,0,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
    LeftClick 1
    Mypage = Form1.InputBox2.Text
    page = split(Mypage, ",")
    FOR page(i)
        KeyPress "Down", 1
    NEXT
    KeyPress "Enter", 1
    MoveTo 363,108
    Delay 50
    LeftClick 1

END SUB
//----------------------------------------------------------------
//--------------------------強調物品------------------------------
SUB 強調物品

    IF Form1.OptionBox1.Value = 1 THEN
        Item = Form1.InputBox1.Text
    ELSE
        IF Form1.ComboBox1.ListIndex = 0 THEN
            Item = "alteration"
        ELSEIF Form1.ComboBox1.ListIndex = 1 THEN
            Item = "chromatic"
        ELSEIF Form1.ComboBox1.ListIndex = 2 THEN
            Item = "jeweller"
        ELSEIF Form1.ComboBox1.ListIndex = 3 THEN
            Item = "fusing"
        ELSEIF Form1.ComboBox1.ListIndex = 4 THEN
            Item = "alchemy"
        ELSEIF Form1.ComboBox1.ListIndex = 5 THEN
            Item = "random chance"
        ELSEIF Form1.ComboBox1.ListIndex = 6 THEN
            Item = "blacks"
        ELSEIF Form1.ComboBox1.ListIndex = 7 THEN
            Item = "portal scroll"
        ELSEIF Form1.ComboBox1.ListIndex = 8 THEN
            Item = "carto"
        END IF
    END IF

    MoveTo 361,528
    Delay 100
    LeftClick 1
    MoveTo 273, 528
    Delay 100
    LeftClick 1
    CALL Plugin.WINDOW.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
        KeyDown "Ctrl", 1
        MoveTo intX - 15, intY - 10
        Delay 50
        LeftClick 1
        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))
        KeyUp "Ctrl", 1
    WEND
    i = i + 1
END SUB
//----------------------------------------------------------------