VBA如何确定网页弹窗

zopey

‘调用
Set ie2 = FindWin("http:/********.htm")

‘模块中插入函数

Function FindWin(ByVal strRef As String) As Object
    '找寻已打开的、以strRef为开头网址的网页
    Dim objWin As Object
    For Each objWin In CreateObject("Shell.Application").Windows
        Do While objWin.ReadyState <> 4 Or objWin.Busy
            DoEvents
        Loop
        If LCase(TypeName(objWin.document)) = "htmldocument" Then
            If objWin.locationurl Like strRef & "*" Then
                Set FindWin = objWin
                Exit For
            End If
        End If
    Next
    Set objWin = Nothing
End Function

1292091020

zopey 发表于 2018-7-9 16:58
‘调用
Set ie2 = FindWin("http:/********.htm")

老师好！
您可以直接在我的代码里添加吗？

haofeng4645

IE.document.parentWindow.execScript "window.confirm=function (){return true;}", "javascript"  '在跳出的页面控件点确定
IE.document.getElementById("submit").Click

我进不了你的内网。你在跳出弹窗那里加入这两句代码

dysvip

楼主解决没，同样问题，求教