I have a Private Sub Fill(), which im trying to call from button1, in the form of
Dim t1 As System.Threading.Thread = New System.Threading.Thread(AddressOf Me.Fill) t1.Start()
However, when I run the program nothing happens. I click the button numerous times and the function isnt being executed. What gives? The Fill function is basically a outputting bunch of html from IE into a textbox, running regex and outputting the results in a listbox.
Can anyone help me get this working? I'd appreciate the help. EDIT: Below, is the Fill function that I am trying to get working. The function itself works, when i try it without multithreading. But not with it...
Private Sub Fill() Try For Each links In ListBox2.Items Dim blah As Boolean = False Do While blah = False Application.DoEvents() If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then blah = True WebBrowser1.Navigate(links) Application.DoEvents() Me.Refresh() 'OUTPUT THE REGEX IN RTB Try RichTextBox1.Text = WebBrowser1.Document.Body.OuterHtml RichTextBox1.Update() Application.DoEvents() Me.Refresh() 'INTRODUCE REGEX If CheckBox1.Checked = True Then Dim R As New Regex("</H3><.*gt;") For Each M As Match In R.Matches(RichTextBox1.Text) Dim email As String = M.Value.Substring(9).Split("&;").GetValue(0).ToString ListBox1.Items.Add(email) Next End If Catch ex As Exception Label1.Text = "Error recieved. Program will not stop" Me.Refresh() End Try Application.DoEvents() Me.Refresh() End If Loop Next Catch ex As Exception End Try End Sub