首页 > 解决方案 > 如何在查找 id 的同时等待网页

问题描述

在我的网页中,我想等待 HTMLdoc.getElementById("gen__1007") 不是什么

我怎样才能做到这一点?

执行直到 IE.Busy = False:DoEvents:循环执行直到 IE.ReadyState = 4:DoEvents:循环这些不起作用...

标签: htmlexcelvba

解决方案


Sub POPUP_CONTROL()
        Dim MSG_DIV = ""
        WEB_LOAD2.Text = ""
        TIME = 0
        Do
            Application.DoEvents()
            On Error Resume Next
            MSG_DIV = WebBrowser1.Document.GetElementById("pb-popup-message").InnerText 
            On Error GoTo 0  
            System.Windows.Forms.Application.DoEvents()
            WEB_LOAD2.Text = MSG_DIV
            If TIME >= 20 Then GoTo CIK 
        Loop While MSG_DIV = ""
        WEB_DURUM2.Text = "Loaded! " 
        Exit Sub
CIK: 
        MsgBox("NO INTERNET CONNECTION OR VERY SLOW " & vbLf & "TRY AGAIN LATER!" & vbLf, vbInformation, "ACR")

    End Sub

我写的代码哪里会出错?


推荐阅读