黃易群俠傳M脫機外掛應用程式黃易神行
65678
100

[原創] 造船-貝魯特造小飛

偷心的人 當前離線
UID
202184
熱心
41 值
嘉獎
0 次
違規
0 次
在線時間
19 小時
經驗
16 點
積分
16
精華
0
最後登錄
2014-7-12
閱讀權限
10
註冊時間
2007-2-11
論壇幣
154 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
偷心的人 2010-2-17 01:06:19
感謝分享~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
回覆

使用道具 舉報

szvsop 該用戶已被刪除
szvsop 2010-2-22 12:18:48
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

hon0808 該用戶已被刪除
hon0808 2010-3-8 13:13:48
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

alin3647 當前離線
UID
1420279
熱心
4 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
7 點
積分
7
精華
0
最後登錄
2014-9-25
閱讀權限
5
註冊時間
2010-3-4
論壇幣
2 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
alin3647 2010-3-8 16:01:20
1# taiwan57344


以下是我把你的腳本改成我可以用的,可是發現了一個我怎麼改都是一樣的地方,狀況如下:1.無法進入貝魯特
      2.常常執行一次就結束了 就算設定迴圈到點終止鍵都一樣,有時候會回圈,但是都要等很久,而且迴圈還是從開地圖→點酒館老闆開始

以下是我修改過的腳本,希望可以幫我解決最後的問題,非常感謝您∼!!
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
//將視窗左上固定在(0,0)
dim day
VBS dayAdd=H00B71A68
//設定日期內存參數
For 100
    Delay 1000
    MoveTo 649,412
    Gosub 點擊
    Delay 6000
    Gosub 開地圖
    MoveTo 667,221
    Gosub 點擊
    Delay 14000
    //移動到船廠
    KeyPress 27,1
    KeyDown 27,1
    Delay 1000
    Gosub 找船老闆
    //找老闆取船,取船
    MoveTo 650,391
    LeftClick 1
    Delay 3000
    //賣船
    MoveTo 691,387
    LeftClick 1
    Delay 5000
    KeyPress 40,1
    KeyPress 13,2
    Delay 1000
    KeyPress 13,2
    Delay 500
    //新造
    MoveTo 643,407
    LeftClick 1
    Delay 3000
    For 7
        Delay 150
    EndFor
    KeyPress 13,1
    Delay 1000
    //選船-小型阿拉伯
    MoveTo 627,444
    Gosub 點擊
    //確定
    Delay 400
    Gosub 點擊
    Delay 400
    Gosub 點擊
    Delay 400
    KeyPress 49,1
    Gosub 點擊
    Delay 3000
    //完成造船
    Gosub 開地圖
    MoveTo 629,193
    Gosub 點擊
    Delay 4600
    //到休息站
    KeyPress 27,1
    KeyDown 27,1
    Delay 1000
    Gosub 找休息站老闆
    //找休息站主
    For 3
        MoveTo 650,385
        Gosub 點擊
        Delay 2000
        MoveTo 251,268
        Gosub 點擊
        Delay 100
        MoveTo 389,403
        Gosub 點擊
        Delay 300
        Gosub 點擊
        MoveTo 275,324
        Gosub 點擊
        MoveTo 603,439
        Gosub 點擊
        Delay 1500
    EndFor
    //吃料理3次
    Gosub 開地圖
    MoveTo 576,301
    Gosub 點擊
    Delay 13500
    //到碼頭
    KeyPress 27,1
    KeyDown 27,1
    Delay 1000
    Gosub 找碼頭官員
    //找碼頭官員
    Delay 1200
    KeyPress 13,2
    Delay 1200
    MoveTo 649,387
    Gosub 點擊
    Delay 6000
    //到港口,花7秒
    Delay 300
    MoveTo 690,388
    Gosub 點擊
    Delay 1500
    MoveTo 208,380
    Gosub 點擊
    MoveTo 607,422
    Delay 500
    IfColor 607,419,BBCC59,0
        Gosub 點擊
        Delay 500
    Else
        Delay 500
        MoveTo 661,422
        Gosub 點擊
        Delay 500
    EndIf
    //補給
    Delay 1000
    MoveTo 650,386
    Gosub 點擊
    Delay 1200
    MoveTo 646,416
    Gosub 點擊
    //出航
    Delay 5000
    KeyPress 112,1
    Delay 3000
    KeyPress 112,1
    Delay 360000
    a=0
    MoveTo 15,300
    RightDown 1
    MoveTo 750,300
    RightUp 1
    Delay 1000
    KeyPress 9,1
    IfColor 643,366,ffffff,0
        IfColor 668,364,ffffff,0
            IfColor 644,366,ffffff,0
                Delay 1000
                KeyPress 13,2
                Delay 5000
                MoveTo 468,226
                LeftDoubleClick 1
                Delay 10000
                MoveTo 652,388
                IfColor 643,366,ffffff,0
                    IfColor 668,364,ffffff,0
                        IfColor 644,366,ffffff,0
                            KeyPress 13,2
                            a=1
                        EndIf
                    EndWhile
                    //6日後,移動滑屬看到貝魯特
                    Gosub 找貝魯特
                    EndScript
                    //==============================================
                    Sub 點擊
                        Delay 450
                        LeftClick 1
                        Delay 450
                    Return 點擊
                    Sub 開地圖
                        Delay 1000
                        KeyPress 122,1
                        Delay 1000
                    Return 開地圖
                    Sub 找船老闆
                        tmp=1
                        a=0
                        While a=0
                            Delay 200
                            KeyPress 9,1
                            IfColor 634,369,ffffff,0
                                IfColor 640,369,ffffff,0
                                    IfColor 658,368,ffffff,0
                                        IfColor 661,356,ffffff,0
                                            IfColor 668,359,ffffff,0
                                                Delay 300
                                                KeyUp 27,1
                                                Delay 300
                                                KeyPress 13,2
                                                Delay 2000
                                                MoveTo 650,391
                                                Delay 500
                                                Gosub 翻譯
                                                Delay 1500
                                                a=1
                                            EndIf
                                        EndIf
                                    EndIf
                                EndIf
                            EndIf
                        EndWhile
                    Return 找船老闆
                    Sub 找休息站老闆
                        a=0
                        tmp=2
                        While a=0
                            Delay 200
                            KeyPress 9,1
                            Delay 300
                            KeyPress 13,2
                            IfColor 703,362,ffffff,0
                                IfColor 711,369,ffffff,0
                                    IfColor 707,356,ffffff,0
                                        Delay 300
                                        KeyUp 27,1
                                        Delay 2000
                                        MoveTo 650,391
                                        Delay 500
                                        Gosub 翻譯
                                        a=1
                                        Delay 2000
                                    EndIf
                                EndIf
                            EndIf
                        EndWhile
                    Return 找休息站老闆
                    Sub 找碼頭官員
                        a=0
                        While a=0
                            Delay 200
                            KeyPress 9,1
                            IfColor 647,367,ffffff,0
                                IfColor 660,361,ffffff,0
                                    IfColor 668,364,ffffff,0
                                        IfColor 692,367,ffffff,0
                                            Delay 300
                                            KeyUp 27,1
                                            Delay 300
                                            KeyPress 13,2
                                            Delay 1000
                                            a=1
                                        EndIf
                                    EndIf
                                EndIf
                            EndIf
                        EndWhile
                    Return 找碼頭官員
                    Sub 找貝魯特
                        a=0
                        While a=0
                            KeyPress 9,1
                            IfColor 676,369,ffffff,0
                                IfColor 668,359,ffffff,0
                                    IfColor 677,363,ffffff,0
                                        KeyPress 13,2
                                        Delay 1000
                                    EndIf
                                EndIf
                            EndIf
                            MoveTo 652,388
                            IfColor 676,369,ffffff,0
                                IfColor 668,359,ffffff,0
                                    IfColor 677,363,ffffff,0
                                        KeyPress 13,2
                                        a=1
                                    EndIf
                                EndIf
                            EndIf
                        EndWhile
                    Return 找貝魯特
                    Sub 讀參數
                        Plugin day=Memory.Read32Bit(hwnd,dayAdd)
                    Return 讀參數
                    本文章轉自外掛聯合國http://www.wgun.net
