VBS dim File
Gosub 查找解卡软件
Rem 开始解码
Gosub 开始扫卡
EndScript 
Sub 查找解卡软件
    //6个返回数组分别对应为，进程句柄、进程名、窗口句柄、程序路径、窗口标题、窗口类名
    //参数7为筛选类型，可选参数，默认为1遍历可见窗口，2为遍历激活窗口，3为遍历可见且激活窗口，0为遍历所有窗口
    Process="SimMaster2010(0128).exe"
    Plugin lxj_Plug.lxj_FindWindows(PID, Process, hwndex, path, Text_Name, Class_Name,2)
    Var2="SimMaster2011"
    For ubound(hwndex)+1
        Var1=left(""&Text_Name(h),13)
        If Var1=Var2
            hwnd=hwndex(h)
            Plugin Path = Window.GetExePath(Hwnd)
            Path2=left(Path,len(Path)-7)
            Goto 开始解码
        Else 
        EndIf 
        h=h+1
    EndFor 
    MessageBox "请先打开软件后，点确定后重新执行按键精灵！！"
    EndScript 
Return 查找解卡软件
Sub 开始扫卡
    Plugin hwndt=Window.FindEx(hwnd,0,"Button","停止扫描")
    Plugin Bkgnd.LeftClick(hwndt,2,2)
    Delay 2000
    Plugin hwndd=Window.FindEx(hwnd,0,"Button","断  开")
    Plugin Bkgnd.LeftClick(hwndd,2,2)
    Delay 2000
    Plugin hwndl=Window.FindEx(hwnd,0,"Button","连  接")
    Plugin Bkgnd.LeftClick(hwndl,2,2)
    Delay 2000
    Plugin hwnds=Window.FindEx(hwnd,0,"Button","开始扫描")
    Plugin Bkgnd.LeftClick(hwnds,2,2)
    Delay 2000
    //发现老进度继续
    Plugin hwndoe=Window.Find(0,"发现进度文件")
    Plugin Window = Window.IsWindow(Hwndoe)
    If Window = 1
        Plugin hwndoo=Window.FindEx(hwndoe,0,"Button","是(&Y)")
        Plugin Bkgnd.LeftClick(hwndoo,2,2)
        Goto 继续扫
    Else 
        Delay 100
        Goto 继续扫
    EndIf 
    Rem 继续扫
    Delay 2000
    For 10000
        Gosub 扫描26万次判断
        //10分钟检测一次26W提示窗口
        Delay 600000
    EndFor 
Return 开始扫卡
Sub 扫描26万次判断
    //有记录的扫描达26万次，点否继续
    Plugin HwndKIn=Window.Find(0,"注意")
    Plugin Window = Window.IsWindow(HwndKIn)
    If Window = 1
        Plugin hwndkind=Window.FindEx(HwndKIn,0,"Button","否(&N)")
        Plugin Bkgnd.LeftClick(hwndkind,2,2)
        Delay 1000
        Goto 开始
    Else 
        Delay 100
        Goto 开始
    EndIf 
    Rem 开始
Return 扫描26万次判断