Write a program to enter data in login screen
思路:1.录制程序 2.增强脚本进行数据驱动
程序1:
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set "lytester"
Dialog("Login").WinEdit("Password:").SetSecure "48743575b1759f8f151c2d2741124daec13d6e7d"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
程序2:
数据驱动:文件数据驱动,利用FSO对象
'文件格式
'111111,mercury
'22222,mercury
Dim fso
Dim f
'......
Dim s_User
Dim s_Pwd
Dim arrTemp
Set fso=CreateObject("scrīpting.filesystemobject")
Set f=fso.OpenTextFile("路径",1,false)
Do while f.atEndOfLine<>true
s_Temp=f.ReadLine
arrTemp=split(s_Temp,",")
s_User=arrTemp(0)
s_Pwd=arrTemp(1)
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set s_User
Dialog("Login").WinEdit("Password:").Set s_Pwd
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
loop
f.close
set f=nothing
set fso=nothing
思考题目:实现数据驱动脚本包含登陆的所有成功和失败的情况
2 Write a program to find the x and y coordinates of a button
Dim x
Dim y
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
x=Dialog("Login").WinButton("OK").GetROProperty("x")
y=Dialog("Login").WinButton("OK").GetROProperty("y")
msgbox "x:"+cstr(x)+";y:"+cstr(y)
思考题目:API方式
3 Write a program to Read items in a list box
思路:利用VB addin 识别对象后利用getcontent方法实现
Dim sContent 'as string
Dim MyArray ' this is a array
Dim strMsg 'as string
sContent = VbWindow("Form1").VbList("List1").GetContent()
MyArray = split( sContent ,vbLf)
For i=LBOUND(MyArray) to UBound(MyArray)
strMsg=strMsg+MyArray(i)
Next
MsgBox strMsg
思考题:利用Api方式获得