Originally Posted by
Shocker2010
[php]Imports System.Net.Mail
Public Class SubmitBug
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim msg As New MailMessage(senderID.Text, recievers.Text, subj.Text, emailbody.Text)
Dim client As New SmtpClient("smtp.gmail.com", 587)
Dim Credentials As New System.Net.NetworkCredential(senderID.Text, pass.Text)
client.Credentials = Credentials
client.EnableSsl = True
client.Send(msg)
MsgBox("Your email has been sent Thank you for taking the Time To Notify me there's a bug | Credits to MJLover For The Source Code For The Submit Bug|.")
Timer1.Stop()
Timer1.Enabled = False
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
MsgBox(" Please Visit mpgh.net For The Best VIP Hacks, Pub Hacks + More", MsgBoxStyle******rmation + MsgBoxStyle.OkOnly)
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
System.Diagnostics.Process.Start("https://mpgh.net")
End Sub
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Subj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Subj.Click
Subj.Text = ""
End Sub
End Class[/php]