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