Delay Code? Make Account Bot Look Human

[pootuba]

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub Wait(ByVal cTime As Long)
Dim sTime As Long

sTime = GetTickCount + cTime

Do While sTime >= GetTickCount
Application.DoEvents()
Loop
End Sub

[silentrunner2]

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub Wait(ByVal cTime As Long)
Dim sTime As Long

sTime = GetTickCount + cTime

Do While sTime >= GetTickCount
Application.DoEvents()
Loop
End Sub

Hi thanks for your input, im not sure if im executing this wrong but it seems to loop my code over and over so it doesn't stop running?

-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(minSl  eepTime ,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(minSl  eepTime ,maxSleepTime))
WebBrowser1.Document.GetElementById("iBirthDay").Focus()
WebBrowser1.Document.GetElementById("iBirthDay").SetAttribute("value", ComboBox2.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(minSl  eepTime ,maxSleepTime))
WebBrowser1.Document.GetElementById("iBirthMonth").Focus()
WebBrowser1.Document.GetElementById("iBirthMonth").SetAttribute("value", ComboBox1.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(minSl  eepTime ,maxSleepTime))
WebBrowser1.Document.GetElementById("iBirthYear").Focus()
WebBrowser1.Document.GetElementById("iBirthYear").SetAttribute("value", ComboBox3.Text)
Threading.Thread.Sleep(aRandomNumber.GetNext(minSl  eepTime ,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 : )

The sleep method works but for me but it freezes up the whole program so I can't see whats going on. I was also looking around a found this method but that seems to mess with the browser and freeze it.