[RESOLVED] [2008] Msn Messenger Display Pictures Editor

[perito]

So I downloaded CE/DP Stealer 6.0 and scanned my pc and found A LOT of old display pictures.
how can i COMPLETLY delete them from my PC using a program made in VB.Net? I dont want any software to be able to get them back...
Does anyone know where Msn Messenger stores these pictures?
thx

[perito]

ok ill ask this question in another way,
First, if u have a folder full of images, how to put them in a list view box all together? (ofcourse in a small size so they fit)

[gooden]

if im understanding you whant to list all images in a folder and then make a listview with the images correct?

[gooden]

So here it is.

1º Add a listview, and a listimage.
then add code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim files() As String
        files = System.IO.Directory.GetFiles("C:\folder", "*.jpg", IO.SearchOption.TopDirectoryOnly)
        Dim i = 0
        For Each fname As String In files
            Debug.Print(fname)
            Dim bmp As Bitmap = New Bitmap(fname)
            ImageList1.Images.Add(fname, bmp)
            ListView1.Items.Add(fname, i)
            i = i + 1
        Next
    End Sub

[perito]

ok... this seems like the right thing
but i searched and i cant figure it out... how to see the images?
i mean i see the path
but where are the thumbnails?

[perito]

so should i add the images to the listview or can i show the image list?

[TokersBall_CDXX]

Set the listview's largeimagelist to the name of your imagelist, set the largeimagelist's image size to around 64x64, set the listview to tile mode.. adjust the tile size and you should be good.

[perito]

Set the listview's largeimagelist to the name of your imagelist, set the largeimagelist's image size to around 64x64, set the listview to tile mode.. adjust the tile size and you should be good.

ListView1.LargeImageList.ImageSize = 64 * 64
is not working

how to set the largeimagelist's image size to around 64x64, and how to set the listview to tile mode???

[TokersBall_CDXX]

set those properties in the properties explorer when you have the listview selected.

[perito]

isnt it possible to do it in coding?
and after puting the images in the list view... how to get the selected image's path/address when a person clicks on button2?

[TokersBall_CDXX]

yes you can access the properties during runtime...

I recommend you review some of the documentation at the msdn.

[perito]

i cant figure it out
whats wrong with this code

ListView1.LargeImageList.ImageSize.Width = 64
ListView1.LargeImageList.ImageSize.Height = 64

im getting expression is a value and therefore cannot be the target of an assignment...

and another thing, when the images are placed in the listview, the path to the file is placed too... i dont want it to be shown... is that possible?
thx

[gooden]

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim files() As String
        files = System.IO.Directory.GetFiles("C:\outfit", "*.jpg", IO.SearchOption.TopDirectoryOnly)
        Dim i = 0
        ListView1.LargeImageList.ImageSize = New Size(64, 64)
        For Each fname As String In files
            Debug.Print(fname)
            Dim bmp As Bitmap = New Bitmap(fname)
            ImageList1.Images.Add(fname, bmp)
            ListView1.Items.Add(fname, i)
            i = i + 1
        Next
    End Sub

only add this line at the beggining:
ListView1.LargeImageList.ImageSize = New Size(64, 64)

[perito]

oh i figured it out
u must change the size of the imagelist images not the listview. thx

PS: i didnt see the last reply
ill check it out
thx

[perito]

how to find the correct path to the messenger cach
its C:\Documents and Settings\Username\Local Settings\Temp\MessengerCache

but whats the code to find this path (find username)?

[gooden]

Put this First

    Declare Function GetUserName Lib "advapi32.dll" Alias _
          "GetUserNameA" (ByVal lpBuffer As String, _
          ByRef nSize As Integer) As Integer

    Public Function GetUserName() As String
        Dim iReturn As Integer
        Dim userName As String
        userName = New String(CChar(" "), 50)
        iReturn = GetUserName(userName, 50)
        GetUserName = userName.Substring(0, userName.IndexOf(Chr(0)))
    End Function

and the replace the code.

