51Testing软件测试论坛

标题: 关于登录验证的脚本 [打印本页]

作者: zhenqi 时间: 2007-5-16 16:14
标题: 关于登录验证的脚本
请哪位高手帮我看一下这段代码，哪里写的有问题，在运行的日志里显示“Unexpected Active Window”的警告，我逐行调试，是“ window setcontext, "caption=提示","" ”出的问题，请问该怎样修改呢？
'$include "sqautil.sbh"
Sub Main
Dim Result As Integer
dim x as integer
dim strid as string
dim strpsw as string
dim dp as long

'Initially Recorded: 2007-5-16  10:56:15
'Script Name: 登录

StartApplication "xx.exe"
dp=SQADatapoolOpen("登录")
for x=1 to 4
Call SQADatapoolFetch(dp)
Call SQADatapoolValue(dp,1,strid)
Call SQADatapoolValue(dp,2,strpsw)

Window SetContext, "Type=Form;Name=LoginFrm", ""
EditBox DblClick, "Type=EditBox;Name=txt_userid;State=Hidden", "Coords=54,9"
InputKeys strid
EditBox DblClick, "Type=EditBox;Name=txt_psw;State=Hidden", "Coords=55,7"
InputKeys strpsw &"{ENTER}"
window setcontext, "caption=提示",""
Result = WindowVP (Exists, "caption=提示", "VP=Window Existence;wait=2,3;expectedresult=fail")
if result=0 then
inputkeys "{enter}"
end if
if result=1 then
Window SetContext, "Type=Form;Name=MDIMain", ""
end if

next
call sqadatapoolclose(dp)
Window CloseWin, "", ""

End Sub

[ 本帖最后由 zhenqi 于 2007-5-16 16:16 编辑 ]

作者: zhenqi 时间: 2007-5-16 17:39
怎么没人回答呀，好失望sdlkfj7

作者: ilovejolly 时间: 2007-5-17 11:53
脚本是写的还是录的,有没有改过

看起来是根据这段代码"caption=提示","" 找不到窗体,所以window setcontext执行不了

作者: zhenqi 时间: 2007-5-17 16:11
脚本是录制后改过的，警告提示就是“caption=提示”行代码出错

作者: ilovejolly 时间: 2007-5-17 17:48
你先获取"caption=提示","" 这个窗体的属性(用鼠标直接点一下看看脚本),把出错的那句换成
Window SetContext, "Type=Form;Name=LoginFrm", ""这样的格式

作者: irene0331223 时间: 2007-8-10 17:13
请教：
看你的脚本一定实用了数据池，请教能不能给个创建Datapool的具体实例。
最好是能以你上面的例子为准

作者: WillTerner 时间: 2007-8-11 07:58
早上试了一下，在ViewLog中报“Unexpected Active Window”的警告是由于robot在执行到该语句  window setcontext, "caption=提示",""  时，有其他的窗口跳出来挡住了“caption=提示”的那个窗口，所以当前活动窗口就不再是“caption=提示”的那个窗口了，在robot7.0中会点掉跳出的窗口以后继续执行后面的语句，我觉得为了防止有不可预见的窗口在语句执行过程中跳出挡住需要设置窗口焦点的活动窗口，可以在window setcontext之前，自己写段脚本去判断当前窗口是不是需要去执行操作的窗口，如果不是，就最小化或者关闭，比方说：

Dim x As Integer
Dim tempCaption As String
x=1

Do
      Window SetContext, "CurrentWindow",""
      Result = SQAGetPropertyAsString("CurrentWindow","Caption",tempCaption)
      If Result = SQASuccess Then
         If InStr(tempCaption,"提示") = 0 Then
'             Window WMinimize,"",""
            Window CloseWin,"",""
            InputKeys "%{Tab}"
            x=x+1
         Else
            Exit Do
         End If
      Else
         SQAConsoleWrite "Window caption not found"
         InputKeys "%{Tab}"
         x=x+1
      End If
Loop While x=5

x是循环查找窗口的次数，当然也可以不设置循环次数，那就不断循环直到找到所需要点的那个窗口。

就是比较

[ 本帖最后由 WillTerner 于 2007-8-11 08:07 编辑 ]

作者: caesarqth 时间: 2007-8-11 23:06
在选择窗口之前加入
window resettestcontext, "", ""
将所有窗体至于最前端
之后通过window setcontext指定要选择的对象

尝试一下，应该有用把

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)