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算了。
页: 5 6 7 8 9 10 11 12 13 14 [15] 16 17 18 19 20 21 22 23 24
查看完整版本: ★华中软件安装管理器(水纹+音效+大小图标模式+多款背景+皮肤可选+去作者标识)5.13