没有合适的资源?快使用搜索试试~ 我知道了~
QTP 的一个例子(刚刚学)
需积分: 3 103 下载量 29 浏览量
2007-10-23
15:02:14
上传
评论
收藏 2KB TXT 举报
温馨提示
试读
3页
QTP 的一个例子(刚刚学)<br>使用QTP的DEMO<br>作验证以及日志的输出
资源推荐
资源详情
资源评论
Main
'************************************************************************ Main Run TestLogic
Sub Main
' If No Found Dialog,Please Record MainDialog
Set dlg = Dialog("Login")
' Init Dialog Over
dlg.Activate()
Set txtDesc = Description.Create()
txtDesc("nativeclass").Value = "Edit"
Set txtList = dlg.ChildObjects(TxtDesc)
txtListCount = txtList.Count
Dim txtObj
For i = 0 To txtListCount - 1
log "*******************************"
Set txtObj = txtList(i)
log "Text:" & txtObj.GetRoProperty("attached text")
txtObj.Set ""
txtObj.Type DataTable("A")
log "Txt Input:" & TxtObj.GetRoProperty("Text")
'check text verify Logic
clickButton dlg,"OK"
scMsgbox(dlg)
Next
End Sub
'************************************************************************ scMsgBox
'************************************************************************ Main Run TestLogic
Sub Main
' If No Found Dialog,Please Record MainDialog
Set dlg = Dialog("Login")
' Init Dialog Over
dlg.Activate()
Set txtDesc = Description.Create()
txtDesc("nativeclass").Value = "Edit"
Set txtList = dlg.ChildObjects(TxtDesc)
txtListCount = txtList.Count
Dim txtObj
For i = 0 To txtListCount - 1
log "*******************************"
Set txtObj = txtList(i)
log "Text:" & txtObj.GetRoProperty("attached text")
txtObj.Set ""
txtObj.Type DataTable("A")
log "Txt Input:" & TxtObj.GetRoProperty("Text")
'check text verify Logic
clickButton dlg,"OK"
scMsgbox(dlg)
Next
End Sub
'************************************************************************ scMsgBox
资源评论
zdtools
- 粉丝: 0
- 资源: 6
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功