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