Read Webpages with Inet (shows all of the source)
This code uses the MSInet.ocx control to read webpages. Since Inet has a bug with it's OpenURL function, it uses the GetChunk method instead.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Screen.MousePointer = 11
Dim ReturnStr As String
RichTextBox1.Text = Inet1.OpenURL("http://www.planet-source-code.com", icString)
ReturnStr = Inet1.GetChunk(2048, icString)
Do While Len(ReturnStr) <> 0
DoEvents
RichTextBox1.Text = RichTextBox1.Text & ReturnStr
ReturnStr = Inet1.GetChunk(2048, icString)
Loop
Screen.MousePointer = 0
Upload
Original Comments (3)
Recovered from Wayback Machine