Get HTML Source From a Website w Inet

---

Just like it says: Get HTML Source From a Website!

Original Author: Demian Net

Code

'Load Richtx32.ocx
'Load msinet.ocx
'Make a RichTextBox1
'Make an Inet1
'Make a plain textbox names URL
'Make a command1

Private Sub Command1_Click()
On Error Resume Next
  
   Dim txt As String
   Dim b() As Byte
  
   Command1.Enabled = False
  
   b() = Inet1.OpenURL(URL.Text, 1)
  
   txt = ""
  
   For t = 0 To UBound(b) - 1
     txt = txt + Chr(b(t))
   Next
  
   RichTextBox1.Text = txt
   Command1.Enabled = True

Exit Sub
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 107 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.