VB6 Code - Mendapatkan Source Html Dari URLTertentu

Di bawah ini merupakan fungsi VB6 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 VB6 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.