1.         令 hwndAAaMZa = " "
  2.     条件结束
  3.     如果 hwndBBa > 0 则
  4.         令 BBMZ = WndEx6.GetWindowInfo(hwndBBa,0)
  5.         令 BBMZX = split(BBMZ,"【")
  6.         定义变量 MyStringBB
  7.         令 MyStringBB = Len("" & BBMZX(2))
  8.         令 hwndBBaMZa = Left(BBMZX(2),MyStringBB - 1)
  9.     否则
  10.         令 hwndBBaMZa = " "
  11.     条件结束
  12.     如果 hwndCCa > 0 则
  13.         令 CCMZ = WndEx6.GetWindowInfo(hwndCCa,0)
  14.         令 CCMZX = split(CCMZ,"【")
  15.         定义变量 MyStringCC
  16.         令 MyStringCC = Len("" & CCMZX(2))
  17.         令 hwndCCaMZa = Left(CCMZX(2),MyStringCC - 1)
  18.     否则
  19.         令 hwndCCaMZa = " "
  20.     条件结束
  21.     如果 hwndDDa > 0 则
  22.         令 DDMZ = WndEx6.GetWindowInfo(hwndDDa,0)
  23.         令 DDMZX = split(DDMZ,"【")
  24.         定义变量 MyStringDD
  25.         令 MyStringDD = Len("" & DDMZX(2))
  26.         令 hwndDDaMZa = Left(DDMZX(2),MyStringDD - 1)
  27.     否则
  28.         令 hwndDDaMZa = " "
  29.     条件结束
  30.     如果 hwndEEa > 0 则
  31.         令 EEMZ = WndEx6.GetWindowInfo(hwndEEa,0)
  32.         令 EEMZX = split(EEMZ,"【")
  33.         定义变量 MyStringEE
  34.         令 MyStringEE = Len("" & EEMZX(2))
  35.         令 hwndEEaMZa = Left(EEMZX(2),MyStringEE - 1)
  36.     否则
  37.         令 hwndEEaMZa = " "
  38.     条件结束
  39.     如果 hwndFFa > 0 则
  40.         令 FFMZ = WndEx6.GetWindowInfo(hwndFFa,0)
  41.         令 FFMZX = split(FFMZ,"【")
  42.         定义变量 MyStringFF
  43.         令 MyStringFF = Len("" & FFMZX(2))
  44.         令 hwndFFaMZa = Left(FFMZX(2),MyStringFF - 1)
  45.     否则
  46.         令 hwndFFaMZa = " "
  47.     条件结束
  48. 子程序结束
  49. 子程序 AA开始刷喇叭()
  50.     注释： Call Plugin.Window.Restore(hwndAAa)
  51.     注释： AAckdx = 0
  52.     注释： While AAckdx = 0
  53.     注释： WinRectAA = Plugin.WndEx6.GetWindowInfo(hwndAAa,3)
  54.     注释： AA宽 = WinRectAA(2) - WinRectAA(0)
  55.     注释： AA高 = WinRectAA(3) - WinRectAA(1)
  56.     注释： If AA宽 = 800 and AA高 = 600 Then
  57.     注释： AAckdx = 1
  58.     注释： Else
  59.     注释： AAckdx = 0
  60.     注释： Delay 1000
  61.     注释： Plugin.BGKM6.KeyClick hwndAAa,119
  62.     注释： End If
  63.     延时 100 毫秒
  64.     注释： Wend
  65.     调用 bgkms5.FakeWindowState(hwndAAa,1)
  66.     BGKM6.LClick(hwndAAa,380,447)
  67.     延时 100 毫秒
  68.     BGKM6.LClick(hwndAAa,204,446)
  69.     延时 100 毫秒
  70.     循环当 AA开关 = 1 时
  71.         调用 Bkgnd.SendString(hwndAAa,"/C01【The use of permanent free】" & 内容AA)
  72.         BGKM6.KeyClick(hwndAAa,13)
  73.         调用 Bkgnd.SendString(hwndAAa,"/C02【The use of permanent free】" & 内容AA)
  74.         BGKM6.KeyClick(hwndAAa,13)
  75.         调用 Bkgnd.SendString(hwndAAa,"/C03【The use of permanent free】" & 内容AA)
  76.         BGKM6.KeyClick(hwndAAa,13)
  77.         调用 Bkgnd.SendString(hwndAAa,"/C04【The use of permanent free】" & 内容AA)
  78.         BGKM6.KeyClick(hwndAAa,13)
  79.         调用 Bkgnd.SendString(hwndAAa,"/C05【The use of permanent free】" & 内容AA)
  80.         BGKM6.KeyClick(hwndAAa,13)
  81.         调用 Bkgnd.SendString(hwndAAa,"/C06【The use of permanent free】" & 内容AA)
  82.         BGKM6.KeyClick(hwndAAa,13)
  83.         调用 Bkgnd.SendString(hwndAAa,"/C07【The use of permanent free】" & 内容AA)
  84.         BGKM6.KeyClick(hwndAAa,13)
  85.         调用 Bkgnd.SendString(hwndAAa,"/C08【The use of permanent free】" & 内容AA)
  86.         BGKM6.KeyClick(hwndAAa,13)
  87.         调用 Bkgnd.SendString(hwndAAa,"/C09【The use of permanent free】" & 内容AA)
  88.         BGKM6.KeyClick(hwndAAa,13)
  89.         调用 Bkgnd.SendString(hwndAAa,"/C10【The use of permanent free】" & 内容AA)
  90.         BGKM6.KeyClick(hwndAAa,13)
  91.     循环结束
  92. 子程序结束
  93. Event(Form1.AA开始.Click)
  94. 如果 hwndAAa > 0 则
  95.     令 Form1.AA开始.Visible = 0
  96.     令 Form1.AA停止.Visible = 1
  97.     令 AA开关 = 1
  98.     令 内容AA = Form1.角色AA内容.Text
  99.     启动线程 AA开始刷喇叭
  100. 否则