ygqlwlf2006 发表于 2009-2-24 20:32:29

帮我改一段脚本？

这是个千千静听音效插件的自动安装脚本，如下：$TTP = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TTPlayer", "AppPath")
$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{F436BF59-C83F-4C14-A8C1-0EB93F36B4B0}\1.0\HELPDIR", "")
Run(@ScriptDir&"\TTPlayer补丁.exe")
WinWaitActive("选择目标位置","安装向导将安装 ")
ControlSetText("选择目标位置","安装向导将安装","Edit1",$var)
Dim $tt1
$tt1=MsgBox(32+4, "安装路径", "所选的千千静听安装目录是否正确？")
Select
        Case $tt1=7
                MsgBox(0, "重新选择", "请选择正确的千千静听安装目录。。。")
                Case $tt1=7
        Send("!n")       
EndSelect
WinWaitActive("安装完成","安装程序现在已成功安装 ")
Send("{enter}")
WinWaitClose("安装完成","安装程序现在已成功安装 ")
MsgBox(64, "音效插件向导", "打开千千静听并定位到插件选项，点　确定　继续！")
Run($TTP)
WinWaitActive("千千静听","千千静听 5.3")
Send("{F1}")
MouseClick ( "left",50,250,1,3)
MsgBox(64, "插件选项", "请根据音效效果选择你所喜欢的插件，推荐使用 DFX！")
EXIT但是在出现MsgBox(32+4, "安装路径", "所选的千千静听安装目录是否正确？")对话框后选”是“和”否“后脚本都不能继续了，帮忙修改一下！谢谢！！

[ 本帖最后由 ygqlwlf2006 于 2009-2-24 20:39 编辑 ]

xrbenbeba 发表于 2009-2-25 09:08:29

Select
      Case $tt1=7
                MsgBox(0, "重新选择", "请选择正确的千千静听安装目录。。。")
                Case $tt1=7
      Send("!n")      
EndSelect

这段可能有问题 也许有可能是我水平不行 没看懂

131738 发表于 2009-2-25 15:33:34

原帖由 xrbenbeba 于 2009-2-25 09:08 发表 http://www.autoitx.com/images/common/back.gif
Select
      Case $tt1=7
                MsgBox(0, "重新选择", "请选择正确的千千静听安装目录。。。")
                Case $tt1=7
      Send("!n")      
EndSelect

这段可能有问题 也许有可能 ...


同感！！！！
页: [1]
查看完整版本: 帮我改一段脚本？