关于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端口就会报错：
文章来源于领测软件测试网 https://www.ltesting.net/
