VB.NET-Quellcode
- Dim bool As Boolean = False
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim lines() As String = System.IO.File.ReadAllLines(Application.StartupPath & "\keywörter.txt")
- For i As Integer = 0 To lines.Count - 1
- Do
- Application.DoEvents()
- Loop Until bool = False
- bool = True
- WebBrowser1.Navigate("https://www.google.de/?gws_rd=ssl#num=100&q=" & Replace(lines(i), " ", "+") & "&*&pws=0")
- Next
- end Sub
- Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- Do
- Application.DoEvents()
- Loop Until WebBrowser1.Document.Window.Size.Height > 1000
- docCompleted = True
- WebBrowser1.Document.Window.AttachEventHandler("onload", '<-- Start
- Sub()
- SynchronizationContext.Current.Post(
- Sub() '<-- Ende
- Dim elm As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("CITE")
- For i As Integer = 0 To elm.Count - 1
- If elm(i).GetAttribute("className") Like "*_Rm*" Then
- DataSet1.DataTable1.Rows.Add(elm(i).InnerText)
- If elm(i).InnerText Like "*xxx*" Then
- DataSet1.DataTable2.Rows.Add(TextBox1.Text, i)
- End If
- End If
- Next
- bool = False
- End Sub, Nothing)
- End Sub)
- End Sub
Moin,
Frage 1. Kann mir wer den Code zwischen Start und Ende erklären?
Frage 2. Der Code funktioniert soweit außer das er im 2. Durchlauf WebBrowser1_DocumentCompleted ignoriert und deshalb auch bool auf true lässt, warum?
Ich verstehe einfach nicht was er bei Frage 1 genau macht und ob man das evtl erst beenden muss? Ka
Danke schonmal für hilfreiche Tipps die hoffentlich kommen
*Topic verschoben*
In Arbeit...
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()