Jedan od nacina:
U VB otvoris novi projekat, pa ides na Project->Components....
i tamo dodas:
Microsoft Internet Controls (shdocvw.dll)
Na formu postavis 2 textbox-a (jedan manji za unos URL i drugi veci za ispis rezulatata, u kojem podesis MultiLine=True ako postoji vise meta tagova da svaki stavi u novi red) i 2 CommandButton-a
Code:
Private Sub Command1_Click()
'Taster za parsiranje
Dim Tekst As String
Tekst = wWeb.Document.documentelement.innerhtml
'u text1.text upisije rezultat
Text1.Text = Trazi_Meta(LCase(Tekst))
End Sub
Private Sub Command2_Click()
'Taster ucitavanje stranice na adresi text2.text
wWeb.Navigate Text2.Text
End Sub
Private Sub Form_Load()
wWeb.Navigate "http://www.google.com"
End Sub
Function Trazi_Meta(t As String) As String
Dim Pocetak As Integer
Dim Kraj As Integer
Dim i As Integer
Dim s As String
i = 1
Do
Pocetak = InStr(i, t, "<meta ")
If Pocetak > 0 Then
Kraj = InStr(Pocetak, t, ">")
s = s & Mid(t, Pocetak, Kraj - Pocetak + 1) & Chr(13) & Chr(10)
End If
i = Kraj
Loop While Pocetak > 0
Trazi_Meta = s
End Function
Evo i gotov projekat
Ne znam da li ima veze ali ja koristim Windows XP, IE6(samo u ovom slucajuju) i VB 5.0 pa mozda tebi nece raditi kako treba.