Call Plugin.Msg.Tips("PK锁人模式启动成功，当前锁定第7人")
Dim h
h = Plugin.Window.Find("GAMEAPP", 0)
  Call Plugin.Window.Move(h, 0, 0)
    Delay 1000
Rem J
Call Plugin.Bkgnd.MoveTo(h, 644, 324)    
Call Plugin.Bkgnd.RightClick(h, 644, 324)
Delay 100
Call Plugin.Bkgnd.MoveTo(h, 655, 540)
Call Plugin.Bkgnd.LeftClick(h, 655, 540)
Delay 1000
Goto j

End Sub
Sub PK人8()
Call Plugin.Msg.Tips("PK锁人模式启动成功，当前锁定第8人")
Dim h
h = Plugin.Window.Find("GAMEAPP", 0)
  Call Plugin.Window.Move(h, 0, 0)
    Delay 1000
Rem J
Call Plugin.Bkgnd.MoveTo(h, 650, 358)    
Call Plugin.Bkgnd.RightClick(h, 650, 358)
Delay 100
Call Plugin.Bkgnd.MoveTo(h, 697, 569)
Call Plugin.Bkgnd.LeftClick(h, 697, 569)
Delay 1000
Goto j

End Sub


Event Form1.PK.SelectChange
If Form1.PK.ListIndex = 0 Then 
    StopThread 打狗ID
Call Plugin.Msg.Tips("PK锁人模式关闭，如果还在继续PK请按F12")
    End If
    If Form1.PK.ListIndex = 1 Then 
打狗ID = BeginThread(PK人1)

    End If
    If Form1.PK.ListIndex = 2 Then 
打狗ID = BeginThread(PK人2)

    End If
    If Form1.PK.ListIndex = 3 Then 
   
打狗ID = BeginThread(PK人3)
    End If
        If Form1.PK.ListIndex = 4 Then 
   
打狗ID = BeginThread(PK人4)
    End If
        If Form1.PK.ListIndex = 5 Then 
   
打狗ID = BeginThread(PK人5)
    End If
        If Form1.PK.ListIndex = 6 Then 
   
打狗ID = BeginThread(PK人6)
    End If
        If Form1.PK.ListIndex = 7 Then 
   
打狗ID = BeginThread(PK人7)
    End If
        If Form1.PK.ListIndex = 8 Then 
   
打狗ID = BeginThread(PK人8)
    End If
    
    
    
End Event
Sub 打架1
    Rem 打架
    Hwnd = Plugin.Window.Search(Form1.名字4.Text)
    MyArray = Split(Hwnd, "|")
    hwndEx = Clng(MyArray(i))
    Call Plugin.Window.Active(hwndEx)
    Hwnd = Plugin.Window.FindEx(hwndEx, 0, "GameApp", 0)
    Delay 100
    If Form1.方式99.ListIndex = 0 Then 
        Goto 打架1
    ElseIf Form1.方式99.ListIndex = 1 Then
        Goto 打架2
    End If
    Rem 打架1
    Hwnd = Plugin.Window.Foreground()
    Rem 挂机无限飞天打法后台1
    If Form1.虐狗1.ListIndex = 0 Then 
        Goto A1
    ElseIf Form1.虐狗1.ListIndex = 1 Then 
        Goto A2
    ElseIf Form1.虐狗1.ListIndex = 2 Then 
        Goto A3
    ElseIf Form1.虐狗1.ListIndex = 3 Then 
        Goto A4
    ElseIf Form1.虐狗1.ListIndex = 4 Then 
        Goto A5