Okay, so im making a register program for a websiteSo far i've managed to make this code:HTML Code:http://sy1.no-ip.biz/register.php
But now i need to make a random value as the same on the webpage, Is that even possible when i don't have the script, but only the webpage?HTML Code:Public Class Form1 Dim generator As New Random Dim randomValue As Integer Dim i As Integer = 0 Dim a As Double = Val("@") Dim com As Double = Val(".com") Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Document.All("name").Focus() randomValue = generator.Next(99999, 999999) SendKeys.Send(randomValue) Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If i = 0 Then WebBrowser1.Document.All("pass").Focus() randomValue = generator.Next(99999, 999999) SendKeys.Send(randomValue) i = 1 ElseIf i = 1 Then WebBrowser1.Document.All("vpass").Focus() SendKeys.Send(randomValue) i = 2 ElseIf i = 2 Then WebBrowser1.Document.All("email").Focus() randomValue = generator.Next(99999, 999999) SendKeys.Send(randomValue) SendKeys.Send("@") SendKeys.Send(randomValue) SendKeys.Send(".com") i = 3 ElseIf i = 3 Then WebBrowser1.Document.All("dob").Focus() randomValue = generator.Next(1970, 2000) SendKeys.Send(randomValue) SendKeys.Send("-") randomValue = generator.Next(10, 12) SendKeys.Send(randomValue) SendKeys.Send("-") randomValue = generator.Next(10, 27) SendKeys.Send(randomValue) i = 4 End If End Sub End Class




Reply With Quote