(adsbygoogle = window.adsbygoogle || []).push({});

//This is my first tutorial.. Be nice lol

In this tutorial I will teach you how to:

• How to use a progress bar
  
• Making a basic Spam Bot
  
• Making a Basic E-Mail Spammer (Not Finished yet! I'm to tired)
  

What You Will Need:
Visual Basic 2008 / 2010 - You must login or register to view this content.
Latest .NET Framework - You must login or register to view this content.

Introduction:
Visual Basic .NET (VB.NET) is an object-oriented computer programming language that can be viewed as an evolution of Microsoft's Visual Basic (VB) which is generally implemented on the Microsoft .NET Framework. Microsoft currently supplies Visual Basic Express Edition free of charge.
You must login or register to view this content.

Beginners Tutorials!:

A. Increasing the value of a progress bar!

Step 1:
Open Visual Basic 2008 or 2010. (Visual Studio 2008 / 2010 is also fine)

Step 2:
Click File -> Project.
You must login or register to view this content.

Step 3:
Select Windows Forms Application -> Select Name -> Click OK.
You must login or register to view this content.

Step 4:
Set Start Position to Middle Screen if you want to -> Type Form text.
You must login or register to view this content.

Step 5:
Now add 1 Timer, 2 Buttons and 1 Progress bar.
You must login or register to view this content.

Step 6:
Now, double click both buttons and the timer. You should get this in the code:
You must login or register to view this content.

Step 7:
Finally enter this code:
You must login or register to view this content.

    Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Start()

    End Sub



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

        Timer1.Stop()

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ProgressBar1.Increment(+2)

    End Sub

End Class

Explanation!

    Timer1.Start()

Starts the timer.

    Timer1.Stop()

Stops the timer.

    ProgressBar1.Increment(+2)

That increases the increment on the progress bar by 2 each time the timer ticks. You can change (+2) To whatever suits your application.

Congratulations! You are done! :y:

B. Basic Spam Bot!


Step 1:
Repeat the steps 1-4 from the past tutorial.

Step 2:
Add 1 Timer, 2 Buttons (Start & Stop), 2 Text Boxes(1 to speed and 1 to text) And 2 Radio buttons(Optional, Chooses Seconds / Milliseconds)
Set the Text Box to "Multi line"
Should look something like this:
You must login or register to view this content.
You must login or register to view this content.

Step 3:
Double click both Buttons, Radio Buttons and the Timer to show the code. Enter The code i have done:
You must login or register to view this content.


Step 4:
Test it in notepad to ensure it works:
You must login or register to view this content.

It works! Have Fun!! :evil:
Full code:

    Public Class Form1

'www.NextGenUpdate.com

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton1.Checked = True Then

            Timer1.Interval = TextBox2.Text + "000"

            Timer1.Start()

        Else

            Timer1.Interval = TextBox2.Text

            Timer1.Start()

        End If

    End Sub



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

        Timer1.Stop()

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        SendKeys.Send(TextBox1.Text)

        SendKeys.Send("{ENTER}")

    End Sub



    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = True Then

            TextBox2.Text = "1"

        End If

    End Sub



    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then

            TextBox2.Text = "1000"

        End If

    End Sub

End Class

C. E-Mail Spammer


THIS IS JUST A COPY & PASTE FROM MY FINISHED PROJECT!
I WAS TO TIRED TO MAKE A NEW E-MAIL BOT :sleep:

Step 1:

Create a new project.

Step 2:

Add 2 Buttons, Start & Stop, 6 Text Boxes. Thats the basics, but you can use labels etc...
This is what mine finished looks like:
You must login or register to view this content.
I used .Net Bar & Krypton Suite to create that. Google it

Step 3:
At the very top enter " Imports System.Net.Mail " (Without "")
Like this:
You must login or register to view this content.

Step 4:

If you copy my code:

textbox1 will be : You're G-Mail
textbox2 will be : You're G-Mail Password
textbox3 will be : Victims E-Mail
textbox4 will be : Mail Body
textbox5 will be : Mail Subject
textbox6 will be : Timer1 Interval

Double click button1 and enter this code:

    

        

 Timer1.Interval = TextBox6.Text

        Timer1.Enabled = True

'www.NextGenUpdate.com

        Dim MyMailMessage As New MailMessage()

        Try

            MyMailMessage.From = New MailAddress(TextBox1.Text)

            MyMailMessage.To.Add(TextBox3.Text)

            MyMailMessage.Subject = TextBox5.Text

            MyMailMessage.Body = TextBox4.Text

            Dim SMTP As New SmtpClient("smtp.gmail.com")

            SMTP.Port = 587

            SMTP.EnableSsl = True

            SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

            SMTP.Send(MyMailMessage)



        Catch ex As Exception

        End Try

Step 5:

Double click Button2 and add this code:

    

'www.NextGenUpdate.com

Timer1.Enabled = False

        Timer1.Interval = TextBox6.Text

        Beep()

Step 6:

Double click timer1 and add this code:

    

Timer1.Interval = TextBox6.Text

        Timer1.Enabled = True

'www.NextGenUpdate.com

 Dim MyMailMessage As New MailMessage()

        Try

            MyMailMessage.From = New MailAddress(TextBox1.Text)

            MyMailMessage.To.Add(TextBox3.Text)

            MyMailMessage.Subject = TextBox5.Text

            MyMailMessage.Body = TextBox4.Text

            Dim SMTP As New SmtpClient("smtp.gmail.com")

            SMTP.Port = 587

            SMTP.EnableSsl = True

            SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

            SMTP.Send(MyMailMessage)

        Catch ex As Exception

        End Try

Any suggestions on next tutorial? Please leave a comment <3

I will be starting on a guide for more advanced coders later. =D

i will thank tmoz nice post keep going

Very nice thread definitely keep on helping people!

Thanks dude! =D