SimMaster2011-26万提示无假KI脚本

SimMaster2011-26万提示无假KI脚本

运行环境:分辨率:1360×768 色深: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万次判断
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的邮箱地址不会被公开。必填项已用 * 标注