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 சுருக்கம்: 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.
மூலக் குறியீடு
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
அசல் கருத்துகள் (3)
வேபேக் மெஷினிலிருந்து (Wayback Machine) மீட்டெடுக்கப்பட்டது