README.md

December 5, 2022 ยท View on GitHub

Get HTML Source From a Website w\ Inet

Description

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

More Info

Submitted On
ByDemian Net
LevelAdvanced
User Rating4.7 (28 globes from 6 users)
CompatibilityVB 5.0, VB 6.0
CategoryInternet/ HTML
WorldVisual Basic
Archive File

Source 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