我的空間 ｜　會員中心　｜ VIP會員　｜ 聯合國facebook專區
黃易群俠傳M脫機外掛應用程式黃易神行
外掛聯合國討論區 › 《紅心辣椒》 › 《大航海時代外掛》 ›
12566
16
發佈主題
返回

[分享] 全自動到安玟拉豆包括自動買貨腳本

gg2255 發表於 2011-2-2 15:06:56 | 只看該作者 回帖獎勵 |倒序瀏覽 |
[General]
Description=長途跑豆子腳本
BeginHotkey=105
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=96
StopHotkeyMod=2
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
PutAttachment .\plugin
iniFilePath = ".\長途跑豆子.ini"
VBS Dim objwin0,TDwin,objhead,objwin(10),Setcity,C,goods_set,Mywin,BGoodsSet,PGoodsSet,WGoodsSet
Rem 主程序開始
UserVar whichone=DropList{大陸服務器:0|台灣服務器:1}=0 請選擇本腳本用於國服還是台服
If whichone = 0
    Gosub 變量賦初值
EndIf
If whichone = 1
    Gosub 台服變量賦初值
EndIf
Gosub 變量賦初值
Gosub 讀取窗口句柄
//Gosub 上岸後小號跟隨
Delay 10
If Setcity = 0
    For 999999
        Gosub 馬拉加安汶
    EndFor
ElseIf Setcity = 1
    For 999999
        Gosub 安汶馬拉加
    EndFor
EndIf
Rem 主程序結束
Sub 馬拉加安汶
    Gosub 從馬拉加城裡去碼頭
    Delay 10
    Gosub 找碼頭官員子程序
    Delay 10
    Gosub 補給後出港
    Delay 10
    Gosub 從馬拉加去安汶
    Delay 10
    Gosub 判斷入港及上岸
    Delay 10
    Gosub 上岸後小號跟隨
    Delay 10
    Gosub 大號丟掉補給
    Delay 10
    Gosub 從安汶城裡去交易所
    Delay 10
    Gosub 找安汶交易所老闆並交易
    Delay 10
    Gosub 從安汶交易所去碼頭
    Delay 10
    Gosub 找碼頭官員子程序
    Delay 10
    Gosub 補給後出港
    Delay 10
    Gosub 從安汶去馬拉加
    Delay 10
    Gosub 判斷入港及上岸
    Delay 10
    Gosub 上岸後小號跟隨
    Delay 10
    Gosub 從馬拉加城裡去交易所
    Delay 10
    Gosub 找馬拉加交易所老闆並交易
    Delay 10
    Gosub 從馬拉加交易所去銀行
    Delay 10
    Gosub 找銀行職員存錢
    Delay 10
Return 馬拉加安汶
Sub 安汶馬拉加
    Gosub 從安汶交易所去碼頭
    Delay 10
    Gosub 找碼頭官員子程序
    Delay 10
    Gosub 補給後出港
    Delay 10
    Gosub 從安汶去馬拉加
    Delay 10
    Gosub 判斷入港及上岸
    Delay 10
    Gosub 上岸後小號跟隨
    Delay 10
    Gosub 從馬拉加城裡去交易所
    Delay 10
    Gosub 找馬拉加交易所老闆並交易
    Delay 10
    Gosub 從馬拉加交易所去銀行
    Delay 10
    Gosub 找銀行職員存錢
    Delay 10
    Gosub 從馬拉加城裡去碼頭
    Delay 10
    Gosub 找碼頭官員子程序
    Delay 10
    Gosub 補給後出港
    Delay 10
    Gosub 從馬拉加去安汶
    Delay 10
    Gosub 判斷入港及上岸
    Delay 10
    Gosub 上岸後小號跟隨
    Delay 10
    Gosub 大號丟掉補給
    Delay 10
    Gosub 從安汶城裡去交易所
    Delay 10
    Gosub 找安汶交易所老闆並交易
    Delay 10
