autoit-解决非标准B/S自动化测试的一个很好的思路

zhanqiao123 · 发表于 2010-3-5 14:01:25

AutoIt 目前最新是v3版本，这是一个使用类似BASIC脚本语言的免费软件,它设计用于Windows GUI(图形用户界面)中进行自动化操作.它利用模拟键盘按键,鼠标移动和窗口/控件的组合来实现自动化任务.
过多专业语言不废话，google下有很多，在公司里碰到支付宝密码控件用watir无法识别的情况(确切的说是无法输入密码)，困扰了好半天，突然想起用autotit来处理也许可以，稍微琢磨了下，code：
WinActivate("支付宝 - 收银台 - Windows Internet Explorer")
ControlSend("支付宝 - 收银台 - Windows Internet Explorer", "", "[CLASS:ATL:Edit; INSTANCE:1]", "password")
==>转换为watir语法
require "win32ole"
alipay = WIN32OLE.new("AutoItX3.Control")
alipay.WinActivate("支付宝") #这行可以省略
alipay.ControlSend("支付宝", "", "[CLASS:ATL:Edit; INSTANCE:1]", "1111112")
补充说明下：
文本输入语法有很多，各不相同，时间缘故还未深入研究其区别，有问题的时候不妨挨个试试^^，其他输入文本的语法列举：
1.ControlSetText("[ACTIVE]","","[CLASS:ATL:Edit; INSTANCE:1]","password")
2.Send("password",1)
->send要与click动作辅助使用(先获取控件焦点)
mouseclick("left",357,508) 或
ControlClick("阿里旺旺2009", "", "[CLASS:StandardButton;INSTANCE:8]","left",1)

总结：对于非标准的html标签的识别和操作，autoit是一个很好的解决问题的思路！

附两个案例
1.计算器加法
Run("calc.exe")
WinWaitActive("计算")
ControlClick("计算器","","1")
ControlClick("计算器","","+")
ControlClick("计算器","","2")
ControlClick("计算器","","=")
$Result = ControlGetText("计算器","",403)
if $Result == "3. " Then
FileWriteLine("c:\result.txt","正确。")
Else
FileWriteLine("c:\result.txt","错误！")
EndIf
WinClose("计算器")

2.登录聊天工具、发消息、退出
;参数变量设置
Global $userid = "zhanqiao123"    ;用户id
Global $password = "password" ;用户password
Global $message = "autoit的测试，呵呵！"  ;发送消息内容
Global $aliwangwang = "阿里旺旺2009" ;旺旺title
Global $wangwangTitle = $userid & "-" & $aliwangwang ;登录后的旺旺title
Global $aliwangPath = "C:\Program Files\AliWangWang\"
sign_in()       ;登录阿里旺旺
send_message() ;查找用户，并发送旺旺消息
;sign_out()    ;注销阿里旺旺
exit_process() ;退出阿里旺旺
Func send_message()
;功能实现：查找并发送旺旺消息
WinActivate($wangwangTitle)
;ControlSend($wangwangTitle, "", "[CLASS:EditComponent; INSTANCE:2]", $userid) ;如何清空原先已经存在内容？
$Z=wingetpos($wangwangTitle) ;获取坐标
;用户名输入
mouseclick("left",$Z[0]+100,$Z[1]+111) ;搜索用户名输入框
Send("{HOME}+{END}{Delete}") ;清空原有内容
Send($userid,1) ;1表示全部为普通字符
Sleep(2000)
mouseclick("left",$Z[0]+100,$Z[1]+163) ;点击搜索到的用户名

WinActivate("[CLASS:StandardFrame]") ;WinActivate("姓名") ;局限于不同用户的姓名 ;WinActivate("[ACTIVE]", "")
ControlSetText("[ACTIVE]","","",$message) ;Send("test message:{Chr(F92C)}");不支持中文
Send("{Enter}")
WinClose("[ACTIVE]")
EndFunc

Func sign_in()
If Not WinExists($windows) Then
MsgBox(0,"","请启动aliwangwang。再运行.")
Exit
  EndIf
Run($aliwangPath & "AliIM.exe")
WinWait($aliwangwang)
;功能实现：登录阿里旺旺
WinActivate($aliwangwang)
$XY=wingetpos($aliwangwang) ;获取坐标
;用户名输入
mouseclick("left",$XY[0]+135,$XY[1]+208)
Send("{HOME}+{END}{Delete}") ;清空原有内容
Send($userid,1) ;1表示全部为普通字符
;密码输入
mouseclick("left",$XY[0]+135,$XY[1]+260) ;Send("{BS 18}")
Send("{HOME}+{END}{Delete}")
Send($password,1)
;登录按钮点击
mouseclick("left",$XY[0]+135,$XY[1]+380)
;如何验证登陆成功？
WinWait($wangwangTitle)
Sleep(1000)
;下面代码实现感觉没问题，但此种方式登录一直提示密码错误，奇怪，怪哉！
;WinActivate("阿里旺旺2009")
;ControlSend("阿里旺旺2009", "", "[CLASS:EditComponent;INSTANCE:2]", "zhanqiao123") ;Send("{TAB}")
;ControlSend("阿里旺旺2009", "", "[CLASS:ATL:Edit;INSTANCE:1]","stonemouse");Send("{Enter}")
;$a = ControlClick("阿里旺旺2009", "", "[CLASS:StandardButton;INSTANCE:8]","left",1)
;MsgBox(0,"登录结果",$a)
EndFunc
Func sign_out()
;功能实现：注销用户
MouseMove(1, 1) ;这样做的目的是把鼠标移开，否则刚好鼠标停留在‘菜单’上出现其他窗口，会影响下面执行
ControlClick($wangwangTitle,"","[CLASS:StandardButton; INSTANCE:1]") ;点击出现菜单的按钮
WinActivate("[CLASS:coolmenu]") ;窗口切换到‘菜单’
ControlClick("[CLASS:coolmenu]","","[CLASS:StandardButton; INSTANCE:1]") ;点击‘注销’按钮
;如何验证注销成功？
WinClose("[ACTIVE]")
EndFunc
Func exit_process()
;功能实现：注销并退出程序
MouseMove(1, 1) ;这样做的目的是把鼠标移开，否则刚好鼠标停留在‘菜单’上出现其他窗口，会影响下面执行
ControlClick($wangwangTitle,"","[CLASS:StandardButton; INSTANCE:1]") ;点击出现菜单的按钮
WinActivate("[CLASS:coolmenu]") ;窗口切换到‘菜单’
ControlClick("[CLASS:coolmenu]","","[CLASS:StandardButton; INSTANCE:2]") ;点击‘退出’按钮
;如何验证退出成功？
EndFunc