SimMaster2011-26万提示无假KI脚本

SimMaster2011-26万提示无假KI脚本

运行环境：分辨率：1360x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：7.31.6258

@zwlovell 2012/5/11

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万次判断