Return 馬拉加馬拉加
Sub 從安汶去馬拉加
    Plugin Window.Restore(bdxwin(0))
    Delay 200
    Plugin Window.Active(bdxwin(0))
    Delay 800
    Plugin Window.Restore(bdxwin(0))
    Delay 200
    Plugin Window.Active(bdxwin(0))
    Delay 800
    Plugin bdxzbs = Window.GetClientRect(bdxwin(0))
    VBS bdxArray = Split(bdxzbs, "|", -1, 1)
    VBS x11=bdxArray(0)+390
    VBS y11=bdxArray(1)-10
    VBS x12=bdxArray(0)+390
    VBS y12=bdxArray(1)+200
    VBS x13=bdxArray(0)+50
    VBS y13=bdxArray(1)+15
    MoveTo x11,y11
    Delay 500
    LeftClick 1
    Delay 1000
    KeyDown 17,1
    Delay 50
    KeyPress 76,1
    Delay 50
    KeyUp 17,1
    Delay 20
    KeyUp 17,1
    Delay 20
    Plugin bdxhx= Window.Search("讀取航行線路")
    //下面這句用於分割字符串,將遍歷所得的窗口句柄按|分割
    VBS bdxhxwin = Split(bdxhx, "|")
    Plugin bdxhxzbs = Window.GetClientRect(bdxhxwin(0))
    VBS bdxhxArray = Split(bdxhxzbs, "|", -1, 1)
    VBS x21=bdxhxArray(0)+20
    VBS y21=bdxhxArray(1)+66
    VBS x22=bdxhxArray(0)+350
    VBS y22=bdxhxArray(1)+20
    For 4
        Delay 10
        KeyPress 40,1
        Delay 500
    EndFor
    MoveTo x21,y21
    Delay 500
    LeftClick 1
    Delay 1000
    MoveTo x22,y22
    Delay 500
    LeftClick 1
    Delay 2000
    MoveTo x13,y13
    Delay 500
    LeftClick 1
    Delay 30000
    Plugin Window.Min(bdxwin(0))
    Delay 300
    VBS i=0
    For plays
        Plugin Window.Min(objwin(i))
        Delay 300
        VBS i=i+1
    EndFor
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 100
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 100
    Plugin Window.Active(objwin(0))
    Delay 400
    Gosub 判斷當前窗口就是提督窗口
    Delay 400
Return 從安汶去馬拉加
Sub 從馬拉加去安汶
    dim bdxhx,bdxhxwin
    Plugin Window.Restore(bdxwin(0))
    Delay 200
    Plugin Window.Active(bdxwin(0))
    Delay 800
    Plugin Window.Restore(bdxwin(0))
    Delay 200
    Plugin Window.Active(bdxwin(0))
    Delay 800
    Plugin bdxzbs = Window.GetClientRect(bdxwin(0))
    VBS bdxArray = Split(bdxzbs, "|", -1, 1)
    VBS x11=bdxArray(0)+390
    VBS y11=bdxArray(1)-10
    VBS x13=bdxArray(0)+50
    VBS y13=bdxArray(1)+15
    MoveTo x11,y11
    Delay 500
    LeftClick 1
    Delay 1000
    KeyDown 17,1
    Delay 50
    KeyPress 76,1
    Delay 50
    KeyUp 17,1
    Delay 20
    KeyUp 17,1
    Delay 20
    Plugin bdxhx= Window.Search("讀取航行線路")
    //下面這句用於分割字符串,將遍歷所得的窗口句柄按|分割
    VBS bdxhxwin = Split(bdxhx, "|")
    Plugin bdxhxzbs = Window.GetClientRect(bdxhxwin(0))
    VBS bdxhxArray = Split(bdxhxzbs, "|", -1, 1)
    VBS x21=bdxhxArray(0)+20
    VBS y21=bdxhxArray(1)+53
    VBS x22=bdxhxArray(0)+350
    VBS y22=bdxhxArray(1)+20
    For 3
        Delay 10
        KeyPress 40,1
        Delay 500
    EndFor
    MoveTo x21,y21
    Delay 500
    LeftClick 1
    Delay 1000
    MoveTo x22,y22
    Delay 500
    LeftClick 1
    Delay 2000
    MoveTo x13,y13
    Delay 500
    LeftClick 1
    Delay 30000
    Plugin Window.Min(bdxwin(0))
    Delay 300
    VBS i=0
    For plays
        Plugin Window.Min(objwin(i))
        Delay 300
        VBS i=i+1
    EndFor
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 100
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 100
    Plugin Window.Active(objwin(0))
    Delay 400
    Gosub 判斷當前窗口就是提督窗口
    Delay 400
Return 從馬拉加去安汶
Sub 找碼頭官員子程序
    If whichone = 0
    VBS name0 = "碼頭官員"
    EndIf
    If whichone = 1
    VBS name0 = "碼頭官員"
    EndIf
   
    VBS tabfalse = 0
    Gosub 判斷當前窗口就是提督窗口
    Gosub 尋找革命目標
    Plugin Tobj00=LazyGod.ReadMemory(objwin(0),object01_addr,2)
    KeyPress 13,1
    Delay 1000
    Plugin buttonsum= LazyGod.ReadMemory(objwin(0),buttonsum_addr,0)
    While not buttonsum > 3
        Delay 100
        KeyPress 13,1
        Delay 1000
        Plugin buttonsum= LazyGod.ReadMemory(objwin(0),buttonsum_addr,0)
    EndWhile
    Delay 1200
    //點擊出航
    Plugin BGKM5.LClick(objwin(0),665,359)
    Gosub 網絡延遲判斷
    Plugin Tobj01=LazyGod.ReadMemory(objwin(0),object01_addr,2)
    While Tobj01 = Tobj00
        Delay 200
        //點擊出航
        Plugin BGKM5.LClick(objwin(0),665,359)
        Delay 1000
        Plugin Tobj01=LazyGod.ReadMemory(objwin(0),object01_addr,2)
    EndWhile
    Delay 4000
