by ESTINC (1 Submission)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 28th January 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
The easiest way to retrieve Web page source code.
'and a Command button
'Name the Textbox "txtLink" (this is for entering the URL)
'If txtLink <> "" then get source code
Dim Source, Source1
Source1 = Inet1.OpenURL(Me.txtLink.Text)
If Source1 <> "" Then
RichTextBox1.Text = Source1
Me.Inet1.Cancel
Else
Source = MsgBox("Source code is not available.", vbInformation, "Source Code")
End If