خطأ ويبروزر في بي 6 لا يمكن الحصول على خاصية أوترتمل

Question

لقد تم إنشاء البرنامج القديم من قبل ف 6 وكان يعمل بشكل جيد, أنا باستخدام التحكم في متصفح الويب لتحميل صفحة ويب ، ثم الحصول على هتمل داخل سلسلة ، تلقيت مؤخرا رسالة الخطأ أدناه عندما حاولت تحميل رمز هتمل إلى متغير سلسلة ، فإنه يحدث مع صفحات كبيرة فقط.

رمز بلدي على النحو التالي

Dim html As String
Private Sub GetHtm_Click()
   WebBrowser1.Navigate (webVar)
   Do
        DoEvents
    Loop Until Not WebBrowser1.Busy
    html = WebBrowser1.Document.documentElement.outerHTML
End Sub

Answer 1

WebBrowser1.Document.documentElement.outerHTML يعمل فقط في DocumentComplete الأحداث.

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub