✔ Titel anzeigen lassen (Webbrowser - vb 6.0)

[fm-g1]

Soooo habe gerade erst mit dem Programmeiren angefangen.. wollte mir ein kleines Programm programmieren was unteranderem Linknames anzeigt die von ner seite stammen..
..

also es soll einfach der Titel (fängt mit <title> an und endet mit </title>)
ausgegeben werden..
bis jetzt funktioniert alles wunderbar.. hier mal der source

Private Sub Command1_Click()
Dim pos1 As Integer
Dim suchzeichen As String
Dim ausschnitt As String



Sleep (0.1)
suchzeichen = "</TITLE>"
pos1 = InStr(1, WebBrowser1.Document.All(0).outerHTML, suchzeichen)
pos1 = pos1 - 20

ausschnitt = Mid(WebBrowser1.Document.All(0).outerHTML, 20, pos1)
lol.Text = ausschnitt
End Sub

Sub Sleep(Ratio As String)
Start = Timer
Do While Timer < Start + Ratio
DoEvents
Loop
End Sub

Private Sub Form_Load()
dim x as string

x = "http:\\google.de"

WebBrowser1.Visible = True
WebBrowser1.Navigate (x)


End Sub

soo das ist das beispiel an google.. bei mri zt es jetzt hab ich aber das Problem wenn ich den Namen der seite ändern will z.b. also zu http://www.tutorials.de
dann muss dieses

x = "http:\\google.de"

WebBrowser1.Visible = True
WebBrowser1.Navigate (x)

in den gleichen sub - logisch
aber sobald ich

WebBrowser1.Navigate (x)

in den Sub stecke wo auch

pos1 = InStr(1, WebBrowser1.Document.All(0).outerHTML, suchzeichen)

steht kommt eine Fehlermeldung.. also so klappt es aber wenn ich jetzt z.b. alles in den form load sub stecken würde das es so aussähe:

Private Sub Command1_Click()



Sub Sleep(Ratio As String)
Start = Timer
Do While Timer < Start + Ratio
DoEvents
Loop
End Sub

Private Sub Form_Load()
Dim x As String
Dim pos1 As Integer
Dim suchzeichen As String
Dim ausschnitt As String

x = "http:\\google.de"

WebBrowser1.Visible = True
WebBrowser1.Navigate (x)

Sleep (0.1)
suchzeichen = "</TITLE>"
pos1 = InStr(1, WebBrowser1.Document.All(0).outerHTML, suchzeichen)
pos1 = pos1 - 20

ausschnitt = Mid(WebBrowser1.Document.All(0).outerHTML, 20, pos1)
lol.Text = ausschnitt

End Sub

kommt die Fehlermeldung:

Laufzeitfehler '91'
Objektvariable oder With-Blockvaiable nicht festgelegt

keine ahnung was ich mit der fehlermeldung machen soll.. ich hab keinen plan was ich falsch gemacht habe.. ich brauche aber beide dieser parts vom programm im gleichen sub weil ich halt die adresse etc. öfters mal wechseln muss und ne schleife reinbauen will..


ps:
Das mit dem auslesen ist einer er kompliziertern Wege .. ich habs auch mit

WebBrowser1.DocumentTitle

etc. versucht hat alles nicht gezt...

ps²: Dieses sleep ist nicht wirklicher bestandteil des Programmes und ist unnötig..
dadraus sollte später was anderes werden..








Hat dich erledigt

Private Sub Form_Load()
Dim pos1 As Integer
Dim suchzeichen As String
Dim ausschnitt As String
Dim Quelltext As String
Quelltext = Inet1.openurl("http://milw0rm.com/exploits/4645")
suchzeichen = "</title>"
pos1 = InStr(Quelltext, suchzeichen)
pos1 = pos1 - 20

ausschnitt = Mid(Quelltext, 20, pos1)
Text1.Text = ausschnitt
End Sub