lzymbz 发表于 2010-4-16 22:36:00

千千静听 5.6.3.0安装脚本

#requireadmin
#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_icon=ico.ico
#AutoIt3Wrapper_outfile=自动安装.exe
#AutoIt3Wrapper_Res_Description=千千静听 5.6.3.0安装脚本
#AutoIt3Wrapper_Res_LegalCopyright = 版权所有 (C) 2010
#AutoIt3Wrapper_Res_Comment=www.51aou.com 制作：醉爱清茶
#EndRegion AutoIt3Wrapper 预编译参数设置完成

traytip(" 温馨提示","自动安装期间为避免操作失败，请勿动键盘鼠标",15,4)

Opt("MouseCoordMode", 0)
run("千千静听.exe")
WinWaitActive("千千静听 5.6正式版 安装程序 Unicode","欢迎使用 千千静听 5.6正式版 安装程序")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","开始(&S)","Button2")
WinWaitActive("千千静听 5.6正式版 安装程序 Unicode","用户使用协议")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","我同意(&A)","Button2")
WinWaitActive("千千静听 5.6正式版 安装程序 Unicode","选择要安装的组件")
MouseClick("left", 46, 230, 1)
MouseClick("left", 27, 263, 1)
MouseClick("left", 46, 198, 1)
MouseClick("left", 64, 278, 1)
ControlClick("千千静听 5.6正式版 安装程序 Unicode","下一步(&N) >","Button2")
WinWaitActive("千千静听 5.6正式版 安装程序 Unicode","指定安装本软件的目标文件夹")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","下一步(&N) >","Button4")
WinWaitActive("千千静听 5.6正式版 安装程序 Unicode","创建快捷方式")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","开始菜单","Button2")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","快速启动栏","Button3")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","免费安装“百度工具栏”，轻松搜索，拦截广告！","Button7")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","下一步(&N) >","Button11")
WinWaitActive("千千静听 5.6正式版 安装程序 Unicode","完成 千千静听 5.6正式版 安装向导")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","立即运行 千千静听 5.6正式版","Button1")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","把hao123设置为首页","Button2")
ControlClick("千千静听 5.6正式版 安装程序 Unicode","完成","Button17")
sleep(1000)
FileDelete(@DesktopDir&"\千千音乐.url")

shmilds 发表于 2010-4-24 16:16:44

不错不错学习了

xtiauj007 发表于 2010-4-28 20:52:04

楼主做的不错。希望可以有所安突破。

做出更好，更人性化的软件自动安装

冰窖的蚂蚁 发表于 2010-5-14 13:17:09

请问下楼主，这个能不能在域环境下，受限的用户，用管理员权限安装。runas()
页: [1]
查看完整版本: 千千静听 5.6.3.0安装脚本