UFT VB脚本（更新中）

On Error Resume Next
REM Msgbox(Err.Number)
REM Msgbox(Err.Source)
REM Msgbox(Err.Description)

REM ##############################################################################
SystemUtil.Run "C:Program Files (x86)Internet Exploreriexplore.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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!