[VB8] MSN DP Stealer Tutorial [VB8]

[Fragma]

Ok so in this tutorial I will be guiding you through creating your own MSN DP Stealer.
If you do decide to use this in your application, please make sure you give full credits to me. Also I do ask that nobody posts this elsewhere without my permission.

For this tutorial you will need:
- ListBox x1
- PictureBox x1
- Button x3 (Scan, Set as DP, Save)

Firstly we will start off with the Imports,

Code:

Imports System.Drawing.Imaging
Imports MessengerAPI

Note: To import MessengerAPI, go to Project > Add Reference > COM > MessengerAPI.

After importing MessengerAPI you must declare the following,

Code:

Public msn As New MessengerAPI.Messenger

Next up you need to get the location of each display picture & place it in the ListBox,
(Place this under Button1_Click (Scan))

Code:

On Error Resume Next
Dim Locate As String = IO.Path.GetTempPath & "\MessengerCache\"
ListBox1.Items.AddRange(IO.Directory.GetFiles(Locate))

Now you need to display the DP in a picturebox if a user clicks on an item in the listbox or navigates through them with their up & down buttons.
Place the following under ListBox_MouseClick, ListBox_KeyDown & ListBox_KeyUp,

Code:

PictureBox1.ImageLocation = ListBox1.SelectedItem.ToString

Now all there is to do is saving the DP as an image file, & displaying the image as your MSN DP.

To set the image as your MSN DP, place the following under Button2_Click (Set as DP),

Code:

Try
   msn.MyProperty(2) = ListBox1.SelectedItem.ToString
   PictureBox1.ImageLocation = ListBox1.SelectedItem.ToString
   MsgBox("Display picture has been successfully stolen")
Catch ex As Exception
End Try

And finally, to save the DP as an image file, place the following under Button3_Click (Save),

Code:

Dim sfd As New SaveFileDialog
With sfd
            .Filter = "Image Files|*.jpg;*.gif;*.bmp;*.png|All Files|*.*"
            .DefaultExt = ".gif"
            .Title = "Display Picture"
            .FileName = ""
            .FilterIndex = 1
   If .ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
      Select Case .FilterIndex

                Case 1
                        Me.PictureBox1.Image.Save(.FileName, ImageFormat.Jpg)

                Case 2
                        Me.PictureBox1.Image.Save(.FileName, ImageFormat.Gif)

                Case 3
                        Me.PictureBox1.Image.Save(.FileName, ImageFormat.Bmp)

                Case 4
                        Me.PictureBox1.Image.Save(.FileName, ImageFormat.Png)

       End Select
   End If
End With

And thats everything!
Your final result should look something like this,


Thanks,
Jack