Return 找碼頭官員子程序
Sub 找銀行職員存錢
    VBS i=0:tabfalse = 0
   
    If whichone = 0
    VBS name0 = "銀行職員"
    EndIf
    If whichone = 1
    VBS name0 = "銀行職員"
    EndIf
    For plays
        Plugin Window.Restore(objwin(i))
        Delay 400
        Plugin Window.Active(objwin(i))
        Delay 400
        Gosub 判斷窗口激活成功
        If firstcity = "巴倫西亞碼頭" or secondcity = "巴倫西亞碼頭" or firstcity = "瓦倫西亞碼頭" or secondcity = "瓦倫西亞碼頭"
            Gosub 調到後視視角
        EndIf
        Delay 200
        Gosub 尋找革命目標
        KeyPress 13,1
        Delay 1000
        Gosub 網絡延遲判斷
        KeyPress 13,1
        Delay 1000
        If i=0
            Plugin BGKM5.RClick(objwin(0),400,300)
            Delay 1000
            KeyDown 38,1
            Delay 600
            KeyUp 38,1
            Delay 10
            KeyUp 38,1
            Delay 500
        EndIf
        Gosub 存入全部資金
        Gosub 取出二百萬現金
        Delay 300
        Plugin Window.Min(objwin(i))
        Delay 300
        VBS i=i+1
    EndFor
    Plugin Window.Restore(objwin(i))
    Delay 500
    Plugin Window.Active(objwin(0))
    VBS i=0
    Delay 300
Return 找銀行職員存錢
Sub 找馬拉加交易所老闆並交易
    VBS i=0:tabfalse = 0
   
    If whichone = 0
    VBS name0 = "交易所老闆"
    EndIf
    If whichone = 1
    VBS name0 = "交易所店主"
    EndIf
    VBS goods_set = Split(PGoodsSet,"|",-1,1)
    For plays
        Plugin Window.Restore(objwin(i))
        Delay 400
        Plugin Window.Active(objwin(i))
        Delay 400
        Gosub 判斷窗口激活成功
        Delay 200
        Gosub 尋找革命目標
        KeyPress 13,1
        Delay 1000
        Gosub 網絡延遲判斷
        KeyPress 13,1
        Delay 1000
        If i=0
            Plugin BGKM5.RClick(objwin(0),400,300)
            Delay 300
            KeyDown 38,1
            Delay 300
            KeyUp 38,1
            Delay 10
            KeyUp 38,1
            Delay 500
        EndIf
        Gosub 全部賣出
        Gosub 交易所買進貨物
        Delay 300
        Plugin Window.Min(objwin(i))
        Delay 300
        VBS i=i+1
    EndFor
    Plugin Window.Restore(objwin(0))
    Delay 500
    Plugin Window.Active(objwin(0))
    VBS i=0
    Delay 300
Return 找馬拉加交易所老闆並交易
Sub 找安汶交易所老闆並交易
    VBS i=0:tabfalse=0
    If whichone = 0
    VBS name0 = "交易所老闆"
    EndIf
    If whichone = 1
    VBS name0 = "交易所店主"
    EndIf
    VBS goods_set = Split(BGoodsSet,"|",-1,1)
    For plays
        Plugin Window.Restore(objwin(i))
        Delay 500
        Plugin Window.Active(objwin(i))
        Delay 400
        Gosub 判斷窗口激活成功
        Delay 200
        Gosub 尋找革命目標
        If tabfalse = 1
            If i=0
                VBS tabfalse = 0
                Gosub 找不到目標對像試圖進行糾錯
                If tabfalse = 1
                    Gosub 登出遊戲
                EndIf
            Else
                Plugin BGKM5.RClick(objwin(i),400,300)
                Delay 300
                Gosub 尋找革命目標
            EndIf
        EndIf
        KeyPress 13,1
        Delay 1000
        Gosub 網絡延遲判斷
        KeyPress 13,1
        Delay 1000
        If i=0
            Plugin BGKM5.RClick(objwin(0),400,300)
            Delay 300
            KeyDown 38,1
            Delay 300
            KeyUp 38,1
            Delay 10
            KeyUp 38,1
            Delay 500
        EndIf
        Gosub 全部賣出
        Gosub 交易所買進貨物
        If i=0
            VBS ttttt= fourstarnum-1
        Else
            VBS ttttt= fourstarnum
        EndIf
        For ttttt
            Gosub 按F10打開自定義欄
            Delay 300
            //按F5刷4*書
            Plugin BGKM5.KeyClickE(objwin(i),116)
            Delay 500
            Gosub 交易所買進貨物
        EndFor
        Plugin Window.Min(objwin(i))
        Delay 300
        VBS i=i+1
    EndFor
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 500
    Plugin Window.Active(objwin(0))
    Delay 500
