Else hwndAAaMZa = " " End If If hwndBBa > 0 Then BBMZ = Plugin.WndEx6.GetWindowInfo(hwndBBa, 0) BBMZX = split (BBMZ,"【") Dim MyStringBB MyStringBB = Len(""&BBMZX(2)) hwndBBaMZa = Left(BBMZX(2), MyStringBB - 1) Else hwndBBaMZa = " " End If If hwndCCa > 0 Then CCMZ = Plugin.WndEx6.GetWindowInfo(hwndCCa, 0) CCMZX = split (CCMZ,"【") Dim MyStringCC MyStringCC = Len(""&CCMZX(2)) hwndCCaMZa = Left(CCMZX(2), MyStringCC - 1) Else hwndCCaMZa = " " End If If hwndDDa > 0 Then DDMZ = Plugin.WndEx6.GetWindowInfo(hwndDDa, 0) DDMZX = split (DDMZ,"【") Dim MyStringDD MyStringDD = Len(""&DDMZX(2)) hwndDDaMZa = Left(DDMZX(2), MyStringDD - 1) Else hwndDDaMZa = " " End If If hwndEEa > 0 Then EEMZ = Plugin.WndEx6.GetWindowInfo(hwndEEa, 0) EEMZX = split (EEMZ,"【") Dim MyStringEE MyStringEE = Len(""&EEMZX(2)) hwndEEaMZa = Left(EEMZX(2), MyStringEE - 1) Else hwndEEaMZa = " " End If If hwndFFa > 0 Then FFMZ = Plugin.WndEx6.GetWindowInfo(hwndFFa, 0) FFMZX = split (FFMZ,"【") Dim MyStringFF MyStringFF = Len(""&FFMZX(2)) hwndFFaMZa = Left(FFMZX(2), MyStringFF - 1) Else hwndFFaMZa = " " End If End Sub Sub AA开始刷喇叭() // Call Plugin.Window.Restore(hwndAAa) // AAckdx = 0 // While AAckdx = 0 // WinRectAA = Plugin.WndEx6.GetWindowInfo(hwndAAa,3) // AA宽 = WinRectAA(2) - WinRectAA(0) // AA高 = WinRectAA(3) - WinRectAA(1) // If AA宽 = 800 and AA高 = 600 Then // AAckdx = 1 // Else // AAckdx = 0 // Delay 1000 // Plugin.BGKM6.KeyClick hwndAAa,119 // End If Delay 100 // Wend Call Plugin.bgkms5.FakeWindowState(hwndAAa, 1) Plugin.BGKM6.LClick hwndAAa,380,447 Delay 100 Plugin.BGKM6.LClick hwndAAa,204,446 Delay 100 While AA开关= 1 Call Plugin.Bkgnd.SendString(hwndAAa,"/C01【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C02【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C03【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C04【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C05【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C06【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C07【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C08【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C09【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Call Plugin.Bkgnd.SendString(hwndAAa,"/C10【The use of permanent free】"&内容AA) Plugin.BGKM6.KeyClick hwndAAa, 13 Wend End Sub Event Form1.AA开始.Click If hwndAAa > 0 Then Form1.AA开始.Visible = 0 Form1.AA停止.Visible = 1 AA开关 = 1 内容AA =Form1.角色AA内容.Text BeginThread AA开始刷喇叭