回覆

使用道具 舉報

ren8753163 當前離線
UID
541242
熱心
30 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
27 點
積分
27
精華
0
最後登錄
2021-3-26
閱讀權限
20
註冊時間
2007-9-10
論壇幣
14 幣
聯合幣
1 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
ren8753163 2010-4-2 11:37:18
非常感謝你的分享.....先看看能不能用
本文章轉自外掛聯合國http://www.wgun.net
回覆

使用道具 舉報

ktli0427 當前離線
UID
927140
熱心
14 值
嘉獎
0 次
違規
0 次
在線時間
26 小時
經驗
13 點
積分
505
精華
0
最後登錄
2018-8-6
閱讀權限
30
註冊時間
2008-7-10
論壇幣
446 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 4Rank: 4
ktli0427 2010-4-7 20:57:14
我也是再外面六天.就沒動作了@@
不知道問題在那裡ORZ
回覆

使用道具 舉報

qqicq2005 當前離線
UID
1457280
熱心
16 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
21 點
積分
21
精華
0
最後登錄
2010-6-11
閱讀權限
20
註冊時間
2010-5-4
論壇幣
37 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
Yahoo! 查看詳細資料
Rank: 2Rank: 2
qqicq2005 2010-5-4 15:41:23
感謝分享試試看先^^......................
回覆

使用道具 舉報

powei20 當前離線
UID
1185757
熱心
24 值
嘉獎
0 次
違規
0 次
在線時間
7 小時
經驗
20 點
積分
67
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-4-15
論壇幣
10 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
powei20 2010-5-4 20:30:42
感謝大大的分享...
下載試試看...
回覆

使用道具 舉報

kouna21 當前離線
UID
1176135
熱心
29 值
嘉獎
0 次
違規
0 次
在線時間
23 小時
經驗
13 點
積分
85
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-4-6
論壇幣
11 幣
聯合幣
9 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
kouna21 2010-5-8 03:45:05
感謝大大的分享!!找了好久好久了!!
回覆

使用道具 舉報

89729091 該用戶已被刪除
89729091 2010-5-8 14:01:57
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-3-29 04:43 , Processed in 0.062929 second(s), 15 queries , Memcache On.

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

回頂部
第二步?
第三步?