files = System.IO.Directory.GetFiles("C:\Documents and Settings\" & GetUserName() & "\Local Settings\Temp\MessengerCache", "*.jpg", IO.SearchOption.TopDirectoryOnly)

[perito]

Im having a problem, the files in the folder have no extension, they're "3Ccachedsoap id=22-121052153422 2F3E" for example, so i modified the code to be

        files = System.IO.Directory.GetFiles("C:\Documents and Settings\" & GetUserName() & "\Local Settings\Temp\MessengerCache", "*.*", IO.SearchOption.TopDirectoryOnly)

but im getting an error on
bmp As Bitmap = New Bitmap(fname)

with the error "Parameter is not valid."

what should i do?

[TokersBall_CDXX]

Those don't appear to be standard image types.

[perito]

hmm.. if i right click on the file and open them in acdsee they open normally... dont u have live msn messenger? check them out...

even if they're not jpg, they are images, what difference does it make... acdsee can see them, why cant VB?

[TokersBall_CDXX]

Deciphering the methods Microsoft used to store its cache data in messenger will definitely be a fun task on YOUR part. Perhaps they make reference to how they do it on the msdn some where.

[perito]

i think i found a way
If I copied all the files to a new folder, rename them all to *.jpg
then open these new files, VB can read them...
but that will make the program so slow, specially if there are alot of pictures.
what u think?

[gooden]

i think i found a way
If I copied all the files to a new folder, rename them all to *.jpg
then open these new files, VB can read them...
but that will make the program so slow, specially if there are alot of pictures.
what u think?

that is a realy complicated question..... i dont realy know how can you do that but i think that is the only way :| Unless you found other way

[TokersBall_CDXX]

here try this...

Dim files() As String
files = System.IO.Directory.GetFiles("C:\Documents and Settings\" & GetUserName() & "\Local Settings\Temp\MessengerCache", "*.*", IO.SearchOption.TopDirectoryOnly)
 
 Dim i As Integer = 0
 
        For Each fname As String In files
            Dim bmp As Bitmap
            Dim streamreader As New System.IO.StreamReader(fname)
            Try
                bmp = New Bitmap(Image.FromStream(streamreader.BaseStream))
                Me.ImageList1.Images.Add("", bmp)
                ListView1.Items.Add("", i)
 
            Catch ex As Exception
 
            Finally
                streamreader.Close()
            End Try
            i = i + 1
        Next

[TokersBall_CDXX]

this may be a bit more optimized considering streamreader is designed for text.

For Each fname As String In files
            Dim bmp As Bitmap
            Dim file_reader As New System.IO.FileStream(fname, IO.FileMode.Open)
            Dim binary_reader As New System.IO.BinaryReader(file_reader)
            Try
 
                bmp = New Bitmap(Image.FromStream(binary_reader.BaseStream))
                Me.ImageList1.Images.Add("", bmp)
                ListView1.Items.Add("", i)
 
            Catch ex As Exception
 
            Finally
                file_reader.Close()
                binary_reader.Close()
            End Try
            i = i + 1
        Next

[perito]

worked perfectly
thx alot

hmm.. last question
how to msgbox the selected image's path/address when a person clicks on button2?

[TokersBall_CDXX]

For Each fname As String In files
            Dim bmp As Bitmap
            Dim file_reader As New System.IO.FileStream(fname, IO.FileMode.Open)
            Dim binary_reader As New System.IO.BinaryReader(file_reader)
            Try
 
                bmp = New Bitmap(Image.FromStream(binary_reader.BaseStream))
                Me.ImageList1.Images.Add("", bmp)
                ListView1.Items.Add(fname, "", i)
 
            Catch ex As Exception
 
            Finally
                file_reader.Close()
                binary_reader.Close()
            End Try
            i = i + 1
        Next

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each t As ListViewItem In Me.ListView1.Items
            If t.Selected = True Then MessageBox.Show(t.Name)
        Next
    End Sub

[perito]

i marked this thread as resolved.
thx
if u can help me in http://www.vbforums.com/showthread.php?t=506044
i would be greatful
thx for ur time