Help thread : Post all questions/Answers here!

Most helpful reply5 thanks

At lolland::

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

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.

Posts 1–15 of 27 · Page 1 of 2

Help thread : Post all questions/Answers here!

This thread was made to help organize this section, so people will stop making help threads.

All questions on visual basics can be posted here. Normal users are more than welcome to post answers here.
Even the really dumb questions can be posted here.

After I see some questions that might be commonly asked, I will edit this posts with them, and the answers, so that people wont have to scroll down or search the pages thousands of times.

If you want live help, then use my IM:
PixieCorp@live.com

Commonly asked questions so far:

NONE

I dont need help but i have seen much people that needs help with the injector!

Some1 maybe wanna make a tutorial?

Originally Posted by Zoom

I dont need help but i have seen much people that needs help with the injector!

Some1 maybe wanna make a tutorial?

Yeah, I been asking a lot of people on help on injector (multi-dll inject), but they just turn down on me.

I can tell you now, I am going to need alot of help..

Im not that old.. I kno more than kids my age on computer's

but still im a kid,

Any1 help me on the injector?

Ive created a VB project, Now how do i acctually use it and release it?

Originally Posted by FlashDrive

Ive created a VB project, Now how do i acctually use it and release it?

Click file>Save All>Ok
Then debug your project, then close out of the project (Not visual basics itself)
Now go to C:/My Documents/Visual Studio 2008/Projects/Project name/Project name folder/Bin/Debug/Project name.exe

Originally Posted by FlashDrive

Ive created a VB project, Now how do i acctually use it and release it?

Okay, This is how i do it,

Goto

My Document's > Visual Studio 2008 (or w.e Version you have) > Project's > " Project's name" > Click the Folder > OBJ > Debug > the one witht he white box, Double click, if it pop's up as your Form and your project Drag to desktop

(Drag the file Like Exampple My Inferno Spamer I dragg'ed it to my)

Make a Rar file Creat a thread, Post it Upload it and BAM

Originally Posted by Pixie

Click file>Save All>Ok
Then debug your project, then close out of the project (Not visual basics itself)
Now go to C:/My Documents/Visual Studio 2008/Projects/Project name/Project name folder/Bin/Debug/Project name.exe

That's your debugged version. Actually build your project, then go to
C:/My Documents/Visual Studio 2008/Projects/Project name/Project name folder/Bin/Release/Project name.exe
XD

Originally Posted by Calebb

That's your debugged version. Actually build your project, then go to
C:/My Documents/Visual Studio 2008/Projects/Project name/Project name folder/Bin/Release/Project name.exe
XD

That's the nooby installer like thing
Nobody trust one of those...

Nooby installer? Rofl. Thats publish. Building is whenever you have your final product. lmao.

I just deleted all of the off-topic posts
Any more, and you might just get a ban

ok I need help making an injector from this thread,
http://www.mpgh.net/forum/33-visual-...injection.html
except, I dont know the components.

You can't ban..

Originally Posted by Calebb

You can't ban..

Stay on Topic,

-------------

My Current Project : BlackFog - Keylogger' ;()
I made one, But if you back space you get like this

I cant get the Alt code but they look like this

[][][][][][][][] - So yeh,

If anyone can post a tutorial on (non email'ed) keyloogger's

Thanks