• Home
 · 
• Internet/HTML
 · 
• Read Webpages with Inet (shows all of the source)

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.

Assumes
Requirements: Richtextbox.ocx, MSInet.ocx

Returns
The code returns all of the webpage's source.

Rate Read Webpages with Inet (shows all of the source)

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

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