|
那你实在太杯具了,不过不根本不相信没有用,web那点事很简单- Public Function ClickDialogWithoutJudge
- Set DialogObject = Description.Create()
- DialogObject("micclass").Value = "Dialog"
- Set WindowsDialog = Desktop.ChildObjects(DialogObject)
- For inx = 0 to WindowsDialog.Count - 1
- diaName = WindowsDialog(inx).GetROProperty("text")
- If InStr(diaName,"下载") <= 0 And InStr(diaName,"安装") <= 0 And InStr(diaName,"存为") <= 0 And InStr(diaName,"新邮件通知") <= 0 Then
- Set WinButtonObject = Description.Create()
- WinButtonObject("micclass").Value = "WinButton"
- Set WindowsButton = WindowsDialog(inx).ChildObjects(WinButtonObject)
- WindowsButton(0).Click
- Set WindowsButton = Nothing
- Set WinButtonObject = Nothing
- End If
- Next
- Set WindowsDialog = Nothing
- Set DialogObject = Nothing
- End Function
复制代码 |
|