IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[其他] AU3新人求教,初学者

[复制链接]
houlin 发表于 2019-7-29 16:44:44 | 显示全部楼层 |阅读模式

IT天空 定制版高速U盘 64G/128G/256G | 固态U盘 256G Pro
新人请教,各位大神帮忙解答一下,谢谢!
系统:win10 pro 64位环境   
用AU3编写了一个软件的自动安装脚本,编译完成后为什么在WIN10下运行以后什么都没有,不提示任何信息,在WIN7里面试了可以用。



代码如下:
Run ("QQ.exe")
$qq=WinWait ("大企鹅QQ安装向导","软件许可协议和青少年上网安全指导")
WinActivate($qq,"软件许可协议和青少年上网安全指导")
ControlClick($qq,"软件许可协议和青少年上网安全指导","Button6")
Sleep(500)
ControlClick($qq,"软件许可协议和青少年上网安全指导","Button9")
Sleep(500)
ControlClick($qq,"软件许可协议和青少年上网安全指导","Button10")
ControlSetText($qq,"软件许可协议和青少年上网安全指导","[class:Edit]","D:\Program Files (x86)\Tencent\QQ", 0 )
ControlClick($qq,"软件许可协议和青少年上网安全指导","Button3")


还没写完,测试了一下 ,没反应。
最近访问 头像模式 列表模式
sky857160 发表于 2019-7-29 17:20:44 | 显示全部楼层

活跃 17937| 技术 30| 互助 36| 钻石 30

编译选x64 请求Admin

点评

怎么搞,一头雾水。。。  详情 回复 发表于 2019-7-29 17:29
 楼主| houlin 发表于 2019-7-29 17:29:55 | 显示全部楼层

活跃 5048| 技术 27| 互助 14| 钻石 130

sky857160 发表于 2019-7-29 17:20
编译选x64 请求Admin

怎么搞,一头雾水。。。

点评

他说的是这个 ↓↓↓ [attachimg]364248[/attachimg]  详情 回复 发表于 2019-7-29 20:40
真的小白 发表于 2019-7-29 20:40:21 | 显示全部楼层

活跃 5050| 技术 5| 互助 7| 钻石 0

houlin 发表于 2019-7-29 17:29
怎么搞,一头雾水。。。

他说的是这个
↓↓↓
QQ截图20190729203825.png


点评

我是用这个输出的啊 运行了也没反应,AU3版本好像是3.1.5  详情 回复 发表于 2019-7-29 20:50
 楼主| houlin 发表于 2019-7-29 20:50:37 来自手机 | 显示全部楼层

活跃 5048| 技术 27| 互助 14| 钻石 130

真的小白 发表于 2019-7-29 20:40
他说的是这个
↓↓↓

我是用这个输出的啊 运行了也没反应,AU3版本好像是3.1.5

点评

一步一调试吧!  详情 回复 发表于 2019-7-29 21:01
真的小白 发表于 2019-7-29 21:01:56 | 显示全部楼层

活跃 5050| 技术 5| 互助 7| 钻石 0

houlin 发表于 2019-7-29 20:50
我是用这个输出的啊 运行了也没反应,AU3版本好像是3.1.5

一步一调试吧!
  1. https://www.itsk.com/forum.php?mod=viewthread&tid=358855
复制代码
没事瞎折腾 发表于 2019-7-30 16:28:24 | 显示全部楼层

活跃 22819| 技术 341| 互助 676| 钻石 34

本帖最后由 没事瞎折腾 于 2019-7-31 13:35 编辑

