Mengektrak Seluruh Link Atau Elemen Menggunakan MSHTML - VB6

Mengenai cara mengekstrak seluruh link atau elemen yang ditentukan dalam sebuah halamn HTML menggunakan VB6 dengan bantuan ActiveX MSHTML - Adapun contoh kode untuk mengektrak seluruh link menggunakan VB6 dengan bantuan MSHTML adalah sebagai berikut:

Private Sub Command1_Click()

    Dim d As New MSHTML.HTMLDocument
    Dim l As HTMLImg
    Dim x As HTMLHtmlElement
    
    List1.Clear
    d.body.innerHTML = Text1.Text
    
    Set x = d.getElementById("IMG")
   
    For Each l In d.images
        If l.src <> "" Then
            List1.AddItem l.src
        End If
    Next
    Text1.Text = d.body.innerHTML
    
End Sub

Demikian contoh untuk mengekstrak link atau elemen yang ditentukan menggunkan VB6 dengan bantuan ActiveX MSHTML, semoga bermanfaat.