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

[發問] 這角本能用嗎?

anoveert6413 發表於 2011-5-15 10:40:27 | 顯示全部樓層 |
VBS的暗淡ss_x,ss_y,SX的,Bx的,學年中,,惠普,小孤山,高盛,
VBSCall呼叫ReadMemory(&h004E92B0,2,ss_x)
VBSCall呼叫ReadMemory(&h004E92B4,2,ss_y)
VBSCall呼叫ReadMemory(&h0108B690,2,馬力)
VBSCall MessageBox的調用(“當前 X座標”)
延遲 500
VBSCall MessageBox的調用(CStr的(ss_x))
延遲 500
VBSCall MessageBox的調用(“當前 ?座標”)
延遲 500
VBSCall MessageBox的調用(CStr的(ss_y))
延遲 500
VBSCall MessageBox的調用(“當前血量”)
延遲 500
VBSCall MessageBox的調用(CStr的(馬力))
延遲 500
VBSCall小孤山=輸入框(“請輸入惠普要低於多少自動??喝水”)
延遲 500
VBSCall廣深高速 =輸入框(“請輸入範圍 20∼60”)
延遲 500
VBS的SX的= ss_x - GS的
VBS的= ss_x + Bx的廣深高速
VBS的學年 = ss_y - GS的
由= ss_y + VBS的廣深高速
雷姆開始練功
延遲 500
對於 5
    Gosub打怪程式
    雷姆右
    moveTo的744 204
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的744 204
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    雷姆上
    moveTo的499 128
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的499 128
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    雷姆左
    moveTo的266 242
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的266 242
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    moveTo的269 545
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的269 545
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    雷姆下
    moveTo的501 576
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的501 576
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    moveTo的705 505
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的705 505
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
轉到開始練功
小組打怪程式
    Gosub補血
    Gosub範圍
    雷姆打小範圍
    的KeyPress 121 1
    VBSCall呼叫FindColor(390224624449“,0000BD”,緩存器INTX,緩存器INTY)
    IfExpression緩存器INTX> = 0和緩存器INTY> = 0
        VBSCall調用 SetCursorPos(緩存器INTX 10,緩存器INTY +70)
        LeftClick 1
        延遲 500
        的KeyPress 113 1
        轉到打小範圍
    EndIf
    LeftClick 1
    IfExpression緩存器INTX =- 1和緩存器INTY =- 1
        VBSCall呼叫FindColor(216175735532“,0000BD”,緩存器INTX,緩存器INTY)
        IfExpression緩存器INTX> = 0和緩存器INTY> = 0
            VBSCall調用 SetCursorPos(緩存器INTX 10,緩存器INTY +70)
            LeftClick 1
            延遲 500
            的KeyPress 113 1
            延遲 500
            轉到打小範圍
        EndIf
        IfExpression緩存器INTX =- 1和緩存器INTY =- 1
            VBSCall呼叫FindColor(6,68,1007,624,“0000BD”,緩存器INTX,緩存器INTY)
            IfExpression緩存器INTX> = 0和緩存器INTY> = 0
                VBSCall調用 SetCursorPos(緩存器INTX 10,緩存器INTY +70)
                LeftClick 1
                延遲 500
                的KeyPress 113 1
                延遲 500
                轉到打小範圍
            EndIf
            IfExpression緩存器INTX =- 1和緩存器INTY =- 1
                延遲 300
            返回
        EndIf
    EndIf
EndIf
小組範圍
    VBSCall呼叫ReadMemory(&h004E92B0,2,ss_x)
    VBSCall呼叫ReadMemory(&h004E92B4,2,ss_y)
    IfExpression ss_x <= SX的
        轉到下
    EndIf
    IfExpression ss_x> = Bx的
        轉到上
    EndIf
    IfExpression ss_y <=學年
        轉到左
    EndIf
    IfExpression ss_y> =通過
        轉到右
    EndIf
返回
子補血
    VBSCall呼叫ReadMemory(&h0108B690,2,馬力)
    IfExpression惠普<=小孤山
        的KeyPress 112 1
    EndIf
可以用的話...會的..麻煩教我一下!! 謝謝!
回覆

使用道具 舉報


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


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-3-29 23:11 , Processed in 0.047223 second(s), 16 queries , Memcache On.

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

回頂部
第二步?
第三步?