空间管理您的位置: 51Testing软件测试网 » 子木清风 » 日志

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

测试CQ 登陆

上一篇 / 下一篇 2007-02-10 14:56:07 / 个人分类：Robot技术

查看( 1044 ) / 评论( 0 ) / 评分( 0 / 0 )

'$include "sqautil.sbh"
Sub Main
    Dim Result As Integer
    dim x as integer
    dim dp as long
    dim dpname as string
    dim password as string

    StartApplication """D:\Program Files\Rational\ClearQuest\clearquest.exe"""
    dp = sqadatapoolopen("test-cq")
    for x=1 to 2
    call sqadatapoolfetch(dp)
    call sqadatapoolvalue(dp,1,dpname)
    call sqadatapoolvalue(dp,2,password)
    call sqadatapoolvalue(dp,3,cctype)
    Window SetContext, "Caption=Rational ClearQuest Login", ""
    EditBox DblClick, "Label=User Name", "Coords=10,6"
    msgbox dpname
    InputKeys dpname
    EditBox DblClick, "Label=Password", "Coords=5,10"
    msgbox password
    InputKeys password
    ComboBox Click, "Label=Database", "Coords=153,12"
    ComboListBox Click, "Label=Database", "Text=RSDF : "
    PushButton Click, "Text=OK"

   result=SQAWaitForObject("\;Type=Window;Caption=Warning - Invalid Login",8000)
   MSGBOX result
   //x=1返回0 x=2 返回1016 --1016是指在指定的时间内没有找到对象
   result=SQAFindObject("\;Type=Window;Caption=Warning - Invalid Login")
   msgbox result
   //x=1返回0 x=2 返回1003
     if result=sqasuccess then
      msgbox "fail"
        Window SetContext, "Caption=Warning - Invalid Login", ""
        PushButton Click, "Text=OK"
     else
        msgbox "ok"
        Window SetContext, "Caption=Rational ClearQuest - RSDF :", ""
        Window CloseWin, "", ""
    end if
    next x
End Sub

有待完善..............

用户菜单

我的栏目

标题搜索

日历

数据统计

访问量: 306790
日志数: 261
图片数: 5
文件数: 20
书签数: 5
建立时间: 2006-12-06
更新时间: 2011-08-31

测试CQ 登陆

相关阅读:

用户菜单

我的栏目

标题搜索

日历

我的存档

数据统计

RSS订阅