自动安装

wscll2008

请问一下高手，我想把QQ和自动安装脚本做到一起，但是不会这么办，QQ和自动安装的是一个东西，平常不是两个吗请帮帮忙指导一下，发一个脚本谢谢

kn007

AliIM2008_taobao.exe是主程序，不会自动安装的，然后FileInstall("AliIM2008_taobao.exe", @TempDir &"\AliIM2008_taobao.exe")，然后把你的自动安装脚本放到该句后面，最后加上FileDelete(@TempDir&"\AliIM2008_taobao.exe")

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=AliIMSetup.ico
#AutoIt3Wrapper_outfile=AliIM2008_taobao_自动安装程序.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=kn007@126.com
#AutoIt3Wrapper_Res_Description=阿里旺旺2008版 
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=除主程序外，其他如安装脚本，版权均归kn007所有
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

FileInstall("AliIM2008_taobao.exe", @TempDir &"\AliIM2008_taobao.exe")
Sleep(66)
Run(@ScriptDir & "\AliIM2008_taobao.exe")
$hd="阿里旺旺2008 安装"
WinWait($hd,"欢迎使用“阿里旺旺2008”安装向导")
WinWaitActive($hd,"欢迎使用“阿里旺旺2008”安装向导")
ControlClick($hd,"下一步(&N) >","Button2")
WinWait($hd,"许可证协议")
WinWaitActive($hd,"许可证协议")
ControlClick($hd,"我接受(&I)","Button2")
WinWait($hd,"选择组件")
WinWaitActive($hd,"选择组件")
Send("{Down}")
Send("{Space}")
Send("{Down}")
Send("{Space}")
Send("{Down}")
Send("{Space}")
Send("{Down}")
Send("{Space}")
ControlClick($hd,"下一步(&N) >","Button2")
WinWait($hd,"选择安装位置")
WinWaitActive($hd,"选择安装位置")
ControlSetText($hd,"","Edit1","D:\Program Files\AliWangWang")
ControlClick($hd,"安装(&I)","Button2")
WinWait($hd,"正在完成“阿里旺旺2008”安装向导")
WinWaitActive($hd,"正在完成“阿里旺旺2008”安装向导")
ControlClick($hd,"运行 阿里旺旺2008(&R)","Button4")
ControlClick($hd,"完成(&F)","Button2")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "aliim")
Sleep(66)
FileDelete(@TempDir&"\AliIM2008_taobao.exe")
Exit

wscll2008

谢谢你呵呵呵

asssd

学习了。。。。。。。

水木子

很不错哦！留名学习。