Originally Posted by Calebb
You can't ban..
All I have to do is get Obama
Originally Posted by Calebb
All I have to do is get Obama
Help thread : Post all questions/Answers here!
Originally Posted by Calebb
All I have to do is get Obama
@ 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.
If you can find another way to get the logs to your computer from somebody elses.
Grats, and i would love to know how.
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
Yeah I don't think there's anyway to do that. :/ Sorry.
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.
if you think this is off-topic then your wrong, it's a question.
Originally Posted by 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.
if you think this is off-topic then your wrong, it's a question.
ok ill make it over the weekend 
How would I make a Nexon Account Generator?
I'm not asking for a tutorial, but what would the method be?
I'm not asking for a tutorial, but what would the method be?
At lolland::
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.
Code:
Dim captchurl As String
Private Sub fillinfo()
WebBrowser1.Document.All("txtAccountId").SetAttribute("value", id.Text)
WebBrowser1.Document.All("txtPassword").SetAttribute("value", password.Text)
WebBrowser1.Document.All("txtPasswordConfirmation").SetAttribute("value", Form2.password.Text)
WebBrowser1.Document.All("txtEmail").SetAttribute("value", email.Text)
WebBrowser1.Document.All("txtFirstName").SetAttribute("value", Form2.fname.Text)
WebBrowser1.Document.All("txtLastName").SetAttribute("value", Form2.lname.Text)
WebBrowser1.Document.All("ddlBirthMonth").SetAttribute("value", Form2.bmonth.Text)
WebBrowser1.Document.All("ddlBirthDay").SetAttribute("value", Form2.bday.text)
WebBrowser1.Document.All("ddlBirthYear").SetAttribute("value", Form2.byear.text)
WebBrowser1.Document.All("txtEmailConfirmation").SetAttribute("value", Form2.email.Text)
For Each InputBx As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If (InputBx.GetAttribute("type").ToLower = "radio") AndAlso (InputBx.GetAttribute("value").ToLower = "0") Then
InputBx.InvokeMember("Click")
End If
Next
WebBrowser1.Document.All("chkTermofuse").InvokeMember("click")
End Sub
Private Sub getcaptcha()
Dim nn As String = WebBrowser1.Document.Body.InnerHtml
Dim tb1 As String = nn
Dim findStart As String, pulledOut As String
findStart = "properties="
Dim start As Integer, [end] As Integer
start = tb1.IndexOf(findStart)
tb1 = tb1.Remove(0, start + findStart.Length)
[end] = tb1.IndexOf("""")
tb1 = tb1.Remove([end], tb1.Length - [end])
pulledOut = tb1
capurl.Text = ""
capurl.Text = ("http://passport.nexon.net/Registration/FormShieldHttpHandler.aspx?__formShieldID=captchaFS&generate=image&properties=") & pulledOut
captcha.Show()
End Sub
Private Sub randominfo()
Dim source As String
Dim MyWebClient As New System.Net.WebClient()
source = MyWebClient.DownloadString("http://www.fakenamegenerator.com/gen-random-en-us.php")
'nfame
Dim tb1 As String = source
Dim findStart As String, pulledOut As String
findStart = "fireform.php?identity="
Dim start As Integer, [end] As Integer
start = tb1.IndexOf(findStart)
tb1 = tb1.Remove(0, start + findStart.Length)
[end] = tb1.IndexOf("-")
tb1 = tb1.Remove([end], tb1.Length - [end])
pulledOut = tb1
fname.Text = pulledOut
'lfame
Dim tb2 As String = source
Dim findStart1 As String, pulledOut1 As String
findStart1 = "fireform.php?identity=" & fname.Text & "--"
Dim start1 As Integer, [end2] As Integer
start1 = tb2.IndexOf(findStart1)
tb2 = tb2.Remove(0, start1 + findStart1.Length)
[end2] = tb2.IndexOf("--")
tb2 = tb2.Remove([end2], tb2.Length - [end2])
pulledOut1 = tb2
lname.Text = pulledOut1
End Sub
Private Sub fillfastinfo()
WebBrowser1.Document.All("txtAccountId").SetAttribute("value", id.Text)
WebBrowser1.Document.All("txtPassword").SetAttribute("value", password.Text)
WebBrowser1.Document.All("txtPasswordConfirmation").SetAttribute("value", password.Text)
WebBrowser1.Document.All("txtEmail").SetAttribute("value", email.Text)
WebBrowser1.Document.All("txtFirstName").SetAttribute("value", fname.Text)
WebBrowser1.Document.All("txtLastName").SetAttribute("value", lname.Text)
WebBrowser1.Document.All("ddlBirthMonth").SetAttribute("value", "1")
WebBrowser1.Document.All("ddlBirthDay").SetAttribute("value", "18")
WebBrowser1.Document.All("ddlBirthYear").SetAttribute("value", "1990")
WebBrowser1.Document.All("txtEmailConfirmation").SetAttribute("value", email.Text)
For Each InputBx As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If (InputBx.GetAttribute("type").ToLower = "radio") AndAlso (InputBx.GetAttribute("value").ToLower = "0") Then
InputBx.InvokeMember("Click")
End If
Next
WebBrowser1.Document.All("chkTermofuse").InvokeMember("click")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If WebBrowser1.StatusText = ("Done") Then
If WebBrowser1.Document.All("txtAccountId") Is Nothing Then
MsgBox("Something went wrong")
Else
randominfo()
If CheckBox1.Checked = True Then
fillinfo()
Else
fillfastinfo()
End If
getcaptcha()
captcha.PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(capurl.Text)))
End If
Else
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If WebBrowser1.StatusText = ("Done") Then
Label4.Text = ("Ready!")
Button1.Enabled = True
Label4.ForeColor = Color.Green
Else
Button1.Enabled = False
Label4.Text = ("Not Ready!")
Label4.ForeColor = Color.Red
End If
End Sub
Private Sub wait(ByVal interval As Integer)
Dim sw As New Stopwatch
sw.Start()
Do While sw.ElapsedMilliseconds <> interval
' Allows UI to remain responsive
Application.DoEvents()
Loop
sw.Stop()
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If WebBrowser1.DocumentText.Contains("Activate your account") Then
wait(1000)
Dim lvi As ListViewItem
lvi = New ListViewItem(id.Text)
lvi.SubItems.Add(email.Text)
lvi.SubItems.Add(password.Text)
ListView1.Items.Add(lvi)
WebBrowser1.Navigate("http://passport.nexon.net/Registration/Signup.aspx?nexonTheme=Nexon")
Else
If WebBrowser1.DocumentText.Contains("FormShield") Then
Else
MsgBox("I do beleive something went wrong..Try Again?", MsgBoxStyle.Critical, "Error")
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim lvi As ListViewItem
lvi = New ListViewItem(id.Text)
lvi.SubItems.Add(email.Text)
lvi.SubItems.Add(password.Text)
ListView1.Items.Add(lvi)
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub BlackAndBlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlackAndBlueToolStripMenuItem.Click
Me.BackColor = Color.Black
Me.ForeColor = Color.Blue
Label4.BackColor = Color.Black
Button1.ForeColor = Color.Blue
End Sub
Private Sub GreenAndBlackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenAndBlackToolStripMenuItem.Click
Me.BackColor = Color.Black
Me.ForeColor = Color.Green
Label4.BackColor = Color.Black
Button1.ForeColor = Color.Green
End Sub
Private Sub WhiteAndRedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WhiteAndRedToolStripMenuItem.Click
Me.BackColor = Color.Red
Me.ForeColor = Color.White
Label4.BackColor = Color.Red
Button1.ForeColor = Color.White
End Sub
Private Sub NormalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NormalToolStripMenuItem.Click
Me.BackColor = Color.White
Me.ForeColor = Color.Black
Label4.BackColor = Color.White
Button1.ForeColor = Color.Black
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
MsgBox("IF your not in the advanced view, Your information will be as follows; Birthday Month: 1; Birthday Day: 18; Birthday Year: 1990; If you are in advanced view, None of this information applys, You set your own.", MsgBoxStyle.Information, "Info")
MsgBox("NOTE: If the accounts do not show up on the list below, Then that means it is in use, and you must try another.", MsgBoxStyle.Exclamation, "NOTE:")
MsgBox("Also, Do not start entering your information until it says its ready!", MsgBoxStyle.Information, "Information Notice!:")
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
direct copy paste from a old project.. Give me creds if you use.
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
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
@ zifra
For the 'more' button:
And also with the progress bar.
You could do like
Over and over again.
Hope i helped.
For the 'more' button:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "Current Text" & "," & ListBox1.SelectedItem
You could do like
Code:
progressbar.value +=1
Hope i helped.
Originally Posted by Calebb
@ zifra
For the 'more' button:
And also with the progress bar.
You could do like
Over and over again.
Hope i helped.
For the 'more' button:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "Current Text" & "," & ListBox1.SelectedItem
You could do like
Code:
progressbar.value +=1
Hope i helped.
This thread is closed for replies.
