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

按鍵精靈高手可以幫解答嗎

happy5821 發表於 2010-1-1 15:59:39 | 只看該作者 回帖獎勵 |倒序瀏覽 |
本帖最後由 happy5821 於 2010-1-1 16:03 編輯

Rem bb
VBSCall FindColorEx(0,0,1260,980,"BD75FF",1,1.8,x,y)
VBSCall FindColorEx(0,0,1260,980,"4A3052",1,1.8,x,y)
VBSCall FindColorEx(0,0,1260,980,"42B6FF",1,1.8,x,y)
VBSCall FindColorEx(0,0,1260,980,"395963",1,1.8,x,y)
//區域模■找色  0,0,1024,768為區域範圍 "FFFFFF"為顏色 1為查找方式(中間向外) 0.8為模■值 x,y為找到顏色後的坐標變量
If x>0 and y>0
    //如果找到顏色  比如找到顏色就會賦值給坐標變量  通過判斷坐標變量可以知道有沒有找到怪
    MoveTo x+10,y+10
    //把鼠標移動到該色的坐標 如果找的是怪名字或血條  可能移動不到怪身上 這時就要用鼠標偏移 如:MoveTo x+10 y+10
    Delay 50
    //延時
    LeftClick 1
    KeyPress 51,1
    Delay Time/10000
    KeyPress 50,1
    Delay Time/10000
    KeyPress 49,1
    Delay Time/10000
    KeyPress 52,1
    Delay Time/10000
    KeyPress 32,1
    Delay Time/10000
    //左鍵單擊進行攻擊
    IfColor 547,28,10108c,0
        Goto bb
    Else
    EndIf
    //條件結束
    IfColor 675,964,101494,0
        KeyDown 113,1
        Delay 200
        KeyUp 113,1
        Delay 200
    Else
    EndIf
    IfColor 770,964,101494,0
        KeyDown 112,1
        Delay 200
        KeyUp 112,1
        Delay 200
        KeyDown 54,1
        Delay 200
        KeyUp 54,1
        Delay 200
    Else
    EndIf
    IfColor 655,979,9c4121,0
        KeyDown 115,1
        Delay 200
        KeyUp 115,1
        Delay 200
    Else
    EndIf
    IfColor 1120,932,10108c,0
        KeyDown 53,1
        Delay 200
        KeyUp 53,1
        Delay 200
    Else
    EndIf
     以上顏色找怪引為場景有接近的顏色
請問有啥方法作出快速判定怪物在打啥不然滑鼠都亂點
還有問一下圖形判定怪物要吧圖檔放在電腦裡面的哪裡
他才有辦法較出來比對
收藏收藏 分享分享 讚 幹 分享分享 FB分享
回覆

使用道具 舉報


左右銘 當前離線
UID
1381147
熱心
20 值
嘉獎
0 次
違規
0 次
在線時間
4 小時
經驗
24 點
積分
24
精華
0
最後登錄
2012-1-4
閱讀權限
20
註冊時間
2010-1-1
論壇幣
31 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
左右銘 2010-1-1 20:50:55
找圖快很多的噢!
VBSCall FindPic(0,0,1023,767,"D:\111.bmp",0.9,intX,intY)   
If intX>0 and intY>0   
    MoveTo intX,intY
EndIf

"D:\111.bmp"  這裡就圖片的路徑,你圖片在那里,就改上去,OK了!
回覆

使用道具 舉報

ukw358358 該用戶已被刪除
ukw358358 2010-1-13 23:46:28
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

ukw358358 該用戶已被刪除
ukw358358 2010-1-14 09:58:21
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

kiasl 當前離線
UID
674552
熱心
9 值
嘉獎
0 次
違規
0 次
在線時間
8 小時
經驗
9 點
積分
0
精華
0
最後登錄
2011-1-13
閱讀權限
2
註冊時間
2007-12-11
論壇幣
23 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
5
kiasl 2010-1-15 17:51:06
VBSCall FindPic(0,0,1023,767,"D:\111.bmp",0.9,intX,intY)
If intX>0 and intY>0
    MoveTo intX,intY
Else
    VBSCall FindPic(0,0,1023,767,"D:\222.bmp",0.9,intX,intY)
    If intX>0 and intY>0
       MoveTo intX,intY
    EndIf
EndIf
回覆

使用道具 舉報

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


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-24 06:04 , Processed in 0.051927 second(s), 17 queries , Memcache On.

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

回頂部
第二步?
第三步?