|
配置脚本既通过将操作有效的函数华,通过简单的描述来达到编写脚本的效果。
基于自己的脚本引擎技术去实现脚本配置已经实现,基于QTP去实现脚本配置技术我还在探索,与大家共勉。
例如:
【编写脚本层】
打开 http://www.sina.com.cn
输入 用户名,admin,登录页面
输入 密码,123456,登录页面
按钮 确定,登录页面
【生成脚本层】
SystemUtil.Run "http://www.sian.com.cn"
WebElementCheck "用户名:","admin","title:=登录页面","name:=登录页面"
qWebEditClick "用户名:","123456","title:=登录页面","name:=登录页面"
qButtonClick "确定","name:=登录页面"
【底层函数库】
'*************************************************************************
'* 模板名称: AUTO
'* 开发日期: 2009-10-9
'* 最后修改日期: 2009-10-9
'* 输入参数:
'* 输出参数:
'* 脚本描述: 文本检查点
'*************************************************************************
Sub WebElementCheck(Bntext,Dtime,pageName,BrowserName)
For i=0 to Dtime
bd = Browser(BrowserName).Page(pageName).Object.body.innerHTML
If InStr(bd, Bntext) > 0 Then
Reporter.ReportEvent micPass, "检查点:" & Bntext, "Pass"
Exit sub
Else
wait(1)
End If
next
Reporter.ReportEvent micFail, "检查点:" & Bntext, "Fail"
End Sub
'*************************************************************************
'* 模板名称: AUTO
'* 开发日期: 2009-10-9
'* 最后修改日期: 2006-10-9
'* 输入参数:
'* 输出参数:
'* 脚本描述: 按钮单击
'*************************************************************************
Sub qButtonClick(BnText,pageName,BrowserName,i)
Browser(BrowserName).Page(pageName).WebButton("value:=" & BnText,"index:=" & i).click
End sub
'*************************************************************************
'* 模板名称: AUTO
'* 开发日期: 2009-10-9
'* 最后修改日期: 2009-10-9
'* 输入参数:
'* 输出参数:
'* 脚本描述: 弹出框单击
'*************************************************************************
Sub qDialogClick(BnText,BrowserName)
Browser(BrowserName).Dialog("text:=Windows Internet Explorer","nativeclass:=#32770").WinButton("text:=" & BnText).Click
End Sub |
|