1.     标记 J(子程序 PK人8)
  2.     调用 Bkgnd.MoveTo(h,650,358)
  3.     调用 Bkgnd.RightClick(h,650,358)
  4.     延时 100 毫秒
  5.     调用 Bkgnd.MoveTo(h,697,569)
  6.     调用 Bkgnd.LeftClick(h,697,569)
  7.     延时 1000 毫秒
  8.     跳转到标记 j(子程序 PK人8)
  9. 子程序结束
  10. Event(Form1.PK.SelectChange)
  11. 如果 Form1.PK.ListIndex = 0 则
  12.     StopThread(打狗ID)
  13.     调用 Msg.Tips("PK锁人模式关闭，如果还在继续PK请按F12")
  14. 条件结束
  15. 如果 Form1.PK.ListIndex = 1 则
  16.     (语句无法识别，可能有错误): 打狗ID = BeginThread(PK人1)
  17. 条件结束
  18. 如果 Form1.PK.ListIndex = 2 则
  19.     (语句无法识别，可能有错误): 打狗ID = BeginThread(PK人2)
  20. 条件结束
  21. 如果 Form1.PK.ListIndex = 3 则
  22.     (语句无法识别，可能有错误): 打狗ID = BeginThread(PK人3)
  23. 条件结束
  24. 如果 Form1.PK.ListIndex = 4 则
  25.     (语句无法识别，可能有错误): 打狗ID = BeginThread(PK人4)
  26. 条件结束
  27. 如果 Form1.PK.ListIndex = 5 则
  28.     (语句无法识别，可能有错误): 打狗ID = BeginThread(PK人5)
  29. 条件结束
  30. 如果 Form1.PK.ListIndex = 6 则
  31.     (语句无法识别，可能有错误): 打狗ID = BeginThread(PK人6)
  32. 条件结束
  33. 如果 Form1.PK.ListIndex = 7 则
  34.     (语句无法识别，可能有错误): 打狗ID = BeginThread(PK人7)
  35. 条件结束
  36. 如果 Form1.PK.ListIndex = 8 则
  37.     (语句无法识别，可能有错误): 打狗ID = BeginThread(PK人8)
  38. 条件结束
  39. (语句无法识别，可能有错误): End Event
  40. 子程序 打架1
  41.     标记 打架(子程序 打架1)
  42.     令 Hwnd = Window.Search(Form1.名字4.Text)
  43.     令 MyArray = Split(Hwnd,"|")
  44.     令 hwndEx = Clng(MyArray(i))
  45.     调用 Window.Active(hwndEx)
  46.     令 Hwnd = Window.FindEx(hwndEx,0,"GameApp",0)
  47.     延时 100 毫秒
  48.     如果 Form1.方式99.ListIndex = 0 则
  49.         跳转到标记 打架1(子程序 打架1)
  50.     否则如果 Form1.方式99.ListIndex = 1 则
  51.         跳转到标记 打架2(子程序 打架1)
  52.     条件结束
  53.     标记 打架1(子程序 打架1)
  54.     令 Hwnd = Window.Foreground()
  55.     标记 挂机无限飞天打法后台1(子程序 打架1)
  56.     如果 Form1.虐狗1.ListIndex = 0 则
  57.         跳转到标记 A1(子程序 打架1)
  58.     否则如果 Form1.虐狗1.ListIndex = 1 则
  59.         跳转到标记 A2(子程序 打架1)
  60.     否则如果 Form1.虐狗1.ListIndex = 2 则
  61.         跳转到标记 A3(子程序 打架1)
  62.     否则如果 Form1.虐狗1.ListIndex = 3 则
  63.         跳转到标记 A4(子程序 打架1)
  64.     否则如果 Form1.虐狗1.ListIndex = 4 则
  65.         跳转到标记 A5(子程序 打架1)
  66.     否则如果 Form1.虐狗1.ListIndex = 5 则
  67.         跳转到标记 A6(子程序 打架1)
  68.     否则如果 Form1.虐狗1.ListIndex = 6 则
  69.         跳转到标记 A7(子程序 打架1)
  70.     否则如果 Form1.虐狗1.ListIndex = 7 则
  71.         跳转到标记 A8(子程序 打架1)
  72.     否则如果 Form1.虐狗1.ListIndex = 8 则
  73.         跳转到标记 A9(子程序 打架1)
  74.     否则如果 Form1.虐狗1.ListIndex = 9 则
  75.         跳转到标记 A10(子程序 打架1)
  76.     否则如果 Form1.虐狗1.ListIndex = 10 则
  77.         跳转到标记 A11(子程序 打架1)
  78.     否则如果 Form1.虐狗1.ListIndex = 11 则
  79.         跳转到标记 A12(子程序 打架1)
  80.     条件结束
  81.     标记 A1(子程序 打架1)
  82.     调用 Bkgnd.MoveTo(Hwnd,619,101)
  83.     保存鼠标位置
  84.     调用 WndEx6.SendMouse(hwnd,2,619,101)
  85.     延时 50 毫秒
  86.     调用 WndEx6.SendMouse(hwnd,1,658,326)
  87.     跳转到标记 打架38(子程序 打架1)
  88.     标记 A2(子程序 打架1)
  89.     调用 Bkgnd.MoveTo(Hwnd,619,137)
  90.     保存鼠标位置
  91.     调用 WndEx6.SendMouse(hwnd,2,619,137)
  92.     延时 50 毫秒
  93.     调用 WndEx6.SendMouse(hwnd,1,658,362)
  94.     跳转到标记 打架38(子程序 打架1)
  95.     标记 A3(子程序 打架1)
  96.     调用 Bkgnd.MoveTo(Hwnd,619,173)
  97.     保存鼠标位置
  98.     调用 WndEx6.SendMouse(hwnd,2,619,173)
  99.     延时 50 毫秒
  100.     调用 WndEx6.SendMouse(hwnd,1,658,398)