Return 找安汶交易所老闆並交易
Sub 從馬拉加城裡去碼頭
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 400
    Plugin Window.Active(objwin(0))
    Delay 800
    Gosub 判斷當前窗口就是提督窗口
    Delay 200
    Gosub 防卡步驟
    Delay 500
    KeyPress 9,1
    Delay 200
    KeyPress 9,1
    Delay 200
    Plugin BGKM5.KeyClickE(objwin(0),116)
    Delay 1000
    Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    Delay 300
    While takebigmap = 0
        Delay 1000
        Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    EndWhile
    Delay 1000
    Plugin BGKM5.LClick(objwin(0),417,225)
    Delay 300
    Plugin BGKM5.LClick(objwin(0),417,225)
    Delay 100
    Plugin clkpoint_X=LazyGod.ReadMemory(objwin(0),clkpiontX_addr,3)
    Delay 2000
    Plugin BGKM5.RClick(objwin(0),413,230)
    Delay 300
    Plugin BGKM5.RClick(objwin(0),413,230)
    Delay 300
    Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
    VBS xvsx=Person_X/clkpoint_X - 1
    VBS xvsx=abs(xvsx)
    While not xvsx < 0.001
        Plugin BGKM5.RClick(objwin(0),400,300)
        Delay 2000
        Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
        VBS xvsx=Person_X/clkpoint_X - 1
        VBS xvsx=abs(xvsx)
    EndWhile
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 1000
Return 從馬拉加城裡去碼頭
Sub 從馬拉加交易所去銀行
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 400
    Plugin Window.Active(objwin(0))
    Delay 800
    Gosub 判斷當前窗口就是提督窗口
    Delay 200
    Gosub 防卡步驟
    Delay 500
    KeyPress 9,1
    Delay 200
    KeyPress 9,1
    Delay 200
    Plugin BGKM5.KeyClickE(objwin(0),116)
    Delay 1000
    Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    Delay 300
    While takebigmap = 0
        Delay 1000
        Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    EndWhile
    Delay 1000
    Plugin BGKM5.LClick(objwin(0),576,134)
    Delay 300
    Plugin BGKM5.LClick(objwin(0),576,134)
    Delay 100
    Plugin clkpoint_X=LazyGod.ReadMemory(objwin(0),clkpiontX_addr,3)
    Delay 2000
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 300
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 300
    Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
    VBS xvsx=Person_X/clkpoint_X - 1
    VBS xvsx=abs(xvsx)
    While not xvsx < 0.001
        Plugin BGKM5.RClick(objwin(0),400,300)
        Delay 2000
        Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
        VBS xvsx=Person_X/clkpoint_X - 1
        VBS xvsx=abs(xvsx)
    EndWhile
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 1000
Return 從馬拉加交易所去銀行
Sub 從馬拉加城裡去交易所
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 400
    Plugin Window.Active(objwin(0))
    Delay 800
    Gosub 判斷當前窗口就是提督窗口
    Delay 200
    Gosub 防卡步驟
    Delay 500
    KeyPress 9,1
    Delay 200
    KeyPress 9,1
    Delay 200
    Plugin BGKM5.KeyClickE(objwin(0),116)
    Delay 1000
    Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    Delay 300
    While takebigmap = 0
        Delay 1000
        Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    EndWhile
    Delay 1000
    Plugin BGKM5.LClick(objwin(0),463,150)
    Delay 300
    Plugin BGKM5.LClick(objwin(0),463,150)
    Delay 2000
    Plugin clkpoint_X=LazyGod.ReadMemory(objwin(0),clkpiontX_addr,3)
    Delay 300
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 300
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 300
    Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
    VBS xvsx=Person_X/clkpoint_X - 1
    VBS xvsx=abs(xvsx)
    While not xvsx < 0.001
        Plugin BGKM5.RClick(objwin(0),400,300)
        Delay 2000
        Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
        VBS xvsx=Person_X/clkpoint_X - 1
        VBS xvsx=abs(xvsx)
    EndWhile
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 1000
Return 從馬拉加城裡去交易所
Sub 大號丟掉補給
    Gosub 防卡步驟
    Delay 500
    Plugin BGKM5.KeyClickE(objwin(0),117)
    Delay 1000
    Plugin Myinfo= LazyGod.ReadMemory(objwin(i),Myinfo_addr,0)
    While not Myinfo = 1
        Delay 100
        Plugin BGKM5.KeyClickE(objwin(0),117)
        Delay 500
        Plugin Myinfo= LazyGod.ReadMemory(objwin(i),Myinfo_addr,0)
    EndWhile
    Delay 1200
    //點丟棄貨物
    Plugin BGKM5.LClick(objwin(0),440,366)
    Delay 300
    Plugin Gmission= LazyGod.ReadMemory(objwin(i),mission_addr,2)
    While Gmission = 0
        Delay 100
        Plugin BGKM5.LClick(objwin(0),440,366)
        Delay 500
        Plugin Gmission= LazyGod.ReadMemory(objwin(i),mission_addr,2)
    EndWhile
    Delay 500
    Gosub 求當前窗口的起始坐標
    VBS x11=MyArray(0)+117
    VBS y11=MyArray(1)+138
    MoveTo x11,y11
    Delay 200
    KeyDown 17,1
    Delay 20
    LeftClick 1
    Delay 1000
    LeftClick 1
    Delay 500
    KeyUp 17,1
    Delay 10
    KeyUp 17,1
    Delay 10
    KeyUp 17,1
    Delay 1200
    Plugin BGKM5.LClick(objwin(0),630,390)
    Delay 500