以下是我写的代码,你可以作为参考希望对你帮助  软件环境:Win 10企业版,AutoIt v3.3.14.2     
Opt("MustDeclareVars", 1) ;限定变量必须先定义后使用
Opt("MouseCoordMode", 0) ;激活当前窗口的鼠标的相对坐标
HotKeySet("{F11}", "Quit") ;设置热键【F11】,中止脚本运行
Local $Soft = "QQ.exe" ;定义程序
Local $Title = "腾讯QQ安装向导" ;定义软件运行的标题
Local $Text1 = "软件许可协议和青少年上网安全指导" ;定义软件运行的文本
Local $Text2 = "立即安装" ;定义软件运行的文本
Local $Text3 = "正在安装..." ;定义软件运行的文本
Local $Text4 = "完成安装" ;定义软件运行的文本
Run($Soft) ;运行软件
TrayTip(" 安装提示 ", "为避免自动安装期间操作失败,请勿乱动键盘鼠标" & @CRLF & "若长时间无反应可按 F11 退出", 30, 4) ;==>Quit  ;设置显示图标气球提示
WinWait($Title, $Text1) ;等待指定的窗口出现
WinActivate($Title, $Text1) ;激活窗体
ControlClick($Title, $Text1, "Button6") ;发送鼠标命令,选择指定控件 【选择自定义】

WinWait($Title, $Text2) ;等待指定的窗口出现
WinActivate($Title, $Text2) ;激活窗体
ControlSetText($Title, $Text2, "Edit1", "D:\Program Files (x86)\Tencent\QQ") ;更改软件的安装路径到D盘
Sleep(300);延时脚本执行
ControlClick($Title, $Text2, "Button10");选择【自定义】
Sleep(300);延时脚本执行
ControlClick($Title, $Text2, "Button6");取消【开机自动启动】
Sleep(300);延时脚本执行
ControlClick($Title, $Text2, "Button3");选择【立即安装】

WinWait($Title, $Text3) ;等待指定的窗口出现
WinActivate($Title, $Text3);激活窗体,软件安装,注册组件安装,注册组件

WinWait($Title, $Text4) ;等待指定的窗口出现
WinActivate($Title, $Text4) ;激活窗体,软件安装,注册组件安装,注册组件
Sleep(300);延时脚本执行
TrayTip(" 请稍等!", "正在完成安装......", 15, 4) ;设置显示图标气球提示检查指定进程是否存在.
If ProcessExists("QQ.exe") Then ;检查QQ进程是否存在,如果QQ进程存在就
        ProcessClose("QQ.exe") ;结束QQ进程  =====》PS:如果,选择【安装完成】以后,QQ会自动启动一次软件,出现软件框,这里就直接结束进程,来阻止软件启动
EndIf
Sleep(100);延时脚本执行
Quit();执行主函数Quit()
Func Quit();定义函数执行完毕后退出程序
        Exit
EndFunc   ;==>Quit


没事瞎折腾 发表于 2019-7-31 09:17:07 | 显示全部楼层

活跃 22819| 技术 341| 互助 676| 钻石 34

