找回密码
 加入
搜索
楼主: liangxm

请问这种button怎么点击

[复制链接]
发表于 2009-6-12 16:06:30 | 显示全部楼层
可以了,我不知你那里错,反正我行

http://www.skycn.com/soft/2988.html
 楼主| 发表于 2009-6-12 16:21:24 | 显示全部楼层
不好意思,刚刚设了断点发现是在前面出错,所以没执行成功。
另,在附加任务那,如何把创建桌面那几个勾去掉?是否是用ControlListView,SelectClear?
发表于 2009-6-12 20:50:10 | 显示全部楼层
用ControlClick就行,自己研究吧,靠别人你永远长不大!而且这很简单
 楼主| 发表于 2009-6-15 09:28:37 | 显示全部楼层
用ControlClick就行,自己研究吧,靠别人你永远长不大!而且这很简单
kn007 发表于 2009-6-12 20:50


ok,3q~
 楼主| 发表于 2009-6-15 09:45:43 | 显示全部楼层
本帖最后由 liangxm 于 2009-6-15 09:48 编辑

Opt("WinTitleMatchMode", 1)

; 处理输入命令
AdlibEnable("user")

Func user()
If WinExists("文件夹已存在","已存在") Then

        ControlClick("文件夹已存在","已存在","Button1")

   EndIf
EndFunc



Local $sUserName = "administrator"
Local $sPassword = "123456"



$file = "\auto_install\WoptiFree-V7.93Build9.305\WoptiFree.exe"
$dir = "D:\Program Files\Wopti\"
$title1 = "安装 - Windows优化大师"


RunAs($sUserName, @ComputerName, $sPassword, 0, $file)


WinWait($title1,"欢迎使用 Windows优化大师 安装向导")
If Not WinActivate($title1,"欢迎使用 Windows优化大师 安装向导") Then
                WinActivate($title1,"欢迎使用 Windows优化大师 安装向导")
                WinWaitActive($title1,"欢迎使用 Windows优化大师 安装向导")

EndIf


ControlClick($title1,"欢迎使用 Windows优化大师 安装向导","TNewButton1")


WinWait($title1,"许可协议")
If Not WinActivate($title1,"许可协议") Then
                WinActivate($title1,"许可协议")
                WinWaitActive($title1,"许可协议")

EndIf
Send("!a")
ControlClick($title1,"许可协议","TNewButton2")


WinWait($title1,"选择目标位置")
If Not WinActivate($title1,"选择目标位置") Then
                WinActivate($title1,"选择目标位置")
                WinWaitActive($title1,"选择目标位置")

EndIf
Send($dir )
Sleep(1000)
ControlClick($title1,"选择目标位置","TNewButton3")


WinWait($title1,"选择开始菜单文件夹")
If Not WinActivate($title1,"选择开始菜单文件夹") Then
                WinActivate($title1,"选择开始菜单文件夹")
                WinWaitActive($title1,"选择开始菜单文件夹")

EndIf

ControlClick($title1,"选择开始菜单文件夹","TNewButton4")


WinWait($title1,"要执行哪些附加任务")
If Not WinActivate($title1,"要执行哪些附加任务") Then
                WinActivate($title1,"要执行哪些附加任务")
                WinWaitActive($title1,"要执行哪些附加任务")

EndIf
;;;这个地方不知道怎么取消,只好用这种土办法了;;;
Send("!d")
Send("{down}")
Send("{space}")
;;;这个地方不知道怎么取消,只好用这种土办法了;;;
ControlClick($title1,"要执行哪些附加任务","TNewButton4")

AdlibDisable()
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-14 01:24 , Processed in 0.069088 second(s), 13 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表