网页中对话框识别问题，大侠帮帮忙吧，折磨好几天了

lifreshman0626

B/S结果图书管理系统网站，在录制时候，点击“借书”后，会弹出“确定借书”对话框。回放的时候，到这就会报错。
录制后的语句是Browser("网络办公系统").Dialog("Dialog").WinButton("WinButton").Click  对应下面的截图，到这句的时候就报错

图2 是添加对象时报的错

yyc2164708

试试呢？

1. ' ***************************************************************************
   
2. ' 函数名称: Dialog_Operates
   
3. ' 函数说明: 处理打开的Dialog窗口
   
4. ' 参数说明:
   
5. '           (1).strText: Dialog_Operates提示信息内容
   
6. '           (2).intButton: 点击提示信息框上按钮 : 0-确定按钮、1-取消按钮、2-关闭按钮
   
7. ' 返回结果: 无
   
8. ' 调用举例: Call Dialog_Operates ("删除成功",2)
   
9. ' **************************************************************************
   
10. Function Dialog_Operates(strText,intButton)
    
11.         Dim strText_ : strText_ = ""
    
12.         '定义一个Dialog窗体对象
    
13.         Set DialogDesc = Description.Create()
    
14.         DialogDesc("micClass").Value = "Dialog"
    
15.         '获取桌面上所有的Dialog对象
    
16.         Set DialogList = Desktop.ChildObjects(DialogDesc)
    
17.         '判断当前桌面上是否存在Dialog
    
18.         For i=0 to DialogList.count-1
    
19.                 Set objStatic= Description.Create()
    
20.                 objStatic("micClass").Value = "Static"
    
21.                 Set objList_1 = DialogList(i).ChildObjects(objStatic)
    
22.                 '获取Dialog消息内容,判断是否是需要操作的Dialog
    
23.                 strText_ = objList_1(1).GetROProperty("Text")
    
24.                 If strText_ = strText Then
    
25.                         Set objWinButton = Description.Create()
    
26.                         objWinButton("micClass").Value = "WinButton"
    
27.                         Set objList_2 = DialogList(i).ChildObjects(objWinButton)
    
28.                         Select Case intButton
    
29.                                 Case 0
    
30.                                         objList_2(0).click
    
31.                                 Case 1
    
32.                                         If objList_2.count > 1 Then
    
33.                                                 objList_2(1).click
    
34.                                 Case 2
    
35.                                         DialogList(i).close
    
36.                         End Select
    
37.                         Exit for
    
38.                 End If
    
39.         Next
    
40. End Function

复制代码

lifreshman0626

回复 2# yyc2164708


    运行到这的时候：
        '获取桌面上所有的Dialog对象

        Set DialogList = Desktop.ChildObjects(DialogDesc)”

提示缺少Desktop对象，我的截图的那个网页弹出的对话框属于dialog吗？？？

yyc2164708

回复 3# lifreshman0626

如果可以的话，把你的代码发至我的邮箱，我可以帮你看下哦
邮箱：Yan_yongcheng@163.com

kimiraphael

其实简单点的话就是录制一个敲击回车的动作