1. (VBScript语句) dim File
  2. 调用子程序 查找解卡软件
  3. 标记 开始解码
  4. 调用子程序 开始扫卡
  5. 脚本停止运行
  6. 子程序 查找解卡软件
  7.     //6个返回数组分别对应为,进程句柄、进程名、窗口句柄、程序路径、窗口标题、窗口类名
  8.     //参数7为筛选类型,可选参数,默认为1遍历可见窗口,2为遍历激活窗口,3为遍历可见且激活窗口,0为遍历所有窗口
  9.     Process="SimMaster2010(0128).exe"
  10.     调用插件命令 lxj_Plug.lxj_FindWindows(PID, Process, hwndex, path, Text_Name, Class_Name,2)
  11.     Var2="SimMaster2011"
  12.     循环 ubound(hwndex)+1 遍
  13.         Var1=left(""&Text_Name(h),13)
  14.         如果表达式 (Var1=Var2) 为真,则
  15.             hwnd=hwndex(h)
  16.             调用插件命令 Path = Window.GetExePath(Hwnd)
  17.             Path2=left(Path,len(Path)-7)
  18.             跳转到标记 开始解码
  19.         否则
  20.         条件结束
  21.         h=h+1
  22.     循环结束
  23.     弹出窗口 "请先打开软件后,点确定后重新执行按键精灵!!"
  24.     脚本停止运行
  25. 子程序结束,回到调用处
  26. 子程序 开始扫卡
  27.     调用插件命令 hwndt=Window.FindEx(hwnd,0,"Button","停止扫描")
  28.     调用插件命令 Bkgnd.LeftClick(hwndt,2,2)
  29.     延时2000毫秒
  30.     调用插件命令 hwndd=Window.FindEx(hwnd,0,"Button","断 开")
  31.     调用插件命令 Bkgnd.LeftClick(hwndd,2,2)
  32.     延时2000毫秒
  33.     调用插件命令 hwndl=Window.FindEx(hwnd,0,"Button","连 接")
  34.     调用插件命令 Bkgnd.LeftClick(hwndl,2,2)
  35.     延时2000毫秒
  36.     调用插件命令 hwnds=Window.FindEx(hwnd,0,"Button","开始扫描")
  37.     调用插件命令 Bkgnd.LeftClick(hwnds,2,2)
  38.     延时2000毫秒
  39.     //发现老进度继续
  40.     调用插件命令 hwndoe=Window.Find(0,"发现进度文件")
  41.     调用插件命令 Window = Window.IsWindow(Hwndoe)
  42.     如果表达式 (Window = 1) 为真,则
  43.         调用插件命令 hwndoo=Window.FindEx(hwndoe,0,"Button","是(&Y)")
  44.         调用插件命令 Bkgnd.LeftClick(hwndoo,2,2)
  45.         跳转到标记 继续扫
  46.     否则
  47.         延时100毫秒
  48.         跳转到标记 继续扫
  49.     条件结束
  50.     标记 继续扫
  51.     延时2000毫秒
  52.     循环 10000 遍
  53.         调用子程序 扫描26万次判断
  54.         //10分钟检测一次26W提示窗口
  55.         延时600000毫秒
  56.     循环结束
  57. 子程序结束,回到调用处
  58. 子程序 扫描26万次判断
  59.     //有记录的扫描达26万次,点否继续
  60.     调用插件命令 HwndKIn=Window.Find(0,"注意")
  61.     调用插件命令 Window = Window.IsWindow(HwndKIn)
  62.     如果表达式 (Window = 1) 为真,则
  63.         调用插件命令 hwndkind=Window.FindEx(HwndKIn,0,"Button","否(&N)")
  64.         调用插件命令 Bkgnd.LeftClick(hwndkind,2,2)
  65.         延时1000毫秒
  66.         跳转到标记 开始
  67.     否则
  68.         延时100毫秒
  69.         跳转到标记 开始
  70.     条件结束
  71.     标记 开始
  72. 子程序结束,回到调用处