软件测试工具QTP连接QC的代码

软件测试工具QTP连接QC的代码  软件测试工具

关于QTP连接QC的代码
我们在编写QTP脚本的时候，为了某种需求需要去连接QC，进行一些操作
这里是调试通过的代码。
这部分代码是已经封装好了的。保存成一个VBS文件就可以利用了
下面就来解释下 各句的具体含义。
'连接QC
//封装成函数
Public Function TDConnection()
//定义一个对象
Dim TDConnection
//创建一个连接对象
Set TDConnection = CreateObject("TDApiole80.TDConnection")
//使用连接QC的连接对象的一个方法 参数是输入你的QC地址
TDConnection.InitConnectionEx   "http://IP地址:host/qcbin/"

//使用连接对象的登录函数 输入用户名 和密码
TDConnection.Login "用户名","密码"

//使用连接对象的连接方法 连接到域下的项目空间
TDConnection.Connect  "域名","项目空间名称"

//验证是否连接成功
If TDConnection.Connected Then

   MsgBox("Connected to " + chr (13) + "Server " + TDConnection.ServerName+ chr (13) +"Project " + TDConnection.ProjectName )

Else
MsgBox("Not Connected")
End If

Set TDConnection = CreateObject("TDApiole80.TDConnection")

这句很多人 没有写80端口就会报错：

原文转自：http://www.ltesting.net