為編程愛好者分享易語言教程源碼的資源網
每日必買商品 易語言實地培訓火熱招生 建站,掛機,機器人服務器 A全站文字廣告,誠邀與您合作 三葉資源網官方③群:33301895
C全站文字廣告,誠邀與您合作 樂易論壇 熱門服務器秒殺 D全站文字廣告,誠邀與您合作 三葉資源網官方③群:33301895

網站首頁 按鍵精靈相關 按鍵精靈Q語言 正文

按鍵精靈腳本源碼 夢幻西游自動打怪

三葉資源網 2019-03-25 按鍵精靈Q語言 1351 ℃ 21 評論

腳本附件:ditu.bmp, zhandou.bmp, dajia.bmp, xuetiao.bmp, chiyao.bmp, djxn.bmp

運行環境:分辨率:1280x768 色深:32位 操作系統:Microsoft Windows XP 按鍵精靈版本:9.30.11233

//由于是剛開始學的,所以代碼繁亂 不簡潔請見諒啦   
//誰看不爽可以幫我修改下的~~~~(>_<)~~~ 偶會感激不盡  
//僅供娛樂= =~!交流  部分代碼網絡上載的   
// 使用注意 由于是測試腳本所以:  
// 本腳本只給人加血 請把加血用藥放在背包第一個位置,  
//一定要大量的存儲血藥如 紅碗 什么的 用完沒有提示并且腳本  
//會不斷的重復點背包第一個位置 造成死循環  
//切不要吧行囊打開 不要遮住夢幻窗口 由于本腳本純綠色的非讀寫內存..所以你懂得  
//下面是注釋  
// 找到最頂層的窗口 并移動至0.0位置  
Hwnd = Plugin.Window.Foreground()  
sRect = Plugin.Window.GetClientRect(Hwnd)  
Dim MyArray  
MyArray=Split(sRect,"|")  
Ux=CLng(MyArray(0))  
Uy=CLng(MyArray(1))  
Call Plugin.Window.Move(Hwnd, 0, 0)  
//隱藏 夢幻西游聊天窗口   
Hwndck = Plugin.Window.Find(0, "夢幻西游 聊天窗口")  
Call Plugin.Window.Hide(Hwndck)  
//進行循環找怪操作  
Rem aa  
Call 找怪()  
Goto aa  
Sub 找怪()  
//打開地圖 并且隨機在地圖內移動鼠標 (可能部分地圖會出現越出地圖的情況)并點擊  
//如果出現怪物 則會切換到戰斗  
    KeyPress "Tab", 1  
    Delay 200  
    Rem zhaoguai  
    FindPic 0,0,1024,768,"Attachment:\ditu.bmp",0.9,ditux,dituy  
    If ditux > 0 And dituy > 0 Then  
        Randomize  
        rx = Int((ditux+150 - ditux+95 + 1) * Rnd + ditux+95)  
        Randomize  
        ry = Int((dituy + 200 - dituy + 26 + 1) * Rnd + dituy + 26)  
        Call 鼠標移動(rx, ry)  
        Delay 200  
        LeftClick 1  
        Delay 2000  
        FindPic 0,0,1024,768,"Attachment:\zhandou.bmp",0.9,zdx,zdy  
        If zdx > 0 And zdy > 0 Then   
            Call 戰斗()  
        Else   
            Goto zhaoguai  
        End If  
    Else   
        KeyPress "Tab", 1  
        Delay 200  
        Goto zhaoguai  
    End If  
End Sub  
//此代碼為防止鼠標飄逸 具體不多說了  
Sub 鼠標移動(w,z)  
    dim n,h,zx,zy,zzx,zzy  
    htt=0  
    n=1  
    h=0  
    zx=w  
    zy=z  
    If zx<50 or zx>540 Then  
        If zx<50 Then  
            zzx=zx+40  
        End if  
        If zx>540 Then  
            zzx=zx-40  
        End if  
    Else  
        zzx=zx  
    End if  
    If zy<50 or zy>400 Then  
        If zy<50 Then  
            zzy=zy+40  
        End if  
        If zy>400 Then  
            zzy=zy-40  
        End if  
    Else  
        zzy=zy  
    End if  
    MoveTo zzx, zzy  
    Delay 100  
    Rem py  
    GetCursorPos x, y  
    mz=0  
    FindCenterColor x-110,y-110,x+110,y+110,"78F4F0",x1,y1  
    If x1>0 and y1>0 Then  
        a=zx-x1+20  
        b=zy-y1+10  
        Goto OK  
    End if  
    XY = Plugin.Color.FindMutiColor(x-110,y-110,x+110,y+110, "78A4B0", "-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8", 1)  
    sbwz = Split(XY, "|")  
    x1 = Clng(sbwz(0))-18: y1 = Clng(sbwz(1))-9  
    If x1>0 and y1>0 Then  
        a=zx-x1  
        b=zy-y1  
        Goto OK  
    End if  
    XY=Plugin.Color.FindMutiColor(x-110,y-110,x+110,y+110,"D0AC30","1|0|D0AC30,2|0|D0AC30,3|0|D0AC30,4|0|D0AC30,2|1|D0AC30,2|2|D0AC30,2|3|D0AC30,2|4|D0AC30,2|5|D0AC30,2|6|D0AC30,2|7|D0AC30,2|8|D0AC30,2|9|D0AC30,2|10|D0AC30,2|11|D0AC30,2|12|D0AC30,2|13|D0AC30,2|14|D0AC30,2|15|D0AC30,2|16|D0AC30,2|17|D0AC30,2|18|D0AC30,2|19|D0AC30,2|20|D0AC30,0|21|D0AC30,1|21|D0AC30,2|21|D0AC30,3|21|D0AC30,4|21|D0AC30",1)  
