軟件測試工具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.anti-gravitydesign.com