★华中软件安装管理器(水纹+音效+大小图标模式+多款背景+皮肤可选+去作者标识)5.13

zw0955

新手学习！！！感谢分享！！！！

stcyk

很好，看看，我只要皮肤

tangcengfe

支持楼主，不知道这工具楼主还更新么。

feiye7366

回复 212# chinaun


    根据你的截图，请仔细检查配置文件路径设置是否有错

chinaun

回复 216# feiye7366
图片：请教了！

feiye7366

回复 217# chinaun


   看截图，配置文件路径无错。
  可能是winrar401sc_zd.exe这个自动安装文件源码里的路径有错。可以这样试一下：
  方法1：直接双击winrar401sc_zd.exe测试一下，看是否提示出错。
  方法2：不用winrar401sc_zd.exe这个自动安装文件，用WINRAR自动安装参数，设置如下
         自动0=winrar401sc.exe  /s
         手动0=winrar401sc.exe

chinaun

回复 218# feiye7366
按你的方法１：是没有问题，可以安装的；这个自动安装脚本在其他的软件安装软件当中没有问题；
按你的方法2：我已试过了，加上参数是可以的安装的。只是安装的盘符在C盘；
刚才我又试了一下其他的自动脚本，都是提示找不到原来的安装程序？
“星驰周的软件安装脚本辅助工具5.5”用的是这个版本！
上传该软件：

feiye7366

回复 219# chinaun


    这样吧，我就不下载了，你直接把winrar的自动安装源码贴出来，我瞧瞧

chinaun

回复 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
If  MsgBox(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

Dim $rjlj = IniRead("soft.ini","设置","程序路径",@WorkingDir)
Dim $ruanj = $rjlj & "\setup713n.exe"
以上两行给整复杂了，简化如下：
Dim $ruanj = @ScriptDir & "\setup713n.exe"

feiye7366

回复 221# chinaun


    应该是自动安装的源码路径出了问题，我自己用的几个软件的自动安装程序一直正常

chinaun

回复 222# feiye7366
相当的“棒”！这样改了以后，可以了！
看来，还是“星驰周自动脚本安装器”在编译过程中多出了语句！用这个软件还得需要手动修改才是啊。
谢谢指点！

penguinl

看图片，确实很不错啊！

chinaun

回复 223# feiye7366
像WINRAR安装时会弹出窗口，关闭窗口的语句该如何写啊！

feiye7366

我刚才手动试安装了winrar最新4.01版，有很多窗口弹出，编写源码也费心思。我的原则是，能用自动安装参数的，就不用AU3代替。我看你就简单点，加个 /S算了。