[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

[JesusOfSuburbia]

thank's man for this..I have to re-install VB8 on my pc and then i give a try to your source

[N'aix]

Well thanks for this. Now Ill try it.

[Deities]

Seems cool. Thanks for this. Im just starting out coding and this should be a good try for someone like me.

[mmki]

Ive done alot of stuff with the messenger API. But ive never thought of doing this. Great one bro

[danny0085]

I use this msn for linux . It worked for me

[The Don Killuminati]

Thank you for the Tut, may be old but fixed up the code and worked.

<3

[Fragma]

Thank you for the Tut, may be old but fixed up the code and worked.

<3

Code still works perfect with the newest MSN as far as I'm aware.

[Emily]

You could also just take a picture of their display picture and upload it, but this is a lot easier. Nice work.