- (VBScript语句) dim File
- 调用子程序 查找解卡软件
- 标记 开始解码
- 调用子程序 开始扫卡
- 脚本停止运行
- 子程序 查找解卡软件
- //6个返回数组分别对应为,进程句柄、进程名、窗口句柄、程序路径、窗口标题、窗口类名
- //参数7为筛选类型,可选参数,默认为1遍历可见窗口,2为遍历激活窗口,3为遍历可见且激活窗口,0为遍历所有窗口
- Process="SimMaster2010(0128).exe"
- 调用插件命令 lxj_Plug.lxj_FindWindows(PID, Process, hwndex, path, Text_Name, Class_Name,2)
- Var2="SimMaster2011"
- 循环 ubound(hwndex)+1 遍
- Var1=left(""&Text_Name(h),13)
- 如果表达式 (Var1=Var2) 为真,则
- hwnd=hwndex(h)
- 调用插件命令 Path = Window.GetExePath(Hwnd)
- Path2=left(Path,len(Path)-7)
- 跳转到标记 开始解码
- 否则
- 条件结束
- h=h+1
- 循环结束
- 弹出窗口 "请先打开软件后,点确定后重新执行按键精灵!!"
- 脚本停止运行
- 子程序结束,回到调用处
- 子程序 开始扫卡
- 调用插件命令 hwndt=Window.FindEx(hwnd,0,"Button","停止扫描")
- 调用插件命令 Bkgnd.LeftClick(hwndt,2,2)
- 延时2000毫秒
- 调用插件命令 hwndd=Window.FindEx(hwnd,0,"Button","断 开")
- 调用插件命令 Bkgnd.LeftClick(hwndd,2,2)
- 延时2000毫秒
- 调用插件命令 hwndl=Window.FindEx(hwnd,0,"Button","连 接")
- 调用插件命令 Bkgnd.LeftClick(hwndl,2,2)
- 延时2000毫秒
- 调用插件命令 hwnds=Window.FindEx(hwnd,0,"Button","开始扫描")
- 调用插件命令 Bkgnd.LeftClick(hwnds,2,2)
- 延时2000毫秒
- //发现老进度继续
- 调用插件命令 hwndoe=Window.Find(0,"发现进度文件")
- 调用插件命令 Window = Window.IsWindow(Hwndoe)
- 如果表达式 (Window = 1) 为真,则
- 调用插件命令 hwndoo=Window.FindEx(hwndoe,0,"Button","是(&Y)")
- 调用插件命令 Bkgnd.LeftClick(hwndoo,2,2)
- 跳转到标记 继续扫
- 否则
- 延时100毫秒
- 跳转到标记 继续扫
- 条件结束
- 标记 继续扫
- 延时2000毫秒
- 循环 10000 遍
- 调用子程序 扫描26万次判断
- //10分钟检测一次26W提示窗口
- 延时600000毫秒
- 循环结束
- 子程序结束,回到调用处
- 子程序 扫描26万次判断
- //有记录的扫描达26万次,点否继续
- 调用插件命令 HwndKIn=Window.Find(0,"注意")
- 调用插件命令 Window = Window.IsWindow(HwndKIn)
- 如果表达式 (Window = 1) 为真,则
- 调用插件命令 hwndkind=Window.FindEx(HwndKIn,0,"Button","否(&N)")
- 调用插件命令 Bkgnd.LeftClick(hwndkind,2,2)
- 延时1000毫秒
- 跳转到标记 开始
- 否则
- 延时100毫秒
- 跳转到标记 开始
- 条件结束
- 标记 开始
- 子程序结束,回到调用处