Home › Forum › Programming › Visual Basic Programming › My, NexoN Account Creator with Full Source Code!!
My, NexoN Account Creator with Full Source Code!!
My, NexoN Account Creator with Full Source Code!!
i made this yesterday cause i seen alot of people asking for one + source so here it is
when you run it wait for the program to say "Ready"
then fill in the info and click register then the captcha box will pop up
once you click submit it will register your account
if you do not see your account's info go in the box then pick a different
username and try again
Press the "Thanks Button" if you use my source to make a better one or use my program
Virus Scan
http://www.virustotal.com/analisis/0...ed3-1256250105
when you run it wait for the program to say "Ready"
then fill in the info and click register then the captcha box will pop up
once you click submit it will register your account
if you do not see your account's info go in the box then pick a different
username and try again
Press the "Thanks Button" if you use my source to make a better one or use my program
Virus Scan
http://www.virustotal.com/analisis/0...ed3-1256250105
Code:
a-squared 4.5.0.41 2009.10.22 - AhnLab-V3 5.0.0.2 2009.10.22 - AntiVir 7.9.1.44 2009.10.22 - Antiy-AVL 2.0.3.7 2009.10.22 - Authentium 5.1.2.4 2009.10.22 - Avast 4.8.1351.0 2009.10.22 - AVG 8.5.0.423 2009.10.22 - BitDefender 7.2 2009.10.22 - CAT-QuickHeal 10.00 2009.10.22 - ClamAV 0.94.1 2009.10.22 - Comodo 2695 2009.10.22 - DrWeb 5.0.0.12182 2009.10.22 - eSafe 7.0.17.0 2009.10.22 - eTrust-Vet 35.1.7080 2009.10.22 - F-Prot 4.5.1.85 2009.10.22 - F-Secure 9.0.15370.0 2009.10.22 - Fortinet 3.120.0.0 2009.10.22 - GData 19 2009.10.22 - Ikarus T3.1.1.72.0 2009.10.22 - Jiangmin 11.0.800 2009.10.22 - K7AntiVirus 7.10.877 2009.10.22 - Kaspersky 7.0.0.125 2009.10.22 - McAfee 5779 2009.10.22 - McAfee+Artemis 5779 2009.10.22 - McAfee-GW-Edition 6.8.5 2009.10.22 - Microsoft 1.5202 2009.10.22 - NOD32 4534 2009.10.22 - Norman 6.03.02 2009.10.22 - nProtect 2009.1.8.0 2009.10.22 - Panda 10.0.2.2 2009.10.22 - PCTools 4.4.2.0 2009.10.19 - Prevx 3.0 2009.10.23 - Rising 21.52.34.00 2009.10.22 - Sophos 4.46.0 2009.10.22 - Sunbelt 3.2.1858.2 2009.10.22 - Symantec 1.4.4.12 2009.10.23 - TheHacker 6.5.0.2.051 2009.10.22 - TrendMicro 8.950.0.1094 2009.10.22 - VBA32 3.12.10.11 2009.10.22 - ViRobot 2009.10.22.2001 2009.10.22 - VirusBuster 4.6.5.0 2009.10.22 -
here is the source if you dont want to download it
Form1
Captcha Form
Captcha Designer
Form1 Designer
Form1
Code:
Public Class Form1
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", 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", "1")
WebBrowser1.Document.All("ddlBirthYear").SetAttribute("value", "1987")
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 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 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()
fillinfo()
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
PictureBox1.BackColor = Color.Green
Label4.Text = ("Ready!")
Button1.Enabled = True
Label4.BackColor = Color.Green
Else
Button1.Enabled = False
PictureBox1.BackColor = Color.Red
Label4.Text = ("Not Ready!")
Label4.BackColor = 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.DocumentTex*****ntains("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.DocumentTex*****ntains("FormShield") Then
Else
MsgBox("something went wrong", MsgBoxStyle.Critical)
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
End Class
Code:
Imports WindowsApplication1.Form1
Public Class captcha
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(Form1.capurl.Text)))
End Sub
Private Sub captcha_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(Form1.capurl.Text)))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = ("") Then
MsgBox("noob enter the code you see in the picture")
Else
Form1.WebBrowser1.Document.All("txtCaptcha").SetAttribute("value", TextBox1.Text)
Form1.WebBrowser1.Document.All("btnSubmit").InvokeMember("click")
Me.Hide()
End If
End Sub
End Class
Code:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class captcha
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(7, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(238, 50)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.Color.White
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBox1.Location = New System.Drawing.Point(7, 54)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(86, 18)
Me.TextBox1.TabIndex = 1
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.Button1.Location = New System.Drawing.Point(99, 53)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(70, 20)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Refresh"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.Button2.Location = New System.Drawing.Point(173, 53)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(70, 20)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Submit"
Me.Button2.UseVisualStyleBackColor = True
'
'captcha
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Gray
Me.ClientSize = New System.Drawing.Size(252, 78)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.PictureBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "captcha"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Text = "captcha"
Me.TopMost = True
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class
Code:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.email = New System.Windows.Forms.TextBox
Me.password = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.id = New System.Windows.Forms.TextBox
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
Me.Button1 = New System.Windows.Forms.Button
Me.state = New System.Windows.Forms.TextBox
Me.phone2 = New System.Windows.Forms.TextBox
Me.phone1 = New System.Windows.Forms.TextBox
Me.zip = New System.Windows.Forms.TextBox
Me.city = New System.Windows.Forms.TextBox
Me.address = New System.Windows.Forms.TextBox
Me.phone = New System.Windows.Forms.TextBox
Me.lname = New System.Windows.Forms.TextBox
Me.fname = New System.Windows.Forms.TextBox
Me.capurl = New System.Windows.Forms.TextBox
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.Label4 = New System.Windows.Forms.Label
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.ListView1 = New System.Windows.Forms.ListView
Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
Me.Label5 = New System.Windows.Forms.Label
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'email
'
Me.email.Location = New System.Drawing.Point(81, 69)
Me.email.Name = "email"
Me.email.Size = New System.Drawing.Size(100, 20)
Me.email.TabIndex = 38
'
'password
'
Me.password.Location = New System.Drawing.Point(81, 40)
Me.password.Name = "password"
Me.password.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.password.Size = New System.Drawing.Size(100, 20)
Me.password.TabIndex = 37
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Corbel", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(40, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(38, 15)
Me.Label3.TabIndex = 36
Me.Label3.Text = "Email"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Corbel", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(16, 43)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 15)
Me.Label2.TabIndex = 35
Me.Label2.Text = "Password"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Corbel", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(9, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(69, 15)
Me.Label1.TabIndex = 34
Me.Label1.Text = "Account ID"
'
'id
'
Me.id.Location = New System.Drawing.Point(81, 13)
Me.id.Name = "id"
Me.id.Size = New System.Drawing.Size(100, 20)
Me.id.TabIndex = 33
'
'WebBrowser1
'
Me.WebBrowser1.Location = New System.Drawing.Point(287, 3)
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.Size = New System.Drawing.Size(435, 294)
Me.WebBrowser1.TabIndex = 50
Me.WebBrowser1.Url = New System.Uri("http://passport.nexon.net/Registration/Signup.aspx?nexonTheme=Nexon", System.UriKind.Absolute)
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.Button1.Location = New System.Drawing.Point(81, 95)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(100, 20)
Me.Button1.TabIndex = 51
Me.Button1.Text = "Register"
Me.Button1.UseVisualStyleBackColor = True
'
'state
'
Me.state.Location = New System.Drawing.Point(32, 378)
Me.state.Name = "state"
Me.state.ReadOnly = True
Me.state.Size = New System.Drawing.Size(98, 20)
Me.state.TabIndex = 63
'
'phone2
'
Me.phone2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.phone2.Location = New System.Drawing.Point(97, 432)
Me.phone2.Name = "phone2"
Me.phone2.ReadOnly = True
Me.phone2.Size = New System.Drawing.Size(33, 20)
Me.phone2.TabIndex = 62
'
'phone1
'
Me.phone1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.phone1.Location = New System.Drawing.Point(62, 432)
Me.phone1.Name = "phone1"
Me.phone1.ReadOnly = True
Me.phone1.Size = New System.Drawing.Size(29, 20)
Me.phone1.TabIndex = 61
'
'zip
'
Me.zip.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.zip.Location = New System.Drawing.Point(32, 352)
Me.zip.Name = "zip"
Me.zip.ReadOnly = True
Me.zip.Size = New System.Drawing.Size(98, 20)
Me.zip.TabIndex = 58
'
'city
'
Me.city.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.city.Location = New System.Drawing.Point(32, 325)
Me.city.Name = "city"
Me.city.ReadOnly = True
Me.city.Size = New System.Drawing.Size(98, 20)
Me.city.TabIndex = 56
'
'address
'
Me.address.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.address.Location = New System.Drawing.Point(32, 301)
Me.address.Name = "address"
Me.address.ReadOnly = True
Me.address.Size = New System.Drawing.Size(98, 20)
Me.address.TabIndex = 54
'
'phone
'
Me.phone.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.phone.Location = New System.Drawing.Point(32, 432)
Me.phone.Name = "phone"
Me.phone.ReadOnly = True
Me.phone.Size = New System.Drawing.Size(24, 20)
Me.phone.TabIndex = 52
'
'lname
'
Me.lname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lname.Location = New System.Drawing.Point(187, 430)
Me.lname.Name = "lname"
Me.lname.ReadOnly = True
Me.lname.Size = New System.Drawing.Size(98, 20)
Me.lname.TabIndex = 65
'
'fname
'
Me.fname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.fname.Location = New System.Drawing.Point(187, 404)
Me.fname.Name = "fname"
Me.fname.ReadOnly = True
Me.fname.Size = New System.Drawing.Size(98, 20)
Me.fname.TabIndex = 64
'
'capurl
'
Me.capurl.Location = New System.Drawing.Point(187, 456)
Me.capurl.Name = "capurl"
Me.capurl.Size = New System.Drawing.Size(100, 20)
Me.capurl.TabIndex = 66
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.Red
Me.PictureBox1.Location = New System.Drawing.Point(81, 121)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(100, 21)
Me.PictureBox1.TabIndex = 67
Me.PictureBox1.TabStop = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.Red
Me.Label4.Font = New System.Drawing.Font("Mongolian Baiti", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(94, 125)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(70, 13)
Me.Label4.TabIndex = 68
Me.Label4.Text = "Not Ready!"
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1
'
'ListView1
'
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.ListView1.FullRowSelect = True
Me.ListView1.GridLines = True
Me.ListView1.LabelEdit = True
Me.ListView1.Location = New System.Drawing.Point(1, 161)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(280, 135)
Me.ListView1.TabIndex = 69
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
Me.ColumnHeader1.Text = "Account ID"
Me.ColumnHeader1.Width = 82
'
'ColumnHeader2
'
Me.ColumnHeader2.Text = "Email"
Me.ColumnHeader2.Width = 116
'
'ColumnHeader3
'
Me.ColumnHeader3.Text = "Password"
Me.ColumnHeader3.Width = 90
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(112, 145)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(52, 13)
Me.Label5.TabIndex = 70
Me.Label5.Text = "Accounts"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Gray
Me.ClientSize = New System.Drawing.Size(285, 300)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.ListView1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.capurl)
Me.Controls.Add(Me.lname)
Me.Controls.Add(Me.fname)
Me.Controls.Add(Me.state)
Me.Controls.Add(Me.phone2)
Me.Controls.Add(Me.phone1)
Me.Controls.Add(Me.zip)
Me.Controls.Add(Me.city)
Me.Controls.Add(Me.address)
Me.Controls.Add(Me.phone)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.WebBrowser1)
Me.Controls.Add(Me.email)
Me.Controls.Add(Me.password)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.id)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "Form1"
Me.Text = "NexoN Account Creator"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents email As System.Windows.Forms.TextBox
Friend WithEvents password As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents id As System.Windows.Forms.TextBox
Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents state As System.Windows.Forms.TextBox
Friend WithEvents phone2 As System.Windows.Forms.TextBox
Friend WithEvents phone1 As System.Windows.Forms.TextBox
Friend WithEvents zip As System.Windows.Forms.TextBox
Friend WithEvents city As System.Windows.Forms.TextBox
Friend WithEvents address As System.Windows.Forms.TextBox
Friend WithEvents phone As System.Windows.Forms.TextBox
Friend WithEvents lname As System.Windows.Forms.TextBox
Friend WithEvents fname As System.Windows.Forms.TextBox
Friend WithEvents capurl As System.Windows.Forms.TextBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents Label5 As System.Windows.Forms.Label
End Class
I honestly thought it was a keylogger! but Nice!!!!
lol same until i look at the source code :P
HUGE question...um where do you put the designer code because i really dont know how to open up that spot to put the code because without that i dont know where all those missing things are suppose to be like the webbrowser1 and the capurl and the iname and fname
Originally Posted by guza44_44
HUGE question...um where do you put the designer code because i really dont know how to open up that spot to put the code because without that i dont know where all those missing things are suppose to be like the webbrowser1 and the capurl and the iname and fname
OMG FINALLY THANK YOU FOR MAKING THIS!! 
I will test it out in a second...
I will test it out in a second...
Woohoo ur teh best
Thanks man (:
Very nice but my TEXT never gets green waited 5 mins.. Please help!
Originally Posted by hejsan1
Very nice but my TEXT never gets green waited 5 mins.. Please help!
Let's all watch as 1000 noobs who think they can code copy/paste this and release it.
Originally Posted by Iamazn1
Let's all watch as 1000 noobs who think they can code copy/paste this and release it.
CAn any1 tell me how to get it work?
Originally Posted by hejsan1
Isn´t that spam? Btw....
CAn any1 tell me how to get it work?
CAn any1 tell me how to get it work?
i went and made my own one of these ^_^ of course i didnt take the credit for making it though lol
Similar Threads
- AssaultCube v1.0.2 teleport hack,fly mode,teleport flag , with full source codeBy CodeHPro in Visual Basic Programming13Last post
- buy a account warrock with retails famasorretail code famasBy dj-Vodafone in Trade Accounts/Keys/Items1Last post
- 28Last post
- 3Last post
- 121Last post