Fungsi Untuk Mendapatkan Source HTML dari URL Tertentu

Di bawah ini merupakan fungsi untuk mendapatkan source code HTML dari URL tertentu.

Option Explicit 
 
Function GetSource(ByVal URL As String) As String 
 
    MousePointer = vbHourglass 
 
    Dim Data() As Byte 
    Dim sText As String 
    Dim i As Long 
 
    Data() = Inet1.OpenURL(URL) 
 
    sText = Data() 
    GetSource = sText 
 
    MousePointer = vbDefault 
   
End Function 

Cara penggunaan fungsi di atas:

Private Sub Command1_Click() 
    Dim sUrl As String 
    sUrl = Text1.Text 
    Text2.Text = GetSource(sUrl) 
End Sub 

Untuk tujuan tertentu, maka dengan sedikit modifikasi tentu saja Anda dapat menyimpannya ke dalam hardisk Anda.