QTP多action，vb类的使用

此脚本是一个打开百度并登录，最后判断登录是否成功。运用的知识有，vbclass，多action。此脚本只是个人的一些思路而已：有三个脚本，一个类，类用来操作公共数据，我这里用来存borwser和page的title,actio_init初始化数据（打开百度弹出数据）,action主脚本（输入用户名和密码）,action_end最后的脚本，关闭窗口，输出验证报表。

下面是类：

 

Class bParameters
	'get set 方法
	Private s_brower_title
	Private s_page_title
	
	'--------------get
	Public Property Get browserTitle
		browserTitle = s_brower_title
	End Property
	
	Public Property Get pageTitle
		pageTitle = s_page_title
	End Property
	
	 'set-------------
	Public Property Let browserTitle(newBrowserTitle)
	s_brower_title = newBrowserTitle
	End Property
	
	Public Property Let pageTitle(newPage)
		s_page_title = newPage
	End Property
End Class
// 因为在qtp中无法识别类，下面这样写，在qtp中这样调用set param = newbParamters就可以了
Function newParameters
	Set newParameters = new bParameters
End Function

 主action：

 

 

Action_init

SystemUtil.Run "www.baidu.com"

b = Browser("micClass:=Browser").GetROProperty("title")
p =  Browser("micClass:=Browser").Page("micClass:=Page").GetROProperty("title")
Set param = newParameters
param.browserTitle = b
param.pageTitle = p
Browser(param.browserTitle).Page(param.pageTitle).Link("登录").Click: Wait 2

 Action_end

b = Browser("micClass:=Browser").GetROProperty("title")
p =  Browser("micClass:=Browser").Page("micClass:=Page").GetROProperty("title")
Set param = newParameters
param.browserTitle = b
param.pageTitle = p
Dim oExis
oExist=Browser(param.browserTitle).Page("百度一下，你就知道_2").Link("退出").Exist
Browser(param.browserTitle).CloseAllTabs
If oExist Then
	Reporter.ReportEvent micPass,"step","passed"
	else
	Reporter.ReportEvent micFail,"step","failed"
End If