MessageBox "请在界面中启动功能" EndScript Event Form1.Load PutAttachment "C:\Windows\佳佳智能辅助test", "*.*" PutAttachment ".\plugin", "Regdll.dll" Call Plugin.Regdll.reg("C:\Windows\佳佳智能辅助test\dm.dll") Form1.角色AA内容.Text = "A sad child" Form1.角色BB内容.Text = "A sad child" Form1.角色CC内容.Text = "A sad child" Form1.角色DD内容.Text = "A sad child" Form1.角色EE内容.Text = "A sad child" Form1.角色FF内容.Text = "A sad child" End Event Dimenv hwndAAa Dimenv hwndBBa Dimenv hwndCCa Dimenv hwndDDa Dimenv hwndEEa Dimenv hwndFFa Dimenv 内容AA Dimenv 内容BB Dimenv 内容CC Dimenv 内容DD Dimenv 内容EE Dimenv 内容FF Dimenv AA开关 Dimenv BB开关 Dimenv CC开关 Dimenv DD开关 Dimenv EE开关 Dimenv FF开关 Event Form1.获取角色.Click Call 检测喇叭帐号() Form1.角色AA号.Text = hwndAAaMZa Form1.角色BB号.Text = hwndBBaMZa Form1.角色CC号.Text = hwndCCaMZa Form1.角色DD号.Text = hwndDDaMZa Form1.角色EE号.Text = hwndEEaMZa Form1.角色FF号.Text = hwndFFaMZa End Event Sub 检测喇叭帐号() HwndArray = Plugin.WndEx6.EnumWindowA(0,0,"GAMEAPP",0) n = UBound(HwndArray) If n = - 1 Then hwndAAa = 0 hwndBBa = 0 hwndCCa = 0 hwndDDa = 0 hwndEEa= 0 hwndFFa= 0 Elseif n=0 then hwndAAa = HwndArray(0) hwndBBa = 0 hwndCCa = 0 hwndDDa = 0 hwndEEa= 0 hwndFFa= 0 ElseIf n = 1 Then hwndAAa = HwndArray(0) hwndBBa = HwndArray(1) hwndCCa = 0 hwndDDa = 0 hwndEEa= 0 hwndFFa= 0 ElseIf n = 2 Then hwndAAa = HwndArray(0) hwndBBa = HwndArray(1) hwndCCa = HwndArray(2) hwndDDa = 0 hwndEEa= 0 hwndFFa= 0 ElseIf n = 3 Then hwndAAa = HwndArray(0) hwndBBa = HwndArray(1) hwndCCa = HwndArray(2) hwndDDa = HwndArray(3) hwndEEa= 0 hwndFFa= 0 ElseIf n = 4 Then hwndAAa = HwndArray(0) hwndBBa = HwndArray(1) hwndCCa = HwndArray(2) hwndDDa = HwndArray(3) hwndEEa = HwndArray(4) hwndFFa= 0 ElseIf n = 5 Then hwndAAa = HwndArray(0) hwndBBa = HwndArray(1) hwndCCa = HwndArray(2) hwndDDa = HwndArray(3) hwndEEa = HwndArray(4) hwndFFa = HwndArray(5) End If If hwndAAa > 0 Then AAMZ = Plugin.WndEx6.GetWindowInfo(hwndAAa, 0) AAMZX = split (AAMZ,"【") Dim MyStringA MyStringAA = Len(""&AAMZX(2)) hwndAAaMZa = Left(AAMZX(2), MyStringAA - 1)