1 2 Next 
    sbwz=Split(XY,"|")  
    x1=Clng(sbwz(0))+2: y1=Clng(sbwz(1))+11  
    If x1>0 and y1>0 Then  
        a=zx-x1  
        b=zy-y1  
        Goto OK  
    End if  
    mz=1  
    MoveTo zzx ,zzy  
    Delay 150  
    Rem OK  
    If htt=10 Then  
        Goto NO  
    End if  
    If h=6 Then  
        MoveTo 300 ,300  
        Delay 500  
        htt=htt+1  
        h=0  
        Goto py  
    End if  
    If mz=1 Then  
        h=h+1  
        Goto py  
    Else  
        If Abs(a)>n or Abs(b)>n Then  
            MoveR a,b  
            Delay 100  
            h=h+1  
            Goto py  
        End if  
    End if  
    Rem NO  
End Sub  
//戰斗子程序 會自動按且僅會按alt+a進行攻擊 可以替換代碼使用法術攻擊  
//戰斗完畢后會判斷人物血量 少于大約75%的時候自動打開背包使用背包的  
//第一個位置的加血要(只會使用第一個位置的加血藥 如果用完會導致腳本死循環 請暫停)  
Sub 戰斗()  
    Rem dajia  
    //尋找是否存在怪物的代碼 請別按出最右邊的人物菜單  
    FindPic 0,0,1024,768,"Attachment:\dajia.bmp",0.9,djx,djy  
    If djx > 0 And djy > 0 Then   
    //如果找到 則按alt+a   
        KeyDown 18, 1  
        KeyPress 65, 1  
        KeyUp 18, 1  
        Delay 500  
        KeyDown 18, 1  
        KeyPress 65, 1  
        KeyUp 18, 1  
      //回到是否存在怪物的判斷上  
        Goto dajia  
    End If  
    Delay 500  
    //如果怪物被打敗 則會判斷人物血量  
    FindPic 0,0,1024,768,"Attachment:\zhandou.bmp",0.9,zdx,zdy  
    If zdx > 0 And zdy > 0 Then   
        Goto dajia  
    Else   
        Rem aaaa  
          
        FindPic 0,0,1024,768,"Attachment:\xuetiao.bmp",0.9,cxx,cxy  
        If cxx > 0 And cxy > 0 Then   
            gc=GetPixelColor(cxx+45,cxy)  
            If gc = "8084A8" Then   
            //進行加血操作  
                Call 鼠標移動(cxx-350,cxy+110)  
                FindPic 0,0,1024,768,"Attachment:\djxn.bmp",0.9,djx,djy  
                If djx > 0 And djy > 0 Then  
                    call 鼠標移動(djx+59,djy+103)  
                    Delay 500  
                    RightClick 1  
                    Delay 2000  
                    KeyDown 18, 1  
                    KeyPress 69, 1  
                    KeyUp 18, 1  
                    Delay 1000  
                    //循環判斷人物血量  
                    Goto aaaa  
                Else   
                    KeyDown 18, 1  
                    KeyPress 69, 1  
                    KeyUp 18, 1  
                    Delay 2000  
                    Goto aaaa  
                End If  
            End If  
        End if  
    End If  
End Sub
文件下載

Tags:

來源:三葉資源網,歡迎分享,公眾號:iisanye,(三葉資源網官方⑤群:7366443

已有21位網友發表了看法:

  • eyuyan

    eyuyan  評論于 [2019-06-01 17:20:42]  回復

    夢幻純腳本

  • 易語言網

    易語言網  評論于 [2019-06-20 15:37:31]  回復

    夢幻西游腳本源碼分享

  • 易語言TV

    易語言TV  評論于 [2019-08-07 21:22:17]  回復

    按鍵精靈 夢幻西游 內存

歡迎 發表評論:

百度站內搜索
關注微信公眾號
三葉資源網官方⑤群:三葉資源網官方⑤群

網站分類
隨機tag
內存調用新浪微博Web協議源碼壓槍輔助TCP套接字抖音解析websocket協議名片點贊過濾HTML機器人采集網頁圖片源碼燒餅帝多線程教程UI界面tcp協議代理采集斗魚房間熱度火山安卓EXUI緩動登陸界面源碼網頁POST公交查詢系統
最新評論
快速时时彩开奖记录