Page 1 of 2 12 LastLast
Results 1 to 15 of 23
  1. #1
    CodeHPro's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    116
    Reputation
    10
    Thanks
    76
    My Mood
    Aggressive

    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
    https://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	-
    Last edited by CodeHPro; 10-22-2009 at 05:25 PM.

  2. The Following 8 Users Say Thank You to CodeHPro For This Useful Post:

    ĎÁŗҚ ĉҰρҢềŔ (10-23-2009),ac1d_buRn (10-23-2009),ahmednoxxx (03-28-2015),Erinador (01-19-2010),hueycat6 (06-17-2012),kidtrunksssj (06-11-2012),mike0631 (01-19-2013),Mischa123 (05-01-2013)

  3. #2
    CodeHPro's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    116
    Reputation
    10
    Thanks
    76
    My Mood
    Aggressive
    here is the source if you dont want to download it

    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 = ("https://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("https://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.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("https://passport.nexon.net/Registration/Signup.aspx?nexonTheme=Nexon")
            Else
                If WebBrowser1.DocumentText.Contains("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
    Captcha Form
    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
    Captcha Designer
    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
    Form1 Designer
    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("https://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
    Last edited by CodeHPro; 10-22-2009 at 05:53 PM.

  4. The Following 3 Users Say Thank You to CodeHPro For This Useful Post:

    ĎÁŗҚ ĉҰρҢềŔ (10-23-2009),ac1d_buRn (10-23-2009),CoderNever (10-22-2009)

  5. #3
    CoderNever's Avatar
    Join Date
    Feb 2009
    Gender
    female
    Location
    https://mpgh.net MPGHCash: $700,458,011
    Posts
    1,198
    Reputation
    131
    Thanks
    2,235
    My Mood
    Buzzed
    I honestly thought it was a keylogger! but Nice!!!!

  6. The Following User Says Thank You to CoderNever For This Useful Post:

    CodeHPro (10-22-2009)

  7. #4
    ark1227's Avatar
    Join Date
    Dec 2008
    Gender
    male
    Location
    I should know this...
    Posts
    110
    Reputation
    10
    Thanks
    7
    My Mood
    Devilish
    lol same until i look at the source code :P

  8. The Following User Says Thank You to ark1227 For This Useful Post:

    CodeHPro (10-22-2009)

  9. #5
    guza44_44's Avatar
    Join Date
    Oct 2008
    Gender
    male
    Posts
    433
    Reputation
    16
    Thanks
    310
    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

  10. #6
    CodeHPro's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    116
    Reputation
    10
    Thanks
    76
    My Mood
    Aggressive
    Quote Originally Posted by guza44_44 View Post
    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
    just download the source code if you don't know how and all you need to do is open it up with vb 2008 and change anything that you don't like

  11. #7
    Pixie's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Pixie wird wieder steigen.
    Posts
    1,884
    Reputation
    22
    Thanks
    229
    My Mood
    Fine
    OMG FINALLY THANK YOU FOR MAKING THIS!!

    I will test it out in a second...

  12. #8
    JIGS4W's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Posts
    2,906
    Reputation
    48
    Thanks
    156
    Woohoo ur teh best


  13. #9
    ac1d_buRn's Avatar
    Join Date
    Aug 2009
    Gender
    female
    Location
    CA Source Section
    Posts
    3,404
    Reputation
    157
    Thanks
    4,003
    My Mood
    Flirty
    Thanks man (:

  14. #10
    Zoom's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Your going on my 24/7 DDoS hit list.
    Posts
    8,552
    Reputation
    127
    Thanks
    5,968
    My Mood
    Happy
    Very nice but my TEXT never gets green waited 5 mins.. Please help!
    -Rest in peace leechers-

    Your PM box is 100% full.

  15. #11
    pl0xy's Avatar
    Join Date
    Feb 2009
    Gender
    male
    Location
    Nowhere
    Posts
    3
    Reputation
    10
    Thanks
    0
    Quote Originally Posted by hejsan1 View Post
    Very nice but my TEXT never gets green waited 5 mins.. Please help!
    Same here.

  16. #12
    Iamazn1's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    407
    Reputation
    12
    Thanks
    50
    Let's all watch as 1000 noobs who think they can code copy/paste this and release it.

  17. #13
    Zoom's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Your going on my 24/7 DDoS hit list.
    Posts
    8,552
    Reputation
    127
    Thanks
    5,968
    My Mood
    Happy
    Quote Originally Posted by Iamazn1 View Post
    Let's all watch as 1000 noobs who think they can code copy/paste this and release it.
    Isn´t that spam? Btw....

    CAn any1 tell me how to get it work?
    -Rest in peace leechers-

    Your PM box is 100% full.

  18. #14
    Iamazn1's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    407
    Reputation
    12
    Thanks
    50
    Quote Originally Posted by hejsan1 View Post
    Isn´t that spam? Btw....

    CAn any1 tell me how to get it work?
    Thats not spam. Thats 100% true. 98% (2% is prob User1/xplicitt) of the People on MPGH who use VB will Download this source, edit some stuff, and release it. Before you know it, CA section will have 1000 Copy/Pasted Nexon Passport gens

  19. #15
    guza44_44's Avatar
    Join Date
    Oct 2008
    Gender
    male
    Posts
    433
    Reputation
    16
    Thanks
    310
    i went and made my own one of these ^_^ of course i didnt take the credit for making it though lol

Page 1 of 2 12 LastLast

Similar Threads

  1. Hello! i need help with the source code.
    By LatinHacker in forum Combat Arms Help
    Replies: 3
    Last Post: 05-14-2010, 10:32 PM
  2. Replies: 13
    Last Post: 02-22-2010, 10:59 AM
  3. [Release] Nexon Account Creator EU
    By Houston in forum Combat Arms Europe Hacks
    Replies: 28
    Last Post: 11-08-2009, 11:09 AM
  4. [Release] Nexon Account Creator USA
    By Houston in forum Combat Arms Spammers, Injectors and Multi Tools
    Replies: 121
    Last Post: 10-21-2009, 01:54 PM
  5. buy a account warrock with retails famasorretail code famas
    By dj-Vodafone in forum Trade Accounts/Keys/Items
    Replies: 1
    Last Post: 10-17-2008, 09:52 AM

Tags for this Thread