1.     MsgBox("请输入飞车昵称")
  2. 条件结束
  3. (语句无法识别，可能有错误): End Event
  4. Event(Form1.AA停止.Click)
  5. 令 Form1.AA开始.Visible = 1
  6. 令 Form1.AA停止.Visible = 0
  7. 令 AA开关 = 0
  8. (语句无法识别，可能有错误): End Event
  9. 子程序 BB开始刷喇叭()
  10.     注释： Call Plugin.Window.Restore(hwndBBa)
  11.     注释： BBckdx = 0
  12.     注释： While BBckdx = 0
  13.     注释： WinRectBB = Plugin.WndEx6.GetWindowInfo(hwndBBa,3)
  14.     注释： BB宽 = WinRectBB(2) - WinRectBB(0)
  15.     注释： BB高 = WinRectBB(3) - WinRectBB(1)
  16.     注释： If BB宽 = 800 and BB高 = 600 Then
  17.     注释： BBckdx = 1
  18.     注释： Else
  19.     注释： BBckdx = 0
  20.     注释： Delay 1000
  21.     注释： Plugin.BGKM6.KeyClick hwndBBa,119
  22.     注释： End If
  23.     延时 100 毫秒
  24.     注释： Wend
  25.     调用 bgkms5.FakeWindowState(hwndBBa,1)
  26.     BGKM6.LClick(hwndBBa,380,447)
  27.     延时 100 毫秒
  28.     BGKM6.LClick(hwndBBa,204,446)
  29.     延时 100 毫秒
  30.     循环当 BB开关 = 1 时
  31.         调用 Bkgnd.SendString(hwndBBa,"/C01【The use of permanent free】" & 内容BB)
  32.         BGKM6.KeyClick(hwndBBa,13)
  33.         调用 Bkgnd.SendString(hwndBBa,"/C02【The use of permanent free】" & 内容BB)
  34.         BGKM6.KeyClick(hwndBBa,13)
  35.         调用 Bkgnd.SendString(hwndBBa,"/C03【The use of permanent free】" & 内容BB)
  36.         BGKM6.KeyClick(hwndBBa,13)
  37.         调用 Bkgnd.SendString(hwndBBa,"/C04【The use of permanent free】" & 内容BB)
  38.         BGKM6.KeyClick(hwndBBa,13)
  39.         调用 Bkgnd.SendString(hwndBBa,"/C05【The use of permanent free】" & 内容BB)
  40.         BGKM6.KeyClick(hwndBBa,13)
  41.         调用 Bkgnd.SendString(hwndBBa,"/C06【The use of permanent free】" & 内容BB)
  42.         BGKM6.KeyClick(hwndBBa,13)
  43.         调用 Bkgnd.SendString(hwndBBa,"/C07【The use of permanent free】" & 内容BB)
  44.         BGKM6.KeyClick(hwndBBa,13)
  45.         调用 Bkgnd.SendString(hwndBBa,"/C08【The use of permanent free】" & 内容BB)
  46.         BGKM6.KeyClick(hwndBBa,13)
  47.         调用 Bkgnd.SendString(hwndBBa,"/C09【The use of permanent free】" & 内容BB)
  48.         BGKM6.KeyClick(hwndBBa,13)
  49.         调用 Bkgnd.SendString(hwndBBa,"/C10【The use of permanent free】" & 内容BB)
  50.         BGKM6.KeyClick(hwndBBa,13)
  51.     循环结束
  52. 子程序结束
  53. Event(Form1.BB开始.Click)
  54. 如果 hwndBBa > 0 则
  55.     令 Form1.BB开始.Visible = 0
  56.     令 Form1.BB停止.Visible = 1
  57.     令 BB开关 = 1
  58.     令 内容BB = Form1.角色BB内容.Text
  59.     启动线程 BB开始刷喇叭
  60. 否则
  61.     MsgBox("请输入飞车昵称")
  62. 条件结束
  63. (语句无法识别，可能有错误): End Event
  64. Event(Form1.BB停止.Click)
  65. 令 Form1.BB开始.Visible = 1
  66. 令 Form1.BB停止.Visible = 0
  67. 令 BB开关 = 0
  68. (语句无法识别，可能有错误): End Event
  69. 子程序 CC开始刷喇叭()
  70.     注释： Call Plugin.Window.Restore(hwndCCa)
  71.     注释： CCckdx = 0
  72.     注释： While CCckdx = 0
  73.     注释： WinRectCC = Plugin.WndEx6.GetWindowInfo(hwndCCa,3)
  74.     注释： CC宽 = WinRectCC(2) - WinRectCC(0)
  75.     注释： CC高 = WinRectCC(3) - WinRectCC(1)
  76.     注释： // If CC宽 = 800 and CC高 = 600 Then
  77.     注释： CCckdx = 1
  78.     注释： Else
  79.     注释： CCckdx = 0
  80.     延时 1000 毫秒
  81.     注释： Plugin.BGKM6.KeyClick hwndCCa,119
  82.     注释： End If
  83.     注释： Delay 100
  84.     注释： Wend
  85.     调用 bgkms5.FakeWindowState(hwndCCa,1)
  86.     BGKM6.LClick(hwndCCa,380,447)
  87.     延时 100 毫秒
  88.     BGKM6.LClick(hwndCCa,204,446)
  89.     延时 100 毫秒
  90.     循环当 CC开关 = 1 时
  91.         调用 Bkgnd.SendString(hwndCCa,"/C01【The use of permanent free】" & 内容CC)
  92.         BGKM6.KeyClick(hwndCCa,13)
  93.         调用 Bkgnd.SendString(hwndCCa,"/C02【The use of permanent free】" & 内容CC)
  94.         BGKM6.KeyClick(hwndCCa,13)
  95.         调用 Bkgnd.SendString(hwndCCa,"/C03【The use of permanent free】" & 内容CC)
  96.         BGKM6.KeyClick(hwndCCa,13)
  97.         调用 Bkgnd.SendString(hwndCCa,"/C04【The use of permanent free】" & 内容CC)
  98.         BGKM6.KeyClick(hwndCCa,13)
  99.         调用 Bkgnd.SendString(hwndCCa,"/C05【The use of permanent free】" & 内容CC)
  100.         BGKM6.KeyClick(hwndCCa,13)