在修改"登陆页面"的测试脚本时出现的一些问题,请高手指点迷津!

floatingleaf

'$Include "sqautil.sbh"
Sub Main
    Dim Result As Integer
    dim x as integer
    dim user as string
    dim psw as string
    dim dp as long

    'Initially Recorded: 2005-06-28  17:36:27
    'Script Name: login
    StartApplication """C:\Program Files\Internet Explorer\IEXPLORE.EXE"""
    Window SetContext, "Caption=百度——全球最大中文搜索引擎- Microsoft Internet Explorer", ""
    ComboEditBox Click, "ObjectIndex=2", "Coords=63,8"
    InputKeys "http://sxapp.seekcall.com/client{ENTER}"
    Browser NewPage,"HTMLTitle=商务视窗帐号验证中心",""
    dp=SQADatapoolOpen("dp_login")
    for x=1 to 4
    Call SQADatapoolFetch(dp)
    Call SQADatapoolValue(dp,1,user)
    Call SQADatapoolValue(dp,2,psw)
   
    EditBox Click, "Name=loginName", "Coords=19,8"
    InputKeys user
    EditBox Click, "Name=password", "Coords=57,2"
    InputKeys psw
    PushButton Click, "Name=提交"
   
    if user=null  then
   
        Window SetContext, "Caption=Microsoft Internet Explorer", ""
        PushButton Click, "Text=确定"
        Window SetContext, "Caption=商务视窗帐号验证中心 - Microsoft Internet Explorer", ""
        PushButton Click, "Name=重置"
   
     Elseif psw=null then
   
         Window SetContext, "Caption=Microsoft Internet Explorer", ""
         PushButton Click, "Text=确定"
   
        Window SetContext,"Caption=商务视窗帐号验证中心 - Microsoft Internet Explorer", ""

        PushButton Click, "Name=重置"
    else  
    next
    Call SQADatapoolClose(dp)
    end if
   
    Window SetContext, "Caption=http://sxapp.seekcall.com - 集成商务系统－crosoft Internet Explorer", ""
    Browser NewPage,"HTMLTitle=集成商务系统",""
    HTMLLink Click, "HTMLText=退出", ""

End Sub

司空公子

你有什么问题提出来呢，光给个脚本有什么用

floatingleaf

在登陆验证时点击“确定”按钮后有三种情况，一：当用户名和密码有一个为空时，弹出一个对话框，提示不能为空；二：当用户名和密码不对应时，在页面上有一行红色的字，提示用户名、密码错误；三：验证通过时，进入系统。怎么判断点击“确定”按钮后是哪种情况？用SQAWaitForPropertyValue（）行吗？若可以该如何编写。请版主帮忙指点一下！谢谢！