Цель -- заменить невидимый WebBrowser для скачки и анализа страниц в HTTP-боте набором из Качалки и этого кода.
- Код: Выделить всё
Option Explicit
Sub Main()
Dim Document As HTMLDocument
Set Document = New HTMLDocument
LoadHTML Document, "<a id='foo' href='omg'>bar</a>"
While Document.readyState <> "complete": DoEvents: Wend
MsgBox Document.links("foo").innerHTML
End Sub
Private Sub LoadHTML(ByVal oPS As IPersistStreamInit, ByVal Data As String)
Dim oStream As IStream
' Create a stream on globlal memory
Set oStream = CreateStreamOnHGlobal(0, True)
' Write the string in the stream
Data = ChrW(&HFEFF) & Data
oStream.Write ByVal StrPtr(Data), LenB(Data)
' Move the stream pointer to the start of the stream
oStream.Seek 0, 0
' Load the HTML
oPS.Load oStream
End Sub
Желающие могут вместо LoadHTML использовать document.write
