关于自动安装程序时禁用键盘鼠标的问题

冬天喝热露露

先上代码

BlockInput(1)
Run("PreSonus Studio One 5 Installer.exe")
Local $hWnd = WinWait("Installer Language", "Please select a language.", 0) ;等待窗口
WinActivate("Installer Language") ;激活窗口
BlockInput(0)
ControlClick($hWnd, "", "Button1") ;点击按钮
BlockInput(1)
Local $hWnd = WinWait("Studio One 5 安装", "欢迎使用 Studio One 5 安装程序", 0) ;等待窗口
WinActivate("Studio One 5 安装") ;激活窗口
BlockInput(0)
ControlClick($hWnd, "", "Button2") ;点击按钮
BlockInput(1)
Local $hWnd = WinWait("Studio One 5 安装", "许可证协议", 0) ;等待窗口
WinActivate("Studio One 5 安装") ;激活窗口
BlockInput(0)
ControlClick($hWnd, "", "Button2") ;点击按钮
BlockInput(1)
Local $hWnd = WinWait("Studio One 5 安装", "选择安装位置", 0) ;等待窗口
WinActivate("Studio One 5 安装") ;激活窗口
BlockInput(0)
ControlClick($hWnd, "", "Button2") ;点击按钮
BlockInput(1)
Local $hWnd = WinWait("Studio One 5 安装", "Studio One 5 安装程序结束", 0) ;等待窗口
WinActivate("Studio One 5 安装") ;激活窗口
BlockInput(0)
ControlClick($hWnd, "", "Button2") ;点击按钮
BlockInput(1)
Run("Studio One.exe") ;替换主程序
Sleep(5000) ;延迟3秒

Run("C:\Program Files\PreSonus\Studio One 5\Studio One.exe") ;启动程序
WinActivate("[CLASS:CCLDialogClass]") ;激活窗体
WinWaitActive("[CLASS:CCLDialogClass]") ;等待激活后执行下面
Opt("MouseCoordMode", 0) ;激活窗口客户区的相对坐标
BlockInput(0)
MouseClick("", 220, 470) ;鼠标点击相对坐标
BlockInput(1)
Sleep(500) ;延迟500毫秒

WinActivate("[CLASS:CCLDialogClass]") ;激活窗体
WinWaitActive("[CLASS:CCLDialogClass]") ;等待激活后执行下面
Opt("MouseCoordMode", 0) ;激活窗口客户区的相对坐标
BlockInput(0)
MouseClick("", 441, 20) ;鼠标点击相对坐标
BlockInput(1)
Sleep(500) ;延迟500毫秒

WinActivate("[CLASS:CCLDialogClass]") ;激活窗体
WinWaitActive("[CLASS:CCLDialogClass]") ;等待激活后执行下面
Opt("MouseCoordMode", 0) ;激活窗口客户区的相对坐标
BlockInput(0)
MouseClick("", 315, 505) ;鼠标点击相对坐标
BlockInput(1)
Sleep(500) ;延迟500毫秒

WinActivate("[CLASS:CCLDialogClass]") ;激活窗体
WinWaitActive("[CLASS:CCLDialogClass]") ;等待激活后执行下面
Opt("MouseCoordMode", 0) ;激活窗口客户区的相对坐标
BlockInput(0)
MouseClick("", 335, 315) ;鼠标点击相对坐标
BlockInput(1)
Sleep(500) ;延迟500毫秒

Run("StudioOne_Keygen.exe") ;运行注册机

WinActivate("[CLASS:hspwnd0]") ;激活窗体
WinWaitActive("[CLASS:hspwnd0]") ;等待激活后执行下面
Opt("MouseCoordMode", 0) ;激活窗口客户区的相对坐标
BlockInput(0)
MouseClick("", 315, 220) ;鼠标点击相对坐标

