vb常用函数

描述性编程，关闭浏览器，首先还是要把对象添加到对象库

window("Text:=百度一下，你就知道 - Windows Internet Explorer","index:="&i).close

2.vbs启动QQ，要用三个空格、、

option explicit  ‘告诉宿主变量必须先声明后使用
dim objshell
set objshell=CreateObject("Wscript.Shell")
objshell.run """C:Program Files (x86)TencentQQBinQQ.exe"""

3.Strcomp函数

Strcomp可比较两个字符串，并返回表示比较结果的一个值。

StrComp 函数可返回下面的值：

• -1 (如果 string1 < string2)
• 0 (如果 string1 = string2)
• 1 (如果 string1 > string2)
• Null (如果 string1 或 string2 为 Null)

语法：

StrComp(string1,string2[,compare])

4.中断测试的几种情况：

ExitAction - 退出当前操作，无论其循环属性如何。
  ExitActionIteration - 退出操作的当前循环。（注：QTP的日志中不会记录error信息）
  ExitRun / ExitTest - 退出测试，无论其循环属性如何。
  ExitGlobalIteration - 退出当前全局循环。

5.如何控制“不将测试结果记录到QTP报告中”

Reporter.Filter=0 or rfEnableAll '所有事件都记录在报告里

Reporter.Filter=1 or rfEnableErrorsAndWarnings '仅仅是警告和失败的事件记录在报告里

Reporter.Filter=2 or rfEnableErrorsOnly '仅仅是失败的事件记录在报告里。

Reporter.Filter=3 ro rfDisableAll ‘所有事件都不记录在报告里。

6.QTP如果录制不到的问题可能是IE里的加载项被禁用了

IE 工具---》internet选项--》程序--》管理加载项--》bhomanager class需要被启用

7. Dim strLogin
strLogin="123456.225"
MsgBox FormatNumber(strLogin,3)  ‘3代表保留的小数位

8.如果想把光标放在输入框的某个指定位置,可以用object.SetCaretPos方法来实现.

9.远程连接QTp

const remotemachineIp="127.3.1.4"

set qtpApp=CreateObject（“quicktest.application”,remotemachineIp）

qtp.launch

qtpapp.visible=true

qtpapp.open "C:sample",true

qtpapp.test.run

qtpapp.close

set qtpapp=nothing

10 禁止脚本出错对话框

'以下为禁用调试框

 WshShell.RegWrite _

　　"HKCUSOFTwareMicrosoftInternet ExplorerMainDisable Script Debugger",_"yes","Reg_sz"

　　Wshell.RgeWrite _ "HKCUSOFTwareMicrosoftInternet ExplorerMainDisableScriptDebuggerIE",_"yes","Reg_sz"

　　Wshell.RgeWrite _ "HKCUSOFTwareMicrosoftInternet ExplorerMainError Dlg Displayed On Every Error",_"no","Reg_SZ"

禁用安全警告--重定向弹出框

Wshell.RegWrite _ "HKCUSOFTwareMicrosoftWindowsCurrentVersionInternet SettingsWarnOnPostRedirect",_"no","Reg_SZ"

11.MercuryTimers("Time1").Start
wait 2
MercuryTimers("Time1").Stop
print MercuryTimers("Time1").ElapsedTime  '毫秒计算时间