dnf多线程换角色方法

运行环境：分辨率：1024×768 色深：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