不要追求绝对的公平,红尘之中没有公平而言,人活一世,难得糊涂。                                           it is no use doing what you like, you have got to like what you do.

QTP连接QC的代码

上一篇 / 下一篇  2009-06-09 20:55:38 / 个人分类:自动化测试

每日随笔
  • 每日随笔:
关于QTP连接QC的代码
!t8wNVK'd051Testing软件测试网!jn{ P2?i)W;B;t T!E
我们在编写QTP脚本的时候,为了某种需求需要去连接QC,进行一些操作51Testing软件测试网VX5Csn$pqO9n

)bJ'@0U?w0{0这里是调试通过的代码。
&U;fiX cc5|@+^0这部分代码是已经封装好了的。保存成一个VBS文件就可以利用了
#m\SuB0
T2_ VN(Nb'K$B0下面就来解释下 各句的具体含义。
k-|B9h GTnmgD0
J/X~'aiP0I3l0'连接QC
4w1I1L H/mAj0
HP+E;_6[j ?0//封装成函数
(_)Z jG5M3h x/J:u0Public Function TDConnection()51Testing软件测试网5N(s u {Hv
51Testing软件测试网0\%`1h"qy&Q"c
//定义一个对象
s|3L(VB.f$}0Dim TDConnection51Testing软件测试网-DA+E We7_
51Testing软件测试网TQF*Ydc1}?$fZ9i$I$f
//创建一个连接对象

c[1sUa`([Df`0Set TDConnection = CreateObject("TDApiole80.TDConnection")
5Oa0LG F;VB2R0
u*KNF8Kx)@/x0//使用连接QC的连接对象的一个方法 参数是输入你的QC地址
)QUK4vlT|oJW0TDConnection.InitConnectionEx   "http://IP地址:host/qcbin/"51Testing软件测试网.L];t.sZ
51Testing软件测试网X_f"N7]F5Xg'\R
//使用连接对象的登录函数 输入用户名 和密码
*S9ua1~ {1g'g%o1W/[d0TDConnection.Login "用户名","密码"
#~2X&T gb0
1l!@(fM#oN;N7^E0//使用连接对象的连接方法 连接到域下的项目空间
W?c9L!znh*H0Kb0TDConnection.Connect  "域名","项目空间名称"
W9B6w/i,R.|!d6aL0
/N|!@/R o9N7~0//验证是否连接成功
7m/OF,Xe8R'F0If TDConnection.Connected Then
r0ll8wR_m'F?f0
VD%r ~MlWs:X0   MsgBox("Connected to " + chr (13) + "Server " + TDConnection.ServerName+ chr (13) +"Project " + TDConnection.ProjectName )51Testing软件测试网g%p4Q ^8NO
51Testing软件测试网TF)yIU-H^:s"e
     Else51Testing软件测试网 rK-T N @%MCG-a
MsgBox("Not Connected")51Testing软件测试网 Ak7N8{;_

LI k H$C%F(eb?,b0End If51Testing软件测试网%_5t]*A;x&?
51Testing软件测试网 Vzmw%zf-jAn

-\Pqsh0S:g051Testing软件测试网Hg.cv L w$flm
///////////////////////////////////////////////////////////////////
2^J [/~aScT)F*M#NP0Set TDConnection = CreateObject("TDApiole80.TDConnection")
${h$g#e8E?0
@ Y eV}3Ozp8T/K0这句很多人 没有写80端口就会报错:
A%L%p h+p2U051Testing软件测试网Mr+j8z*VF:O
///////////////////////////////////////////////////////////////////51Testing软件测试网0{1t0AP,v9bK O ?
51Testing软件测试网(y9FI#Bm9|4C8Ep
注意:
/Dv7lO-b8u4f+p M051Testing软件测试网#QvqN2b-q
  使用这个之前必须要先安装TDConnection插件哦51Testing软件测试网m,vNZ2R2r.Gj+y*q

+J.H_x|0  地址就是:http://IP地址:host/qcbin/这个页面上 插件**51Testing软件测试网] ]tn YMz[r
///////////////////////////////////////////////////////////////////
dfv"z"{A y0
;O jzy/Cg]/S}0
f]?{"|GK%j0

TAG: 自动化测试

 

评分:0

我来说两句

Open Toolbar