论坛 › 『 提问交流 』 › 新做的QQ2009正式版自动安装

yjfeng830810 发表于 2009-5-7 17:05:41

新做的QQ2009正式版自动安装

本帖最后由 yjfeng830810 于 2009-5-7 17:08 编辑

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=..\..\gamesoft\qqauto.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
;QQ2009正式版自动安装
FileCopy("\\192.168.1.252\yx\QQ2009_chs.exe","d:")
If Not FileExists("d:\QQ2009_chs.exe") Then
FileCopy("\\192.168.1.252\yx\QQ2009_chs.exe","d:")
EndIf
run("d:\QQ2009_chs.exe")
WinWait("腾讯QQ2009", "")
If Not WinActivate("腾讯QQ2009", "") Then
    WinActivate("腾讯QQ2009", "")
    WinWaitActive("腾讯QQ2009", "")
EndIf
ControlClick("腾讯QQ2009", "", "Button1")
ControlClick("腾讯QQ2009", "", "Button3")

WinWait("腾讯QQ2009", "")
If Not WinActivate("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项") Then
    WinActivate("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项")
    WinWaitActive("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项")
EndIf
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button7")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button8")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button9")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button10")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button11")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button2")

WinWait("腾讯QQ2009", "请选择安装路径")
If Not WinActivate("腾讯QQ2009", "请选择安装路径") Then
    WinActivate("腾讯QQ2009", "请选择安装路径")
    WinWaitActive("腾讯QQ2009", "请选择安装路径")
EndIf
ControlSetText("腾讯QQ2009","请选择安装路径","Edit1","e:\play\program files\tencent\qq\")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择安装路径", "Button2")
WinWait("腾讯QQ2009", "安装完成")
If Not WinActivate("腾讯QQ2009", "安装完成") Then
    WinActivate("腾讯QQ2009", "安装完成")
    WinWaitActive("腾讯QQ2009", "安装完成")
EndIf
ControlClick("腾讯QQ2009", "安装完成", "Button2")

WinWait("腾讯QQ2009", "正在完成")
If Not WinActivate("腾讯QQ2009", "正在完成") Then
    WinActivate("腾讯QQ2009", "正在完成")
    WinWaitActive("腾讯QQ2009", "正在完成")
EndIf
sleep(8000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button6")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button7")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button8")
sleep(2000)
ControlClick("腾讯QQ2009", "请选择自定义安装选项与快捷方式选项", "Button2")
sleep(2000)
FileMove("C:\Documents and Settings\administrator\桌面\腾讯QQ.lnk","C:\Documents and Settings\administrator\桌面\娱乐游戏",1)
msgbox(0,"更新提示","qq2009正式版安装完成")



我想最后快捷方式移动到指定文件夹通过@DesktopDir来实现，怎么做，请高手指教

icq224639289 发表于 2009-8-26 18:40:01

你这个好像是网吧安装用的吧,我看有文件从网络复制吧!
你是想说用这个@DesktopDir去指定桌面的位置,再指定文件夹吧!
你这个我看不太明白,这个你可以这样做下看看行不行!
FileMove(@DesktopDir&"\腾讯QQ.lnk",@DesktopDir&"\娱乐游戏",1)
试下看看,你说的我不是很明白的!

mvplg 发表于 2009-9-1 11:48:15

学习学习学习学习学习学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:17

学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:20

学习学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:23

学习学习学习学习

mvplg 发表于 2009-9-1 11:48:25

学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:28

学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:31

学习学习学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:34

学习学习学习学习学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:37

学习学习学习学习学习学习学习学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:40

学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:43

学习学习学习学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:45

学习学习学习学习学习学习学习学习学习学习学习

mvplg 发表于 2009-9-1 11:48:48

学习学习学习学习学习学习学习学习

查看完整版本: 新做的QQ2009正式版自动安装