[oToom]

Okay, hey guys. So i'm trying my first attempt at a bot! I have got so far on this hugo boss thing i cannot just givup

So i would loveee some help if you don't mind.

Sub WebBrowser1DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
		Dim K As Integer = 0
		Dim L as Integer = 0
		Dim Emails As String = richtextbox1.Lines(K)
		Dim Samples as Integer = Convert.ToInt32(Textbox8.Text)
		
		While L < Samples
			If Webbrowser1.Url.ToString = "http://www.boss-fragrances.com/bossorange/gb/sample/r/" Then
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_firstName").SetAttribute("value", Textbox2.Text)
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_lastName").SetAttribute("value", Textbox3.Text)
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_emailAddress").SetAttribute("value", Emails)
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_address1").SetAttribute("value", Textbox4.Text)
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_address2").SetAttribute("value", Textbox5.Text)
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_city").SetAttribute("value", Textbox6.Text)
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_postcode").SetAttribute("value", Textbox7.Text)
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_country").SetAttribute("value", "GB")
				Webbrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_chkTerms").InvokeMember("click")
				WebBrowser1.Document.GetElementById("ctl00_main_sampleAlternateContent_submit").InvokeMember("click")
			Else
				'MsgBox("There was an error! Please check it out!", MsgboxStyle.Critical, "Error..")
				'Break
			End If
			
			If Webbrowser1.DocumentText.Contains("Order complete.") Then
				Webbrowser1.Navigate("http://www.boss-fragrances.com/bossorange/gb/sample/r/")
			
				K = K + 1
				Label11.Text = Convert.ToString(K)
			End If
			
			L = L + 1
		End While
		
		MsgBox("All done!", MsgBoxStyle.Information, "Complete.")
		
	End Sub

Okay so the problem is, it doesnt navigate back to the main page once it's completed the form once.
Also, The MsgBox comes up etc.

I am using a background worker for this. So i have the background worker with the code Navigate("website"). Then this code.

Hope you can help me out, and hope this is an okay place to post this!

Thanks in advance!