不要追求绝对的公平,红尘之中没有公平而言,人活一世,难得糊涂。
it is no use doing what you like, you have got to like what you do.
测试CQ 登陆
上一篇 /
下一篇 2007-02-10 14:56:07
/ 个人分类:Robot技术
'$include "sqautil.sbh"51Testing软件测试网"X?NA2[%tH%O9u
Sub Main51Testing软件测试网5en/Q+S%]'?2^
Dim Result As Integer51Testing软件测试网 tmS5t.BQ
dim x as integer
7u"t}U6kCA5l`h[0 dim dp as long51Testing软件测试网j8sNjp@ ?
dim dpname as string51Testing软件测试网[/Ypj CoC
dim password as string
^-B4?r"v051Testing软件测试网PG2C7W8@6^8V_p Y
StartApplication """D:\Program Files\Rational\ClearQuest\clearquest.exe"""
9Uwz`1W?3Yg0 dp = sqadatapoolopen("test-cq")51Testing软件测试网S.Hn5xFa6X
for x=1 to 2
Xs
r+?2m0 call sqadatapoolfetch(dp)