怎样判断IE打开的是那个系统

suifengpiao

SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\Administrator","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate DataTable("ip", dtGlobalSheet)
If Browser("Browser").Page("XXXXXXX").WebButton("登录").Exist(1) Then
       
        Browser("Browser").Page("XXXXXXX").WebEdit("j_username").Set DataTable("user", dtGlobalSheet)
        Browser("Browser").Page("XXXXXXX").WebEdit("j_password").Set DataTable("password", dtGlobalSheet)
        Browser("Browser").Page("XXXXXXX").WebButton("登录").Click
                reporter.ReportEvent 0,"登录成功","successed"
        Browser("Browser").Page("XXXXXXX_2").Sync
                Browser("Browser").Page("XXXXXXX_2").Image("midd_bt1").Check CheckPoint("midd_bt1")
                Browser("Browser").Page("XXXXXXX_2").Image("midd_bt1").Click
                Browser("Browser").Page("XXXXXXX").Sync
        Browser("Browser").Close
elseif Browser("Browser").Page("找不到服务器").Exist(1) then
   reporter.ReportEvent 0,"IE地址不对","failture"
   Browser("Browser").Close
else
   reporter.ReportEvent 0,"打开的非XXXXXXX系统","failtrue"
   Browser("Browser").Close
End If
参数在附件的图片上
前面两行参数运行正常，第三行参数运行不正常，本应该运行else里的内容，不知道怎么运行了if里的内容导致无法输入user的错误

walker1020

感觉你的代码少了 End If。你的代码有一个If 和一个elseif ，但为何只有一个 End If？ 在最后一个 End If的后面增加一行 End If 后 试试看。

xiaonan

找个没任何button的页面测试看看

suifengpiao

两位版主的方法我都试了一下
（1）添加了end if 后运行出现语法错误
（2）把www.baidu.com换成www.51testing.com后运行是可以了，但是结果是错误的，它走的是elseif分支不是else分支且判断等待的时间很长
"登录"- Description mismatch ，The object was not found using the test object description. Check the object's properties这是结果里的警告信息

xiaonan

那是因为你判断的是登录这个按纽是否存在的缘故,当你打开51testing页面后,由于QTP会去一直匹配这个登录对象,直到超时等待时间,然后报没有找到的对象的错.判断一下上一层page对象是否存在就可以了

[ 本帖最后由 xiaonan 于 2007-2-26 11:29 编辑 ]

denisye

是你等待时间不够长吧
在Browser("Browser").Navigate DataTable("ip", dtGlobalSheet)这句后面加wait 3试一下
估计是你的Browser还没打开，你的判断是一秒超时导致判断不正确吧

suifengpiao

xiaonan说得对，我看了一下keywordview发现那个if和elseif，else不在同一层，改为判断窗体，但是又有了新问题用title这个属性无法判断是那个窗体（窗体的名称是不一样的），直接走if，不知道是不是我的qtp装得有问题