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

qc870912099

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                              
If  Browser("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:=确定").Type  micReturn   ' 这句话是我编写的有问题还是弹出对话框不能这么点击确定按钮呢？？？
                            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

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


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

1. Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("micClass:=WebEdit","index:=0").set "1"
   
2. Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("micClass:=WebEdit","index:=1").set ""
   
3. Browser("micClass:=Browser").Page("micClass:=Page").WebButton("micClass:=WebButton","type:=submit").Click                              
   
4. 
   
5.           If Browser("micClass:=Browser").Dialog("nativeclass:=#32770").Exist Then
   
6.                         msgbox "提示存在"
   
7.           Browser("micClass:=Browser").Dialog("nativeclass:=#32770").WinButton("text:=确定").Type  micReturn  
   
8.        End if  

复制代码

赵佳乐SMILE

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

qc870912099

回复 2# 赵佳乐SMILE


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

赵佳乐SMILE

回复 4# qc870912099

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

qc870912099

回复 5# 赵佳乐SMILE