风一样的男孩 发表于 2010-3-14 18:57:43

AU3源码酷狗音乐 2010 自动安装脚本

Dim $a = "安装 - 酷狗音乐 2010"
Run("KuGou.exe")

WinWait($a,"欢迎使用 酷狗音乐 2010 安装向导")
WinActivate($a,"欢迎使用 酷狗音乐 2010 安装向导")
Send ("!N")

WinWait($a,"许可协议")
WinActivate($a,"许可协议")
Send ("!N")

WinWait($a,"选择目标位置")
WinActivate($a,"选择目标位置")
Send ("!N")


WinWait($a,"您想安装哪些程序的组件?")
WinActivate($a,"您想安装哪些程序的组件?")
Send ("{TAB}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Sleep("1000")
Send ("{SPACE}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Sleep("1000")
Send ("{SPACE}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Sleep("1000")
Send ("{SPACE}")
Send ("!N")

WinWait($a,"选择开始菜单文件夹")
WinActivate($a,"选择开始菜单文件夹")
Send ("!N")

WinWait($a,"选择附加任务")
WinActivate($a,"选择附加任务")
Send ("!N")

WinWait($a,"准备安装")
WinActivate($a,"准备安装")
Send ("!I")

WinWait($a,"酷狗音乐 2010 安装向导完成")
WinActivate($a,"酷狗音乐 2010 安装向导完成")
Send ("{SPACE}")
Send ("!F")
页: [1]
查看完整版本: AU3源码酷狗音乐 2010 自动安装脚本