Mail Bomber kodu

[Ʌüsal]

Forma 5 ədəd TextBox yerləşdirin 5-ci TextBox-u isə MultiLine edin.

1-ci TextBox - E-mail adresiniz

2-ci Textbox - E-mail parolunuz

3-cü TextBox - Göndərcəyiniz E-mail adresi

4-cü TextBox - Mesaj başlığı

5-ci TextBox - Mesaj

 

Sonra Forma 3 ədəd Button yerləşdirin.

1-ci Button-nun adını Göndər yazın

2-ci Button-nun adını Dayandır yazın

3-cü Button-nun adını Çıxış yazın

 

Daha sonra Forma 1 ədəd Label əlavə edin.

Label-in adını 0 adlandırın

 

Ən son olaraqda Forma 1 ədəd Timer yerləşdirin.

 

İndi isə kod bölməsinə keçək.

 

Button1-in üstündə iki dəfə klik edin və aşağıdakı kodu əlavə edin.

 

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

Timer1.Start()

End Sub

 

Button2-nin üstündə iki dəfə klik edin və aşağıdakı kodu əlavə edin.

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Stop()

End Sub

 

Button3-ün üstündə iki dəfə klik edin və aşağıdakı kodu əlavə edin.

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

End Sub

 

Timer-in üstündə iki dəfə klik edin və aşağıdakı kodu əlavə edin.

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim MyMailMessage As New MailMessage()

MyMailMessage.From = New MailAddress(TextBox1.Text)

MyMailMessage.To.Add(TextBox3.Text)

MyMailMessage.Subject = (TextBox4.Text)

MyMailMessage.Body = TextBox5.Text

Dim SMTPServer As New SmtpClient("smtp.gmail.com")

SMTPServer.Port = 587

SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

SMTPServer.EnableSsl = True

Label1.Text = Val(Label1.Text + 1)

SMTPServer.Send(MyMailMessage)

End Sub

End Class

 

En son olaarqda Formun General bölməsinə aşağıdakı kodu daxil edin.

 

Imports System.Net.Mail

 

 

Ümumi kod:

 

Imports System.Net.Mail

 

Public Class Form1

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim MyMailMessage As New MailMessage()

MyMailMessage.From = New MailAddress(TextBox1.Text)

MyMailMessage.To.Add(TextBox3.Text)

MyMailMessage.Subject = (TextBox4.Text)

MyMailMessage.Body = TextBox5.Text

Dim SMTPServer As New SmtpClient("smtp.gmail.com")

SMTPServer.Port = 587

SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

SMTPServer.EnableSsl = True

Label1.Text = Val(Label1.Text + 1)

SMTPServer.Send(MyMailMessage)

End Sub

 

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

Timer1.Start()

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Stop()

End Sub

End Class

 

Qeyd: Bu Mail Bomber sadəcə G-mail adresləri olanlar göndərə bilərlər.

 

Uğurlar...

[sahin666]

Cox sagol.mene lazim idi

[Guest Cavid018]

VB-de yigmisan ?