zw0955
发表于 2011-8-23 08:22:11
新手学习!!!感谢分享!!!!
stcyk
发表于 2011-8-23 15:45:01
很好,看看,我只要皮肤
tangcengfe
发表于 2011-8-23 18:10:28
支持楼主,不知道这工具楼主还更新么。
feiye7366
发表于 2011-8-23 18:17:49
回复 212# chinaun
根据你的截图,请仔细检查配置文件路径设置是否有错
chinaun
发表于 2011-8-23 18:30:40
回复 216# feiye7366
图片:请教了!
feiye7366
发表于 2011-8-23 20:21:25
本帖最后由 feiye7366 于 2011-8-23 20:22 编辑
回复 217# chinaun
看截图,配置文件路径无错。
可能是winrar401sc_zd.exe这个自动安装文件源码里的路径有错。可以这样试一下:
方法1:直接双击winrar401sc_zd.exe测试一下,看是否提示出错。
方法2:不用winrar401sc_zd.exe这个自动安装文件,用WINRAR自动安装参数,设置如下
自动0=winrar401sc.exe/s
手动0=winrar401sc.exe
chinaun
发表于 2011-8-23 21:03:30
回复 218# feiye7366
按你的方法1:是没有问题,可以安装的;这个自动安装脚本在其他的软件安装软件当中没有问题;
按你的方法2:我已试过了,加上参数是可以的安装的。只是安装的盘符在C盘;
刚才我又试了一下其他的自动脚本,都是提示找不到原来的安装程序?
“星驰周的软件安装脚本辅助工具5.5”用的是这个版本!
上传该软件:
feiye7366
发表于 2011-8-23 21:13:39
回复 219# chinaun
这样吧,我就不下载了,你直接把winrar的自动安装源码贴出来,我瞧瞧
chinaun
发表于 2011-8-23 21:29:39
回复 220# feiye7366
发个极点五笔的源码:
;说明:本脚本由 《星驰周的软件安装脚本辅助工具5.5.0.0》于2011年08月23日所生成,请尊重作者劳动,保留版权信息
HotKeySet("{F11}", "tuichu");退出
Opt("MouseCoordMode", 0);相对激活窗口的坐标
Opt("WinTitleMatchMode", 2);标题的任意子串皆可匹配
Dim $rjlj = IniRead("soft.ini","设置","程序路径",@WorkingDir)
Dim $ruanj = $rjlj & "\setup713n.exe"
Dim $zcmc="极点五笔 7.13版",$reg="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Dim $bt = "极点五笔 7.13版 安装"
Dim $txt1 = "许可协议"
Dim $txt2 = "目标文件夹"
Dim $bt3 = "提示"
Dim $txt3 = "确定"
If Not FileExists($ruanj) Then
TrayTip("错误!!","该文件找不到:" & @CRLF & $ruanj & @CRLF & @CRLF & "3 秒后自动退出", 20)
Sleep(2500)
Exit
EndIf
For $i = 1 To 1000
$var = RegEnumKey($reg, $i)
If @error <> 0 Then ExitLoop
If $zcmc = RegRead($reg & "\" & $var, "DisplayName") Then
IfMsgBox(1, "安装已重复", "发现系统中已经安装过:" & $zcmc & @CRLF & @CRLF & "确定 =继续安装,取消 =退出安装")=2 Then $i=2000
EndIf
Next
If $i>1000 Then Exit
$star = TimerInit()
Run($ruanj);运行软件
TrayTip("温馨提示","自动安装期间为避免操作失败,请勿动键盘鼠标" & @CRLF & @CRLF & "长时间无反应可按 F11 退出", 20)
Sleep(1000)
WinWaitActive($bt, $txt1)
ControlClick($bt, $txt1, "Button2")
WinWaitActive($bt, $txt2)
$var=ControlGetFocus($bt , $txt2)
ControlSetText($bt, $txt2, $var ,"d:\Program Files\freeime")
ControlClick($bt, $txt2, "Button2")
WinWaitActive($bt3, $txt3)
ControlClick($bt3, $txt3, "Button1")
ControlClick($bt3, $txt3, "Button1")
TrayTip($ruanj&"安装完成!","共计耗时:" & Int(TimerDiff($star) / 1000) & "秒.谢谢使用!", 20)
Sleep(2000)
;强行退出函数
Func tuichu()
Exit
EndFunc
feiye7366
发表于 2011-8-23 21:42:12
Dim $rjlj = IniRead("soft.ini","设置","程序路径",@WorkingDir)
Dim $ruanj = $rjlj & "\setup713n.exe"
以上两行给整复杂了,简化如下:
Dim $ruanj = @ScriptDir & "\setup713n.exe"
feiye7366
发表于 2011-8-23 21:45:02
回复 221# chinaun
应该是自动安装的源码路径出了问题,我自己用的几个软件的自动安装程序一直正常
chinaun
发表于 2011-8-23 21:58:15
回复 222# feiye7366
相当的“棒”!这样改了以后,可以了!
看来,还是“星驰周自动脚本安装器”在编译过程中多出了语句!用这个软件还得需要手动修改才是啊。
谢谢指点!
penguinl
发表于 2011-8-23 22:00:53
看图片,确实很不错啊!
chinaun
发表于 2011-8-23 22:10:21
回复 223# feiye7366
像WINRAR安装时会弹出窗口,关闭窗口的语句该如何写啊!
feiye7366
发表于 2011-8-23 22:25:25
我刚才手动试安装了winrar最新4.01版,有很多窗口弹出,编写源码也费心思。我的原则是,能用自动安装参数的,就不用AU3代替。我看你就简单点,加个 /S算了。