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

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

GUI登陆程序

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

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

‘从数据池取数，根据结果判断循环，
'$include "sqautil.sbh"
Sub Main
    Dim Result As Integer
    dim dp as long
    dim dpname as string
    dim password as string
    dim x as integer
    dim a as string
    dim b as string

   StartApplication """C:\Documents and Settings\lg.REALSOCN\桌面\IDE.bat"""

   dp=sqadatapoolopen("userinfo")
   Window SetContext, "Caption=C:\WINDOWS\system32\cmd.exe", ""
   Window CloseWin, "", ""
    for x=1 to 2
    call sqadatapoolfetch(dp)
    call sqadatapoolvalue(dp,1,dpname)
    call sqadatapoolvalue(dp,1,password)

    Window SetContext, "Caption=Realso 登录", ""
    GenericObjectDblClick, "Class=MozillaWindowClass;ClassIndex=1", "Coords=174,58"
   inputkeys "{BKSP}" ----清空TEXT文本框内容
    InputKeys dpname
    GenericObject DblClick, "Class=MozillaWindowClass;ClassIndex=1","Coords=167,106"
    inputkeys "{BKSP}"
    InputKeys password
    GenericObject Click, "Class=MozillaWindowClass;ClassIndex=1", "Coords=219,185"

    result=SQAWaitForObject("\;Type=Window;Caption=RealSo 集成开发环境",8000)
     //等待时间设置8秒 Caption后的“=”前后不可以空
    result=SQAFindObject("type=Window;Caption=RealSo 集成开发环境")
     //结果对象
   ’ MSGBOX result //返回对象属性值
if result=sqasuccess then
      MSGBOX 222
      Window SetContext, "Caption=RealSo 集成开发环境", ""
     GenericObject Click, "Class=MozillaWindowClass;ClassIndex=1", "Coords=1012,10"
else
    MSGBOX 111
    Window SetContext, "Caption=[Javascrīpt Application]", ""
    GenericObject Click, "Class=MozillaWindowClass;ClassIndex=1", "Coords=152,78"
   end if
next x
End Sub

用户菜单

我的栏目

标题搜索

日历

数据统计

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

GUI登陆程序

相关阅读:

用户菜单

我的栏目

标题搜索

日历

我的存档

数据统计

RSS订阅