Return 大號丟掉補給
Sub 從安汶城裡去交易所
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 400
    Plugin Window.Active(objwin(0))
    Delay 800
    Gosub 判斷當前窗口就是提督窗口
    Delay 200
    Gosub 防卡步驟
    Delay 500
    KeyPress 9,1
    Delay 200
    KeyPress 9,1
    Delay 200
    Plugin BGKM5.KeyClickE(objwin(0),116)
    Delay 1000
    Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    Delay 300
    While takebigmap = 0
        Delay 1000
        Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    EndWhile
    Delay 1000
    Plugin BGKM5.LClick(objwin(0),633,127)
    Delay 300
    Plugin BGKM5.LClick(objwin(0),633,127)
    Delay 2000
    Plugin clkpoint_X=LazyGod.ReadMemory(objwin(0),clkpiontX_addr,3)
    Delay 300
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 300
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 300
    Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
    VBS xvsx=Person_X/clkpoint_X - 1
    VBS xvsx=abs(xvsx)
    While not xvsx < 0.001
        Plugin BGKM5.RClick(objwin(0),400,300)
        Delay 2000
        Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
        VBS xvsx=Person_X/clkpoint_X - 1
        VBS xvsx=abs(xvsx)
    EndWhile
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 1000
Return 從安汶城裡去交易所
Sub 從安汶交易所去碼頭
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 400
    Plugin Window.Active(objwin(0))
    Delay 800
    Gosub 判斷當前窗口就是提督窗口
    Delay 200
    Gosub 防卡步驟
    Delay 500
    KeyPress 9,1
    Delay 200
    KeyPress 9,1
    Delay 200
    Plugin BGKM5.KeyClickE(objwin(0),116)
    Delay 1000
    Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    Delay 300
    While takebigmap = 0
        Delay 1000
        Plugin takebigmap=LazyGod.ReadMemory(objwin(0),bigmap_addr,2)
    EndWhile
    Delay 1000
    Plugin BGKM5.LClick(objwin(0),564,254)
    Delay 300
    Plugin BGKM5.LClick(objwin(0),564,254)
    Delay 2000
    Plugin clkpoint_X=LazyGod.ReadMemory(objwin(0),clkpiontX_addr,3)
    Delay 300
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 300
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 300
    Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
    VBS xvsx=Person_X/clkpoint_X - 1
    VBS xvsx=abs(xvsx)
    While not xvsx < 0.001
        Plugin BGKM5.RClick(objwin(0),400,300)
        Delay 2000
        Plugin Person_X=LazyGod.ReadMemory(objwin(0),Addr_Person_X,3)
        VBS xvsx=Person_X/clkpoint_X - 1
        VBS xvsx=abs(xvsx)
    EndWhile
    Plugin BGKM5.RClick(objwin(0),400,300)
    Delay 1000
