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)\Tencent\QQ\Bin\QQ.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 _
"HKCU\SOFTware\Microsoft\Internet Explorer\Main\Disable Script Debugger",_"yes","Reg_sz"
Wshell.RgeWrite _ "HKCU\SOFTware\Microsoft\Internet Explorer\Main\DisableScriptDebuggerIE",_"yes","Reg_sz"
Wshell.RgeWrite _ "HKCU\SOFTware\Microsoft\Internet Explorer\Main\Error Dlg Displayed On Every Error",_"no","Reg_SZ"
禁用安全警告--重定向弹出框
Wshell.RegWrite _ "HKCU\SOFTware\Microsoft\Windows\CurrentVersion\Internet Settings\WarnOnPostRedirect",_"no","Reg_SZ"
11.MercuryTimers("Time1").Start
wait 2
MercuryTimers("Time1").Stop
print MercuryTimers("Time1").ElapsedTime '毫秒计算时间
