au3 自动安装程序制作视频教程

nkc3g4

视频教程下载http://pan.baidu.com/share/link?shareid=1651633926&uk=67562577

用到的程序下载au3.7z

说明：

1.其实这个东西挺简单的，看看就会，本来不打算出教程，但是某网友纠结，只好做了

2.由于教程在虚拟机下录制，只有一个分区，视频中测试的时候提示目录不存在，实际使用中不会有问题

教程中改好的代码

#requireadmin
traytip(" 鱼雁可提示","自动安装期间为避免操作失败，请勿动键盘鼠标",30,4)

Local $InstallPath
If $Cmdline[0] <> 0 Then
$InstallPath = $Cmdline[1]
EndIf
Run(@ScriptDir & "\QQ2011Beta3_Dmcl.exe")
WinWait("腾讯QQ2011 安装向导","在安装软件前, 请仔细阅读下面的软件许可协议和青少年上网安全指引。")
WinActivate("腾讯QQ2011 安装向导","在安装软件前, 请仔细阅读下面的软件许可协议和青少年上网安全指引。")
WinWaitActive("腾讯QQ2011 安装向导","在安装软件前, 请仔细阅读下面的软件许可协议和青少年上网安全指引。")
ControlClick("腾讯QQ2011 安装向导","我已阅读并同意软件许可协议和青少年上网安全指引","Button1")
Send("!N")
WinActivate("腾讯QQ2011 安装向导","快捷方式选项")
WinWaitActive("腾讯QQ2011 安装向导","快捷方式选项")
Send("!N")
WinActivate("腾讯QQ2011 安装向导","请选择安装路径")
WinWaitActive("腾讯QQ2011 安装向导","请选择安装路径")
ControlSetText("腾讯QQ2011 安装向导","请选择安装路径","Edit1","D:\Program Files\Tencent\QQ")
Send("!I")
WinActivate("腾讯QQ2011 安装向导","安装完成")
WinWaitActive("腾讯QQ2011 安装向导","安装完成")
ControlClick("腾讯QQ2011 安装向导","安装完成","立即运行腾讯QQ2011")
Send("!F")
Exit

不错不错！！！！！！！！！！！！！！！！！！！！大哥，你要是能在后面加个括号，然后来点中文注解就好了！

Local $InstallPath
If $Cmdline[0] <> 0 Then
$InstallPath = $Cmdline[1]


（就比如这里大体的意思是什么？）

小萝卜头

{:soso__13914292892282080364_4:}有点卡了

nkc3g4

靓.. 发表于 2011-8-18 19:22
有点卡了

?

nkc3g4

靓.. 发表于 2011-8-18 19:22
有点卡了

我这都快卡死了

Anonymous

nkc3g4 发表于 2011-8-18 21:36
我这都快卡死了

怎么卡死的-.-

nkc3g4

nkc3g4 发表于 2011-8-18 21:36
我这都快卡死了

金钱不能加。都给你奖励这么多金钱了。