Return 從安汶交易所去碼頭
Sub 判斷入港及上岸
    VBS comMT1=0 : comMT2=0 : i = 0
    Gosub 獲得目前所在的場景名稱
    VBS comMT1 = instr(addrname,firstcity)
    VBS comMT2 = instr(addrname,secondcity)
    While comMT1=0 and comMT2=0
        VBS i=1
        For plays-1
            V●禁私人部落格●o007 = "由於遠" or logo007="由於遠"
            Gosub 讀最後一句話
            VBS samelogo7 = Instr(logolast,logo007)
            If samelogo7 = 1
                Gosub 小號尋找提督子程序
            EndIf
            VBS i=i+1
        EndFor
        Delay 5000
        Plugin onseadays=LazyGod.ReadMemory(objwin(0),onseadays_addr,1)
        If onseadays > 100
            Gosub 登出遊戲
        EndIf
        VBS i=0
        Gosub 獲得目前所在的場景名稱
        VBS comMT1 = instr(addrname,firstcity)
        VBS comMT2 = instr(addrname,secondcity)
    EndWhile
    VBS i=0
    Gosub 網絡延遲判斷
    Delay 4000
    Plugin TDaddrhor=LazyGod.ReadMemory(objwin(0),addr_addr,2)
    VBS i=plays-1
    For plays
        Plugin Window.Restore(objwin(i))
        Delay 500
        Plugin BGKM5.LClick(objwin(i),644,383)
        Delay 500
        VBS i=i-1
    EndFor
    Plugin Window.Restore(objwin(0))
    Delay 400
    Plugin Window.Active(objwin(0))
    Delay 400
    Gosub 判斷當前窗口就是提督窗口
    Gosub 網絡延遲判斷
    Delay 4000
    Plugin TDaddr=LazyGod.ReadMemory(objwin(0),addr_addr,2)
    If TDaddr = TDaddrhor
        Plugin BGKM5.LClick(objwin(0),644,383)
        Gosub 網絡延遲判斷
        Delay 500
        Plugin TDaddr=LazyGod.ReadMemory(objwin(0),addr_addr,2)
    EndIf
    VBS k=plays-1
    VBS i = 1
    For k
        Plugin Myaddr=LazyGod.ReadMemory(objwin(i),addr_addr,2)
        VBS toland = 0
        While not Myaddr = TDaddr
            Delay 1000
            VBS toland = toland + 1
            If toland > 5
                Plugin BGKM5.LClick(objwin(i),644,383)
                Delay 500
                VBS toland = 0
            EndIf
            Plugin Myaddr=LazyGod.ReadMemory(objwin(i),addr_addr,2)
        EndWhile
        VBS i=i+1
    EndFor
    VBS i=0
    Plugin Window.Restore(objwin(0))
    Delay 1000
    Plugin Window.Active(objwin(0))
    Delay 1000
    Gosub 判斷當前窗口就是提督窗口
    Delay 3000
Return 判斷入港及上岸
Sub 尋找革命目標
    VBS tabsum = 0
    VBS tabfalse = 0
    Plugin BGKM5.RClick(objwin(i),400,300)
    Delay 200
    Gosub 獲得目標名稱
    While not name = name0
        Delay 100
        KeyPress 9,1
        VBS tabsum = tabsum + 1
        VBS tabfalse = 0
        If tabsum > 50
            VBS tabsum = 0
            VBS tabfalse = 1
            Goto finishtab
        EndIf
        Delay 200
        Gosub 獲得目標名稱
    EndWhile
    Rem finishtab
Return 尋找革命目標
Sub 獲得目標名稱
    Rem 開始讀目標內存
    Plugin ObjType=LazyGod.ReadMemory(objwin(i),object02_addr,2)
    Plugin ID=LazyGod.ReadMemory(objwin(i),object01_addr,2)
    If ID < 1000000
        KeyPress 9,1
        Delay 100
        Goto 開始讀目標內存
    EndIf
    If ObjType =0
    If whichone = 0
    VBS base=&Hb68ed4
    EndIf
    If whichone = 1
    VBS base=&h00b51e70+&h1e134
    EndIf        
        Gosub 獲得目標地址
        VBS ObjAddr1=ObjAddr+&H118
        VBS ObjAddr2=ObjAddr+&H120
        VBS ObjAddr3=ObjAddr+&H3C
        Plugin X=LazyGod.ReadMemory(objwin(i),ObjAddr1, 3)
        Plugin Y=LazyGod.ReadMemory(objwin(i),ObjAddr2, 3)
        Plugin temp0=LazyGod.ReadMemory(objwin(i),ObjAddr3, 2)
        Plugin temp=LazyGod.ReadMemoryEx(objwin(i),temp0,6)
        VBS name = temp
    ElseIf ObjType = 1        
        If whichone = 0
    VBS base=&HB68ef4
    EndIf
    If whichone = 1
    VBS base=&h00b51e90+&h1e134
    EndIf        
        Gosub 獲得目標地址
        If ObjAddr > 0
            VBS ObjAddr1=ObjAddr+&H10
            VBS ObjAddr2=ObjAddr+&H18
            VBS ObjAddr3=ObjAddr+&H0C
            Plugin X=LazyGod.ReadMemory(objwin(i),ObjAddr1, 3)
            Plugin Y=LazyGod.ReadMemory(objwin(i),ObjAddr2, 3)
            Plugin ID = LazyGod.ReadMemory(objwin(i),ObjAddr3, 2)
            If whichone = 0
            VBS base = &H00B69584
              EndIf
            If whichone = 1
            VBS base = &h00b52520+&h1e134
            EndIf
            Gosub 獲得目標地址
            VBS ObjAddr4=ObjAddr+&H0c
            Plugin temp0=LazyGod.ReadMemory(objwin(i),ObjAddr4, 2)
            Plugin temp=LazyGod.ReadMemory(objwin(i),temp0, 6)
        Else
            Goto 開始讀目標內存
        EndIf
    Else
        Goto 開始讀目標內存
    EndIf
    VBS GetObjName = temp
    VBS name = GetObjName
