|
楼主 |
发表于 2009-3-16 10:03:36
|
显示全部楼层
FileInstall("QQ2009.exe", @TempDir & "\qq2009.exe", 1)
Run("QQ2009.exe")
WinWait("腾讯QQ", "我已阅读")
If Not WinActivate("腾讯QQ", "我已阅读") Then
WinActivate("腾讯QQ", "我已阅读")
WinWaitActive("腾讯QQ", "我已阅读")
EndIf
ControlClick("腾讯QQ", "我已阅读", "Button1")
Sleep(500)
ControlClick("腾讯QQ", "我已阅读", "Button3")
WinWait("腾讯QQ", "请选择使用")
If Not WinActivate("腾讯QQ", "请选择使用") Then
WinActivate("腾讯QQ", "请选择使用")
WinWaitActive("腾讯QQ", "请选择使用")
EndIf
ControlClick("腾讯QQ", "请选择使用", "Button2")
WinWait("腾讯QQ", "请选择自定义")
If Not WinActivate("腾讯QQ", "请选择自定义") Then
WinActivate("腾讯QQ", "请选择自定义")
WinWaitActive("腾讯QQ", "请选择自定义")
EndIf
ControlClick("腾讯QQ", "请选择自定义", "Button9")
Sleep(500)
ControlClick("腾讯QQ", "请选择自定义", "Button7")
Sleep(500)
ControlClick("腾讯QQ", "请选择自定义", "Button2")
WinWait("腾讯QQ", "请选择安装")
If Not WinActivate("腾讯QQ", "请选择安装") Then
WinActivate("腾讯QQ", "请选择安装")
WinWaitActive("腾讯QQ", "请选择安装")
EndIf
ControlClick("腾讯QQ", "请选择安装", "Button2")
WinWait("腾讯QQ", "安装完成")
If Not WinActivate("腾讯QQ", "安装完成") Then
WinActivate("腾讯QQ", "安装完成")
WinWaitActive("腾讯QQ", "安装完成")
EndIf
ControlClick("腾讯QQ", "安装完成", "Button6")
Sleep(500)
ControlClick("腾讯QQ", "安装完成", "Button7")
Sleep(500)
ControlClick("腾讯QQ", "安装完成", "Button8")
Sleep(500)
ControlClick("腾讯QQ", "安装完成", "Button2")
两个放一起,没有用 |
|