自动安装脚本生成器修改版

23070205

支持楼主更新。终于可以一个软件就搞定自动生成了

23070205

试用了下，感觉不错了。
有2点提议：1.收集标题时和窗口内的文本时，建议每个窗口保证收集的内容与之前的一个页面的文本保证不同。这样便于，识别和激活不同的窗口。
2.近2天，觉得用鼠标点的按钮的绝对大小就比较好用。当然也要加入激活窗口的代码，而不要采用sleep那个命令。
解释一下我的意思。有些控件不能用button来选择，而用这个鼠标模拟选择就可以解决这个问题。可惜我的能力有些，不能做出来可以大家使用的程序。只能表达我的思路。供大家参考了。

afan

回复 47# 23070205


    上面的红框是鼠标坐标，下面的是控件坐标；上面的是动态的，下面的是定值

23070205

楼主作品与我的思路的对比
楼主作品生成的代码

#requireadmin
#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_icon = C:\Users\Administrator\Desktop\QQFlasher18setup.ico
#AutoIt3Wrapper_outfile = C:\Users\Administrator\Desktop\QQFlasher18setup_ZD.exe
#AutoIt3Wrapper_Res_Description = 自动安装脚本, au3版本：3.3.6.1
#AutoIt3Wrapper_Res_Comment = 脚本生成于: 2010年 08月 28日
#EndRegion AutoIt3Wrapper 预编译参数设置完成

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <GuiImageList.au3>

Opt("MouseCoordMode", 0)

Global $hListView, $Path_Fitx, $Path_Fit, $Nem_Path
Run ( "C:\Users\Administrator\Desktop\QQFlasher18setup.exe" )
WinWait ( "安装 - QQFlasher","下一步(&N) >" )
        WinActivate ( "安装 - QQFlasher","下一步(&N) >" )
        ControlClick( "安装 - QQFlasher", "","TButton1" )
WinWait ( "安装 - QQFlasher","我同意此协议(&A)" )
        WinActivate ( "安装 - QQFlasher","我同意此协议(&A)" )
        ControlClick( "安装 - QQFlasher", "","TRadioButton1" )
WinWait ( "安装 - QQFlasher","下一步(&N) >" )
        WinActivate ( "安装 - QQFlasher","下一步(&N) >" )
        ControlClick( "安装 - QQFlasher", "","TButton2" )
        ControlClick( "安装 - QQFlasher", "","TButton2" )
WinWait ( "安装 - QQFlasher","下一步(&N) >" )
        WinActivate ( "安装 - QQFlasher","下一步(&N) >" )
        ControlClick( "安装 - QQFlasher", "","TButton3" )
        ControlClick( "安装 - QQFlasher", "","TButton4" )
        MouseClick ( "left",54, 156, 1, 50 )
        MouseClick ( "left",55, 174, 1, 50 )
        ControlClick( "安装 - QQFlasher", "","TButton4" )
        ControlClick( "安装 - QQFlasher", "","TButton4" )
WinWait ( "安装 - QQFlasher","下一步(&N) >" )
        WinActivate ( "安装 - QQFlasher","下一步(&N) >" )
        ControlClick( "安装 - QQFlasher", "","TButton4" )
        MouseClick ( "left",192, 149, 1, 50 )
WinWait ( "安装 - QQFlasher","完成(&F)" )
        WinActivate ( "安装 - QQFlasher","完成(&F)" )
        ControlClick( "安装 - QQFlasher", "","TButton4" )

我的思路就是全部用鼠标模拟的那个。

#requireadmin
Opt("MouseCoordMode", 2)

Global $hListView, $Path_Fitx, $Path_Fit, $Nem_Path
Run ( "C:\Users\Administrator\Desktop\QQFlasher18setup.exe" )
WinWait ( "安装 - QQFlasher","下一步(&N) >" )
        WinActivate ( "安装 - QQFlasher","下一步(&N) >" )
        MouseClick ( "left",303,301, 1 )
WinWait ( "安装 - QQFlasher","我同意此协议(&A)" )
        WinActivate ( "安装 - QQFlasher","我同意此协议(&A)" )
        MouseClick ( "left",40,247, 1 )
        MouseClick ( "left",303,301, 1 )
WinWait ( "安装 - QQFlasher","下一步(&N) >" )
        WinActivate ( "安装 - QQFlasher","下一步(&N) >" )
        MouseClick ( "left",303,301, 1 )
        WinWait ( "安装 - QQFlasher","下一步(&N) >" )
        WinActivate ( "安装 - QQFlasher","下一步(&N) >" )
        MouseClick ( "left",303,301, 1 )
        WinWait ( "安装 - QQFlasher","您想在哪里放置程序的快捷方式？" )
        WinActivate ( "安装 - QQFlasher","您想在哪里放置程序的快捷方式？" )
                MouseClick ( "left",303,301, 1 )
        MouseClick ( "left",49, 129, 1)
        MouseClick ( "left",49, 150, 1 )
MouseClick ( "left",303,301, 1 )
WinWait ( "安装 - QQFlasher","安装(&I)" )
        WinActivate ( "安装 - QQFlasher","安装(&I)" )
        MouseClick ( "left",303,301, 1 )
WinWait ( "安装 - QQFlasher","请在继续安装前阅读下列重要信息。" )
        WinActivate ( "安装 - QQFlasher","请在继续安装前阅读下列重要信息。" )
        MouseClick ( "left",303,301, 1 )
