此脚本是一个打开百度并登录,最后判断登录是否成功。运用的知识有,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