Help thread : Post all questions/Answers here!

[Pixie]

You can't ban..

I never said I could
All I have to do is get Obama

[Calebb]

@ nexon, you said you need help with a non emailed keylogger. That's not really possible. Unless you wanna keylog your self and make the logs in a .txt file. Sorry. :/
If you can find another way to get the logs to your computer from somebody elses.
Grats, and i would love to know how.

[N3XON]

Ok, scratch that about. The non email one.. I just thought that you could send a program and it would send you seed to like a note pad or a hidden part of a program u can see ... Well I guess il make a emailed one ... G. PostedFrom - ipodtouch

[Calebb]

Yeah I don't think there's anyway to do that. :/ Sorry.

[mnpeep]

alot of people asked me to do a tut on how to make a chat room, should i?
if you think this is off-topic then your wrong, it's a question.

[Lolland]

alot of people asked me to do a tut on how to make a chat room, should i?
if you think this is off-topic then your wrong, it's a question.

Honestly, yes. It's very simple, but lots of people have no clue how to. I think it'll be a great addition to the tutorials.

[mnpeep]

ok ill make it over the weekend

[Lolland]

How would I make a Nexon Account Generator?

I'm not asking for a tutorial, but what would the method be?

[Calebb]

At lolland::

    Dim captchurl As String
    Private Sub fillinfo()
        WebBrowser1.Document.All("txtAccountId").SetAttribute("value", id.Text)
        WebBrowser1.Document.All("txtPassword").SetAttribute("value", password.Text)
        WebBrowser1.Document.All("txtPasswordConfirmation").SetAttribute("value", Form2.password.Text)
        WebBrowser1.Document.All("txtEmail").SetAttribute("value", email.Text)
        WebBrowser1.Document.All("txtFirstName").SetAttribute("value", Form2.fname.Text)
        WebBrowser1.Document.All("txtLastName").SetAttribute("value", Form2.lname.Text)
        WebBrowser1.Document.All("ddlBirthMonth").SetAttribute("value", Form2.bmonth.Text)
        WebBrowser1.Document.All("ddlBirthDay").SetAttribute("value", Form2.bday.text)
        WebBrowser1.Document.All("ddlBirthYear").SetAttribute("value", Form2.byear.text)
        WebBrowser1.Document.All("txtEmailConfirmation").SetAttribute("value", Form2.email.Text)
  For Each InputBx As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
            If (InputBx.GetAttribute("type").ToLower = "radio") AndAlso (InputBx.GetAttribute("value").ToLower = "0") Then
                InputBx.InvokeMember("Click")
            End If
        Next
        WebBrowser1.Document.All("chkTermofuse").InvokeMember("click")
    End Sub
     Private Sub getcaptcha()
        Dim nn As String = WebBrowser1.Document.Body.InnerHtml

        Dim tb1 As String = nn
        Dim findStart As String, pulledOut As String
        findStart = "properties="
        Dim start As Integer, [end] As Integer
        start = tb1.IndexOf(findStart)
        tb1 = tb1.Remove(0, start + findStart.Length)
        [end] = tb1.IndexOf("""")
        tb1 = tb1.Remove([end], tb1.Length - [end])
        pulledOut = tb1
        capurl.Text = ""
        capurl.Text = ("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 fillfastinfo()
        WebBrowser1.Document.All("txtAccountId").SetAttribute("value", id.Text)
        WebBrowser1.Document.All("txtPassword").SetAttribute("value", password.Text)
        WebBrowser1.Document.All("txtPasswordConfirmation").SetAttribute("value", password.Text)
        WebBrowser1.Document.All("txtEmail").SetAttribute("value", email.Text)
        WebBrowser1.Document.All("txtFirstName").SetAttribute("value", fname.Text)
        WebBrowser1.Document.All("txtLastName").SetAttribute("value", lname.Text)
        WebBrowser1.Document.All("ddlBirthMonth").SetAttribute("value", "1")
        WebBrowser1.Document.All("ddlBirthDay").SetAttribute("value", "18")
        WebBrowser1.Document.All("ddlBirthYear").SetAttribute("value", "1990")
        WebBrowser1.Document.All("txtEmailConfirmation").SetAttribute("value", email.Text)
        For Each InputBx As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
            If (InputBx.GetAttribute("type").ToLower = "radio") AndAlso (InputBx.GetAttribute("value").ToLower = "0") Then
                InputBx.InvokeMember("Click")
            End If
        Next
        WebBrowser1.Document.All("chkTermofuse").InvokeMember("click")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If WebBrowser1.StatusText = ("Done") Then
            If WebBrowser1.Document.All("txtAccountId") Is Nothing Then
                MsgBox("Something went wrong")
            Else
                randominfo()
                If CheckBox1.Checked = True Then
                    fillinfo()
                Else
                    fillfastinfo()
                End If
                getcaptcha()
                captcha.PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(capurl.Text)))
            End If
        Else
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If WebBrowser1.StatusText = ("Done") Then
            Label4.Text = ("Ready!")
            Button1.Enabled = True
            Label4.ForeColor = Color.Green
        Else
            Button1.Enabled = False
            Label4.Text = ("Not Ready!")
            Label4.ForeColor = Color.Red
        End If
    End Sub
    Private Sub wait(ByVal interval As Integer)
        Dim sw As New Stopwatch
        sw.Start()
        Do While sw.ElapsedMilliseconds <> interval
            ' Allows UI to remain responsive
            Application.DoEvents()
        Loop
        sw.Stop()
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.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("I do beleive something went wrong..Try Again?", MsgBoxStyle.Critical, "Error")
            End If
        End If
    End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lvi As ListViewItem
        lvi = New ListViewItem(id.Text)
        lvi.SubItems.Add(email.Text)
        lvi.SubItems.Add(password.Text)
        ListView1.Items.Add(lvi)

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub
    Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BlackAndBlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlackAndBlueToolStripMenuItem.Click
        Me.BackColor = Color.Black
        Me.ForeColor = Color.Blue
        Label4.BackColor = Color.Black
        Button1.ForeColor = Color.Blue
    End Sub

    Private Sub GreenAndBlackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenAndBlackToolStripMenuItem.Click
        Me.BackColor = Color.Black
        Me.ForeColor = Color.Green
        Label4.BackColor = Color.Black
        Button1.ForeColor = Color.Green
    End Sub

    Private Sub WhiteAndRedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WhiteAndRedToolStripMenuItem.Click
        Me.BackColor = Color.Red
        Me.ForeColor = Color.White
        Label4.BackColor = Color.Red
        Button1.ForeColor = Color.White
    End Sub

    Private Sub NormalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NormalToolStripMenuItem.Click
        Me.BackColor = Color.White
        Me.ForeColor = Color.Black
        Label4.BackColor = Color.White
        Button1.ForeColor = Color.Black
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        MsgBox("IF your not in the advanced view, Your information will be as follows; Birthday Month: 1; Birthday Day: 18; Birthday Year: 1990; If you are in advanced view, None of this information applys, You set your own.", MsgBoxStyle.Information, "Info")
        MsgBox("NOTE: If the accounts do not show up on the list below, Then that means it is in use, and you must try another.", MsgBoxStyle.Exclamation, "NOTE:")
        MsgBox("Also, Do not start entering your information until it says its ready!", MsgBoxStyle.Information, "Information Notice!:")
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

Full source. Just figure out what each button does. Etc. If you need it just ask me on msn for some help.

direct copy paste from a old project.. Give me creds if you use.

[zifra]

Can someone help me with a progressbar, i want to react it with email sending, so it wil be progressbar1.value = "100" whn the email is senden and that things, i use smtp

Edit:

and can someone tell me how to get things from a Listbox to a textbox and if i click more in the listbox that the textbox will put it next to the thing that is allready in the textbox and seperated with a ,

like text,text

[Calebb]

@ zifra


For the 'more' button:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "Current Text" & "," & ListBox1.SelectedItem

And also with the progress bar.
You could do like

progressbar.value +=1

Over and over again.
Hope i helped.

[zifra]

@ zifra


For the 'more' button:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "Current Text" & "," & ListBox1.SelectedItem

And also with the progress bar.
You could do like

progressbar.value +=1

Over and over again.
Hope i helped.

Thx for the help