本帖最后由 没事瞎折腾 于 2019-7-31 09:27 编辑

  1. Opt("MustDeclareVars", 1) ;限定变量必须先定义后使用
  2. Opt("MouseCoordMode", 0) ;激活当前窗口的鼠标的相对坐标
  3. HotKeySet("{F11}", "Quit") ;设置热键【F11】,中止脚本运行
  4. Local $Soft = "QQ.exe" ;定义程序
  5. Local $Title = "腾讯QQ安装向导" ;定义软件运行的标题
  6. Local $Text1 = "软件许可协议和青少年上网安全指导" ;定义软件运行的文本
  7. Local $Text2 = "立即安装" ;定义软件运行的文本
  8. Local $Text3 = "正在安装..." ;定义软件运行的文本
  9. Local $Text4 = "完成安装" ;定义软件运行的文本
  10. Run($Soft) ;运行软件
  11. TrayTip(" 安装提示 ", "为避免自动安装期间操作失败,请勿乱动键盘鼠标" & @CRLF & "若长时间无反应可按 F11 退出", 30, 4) ;==>Quit  ;设置显示图标气球提示
  12. WinWait($Title, $Text1) ;等待指定的窗口出现
  13. WinActivate($Title, $Text1) ;激活窗体
  14. ControlClick($Title, $Text1, "Button6") ;发送鼠标命令,选择指定控件 【选择自定义】

  15. WinWait($Title, $Text2) ;等待指定的窗口出现
  16. WinActivate($Title, $Text2) ;激活窗体
  17. ControlSetText($Title, $Text2, "Edit1", "D:\Program Files (x86)\Tencent\QQ") ;更改软件的安装路径到D盘
  18. Sleep(300);延时脚本执行
  19. ControlClick($Title, $Text2, "Button10");选择【自定义】
  20. Sleep(300);延时脚本执行
  21. ControlClick($Title, $Text2, "Button6");取消【开机自动启动】
  22. Sleep(300);延时脚本执行
  23. ControlClick($Title, $Text2, "Button3");选择【立即安装】

  24. WinWait($Title, $Text3) ;等待指定的窗口出现
  25. WinActivate($Title, $Text3);激活窗体,软件安装,注册组件安装,注册组件

  26. WinWait($Title, $Text4) ;等待指定的窗口出现
  27. WinActivate($Title, $Text4) ;激活窗体,软件安装,注册组件安装,注册组件
  28. Sleep(300);延时脚本执行
  29. TrayTip(" 请稍等!", "正在完成安装......", 15, 4) ;设置显示图标气球提示检查指定进程是否存在.
  30. If ProcessExists("QQ.exe") Then ;检查QQ进程是否存在,如果QQ进程存在就
  31.         ProcessClose("QQ.exe") ;结束QQ进程  =====》PS:如果,选择【安装完成】以后,QQ会自动启动一次软件,出现软件框,这里就直接结束进程,来阻止软件启动
  32. EndIf
  33. Sleep(100);延时脚本执行
  34. Quit();执行主函数Quit()
  35. Func Quit();定义函数执行完毕后退出程序
  36.         Exit
  37. EndFunc   ;==>Quit
复制代码
没事瞎折腾 发表于 2019-7-31 14:27:44 | 显示全部楼层

活跃 22819| 技术 341| 互助 676| 钻石 34

发帖还要审核

点评

谢谢你 我就是简单的搞几下 学习下还是有用的  详情 回复 发表于 2019-7-31 14:39
 楼主| houlin 发表于 2019-7-31 14:39:21 | 显示全部楼层

活跃 5048| 技术 27| 互助 14| 钻石 130


谢谢你 我就是简单的搞几下 学习下还是有用的
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

houlin

5048

活跃

27

技术

14

互助
签到任务
最火的业界新闻
  • 郭明錤分析:2020年5nm工艺普及,5G不会普
  • 微软警告Windows 10中包含另一个导致高CPU
  • 华为不止是5G领先 任正非:6G研究也是领先
  • 万元神机降临!华为Mate30 RS保时捷设计官
  • 华为Mate 30标准版曝光:直屏小刘海支持3D
  • 小米MIX 5G概念手机邀请函曝光:探索让未来
  • 任正非接受采访:可一次性出售华为5G技术许
  • 雷蛇推猎魂光蛛竞技版游戏机械键盘 TKL+光
  • 微软再次向Windows 7 和8.1用户推出隐藏的
  • 英特尔:还没见过先进封装就别急着评论摩尔
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 各种乳膏的效用,这张图就很全了!别再乱用
  • 深有感触
  • 劳逸结合,没毛病
  • 一些快被安乐死的流浪猫,送去监狱给犯人,
  • 人家这才叫堆雪人……你堆的那是什么玩意
  • 一定要这么打击人吗?
  • 开学了,家长脸上都洋溢着依依不舍的神情
  • 出去旅游,让导游给拍一张全家福,结果……
  • 低成本cosplay!
  • 听奶奶的话,没错的
关注官方微信
快速回复 返回顶部 返回列表