Send("^v") ;粘贴剪贴板内容到当前光标处
MouseClick("", 100, 280) ;鼠标点击相对坐标
BlockInput(1)
WinActivate("浏览文件夹") ;激活窗体
WinWaitActive("浏览文件夹") ;等待激活后执行下面
BlockInput(0)
Send("{PgUp}") ;模拟按键
Send("{ENTER}") ;模拟按键
BlockInput(1)
Local $hWnd = WinWait("StudioOne KeyGen v3.13.0", "Licenses have been generated.", 10) ;等待窗口
WinActivate("Studio One 5 安装") ;激活窗口
ProcessClose("Keygen.exe") ;关闭程序

WinActivate("[CLASS:CCLDialogClass]") ;激活窗体
WinWaitActive("[CLASS:CCLDialogClass]") ;等待激活后执行下面
Opt("MouseCoordMode", 0) ;激活窗口客户区的相对坐标
BlockInput(0)
MouseClick("", 310, 410) ;鼠标点击相对坐标
BlockInput(1)
Sleep(1000) ;延迟500毫秒

WinActivate("[CLASS:#32770]") ;激活窗体
WinWaitActive("[CLASS:#32770]") ;等待激活后执行下面
BlockInput(0)
Send("C:\Users\Administrator\Desktop\studioapp5.pro.license") ;输入路径
Send("{ENTER}") ;模拟按键
BlockInput(1)
Sleep(1000) ;延迟1秒
BlockInput(0)
Send("!O") ;模拟按键
BlockInput(1)
Sleep(1000) ;延迟1秒

Local $hWnd = WinWait("[CLASS:#32770]", "", 0) ;等待窗口
WinActivate("[CLASS:#32770]") ;激活窗口
BlockInput(0)
ControlClick($hWnd, "", "Button1") ;点击按钮
BlockInput(1)
FileDelete("C:\Users\Administrator\Desktop\*.license") ;删除通配符后缀的文件
WinActivate("Studio One安装") ;激活窗体
WinWaitActive("Studio One安装") ;等待激活后执行下面
Opt("MouseCoordMode", 0) ;激活窗口客户区的相对坐标
BlockInput(0)
Sleep(1000) ;延迟1秒
MouseClick("", 640, 10) ;鼠标点击相对坐标



好了  
BlockInput(1) 禁用键盘鼠标
BlockInput(0) 启用键盘鼠标

我主要想讨论这俩代码

我用了很多这个代码  原因就是  怕安装的时候 有人乱动    但是  AU3要用键盘鼠标的时候  又要解开   所以写代码的时候  很麻烦   

还有就是 如果一旦有脚本运行错误     正好赶上 锁定键盘鼠标的时候就。。。。尴尬了

所以 可以设置一个热键 就是一旦脚本卡住的时候  可以 解锁键盘鼠标的禁用吗   或者 设置一个超时就自动解锁 键盘鼠标


还有就是  我这么写代码是不是 很笨的方法  有没有简单一点的办法 或者别的思路


我是一个小白  学了两天的AU3  今天刚刚 进的论坛   希望跟大家共同学习 进步

haijie1223

换命令用 Control***开头的命令 不用考虑鼠标键盘的影响

redapple2008

haijie1223 发表于 2022-4-29 07:52
换命令用 Control***开头的命令 不用考虑鼠标键盘的影响

这个输入法会影响的。

skysmile

Windows API 的特点, 在任何平台点击 Ctrl+Alt+Del, 都将重新恢复输入

冬天喝热露露

redapple2008 发表于 2022-4-29 08:24
这个输入法会影响的。

输入法可以自动关闭吗

冬天喝热露露

haijie1223 发表于 2022-4-29 07:52
换命令用 Control***开头的命令 不用考虑鼠标键盘的影响

好的 我去查一下帮助

redapple2008

https://www.autoitx.com/thread-72964-1-1.html?_dsign=9655d6c0
看看这个帖子。

冬天喝热露露

redapple2008 发表于 2022-4-29 13:07
https://www.autoitx.com/thread-72964-1-1.html?_dsign=9655d6c0
看看这个帖子。

好的呢 学习了