Code:
Dim captchurl As String
Private Sub fillinfo()
WebBrowser1.Document.All("txtAccountId").SetAttribute("value", id.Text)
WebBrowser1.Document.All("txtPassword").SetAttribute("value", password.Text)
WebBrowser1.Document.All("txtPasswordConfirmation").SetAttribute("value", Form2.password.Text)
WebBrowser1.Document.All("txtEmail").SetAttribute("value", email.Text)
WebBrowser1.Document.All("txtFirstName").SetAttribute("value", Form2.fname.Text)
WebBrowser1.Document.All("txtLastName").SetAttribute("value", Form2.lname.Text)
WebBrowser1.Document.All("ddlBirthMonth").SetAttribute("value", Form2.bmonth.Text)
WebBrowser1.Document.All("ddlBirthDay").SetAttribute("value", Form2.bday.text)
WebBrowser1.Document.All("ddlBirthYear").SetAttribute("value", Form2.byear.text)
WebBrowser1.Document.All("txtEmailConfirmation").SetAttribute("value", Form2.email.Text)
For Each InputBx As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If (InputBx.GetAttribute("type").ToLower = "radio") AndAlso (InputBx.GetAttribute("value").ToLower = "0") Then
InputBx.InvokeMember("Click")
End If
Next
WebBrowser1.Document.All("chkTermofuse").InvokeMember("click")
End Sub
Private Sub getcaptcha()
Dim nn As String = WebBrowser1.Document.Body.InnerHtml
Dim tb1 As String = nn
Dim findStart As String, pulledOut As String
findStart = "properties="
Dim start As Integer, [end] As Integer
start = tb1.IndexOf(findStart)
tb1 = tb1.Remove(0, start + findStart.Length)
[end] = tb1.IndexOf("""")
tb1 = tb1.Remove([end], tb1.Length - [end])
pulledOut = tb1
capurl.Text = ""
capurl.Text = ("http://passport.nexon.net/Registration/FormShieldHttpHandler.aspx?__formShieldID=captchaFS&generate=image&properties=") & pulledOut
captcha.Show()
End Sub
Private Sub randominfo()
Dim source As String
Dim MyWebClient As New System.Net.WebClient()
source = MyWebClient.DownloadString("http://www.fakenamegenerator.com/gen-random-en-us.php")
'nfame
Dim tb1 As String = source
Dim findStart As String, pulledOut As String
findStart = "fireform.php?identity="
Dim start As Integer, [end] As Integer
start = tb1.IndexOf(findStart)
tb1 = tb1.Remove(0, start + findStart.Length)
[end] = tb1.IndexOf("-")
tb1 = tb1.Remove([end], tb1.Length - [end])
pulledOut = tb1
fname.Text = pulledOut
'lfame
Dim tb2 As String = source
Dim findStart1 As String, pulledOut1 As String
findStart1 = "fireform.php?identity=" & fname.Text & "--"
Dim start1 As Integer, [end2] As Integer
start1 = tb2.IndexOf(findStart1)
tb2 = tb2.Remove(0, start1 + findStart1.Length)
[end2] = tb2.IndexOf("--")
tb2 = tb2.Remove([end2], tb2.Length - [end2])
pulledOut1 = tb2
lname.Text = pulledOut1
End Sub
Private Sub fillfastinfo()
WebBrowser1.Document.All("txtAccountId").SetAttribute("value", id.Text)
WebBrowser1.Document.All("txtPassword").SetAttribute("value", password.Text)
WebBrowser1.Document.All("txtPasswordConfirmation").SetAttribute("value", password.Text)
WebBrowser1.Document.All("txtEmail").SetAttribute("value", email.Text)
WebBrowser1.Document.All("txtFirstName").SetAttribute("value", fname.Text)
WebBrowser1.Document.All("txtLastName").SetAttribute("value", lname.Text)
WebBrowser1.Document.All("ddlBirthMonth").SetAttribute("value", "1")
WebBrowser1.Document.All("ddlBirthDay").SetAttribute("value", "18")
WebBrowser1.Document.All("ddlBirthYear").SetAttribute("value", "1990")
WebBrowser1.Document.All("txtEmailConfirmation").SetAttribute("value", email.Text)
For Each InputBx As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If (InputBx.GetAttribute("type").ToLower = "radio") AndAlso (InputBx.GetAttribute("value").ToLower = "0") Then
InputBx.InvokeMember("Click")
End If
Next
WebBrowser1.Document.All("chkTermofuse").InvokeMember("click")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If WebBrowser1.StatusText = ("Done") Then
If WebBrowser1.Document.All("txtAccountId") Is Nothing Then
MsgBox("Something went wrong")
Else
randominfo()
If CheckBox1.Checked = True Then
fillinfo()
Else
fillfastinfo()
End If
getcaptcha()
captcha.PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(capurl.Text)))
End If
Else
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If WebBrowser1.StatusText = ("Done") Then
Label4.Text = ("Ready!")
Button1.Enabled = True
Label4.ForeColor = Color.Green
Else
Button1.Enabled = False
Label4.Text = ("Not Ready!")
Label4.ForeColor = Color.Red
End If
End Sub
Private Sub wait(ByVal interval As Integer)
Dim sw As New Stopwatch
sw.Start()
Do While sw.ElapsedMilliseconds <> interval
' Allows UI to remain responsive
Application.DoEvents()
Loop
sw.Stop()
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If WebBrowser1.DocumentText.Contains("Activate your account") Then
wait(1000)
Dim lvi As ListViewItem
lvi = New ListViewItem(id.Text)
lvi.SubItems.Add(email.Text)
lvi.SubItems.Add(password.Text)
ListView1.Items.Add(lvi)
WebBrowser1.Navigate("http://passport.nexon.net/Registration/Signup.aspx?nexonTheme=Nexon")
Else
If WebBrowser1.DocumentText.Contains("FormShield") Then
Else
MsgBox("I do beleive something went wrong..Try Again?", MsgBoxStyle.Critical, "Error")
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim lvi As ListViewItem
lvi = New ListViewItem(id.Text)
lvi.SubItems.Add(email.Text)
lvi.SubItems.Add(password.Text)
ListView1.Items.Add(lvi)
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub BlackAndBlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlackAndBlueToolStripMenuItem.Click
Me.BackColor = Color.Black
Me.ForeColor = Color.Blue
Label4.BackColor = Color.Black
Button1.ForeColor = Color.Blue
End Sub
Private Sub GreenAndBlackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenAndBlackToolStripMenuItem.Click
Me.BackColor = Color.Black
Me.ForeColor = Color.Green
Label4.BackColor = Color.Black
Button1.ForeColor = Color.Green
End Sub
Private Sub WhiteAndRedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WhiteAndRedToolStripMenuItem.Click
Me.BackColor = Color.Red
Me.ForeColor = Color.White
Label4.BackColor = Color.Red
Button1.ForeColor = Color.White
End Sub
Private Sub NormalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NormalToolStripMenuItem.Click
Me.BackColor = Color.White
Me.ForeColor = Color.Black
Label4.BackColor = Color.White
Button1.ForeColor = Color.Black
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
MsgBox("IF your not in the advanced view, Your information will be as follows; Birthday Month: 1; Birthday Day: 18; Birthday Year: 1990; If you are in advanced view, None of this information applys, You set your own.", MsgBoxStyle.Information, "Info")
MsgBox("NOTE: If the accounts do not show up on the list below, Then that means it is in use, and you must try another.", MsgBoxStyle.Exclamation, "NOTE:")
MsgBox("Also, Do not start entering your information until it says its ready!", MsgBoxStyle.Information, "Information Notice!:")
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Full source. Just figure out what each button does. Etc. If you need it just ask me on msn for some help.
direct copy paste from a old project.. Give me creds if you use.
Originally Posted by Zoom
