Delay Code? Make Account Bot Look Human

[abuckau907]

-Trying to keep it similar to your original / add as little new code as possible

Dim aRandomNumber As New Random() '' Used to generate random numbers (pseudo-random..)

WebBrowser1.Document.GetElementById("iFirstName").Focus()
WebBrowser1.Document.GetElementById("iFirstName").SetAttribute("value", TextBox1.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(1000,2000)) ''Get a random number between 1000 and 2000 (1 to 2 seconds)
WebBrowser1.Document.GetElementById("iLastName").Focus()
WebBrowser1.Document.GetElementById("iLastName").SetAttribute("value", TextBox2.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(1000,2000))
WebBrowser1.Document.GetElementById("iBirthDay").Focus()
WebBrowser1.Document.GetElementById("iBirthDay").SetAttribute("value", ComboBox2.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(1000,2000))
WebBrowser1.Document.GetElementById("iBirthMonth").Focus()
WebBrowser1.Document.GetElementById("iBirthMonth").SetAttribute("value", ComboBox1.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(1000,2000))
WebBrowser1.Document.GetElementById("iBirthYear").Focus()
WebBrowser1.Document.GetElementById("iBirthYear").SetAttribute("value", ComboBox3.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(1000,2000)) 'maybe not needed here. ?

or even,

Dim aRandomNumber As New Random() '' Used to generate random numbers (pseudo-random..)
Dim minSleepTime as Int32 = 1000 '' in milliseconds, should be a const
Dim maxSleepTime as Int32 = 2000 '' in milliseconds, should be a const

WebBrowser1.Document.GetElementById("iFirstName").Focus()
WebBrowser1.Document.GetElementById("iFirstName").SetAttribute("value", TextBox1.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(minSleepTime ,maxSleepTime)) ''Get a random number between min and max
WebBrowser1.Document.GetElementById("iLastName").Focus()
WebBrowser1.Document.GetElementById("iLastName").SetAttribute("value", TextBox2.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(minSleepTime ,maxSleepTime))
WebBrowser1.Document.GetElementById("iBirthDay").Focus()
WebBrowser1.Document.GetElementById("iBirthDay").SetAttribute("value", ComboBox2.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(minSleepTime ,maxSleepTime))
WebBrowser1.Document.GetElementById("iBirthMonth").Focus()
WebBrowser1.Document.GetElementById("iBirthMonth").SetAttribute("value", ComboBox1.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(minSleepTime ,maxSleepTime))
WebBrowser1.Document.GetElementById("iBirthYear").Focus()
WebBrowser1.Document.GetElementById("iBirthYear").SetAttribute("value", ComboBox3.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(minSleepTime ,maxSleepTime)) 'maybe not needed here. ?

-I think*, because this is going through a web-browser...generally there is nothing keeping track of "how fast" you type something in / how fast you switch between fields. With that being said..why not : )