Hi,
hier ist die versprochene Fortsetzung des Browsertutorials.
_____
Part_1 ->Das Standartgerüst
zuerst ertsellen wir eine Form namens Form1. Auf ihr plazierst du dann das Browsersteuerelement (Projekt->Komponenten->Microsoft Internet Controls) namens WebBrowser1.
_____
Part_2 ->abspielen von *.gifs im Browserelement
es war schon immer ein Problem gifs unter VB abzuspielen; mit dem Browsersteuerungselement wird dies allerdings nicht länger so bleiben.
Leider ist es unmöglich, um die Pfadangabe herumzukommen, da sonst (bei z.B. dem Gebrauch einer Picturebox) man nur eine Zahl erhalten würde (da sonst alles etwas komplizierter wäre).
Der Code sieht folgendermaßen aus:
Dim strImgPath As String
Private Sub Form_Load()
strImgPath = "C:\Benedikt\HP_s\tests\smilis\smilis_fun\smiley_hands.gif"
WebBrowser1.Navigate "about:<html><body scroll='no'>" & _
"<img src=" & strImgPath & "></img></body></html>"
End Sub
zuerst wird der Pfad des Bilder declariert, dann wird ein Beipielpfad angegeben, und dann der entscheidende Code (beim kopieren einfach nur den StrImgPath ändern) welcher den Browser auf die ensprechende Stelle der Festplatte "navigiert" um dann die gif animation abzuspielen. Auf die selbe art und weise kann man überings auch bilder aus dem netz anzeigen:
Private Sub Form_Load()
strImgPath = "http://people.freenet.de/MasterBene87/smilis/smilis_fun/Berserker.gif"
WebBrowser1.Navigate "about:<html><body scroll='no'>" & _
"<img src=" & strImgPath & "></img></body></html>"
End Sub
_____
Part_3 -> ein nützliches Online-Plugin
Es besteht natürlich auch die möglichkeit mit VB auf Elemente von Internetseiten zurückzugreifen, in Form von inputboxen, Buttons o.ä. .
Daurch besteht die Möglichkeit, auch einen sog. Autologin zu gestalten.
dazu benötigt man zunächst mal den entsprechenden Namen von dem Element, welches man durch den source Code bekommt, wenn man ein wenig über html besheid weiß. nehen wir z.B. mal den code von Google:
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.de" 'die seite, wo der browser hingeht, wenn die form geladen wird (www.google.de)
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
If WebBrowser1.Busy = False Then 'wenn der Browser NICHTS zu tun hat,dann.. (damit wird gewährleistet, dass das Prog. nicht immer im einegstelten intervall die elemente sucht, und den entsprechenden wert einfügt...
With WebBrowser1
.Document.Forms(0).q.Value = "dein Suchbegriff" 'q ist bei google der name des Steuerelementes, wo man den zu suchenden Namen eingibt
.Document.Forms(0).btnG.Click 'btnG ist der name bei google.de für den submit/command button, der suchen "lässt"
End With
Timer1.Enabled = False 'damit nicht immer in die elemente (^^)der wert eingefügt wird, wird der timer gedisabled (ausgestellt)
End If
End Sub
aufgund der dokumentation entfällt hier die weitere erklährung des programmes.. bei evtlen Fragen bitte PN an mich...
______
Part_4 -> Schlusswort
ersteinmal hoffe ich das alles soweit klar ist. sollten trotzdem fragen bestehen, so bitte ich um eine PN, damit diese geklährt werden können.
ansonsten viel spaß und erfolg mit diesen Tutorial.
MFG MasterBene