法馬-貝魯特自動存錢程式碼,可以放心的掛網賺錢囉^^

因主程式碼F大跟QQ大有POST了...所以小弟就不POST
僅提供存錢程式碼,請依照位置將程式碼加入

===============開頭部份==============
dim money
VBS moneyAdd=&H00B6FAF8
//宣告變數money,與其內存位置(金錢)
Plugin hwnd=Window.Foreground()
Delay 1000
Plugin Window.Move(hwnd,0,0)
//將視窗左上固定在座標(0,0)

==========在法馬買完東西後===========
Gosub 讀參數
//讀取目前金錢
Delay 800
If money>1000000
//如果錢大於1百萬,即存錢
    Gosub 銀行存錢
Else
    Gosub 去碼頭
EndIf

==========加在程式的最下方===========
Sub 去碼頭
    Delay 1000
    Gosub 地圖
    MoveTo 392 299
    Gosub 點擊
    Delay 15000
Return 去碼頭
//======================我是分隔線==========================
Sub 銀行存錢
    Delay 1000
    Gosub 地圖
    MoveTo 515,205
    Delay 500
    LeftClick 1
    Delay 10000
    //找銀行
    a=0
    KeyDown 27,1
    While a=0
        Delay 200
        KeyPress 9,1
        IfColor 636,361,ffffff,0
            IfColor 666,362,ffffff,0
                IfColor 693,371,ffffff,0
                //抓行員名子白色部份
                    a=1
                    Delay 1500
                    KeyUp 27 1
                    Delay 500
                    KeyPress 13 1
                    Delay 2000
                EndIf
            EndIf
        EndIf
    EndWhile
    //找行員
    MoveTo 659,385
    Delay 1000
    LeftClick 1
    Delay 2500
    MoveTo 310,248
    Delay 1000
    LeftClick 1
    Delay 500
    MoveTo 506,366
    Delay 1000
    LeftClick 1
    Delay 2500
    //存錢
    MoveTo 684,389
    Delay 1000
    LeftClick 1
    Delay 2500
    MoveTo 223,296
    Delay 1000
    LeftClick 1
    Delay 500
    MoveTo 239,319
    Delay 1000
    LeftClick 1
    Delay 500
    MoveTo 507,362
    Delay 1000
    LeftClick 1
    Delay 2500
    //領錢$1萬
    Gosub 地圖
    MoveTo 392 299
    Gosub 點擊
    Delay 26000
Return 銀行存錢
//======================我是分隔線==========================
Sub 點擊
    Delay 500
    LeftClick 1
    Delay 500
Return 點擊
//======================我是分隔線==========================
Sub 地圖
    KeyPress 119,1
    Delay 700
Return 地圖
//======================我是分隔線==========================
Sub 讀參數
    Plugin money=Memory.Read32Bit(hwnd,moneyAdd)
Return 讀參數

真是太感謝了，謝謝大大的分亨YCT20B
本文章轉自外掛聯合國http://www.wgun.net