VB-browser, profis kommt mal her :D

[Milu2K]

Naja eig hat er schon recht mit den 5GB ^^

Naja das ist der Source der das ERSTE Bild raus sucht.

Code:

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://dslan.gfx-dose.de/thread-2805-post-40658.html#pid40658") End Sub Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated Dim Source Source = WebBrowser1.Document.Body.InnerHtml Source = Replace(Source, Chr(134), "'") Dim Se2() As String Dim Se3() As String Se2 = Split(Source, "src=" & Chr(34)) Se3 = Split(Se2(1), Chr(34)) ListBox1.Items.Add(Se3(0)) End Sub End Class

Er Speichert dann das erste Bild in der ListBox

Ist nich sehr sauber programmiert

€dit: Kannst mir ja deine MSN oder ICQ adresse schicken per PN

€dit2: Neuer Code der alle bilder findet.

Code:

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://images.google.ch/images?q=bilder&oe=utf-8&rls=org.mozilla:de:official&client=firefox-a&um=1&ie=UTF-8&sa=N&hl=de&tab=wi") End Sub Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated Dim Source Source = WebBrowser1.Document.Body.InnerHtml Source = Replace(Source, Chr(134), "'") Dim Se2() As String Se2 = Split(Source, "src=" & Chr(34)) Dim i As Integer = 0 Do Dim Se3() As String Se3 = Split(Se2(i), Chr(34)) If InStr(LCase(Se3(0)), ".png") Or InStr(LCase(Se3(0)), ".jpg") Or InStr(LCase(Se3(0)), ".jpeg") Then ListBox1.Items.Add(Se3(0)) End If i += 1 Loop Until i = 200 End Sub End Class