Coming Soon After September 24th

Coming Soon After September 24th:

1.Finding a program's MD5 code (Contest)
2.30-days trial

How To Make A File Deleter

Add 2 Buttons, 1 Label and 1 TextBox called Browse, Delete, Path
Double-click on Browse and type in the following code:

Dim OpenFile As New OpenFileDialog
        OpenFile.Title = "Open"
        OpenFile.Filter = "All Files|*.*"
        OpenFile.ShowDialog()
        TextBox1.Text = OpenFile.FileName

Next, double-click on Delete and type in the following code:
Kill (TextBox1.Text)

Before:

After:

It's gone

Project download link: http://www.4shared.com/file/RRcZS90v/VBNET-File_Deleter.html

How To Use The OpenFileDialog

Add a button called Browse
Double-click on it and insert the following codes:

Dim OpenFile As New OpenFileDialog
        OpenFile.Title = "Open"
        OpenFile.Filter = "All Files|*.*"
        OpenFile.ShowDialog()
        TextBox1.Text = OpenFile.FileName

Kaspersky Anti-Virus 2010 Key Maker Full Edition (Beta)

This program is still in beta
Functions:
*Saves code to a .txt file
*Lock your program so no one can use it (Work in progress)

Download link: http://www.4shared.com/file/eHJB7eVj/Kaspersky_Anti-Virus_2010_Key_.html

How To Make A MD5 Encryter

Well, today I am going to teach you how to make a MD5 encrypter
I will teach you how to make a MD5 decrypter soon
But I am not done with my MD5 decrypter

Insert 2 Labels
2 TextBoxes
and
1 Button

Name the 2 Labels
1 Input and the other one Output
Rename the button to Encrypt

So you have something like this:

Paste this code into your project:
Private Function StringToMD5(ByVal Content) As String
        Dim M5 As New Security.Cryptography.MD5CryptoServiceProvider

        Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
        ByteString = M5.ComputeHash(ByteString)

        Dim FinalString As String = Nothing
        For Each bt As Byte In ByteString
            FinalString &= bt.ToString("x2")
        Next
        Return FinalString
    End Function

Once you're done
Double click on your button
Type in the following code:
  txtOutput.Text = StringToMD5(txtInput.Text)

Done!

How To Use The SaveFileDialog

First add a button or a menu strip saying "Save"
Double click on the button or menu strip
Put in this code: (You do not need to put in a SaveFileDialog)


  Dim SaveFile As New SaveFileDialog
        SaveFile.FileName = "Keys"
        SaveFile.Filter = "Text Files|*.txt"
        SaveFile.Title = "Save"
        SaveFile.ShowDialog()
        Try
            Dim Write As New System.IO.StreamWriter(SaveFile.FileName)
            Write.Write(TextBox1.Text)
            Write.Close()
        Catch ex As Exception
        End Try


The whole thing will be like this:

I won't be posting much unless after 24th of September as I am having a test
If you have any request about VB tutorials
Then send me an email
Email: tutorialsvb@hotmail.com

Progress Bar Control

Many people keep asking "How do you show the percentage for the progress bar"
Well it is actually quite simple

All you have to do is add just 2 lines of code:

ProgressBar1.Increment(1)
Label( ).Text = ProgressBar1.Value

If u still don't understand what I am saying
Then you may download the source code
Note: You need VB 2010 (Sorry)

Download link: http://www.4shared.com/file/e6DNxdIW/VBNET-Progress_Bar_Control.html

Kaspersky Licence Key Generator (Free Version)

This is my Kaspersky Anti-Virus 2010 Key Maker Free Edition
I made it myself in VB 2010

You may download if u wish
The link in the program doesn't work yet
No virus detected
Scan results: http://www.virustotal.com/analisis/8c4e88ad644cab143791d66f093ce31c8733d2c98b7dd215c2da39f82aac6e2f-1281107893


 Download link: http://www.4shared.com/file/LiLRtfJp/Kaspersky_Anti-Virus_2010_Key_.html