Call Plugin.Msg.Tips("PK锁人模式启动成功，当前锁定第1人")
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, 120)    
Call Plugin.Bkgnd.RightClick(h, 650, 120)
Delay 100
Call Plugin.Bkgnd.MoveTo(h, 662, 340)
Call Plugin.Bkgnd.LeftClick(h, 662, 340)



Delay 1000
Goto j

End Sub

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

End Sub
Sub PK人3()
Call Plugin.Msg.Tips("PK锁人模式启动成功，当前锁定第3人")
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, 190)    
Call Plugin.Bkgnd.RightClick(h, 650, 190)
Delay 100
Call Plugin.Bkgnd.MoveTo(h, 678, 410)
Call Plugin.Bkgnd.LeftClick(h, 678, 410)
Delay 1000
Goto j

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

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

End Sub
Sub PK人6()
Call Plugin.Msg.Tips("PK锁人模式启动成功，当前锁定第6人")
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, 292)    
Call Plugin.Bkgnd.RightClick(h, 650, 292)
Delay 100
Call Plugin.Bkgnd.MoveTo(h, 662, 512)
Call Plugin.Bkgnd.LeftClick(h, 662, 512)
Delay 1000
Goto j

End Sub
Sub PK人7()