شرح عمل Email Spammer ببرنامج VB8

بسم الله الرحمن الرحيم

كيف الشباب الكل بخير نخش في الموظوع

اول شي نسوي واش لازم يكون عندك

حساب او ايمال GMAIL

اثنين Button

اثنين Label

واحد Rich****Box

وبعدين من قائمت Components

نحط الاداء Timer

كذا يكون شكل المشروع

شوف اداه Timer من فين اخذناها وفي اي خانه شوف الصوره

نجي في كتابت الاكواد

دبل كليك على زر 1 Button

انا مسميه الرسال

ونكتب هذه الاكواد

كود:

Imports System.Net.Mail
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

بعدين نطلع ودبل كلك على اداه Timer ونعطيها هذا الكلود

مع ملاحظه كتابت بريدك وباسوردك

كود:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Dim wc As New System.Net.************Client
Dim MyMailmessage As New MailMessage
MyMailmessage.From = New MailAddress("ايمال")
MyMailmessage.To.Add(TextBox1.Text)
MyMailmessage.Subject = (TextBox2.Text)
wc.Dispose()
MyMailmessage.Body = (RichTextBox1.Text)
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("باسوردك", " ايمالك")
SMTPServer.EnableSsl = True
Try
SMTPServer.Send(MyMailmessage)
Catch ex As Exception
End Try
End If
End Sub
End Class

شوف زي الي في الصوره

جرب البرنامج وبعدين احفظ العمل

الاكواد ارفقتها في المرفقات

الكود

كذا انتهينا من الشرح والرنامج شغال زي اعسل ويرسل رسايل كثير

ان اعجبك الموظوع فلا تنسى تقييمه

والسلام عليكم ورحمه الله وبركاته

تحياتي لكم