qc870912099 发表于 2013-3-7 11:18:24

又遇到问题了呀T.T，我在弹出的对话框不知到为什么点击不了确定按钮

本帖最后由 qc870912099 于 2013-3-7 11:38 编辑

SystemUtil.Run "http://mail.163.com/"
Dim i
Dim n
Dim outputvalue
Dim expectvalue
For i=1 to datatable.GetSheet("Action1").getrowcount
n=DataTable("D",dtLocalSheet)   
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("micClass:=WebEdit","index:=0").set DataTable("A",dtLocalSheet)
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("micClass:=WebEdit","index:=1").set DataTable("B",dtLocalSheet)
Browser("micClass:=Browser").Page("micClass:=Page").WebButton("micClass:=WebButton","type:=submit").Click                              
IfBrowser("micClass:=Browser").Page("micClass:=Page").WebEdit("micClass:=WebEdit","name:=username").Exist Then
        If Browser("micClass:=Browser").Dialog("micClass:=Page","text:=Microsoft Internet Explorer").WinButton("text:=确定").Exist Then
      Browser("micClass:=Browser").Dialog("micClass:=Page","text:=Microsoft Internet Explorer").WinButton("text:=确定").TypemicReturn   ' 这句话是我编写的有问题还是弹出对话框不能这么点击确定按钮呢？？？
                          End if         
        outputvalue=Browser("micClass:=Browser").Page("micClass:=Page").WebElement("html id:=form_info").GetROProperty("outertext")
        expectvalue=DataTable("expectvalue",dtLocalSheet)
        If outputvalue<>expectvalue Then
      reporter.ReportEvent 1,"登录功能提示测试","预期输出值为："+expectvalue+"实际输出值为："+outputvalue
        else reporter.ReportEvent 0,"登录功能提示测试","预期输出值为："+expectvalue+"实际输出值为："+outputvalue
        End If
else reporter.ReportEvent 0,"登录功能测试","第"+n+"次测试"
End If
datatable.GetSheet("Action1").setnextrow
Next

当只输入账号不输入密码是，该网页会弹出一个对话框，但是我为什么不能点击其确定按钮呢？

赵佳乐SMILE 发表于 2013-3-7 12:56:07

你的问题主要出在 对dialog的处理上
使用Browser("micClass:=Browser").Dialog("nativeclass:=#32770") 代替


http://blog.csdn.net/xhhuang1618/article/details/5663160

Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("micClass:=WebEdit","index:=0").set "1"
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("micClass:=WebEdit","index:=1").set ""
Browser("micClass:=Browser").Page("micClass:=Page").WebButton("micClass:=WebButton","type:=submit").Click                              

          If Browser("micClass:=Browser").Dialog("nativeclass:=#32770").Exist Then
                        msgbox "提示存在"
          Browser("micClass:=Browser").Dialog("nativeclass:=#32770").WinButton("text:=确定").TypemicReturn
       End if

赵佳乐SMILE 发表于 2013-3-7 13:18:16

还有 你在dialog 外面的IF 判断username 是否存在 我也不解。。

qc870912099 发表于 2013-3-7 13:32:46

回复 2# 赵佳乐SMILE


    ok！！我刚刚也发现了这个问题！！谢谢哈！！~~~~已经修改好了:loveliness:

赵佳乐SMILE 发表于 2013-3-7 13:35:55

回复 4# qc870912099

客气 我也学习了 因为我也不会。。

qc870912099 发表于 2013-3-7 17:25:42

回复 5# 赵佳乐SMILE


    :handshake
页: [1]
查看完整版本: 又遇到问题了呀T.T，我在弹出的对话框不知到为什么点击不了确定按钮