网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言正文

dnf多线程换角色方法脚本源码

三叶资源网 2018-09-27 22:17:57 按键精灵Q语言 4002 ℃ 43 评论

dnf多线程换角色方法

运行环境：分辨率：1024x768 色深：32位操作系统：Microsoft Windows XP 按键精灵版本：9.31.11269

@仔俊 2012/11/23

Sub Hu_js()  
    Dim ThreadIDh     
    ThreadIDh = GetThreadID()  
    Select Case ThreadIDh  
    Case ID1  
        PauseThread ID2  
        dm_ret = dm.SetWindowState(hwd, 8)  
        dm.EnableBind 0  
    End Select  
    Delay 200  
    i = 0  
    Do While i <= 50  
        dm.keypress 27  
        Delay 500  
        if dm.FindStrFast(234,214,523,565,"选择|角色","fff6c9-8f603b|feea88-3d3128|d7a65a-3d3128",0.9,xzX,xzY)=0 Then  Exit Do     
        Delay 50  
        i=i+1  
    Loop  
    Call Zj_dj(xzX+10, xzY+6, 0, 1, 160, 50, 520)  
    Delay 3500  
    i = 0  
    Do While i<=100   
        If dm.FindStrFast(14, 62, 768, 289, "亮框", "20ffff-08548d|2cffff-144060", 0.9, lkX, lkY) = 0 Then   
            Delay 50  
            Exit Do  
        ElseIf i > 3 Then  
            Call Zj_dj(xzX+10, xzY+6, 0, 1, 220, 50, 520)     
        End If  
        i=i+1  
    Loop  
    nb_n = ("123,246,370,490,618,736")  
    ss = split(nb_n, ",")  
    n = (jgj_sea - 2)  
    If lkX < abs(ss(n)) Then   
        Call Zj_dj(lkX + 138, lkY + 140, 0, 6, 180, 50, 50)  
        Delay 2000  
    ElseIf lkX > abs(ss(n)) Then  
        Call Zj_dj(82, 222, 1, 2, 260, 50, 50)  
        dm.KeyPress 13  
        Delay 2000      
    End If  
    i = 0  
    Do While i <= 60  
        If dm.FindStrFast(97, 78, 687, 482, "赛", "e6c89b-050505", 0.9, intX, intY) = 0 Then   
            Delay 50  
            Exit Do  
        Else   
            dm.KeyPress 27  
            Delay 1000    
        End If  
        i=i+1  
    Loop  
    Select Case ThreadIDh  
    Case ID1  
        dm_ret = dm.SetWindowState(hwd, 9)  
        dm.EnableBind 1  
        dm_ret = dm.SetWindowState(hwnd, 12)  
        ContinueThread ID2  
    End Select  
End Sub  
Sub Zj_dj(h_zb, z_zb, mn_fs, zj_cs, mo_de, do_de, up_de)  
    If mn_fs1 = 0 Then   
        Delay 50  
        dm.MoveTo h_zb, z_zb     
        Delay mo_de  
        If zj_cs <> 0 Then      
            For zj_cs     
                dm.LeftDown      
                Delay do_de    
                dm.LeftUp      
                Delay up_de     
            Next      
        End If  
    End If  
End Sub

文件下载

下载地址

上一篇： SimMaster2011-26万提示无假KI脚本
下一篇：苏幽开源Cs单板人物透视辅助源码

好用的代理IP，游戏必备	____广告位招租____	服务器99/年	____广告位招租____	____广告位招租____	挂机，建站服务器
好用的代理IP，游戏必备	____广告位招租____	服务器低至38/年	____广告位招租____	____广告位招租____	挂机，建站服务器

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言正文

dnf多线程换角色方法脚本源码

猜你喜欢

已有43位网友发表了看法：

取消回复欢迎你发表评论:

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文

dnf多线程换角色方法脚本源码

猜你喜欢

已有43位网友发表了看法：

取消回复欢迎 你 发表评论:

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言正文

取消回复欢迎你发表评论: