Page 1 of 2 12 LastLast
Results 1 to 15 of 23
  1. 10-22-2009 #1
    CodeHPro
    CodeHPro is offline
    Banned
    BANNED!
    CodeHPro's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    116
    Reputation
    10
    Thanks
    76
    My Mood
    Aggressive
    Send a message via Birdie™ to CodeHPro

    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. 10-22-2009 #2
    CodeHPro
    CodeHPro is offline
    Threadstarter
    Banned
    BANNED!
    CodeHPro's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    116
    Reputation
    10
    Thanks
    76
    My Mood
    Aggressive
    Send a message via Birdie™ to CodeHPro
    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.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("https://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
    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. 10-22-2009 #3
    CoderNever
    CoderNever is offline
    MPGH Expert
    MPGH Member
    CoderNever's Avatar
    Join Date
    Feb 2009
    Gender
    female
    Location
    https://mpgh.net MPGHCash: $700,458,011
    Posts
    1,198
    Reputation
    131
    Thanks
    2,236
    My Mood
    Buzzed
    Send a message via Birdie™ to CoderNever United States
    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. 10-22-2009 #4
    ark1227
    ark1227 is offline
    Member
    MPGH Member
    ark1227's Avatar
    Join Date
    Dec 2008
    Gender
    male
    Location
    I should know this...
    Posts
    110
    Reputation
    10
    Thanks
    7
    My Mood
    Devilish
    Send a message via Birdie™ to ark1227 Canada
    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. 10-22-2009 #5
    guza44_44
    guza44_44 is offline
    Dual-Keyboard Member
    MPGH Member
    guza44_44's Avatar
    Join Date
    Oct 2008
    Gender
    male
    Posts
    433
    Reputation
    16
    Thanks
    310
    Send a message via Birdie™ to guza44_44 United States
    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
    [IMG]https://i304.photobucke*****m/albums/nn168/guza44/sig-1.png[/IMG]
  10. 10-22-2009 #6
    CodeHPro
    CodeHPro is offline
    Threadstarter
    Banned
    BANNED!
    CodeHPro's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    116
    Reputation
    10
    Thanks
    76
    My Mood
    Aggressive
    Send a message via Birdie™ to CodeHPro
    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. 10-22-2009 #7
    Pixie
    Pixie is offline
    Blackhat Hacker
    MPGH Member
    Pixie's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Pixie wird wieder steigen.
    Posts
    1,884
    Reputation
    22
    Thanks
    229
    My Mood
    Fine
    Send a message via Birdie™ to Pixie United States
    OMG FINALLY THANK YOU FOR MAKING THIS!!

    I will test it out in a second...
  12. 10-22-2009 #8
    JIGS4W
    JIGS4W is offline
    Live Fast Die Young
    MPGH Member
    JIGS4W's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Posts
    2,906
    Reputation
    48
    Thanks
    156
    Send a message via Birdie™ to JIGS4W Australia
    Woohoo ur teh best

  13. 10-23-2009 #9
    ac1d_buRn
    ac1d_buRn is offline
    karma's a bitch; right?
    MPGH Member
    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
    Send a message via Birdie™ to ac1d_buRn Australia
    Thanks man (:
  14. 10-23-2009 #10
    Zoom
    Zoom is offline
    MPGH God IV
    MPGH Member
    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,970
    My Mood
    Happy
    Send a message via Birdie™ to Zoom Sweden
    Very nice but my TEXT never gets green waited 5 mins.. Please help!
    -Rest in peace leechers-

    Your PM box is 100% full.
  15. 10-23-2009 #11
    pl0xy
    pl0xy is offline
    Leecher
    pl0xy's Avatar
    Join Date
    Feb 2009
    Gender
    male
    Location
    Nowhere
    Posts
    3
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to pl0xy Albania
    Quote Originally Posted by hejsan1 View Post
    Very nice but my TEXT never gets green waited 5 mins.. Please help!
    Same here.
  16. 10-23-2009 #12
    Iamazn1
    Iamazn1 is offline
    Dual-Keyboard Member
    MPGH Member
    Iamazn1's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    407
    Reputation
    12
    Thanks
    50
    Send a message via Birdie™ to Iamazn1 United States
    Let's all watch as 1000 noobs who think they can code copy/paste this and release it.
  17. 10-23-2009 #13
    Zoom
    Zoom is offline
    MPGH God IV
    MPGH Member
    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,970
    My Mood
    Happy
    Send a message via Birdie™ to Zoom Sweden
    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. 10-23-2009 #14
    Iamazn1
    Iamazn1 is offline
    Dual-Keyboard Member
    MPGH Member
    Iamazn1's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    407
    Reputation
    12
    Thanks
    50
    Send a message via Birdie™ to Iamazn1 United States
    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. 10-23-2009 #15
    guza44_44
    guza44_44 is offline
    Dual-Keyboard Member
    MPGH Member
    guza44_44's Avatar
    Join Date
    Oct 2008
    Gender
    male
    Posts
    433
    Reputation
    16
    Thanks
    310
    Send a message via Birdie™ to guza44_44 United States
    i went and made my own one of these ^_^ of course i didnt take the credit for making it though lol
    [IMG]https://i304.photobucke*****m/albums/nn168/guza44/sig-1.png[/IMG]
Page 1 of 2 12 LastLast
« Previous Thread | Next Thread »

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. AssaultCube v1.0.2 teleport hack,fly mode,teleport flag , with full source code
    By CodeHPro in forum Visual Basic Programming
    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