- 弹出窗口 "请在界面中启动功能"
- 脚本停止运行
- Event(Form1.Load)
- 展开附件 *.* 到 C:\Windows\佳佳智能辅助test 文件夹
- 展开附件 Regdll.dll 到 .\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
- 定义环境变量 hwndAAa
- 定义环境变量 hwndBBa
- 定义环境变量 hwndCCa
- 定义环境变量 hwndDDa
- 定义环境变量 hwndEEa
- 定义环境变量 hwndFFa
- 定义环境变量 内容AA
- 定义环境变量 内容BB
- 定义环境变量 内容CC
- 定义环境变量 内容DD
- 定义环境变量 内容EE
- 定义环境变量 内容FF
- 定义环境变量 AA开关
- 定义环境变量 BB开关
- 定义环境变量 CC开关
- 定义环境变量 DD开关
- 定义环境变量 EE开关
- 定义环境变量 FF开关
- Event(Form1.获取角色.Click)
- 调用 检测喇叭帐号()
- 令 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
- 子程序 检测喇叭帐号()
- 令 HwndArray = WndEx6.EnumWindowA(0,0,"GAMEAPP",0)
- 令 n = UBound(HwndArray)
- 如果 n = - 1 则
- 令 hwndAAa = 0
- 令 hwndBBa = 0
- 令 hwndCCa = 0
- 令 hwndDDa = 0
- 令 hwndEEa = 0
- 令 hwndFFa = 0
- 否则如果 n = 0 则
- 令 hwndAAa = HwndArray(0)
- 令 hwndBBa = 0
- 令 hwndCCa = 0
- 令 hwndDDa = 0
- 令 hwndEEa = 0
- 令 hwndFFa = 0
- 否则如果 n = 1 则
- 令 hwndAAa = HwndArray(0)
- 令 hwndBBa = HwndArray(1)
- 令 hwndCCa = 0
- 令 hwndDDa = 0
- 令 hwndEEa = 0
- 令 hwndFFa = 0
- 否则如果 n = 2 则
- 令 hwndAAa = HwndArray(0)
- 令 hwndBBa = HwndArray(1)
- 令 hwndCCa = HwndArray(2)
- 令 hwndDDa = 0
- 令 hwndEEa = 0
- 令 hwndFFa = 0
- 否则如果 n = 3 则
- 令 hwndAAa = HwndArray(0)
- 令 hwndBBa = HwndArray(1)
- 令 hwndCCa = HwndArray(2)
- 令 hwndDDa = HwndArray(3)
- 令 hwndEEa = 0
- 令 hwndFFa = 0
- 否则如果 n = 4 则
- 令 hwndAAa = HwndArray(0)
- 令 hwndBBa = HwndArray(1)
- 令 hwndCCa = HwndArray(2)
- 令 hwndDDa = HwndArray(3)
- 令 hwndEEa = HwndArray(4)
- 令 hwndFFa = 0
- 否则如果 n = 5 则
- 令 hwndAAa = HwndArray(0)
- 令 hwndBBa = HwndArray(1)
- 令 hwndCCa = HwndArray(2)
- 令 hwndDDa = HwndArray(3)
- 令 hwndEEa = HwndArray(4)
- 令 hwndFFa = HwndArray(5)
- 条件结束
- 如果 hwndAAa > 0 则
- 令 AAMZ = WndEx6.GetWindowInfo(hwndAAa,0)
- 令 AAMZX = split(AAMZ,"【")
- 定义变量 MyStringA
- 令 MyStringAA = Len("" & AAMZX(2))
- 令 hwndAAaMZa = Left(AAMZX(2),MyStringAA - 1)
- 否则