连接QC/取消连接QC
来源:互联网 发布:ubuntu 16.04安装分区 编辑:程序博客网 时间:2024/05/18 00:54
'Connect to QC
'sURL: QC link
'sDomin: Domain
'sProject:Project
'sUser:UserName
'sPwd:Password
Function ConnectQC(sURL, sDomin, sProject, sUser, sPwd)
ConnectQC = 0
Set tdQC = CreateObject("TDApiOle80.TDConnection.1")
On Error Resume Next
tdQC.InitConnectionEx sURL
If ERR.Number <> 0 Then
ConnectQC = -1
Exit Function
End If
On Error GoTo 0
On Error Resume Next
tdQC.Login sUser, sPwd
If ERR.Number <> 0 Then
ConnectQC = -1
Exit Function
End If
On Error GoTo 0
On Error Resume Next
tdQC.Connect sDomin, sProject
If ERR.Number <> 0 Then
ConnectQC = -1
Exit Function
End If
On Error GoTo 0
End Function
'Disconnect QC
Function DisconnectQC()
tdQC.ReleaseConnection
End Function
- 连接QC/取消连接QC
- QTP 与QC的连接
- 安装qc后配置连接DB2
- QTP连接QC时,通过QCUtil对象获取QC中的Test信息
- QTP与QC连接步骤以及遇到的问题
- 【转】QC与QTP自动化测试连接、自动化测试环境搭建
- QC安装
- QC是什么
- QC安装
- QC+ie8
- QC笔记
- qc用户组
- qtp qc
- qc知识点
- QC用户
- QC地址
- qc导入
- QC 教程
- poj3080之KMP入门
- 微软Silverlight 5开发书籍汇总
- 我拿树莓派来做什么
- 韩顺平java视频学习记录
- poj 1850 Code
- 连接QC/取消连接QC
- 安装ubuntu12.04LTS卡住以及花屏问题
- View Controller Programming Guide for iOS--(一)
- Shell小技巧
- View Controller Programming Guide for iOS--(二)
- 约瑟夫问题
- nyist-34
- 树莓派搭建 Google TV
- eclipse3.6配置tomcat6.0