Search Tools Links Login

Get HTML Source From a Website w Inet

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

Original Author: Demian Net


'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))
   RichTextBox1.Text = txt
   Command1.Enabled = True

Exit Sub
End Sub

About this post

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


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.