WinWait ( "安装 - QQFlasher","单击“完成”退出安装程序。" )
        WinActivate ( "安装 - QQFlasher","单击“完成”退出安装程序。" )
                MouseClick ( "left",199, 122, 1 )
        MouseClick ( "left",303,301, 1 )

大家可以对比测试下，我觉得楼主作品真的很好用了。路径问题，我没有测试，毕竟主要用于C盘的毕竟多。
欢迎大家来共同完善楼主的作品。真的很棒了。我制作代码过程中用到afan超版的0.3的那个小程序，真是不错。
在此，对楼主和afan表示感谢。什么时候，我能写出我自己思路的作品呢？╮(╯▽╰)╭，什么收集资料学习吧！

globoy566

真是好东西·支持下

131738

回复 47# 23070205

第一个问题分两点回答：
1.无论窗口标题变与不变，都是即时捕捉的，窗口标题发生变化，捕捉也跟着变化

2.窗口文本的捕捉就看你的实际操作了，我的动画演示都是分别捕捉不同的文本的，

也就是右键的点击位置，假定你每次都右键点击“下一步”按钮，脚本也可以执行，

但窗口文本就雷同了。。。

第二个问题：超版 Afan 的工具就非常适合一路 ControlClick 和 MouseClick 的脚本了

只是你必须严格注意使用的坐标类型。。。。

131738

回复 49# 23070205
我下了你的这个QQ测试了下，发现你用我这个工具时，明显右键点击没用好！

使你脚本大部分窗口文本都雷同了。。。

#include <GuiImageList.au3>

Opt("MouseCoordMode", 0)

Global $hListView, $Path_Fitx, $Path_Fit, $Nem_Path
Run ( "E:\QQFlasher18setup.exe" )
WinWait ( "安装 - QQFlasher","欢迎使用 QQFlasher 安装向导" )
        WinActivate ( "安装 - QQFlasher","欢迎使用 QQFlasher 安装向导" )
        ControlClick( "安装 - QQFlasher", "","TButton1" )
WinWait ( "安装 - QQFlasher","许可协议" )
        WinActivate ( "安装 - QQFlasher","许可协议" )
        ControlClick( "安装 - QQFlasher", "","TRadioButton1" )
        ControlClick( "安装 - QQFlasher", "","TButton2" )
WinWait ( "安装 - QQFlasher","信息" )
        WinActivate ( "安装 - QQFlasher","信息" )
        ControlClick( "安装 - QQFlasher", "","TButton2" )
WinWait ( "安装 - QQFlasher","选择目标位置" )
        WinActivate ( "安装 - QQFlasher","选择目标位置" )

23070205

回复  23070205
我下了你的这个QQ测试了下，发现你用我这个工具时，明显右键点击没用好！

使你脚本大部 ...
131738 发表于 2010-8-28 17:25

   是的，不过，即使这样，也是可以安装成功。所以说，楼主的作品是很不错的，是成功的作品。赞

23070205

回复  23070205


    上面的红框是鼠标坐标，下面的是控件坐标；上面的是动态的，下面的是定值
afan 发表于 2010-8-28 15:43

    是的，我在上面的代码中，能用到控件坐标的，就不用鼠标坐标。这样，即使变了分辨率也是应该没有问题的了。

afan

是的，我在上面的代码中，能用到控件坐标的，就不用鼠标坐标。这样，即使变了分辨率也是应该没有 ...
23070205 发表于 2010-8-28 18:11

    可能你还没有完全理解，使用上面的鼠标坐标即可，它是鼠标在所指示的控件上面的任意一点，而且也是和分辨率无关的。
下面的是控件的左上角顶点坐标，是不变的。

只要你不要使用上面的“屏幕”坐标（右键点击“界面”切换出来的就是“屏幕”坐标）即和分辨率无关。

boy461205160

不错哦，，来看看这个工具

23070205

可能你还没有完全理解，使用上面的鼠标坐标即可，它是鼠标在所指示的控件上面的任意一点，而且也 ...
afan 发表于 2010-8-28 23:48

发现了，可以切换的，屏幕坐标，没有控件坐标好用。嘻嘻。
afan超版，什么时候给我们大家一个完整的自动安装作品啊，期待啊，在0.3基础上添加些功能即可了。不知超版有无时间，有无兴趣。因为你的作品和我的思路很相同。

afan

发现了，可以切换的，屏幕坐标，没有控件坐标好用。嘻嘻。
afan超版，什么时候给我们大家一个完整的自动 ...
23070205 发表于 2010-8-29 11:10

    LZ 的这个工具应该就是自动安装的很好的工具了，我那个仅是个探测工具，不想弄得太“大而全”了，呵呵

23070205

LZ 的这个工具应该就是自动安装的很好的工具了，我那个仅是个探测工具，不想弄得太“大而全”了， ...
afan 发表于 2010-8-29 11:56

    是的说，afan超版的意思明白，重复做别人的事，没有什么意思。只是浪费自己的时间而已。楼主的作品是我测试过的自动安装比较好用的那种了。支持楼主和afan。我抽空在你的程序之外做个小东东自用吧。就是不知道能完成否，afan超版到时候要不吝赐教了。敬礼！

131738

回复 59# 23070205

lynfr8 会给你惊喜的！等着吧。。。。