Return 獲得目標名稱
Sub 獲得目標地址
    Plugin A=LazyGod.ReadMemory(objwin(i),base,2)
    VBS base0=base+&H04
    Plugin B=LazyGod.ReadMemory(objwin(i),base0,2)
    VBS B=A+(int(ID/16) mod B) *4
    Plugin addr = LazyGod.ReadMemory(objwin(i),B,2)
    While not addr = 0
        Plugin temp = LazyGod.ReadMemory(objwin(i),addr,2)
        If temp = ID
            Goto 標誌01
        EndIf
        VBS addr=addr+8
        Plugin addr = LazyGod.ReadMemory(objwin(i),addr,2)
    EndWhile
    Rem 標誌01
    If addr >0 then
        VBS addr=addr+4
        Plugin temp=LazyGod.ReadMemory(objwin(i),addr,2)
        VBS GetObjAddr=temp
    Else
        VBS GetObjAddr=0
    EndIf
    VBS ObjAddr = GetObjAddr
Return 獲得目標地址
Sub 防卡步驟
    Plugin BGKM5.KeyClick(objwin(i),27)
    Delay 20
    Plugin BGKM5.KeyClick(objwin(i),27)
    Delay 20
    KeyPress 27,1
    Delay 20
    KeyPress 27,1
    Delay 100
Return 防卡步驟
Sub 存入全部資金
    Plugin mymoney= LazyGod.ReadMemory(objwin(i),money_addr,2)
    Delay 200
    While mymoney > 10000
        Plugin BGKM5.RClick(objwin(i),400,300)
        Delay 200
        Plugin BGKM5.RClick(objwin(i),400,300)
        Delay 200
        Plugin buttonsum= LazyGod.ReadMemory(objwin(i),buttonsum_addr,0)
        While not buttonsum > 7
            Delay 100
            KeyPress 13,1
            Delay 1000
            Plugin buttonsum= LazyGod.ReadMemory(objwin(i),buttonsum_addr,0)
        EndWhile
        //點存入
        Plugin BGKM5.LClick(objwin(i),650,355)
        Delay 2000
        Plugin Myinfo= LazyGod.ReadMemory(objwin(i),Myinfo_addr,0)
        While not Myinfo = 1
            Delay 100
            Plugin BGKM5.LClick(objwin(i),650,355)
            Delay 500
            Plugin Myinfo= LazyGod.ReadMemory(objwin(i),Myinfo_addr,0)
        EndWhile
        Delay 1200
        //click Max
        Plugin BGKM5.LClick(objwin(i),320,220)
        Delay 1200
        //make sure
        Plugin BGKM5.LClick(objwin(i),500,330)
        Delay 3000
        Plugin mymoney= LazyGod.ReadMemory(objwin(i),money_addr,2)
    EndWhile
Return 存入全部資金
Sub 取出二百萬現金
    Plugin mymoney= LazyGod.ReadMemory(objwin(i),money_addr,2)
    While mymoney < 2000000
        Plugin BGKM5.RClick(objwin(i),400,300)
        Delay 200
        Plugin BGKM5.RClick(objwin(i),400,300)
        Delay 200
        Plugin buttonsum= LazyGod.ReadMemory(objwin(i),buttonsum_addr,0)
        While not buttonsum > 7
            Delay 100
            KeyPress 13,1
            Delay 1000
            Plugin buttonsum= LazyGod.ReadMemory(objwin(i),buttonsum_addr,0)
        EndWhile
        //點取出
收藏收藏1 分享分享 讚讚 幹幹 分享分享 FB分享
回覆

使用道具 舉報


