UFT VB脚本
分类： 自动化
2015-07-13 23:48
49人阅读
评论(0)
收藏
举报
On Error Resume Next
REM Msgbox(Err.Number)
REM Msgbox(Err.Source)
REM Msgbox(Err.Description)
REM ##############################################################################
SystemUtil.Run “C:\Program Files (x86)\Internet Explorer\iexplore.exe”,””,”%HOMEDRIVE%%HOMEPATH%”,””
Browser(“百度一下，你就知道”).Page(“百度一下，你就知道”).Sync
Browser(“百度一下，你就知道”).Navigate “http://www.baidu.com/“
Browser(“百度一下，你就知道”).Page(“百度一下，你就知道_2”).WebEdit(“wd”).Set “UFT”
REM #点击按钮前，先检查对象存在性
Browser(“百度一下，你就知道”).Page(“百度一下，你就知道_2”).WebButton(“百度一下1”).Check CheckPoint(“百度一下”)
If instr(Err.Description, “WebButton”) > 0 Then
msgbox(“按钮不存在”)
Else
Browser(“百度一下，你就知道”).Page(“百度一下，你就知道_2”).WebButton(“百度一下”).Click
End If
———
REM #等待搜索结果&点击链接
wait(1)
Browser(“百度一下，你就知道”).Page(“UFT_百度搜索#wd=UFT&rsv_spt=1&issp”).Link(“UFT/QTP11.5新特性 – TIB -“).Click
msgbox(Actionname)
REM #网页是否存在
Browser(“UFT/QTP11.5新特性 – TIB -“).Page(“UFT/QTP11.5新特性 – TIB -“).Sync
If Err.Number<>0 Then
Browser(“百度一下，你就知道”).Page(“百度一下，你就知道_2”).WebEdit(“wd”).Check CheckPoint(“查询结果Link page未打开”)
End If
Msgbox(Err.Description)
Browser(“UFT/QTP11.5新特性 – TIB -“).CloseAllTabs
Browser(“百度一下，你就知道”).Page(“UFT_百度搜索#wd=UFT&rsv_spt=1&issp”).Sync
Browser(“百度一下，你就知道”).CloseAllTabs
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
如需转载请保留出处：https://bianchenghao.cn/hz/121077.html