applefox 當前離線
UID
1601941
熱心
14 值
嘉獎
0 次
違規
0 次
在線時間
4 小時
經驗
14 點
積分
14
精華
0
最後登錄
2013-9-15
閱讀權限
10
註冊時間
2010-12-11
論壇幣
26 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
applefox 2011-2-7 16:40:54
感謝大大無私分享
這個真得好厲害
回覆

使用道具 舉報

yuma777 當前離線
UID
702934
熱心
14 值
嘉獎
0 次
違規
0 次
在線時間
25 小時
經驗
16 點
積分
16
精華
0
最後登錄
2013-9-22
閱讀權限
10
註冊時間
2008-1-7
論壇幣
257 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
yuma777 2011-2-8 11:44:43
非常謝謝您的分享

先下載備用
回覆

使用道具 舉報

alanki 當前離線
UID
1402337
熱心
7 值
嘉獎
0 次
違規
0 次
在線時間
17 小時
經驗
7 點
積分
7
精華
0
最後登錄
2011-9-18
閱讀權限
5
註冊時間
2010-2-2
論壇幣
9 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
alanki 2011-2-9 17:32:53
借問一下大大

我用按鍵精靈八
將上面你的語法完全複製下來
要執行時他說有錯誤
分別是下列



語法錯誤：腳本 我的腳本 ，第11行，第14個字元：（錯誤碼0）沒有找到合法的符號。(Enable = 1)
語法錯誤：腳本 我的腳本 ，第18行，第14個字元：（錯誤碼0）沒有找到合法的符號。([Comment]())
語法錯誤：腳本 我的腳本 ，第20行，第9個字元：（錯誤碼0）沒有找到合法的符號。([Script]())
語法錯誤：腳本 我的腳本 ，第22行，第15個字元：（錯誤碼0）沒有找到合法的符號。(iniFilePath = ".\長途跑豆子.ini")


請問還要改哪些係數呢？
麻煩您了
回覆

使用道具 舉報

hotsoup 當前離線
UID
1642924
熱心
7 值
嘉獎
0 次
違規
0 次
在線時間
2 小時
經驗
12 點
積分
12
精華
0
最後登錄
2011-3-31
閱讀權限
10
註冊時間
2011-2-21
論壇幣
0 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
5層
hotsoup 2011-2-25 13:26:06
很好的腳本  要借來用一下了 謝謝大大
回覆

使用道具 舉報

gg2255 當前離線
UID
1085659
熱心
4 值
嘉獎
0 次
違規
0 次
在線時間
144 小時
經驗
1 點
積分
263
精華
0
最後登錄
2015-1-1
閱讀權限
25
註冊時間
2014-10-31
論壇幣
19 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
6層
gg2255 2011-3-2 19:08:54
這個腳本沒有完全貼出來~被限制了~還需要一些檔案~給大家參考語法用~
回覆

使用道具 舉報

a7194222 當前離線
UID
29196
熱心
42 值
嘉獎
0 次
違規
0 次
在線時間
20 小時
經驗
38 點
積分
126
精華
0
最後登錄
2018-8-1
閱讀權限
20
註冊時間
2006-8-22
論壇幣
20 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
7層
a7194222 2011-3-12 16:24:45
謝謝了~~不知道好不好用~~而且重點不知道還要不要改。
本文章轉自外掛聯合國http://www.wgun.net
回覆

使用道具 舉報

a0917405260 當前離線
UID
1370515
熱心
63 值
嘉獎
0 次
違規
0 次
在線時間
12 小時
經驗
27 點
積分
27
精華
0
最後登錄
2013-2-28
閱讀權限
20
註冊時間
2009-12-13
論壇幣
39 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
8層
a0917405260 2011-5-15 07:46:36
感謝大大無私的分享~~太感動了~~~~~
回覆

使用道具 舉報

reaver 當前離線
UID
245193
熱心
6 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
11 點
積分
11
精華
0
最後登錄
2011-7-13
閱讀權限
10
註冊時間
2007-2-26
論壇幣
3 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
9層
reaver 2011-7-10 09:04:24
馬上來試試看，
感謝大大的分享∼∼∼
回覆

使用道具 舉報

mrwhitelee 當前離線
UID
1028957
熱心
26 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
22 點
積分
78
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2008-9-20
論壇幣
14 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
10層
mrwhitelee 2011-7-23 09:58:01
GG用按鍵精靈7?

按鍵精靈8都錯誤@@
回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回帖 登錄 | 註冊

12下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-25 05:10 , Processed in 0.074169 second(s), 15 queries , Memcache On.

版權說明:
　　本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證，協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理，說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等，商標及著作權，均歸各公司及程式原創所有，本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?