Music: Snake Eyes (feat. CoMa) - Feint (Any ads are their's)
Overview
Decided on building a Facebook bot from scratch. Here's the first timelapse video (starting at part two because the first video building the POC contains some sensitive details). Anyway, this is just to test. Enjoy the second day of building "Facebrick Chatbot".
Code thus far
File: clsFBMessengerMonitor.vb
Imports System.ComponentModel
Imports System.Net
Namespace LoKI.AceldamA
Public Class FBMessengerMonitor
'-- Consts
Private Const USERAGENTSTRING As String = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:59.0) Gecko/20100101 Firefox/59.0"
'-- Globals
Private _Timer As BackgroundWorker
Private _TimerRunning As Boolean = False
Private _LastScrape() As FBMessageMain
Private _HttpCookies As CookieContainer = New CookieContainer()
'-- Structures and Enums
Public Enum ErrorCode
TimerAlreadyRunning
TimerAlreadyStopping
TimerNotRunning
End Enum
Public Structure FBMessageMain
Public Property Name As String
Public Property Read As Boolean
Public Property Link As String
Public Property Peek As String
Public Sub Parse(RawHTML As String)
'-- To Do
End Sub
Public Overrides Function ToString() As String
Return String.Format("[{0}] {1} '{2}' ({3})", IIf(Read, "_", "X"), Name, Peek, Link)
End Function
End Structure
Private Structure HtmlForm
Dim FormKVPs As Dictionary(Of String, String)
Public Property Action As String
Default Public Property Key(KeyName) As String
Get
If FormKVPs.ContainsKey(KeyName) Then
Return FormKVPs(KeyName)
Else
Return Nothing
End If
End Get
Set(value As String)
Me.FormKVPs.Add(KeyName, value)
End Set
End Property
Public Sub Parse(OuterHTML As String)
'-- To Do
End Sub
Public Function PostData() As String
'-- To Do
Return ""
End Function
End Structure
'-- Events
Public Event MessagesChanged(NewMessages() As FBMessageMain, OldMessages() As FBMessageMain)
Public Event [Error](Code As ErrorCode)
'-- Properties
Public Property TimerInterval As Integer = 10000
'-- Constructor
Public Sub New(Username As String, Password As String)
'-- Attempt Login
Me._Login(Username, Password)
'-- Set up the timer backgroundworker
Me._Timer = New BackgroundWorker
AddHandler Me._Timer.DoWork, AddressOf Me._TimerStart
End Sub
#Region "Timer"
Private Delegate Sub TickDelegate()
Private Sub _TimerTick()
End Sub
Private Sub _TimerStart(sender As BackgroundWorker, e As DoWorkEventArgs)
Dim I As Integer = Me.TimerInterval
Me._TimerRunning = True
Do While Me._TimerRunning
'-- Waiting loop
Do While Me._TimerRunning AndAlso (I < Me.TimerInterval)
System.Threading.Thread.Sleep(100)
I = I + 100
Loop
I = 0
'-- Worker part of the timer
If Me._TimerRunning Then
'-- Fire threadsafe "OnTimerTick" event handler
Windows.Application.Current.Dispatcher.Invoke(
Threading.DispatcherPriority.Normal,
New TickDelegate(AddressOf Me._TimerTick)
)
End If
Loop
End Sub
Public Sub StartMonitor()
If Not Me._Timer.IsBusy Then
Me._Timer.RunWorkerAsync()
Else
'-- Raise error
RaiseEvent Error(ErrorCode.TimerAlreadyRunning)
End If
End Sub
Public Sub StopMonitor()
If Me._TimerRunning Then
Me._TimerRunning = False
ElseIf Me._Timer.IsBusy Then
RaiseEvent Error(ErrorCode.TimerAlreadyStopping)
Else
RaiseEvent Error(ErrorCode.TimerNotRunning)
End If
End Sub
#End Region
#Region "HTTP"
Private Function _UrlEncode(Text As String) As String
Dim tStr As String = ""
For Each c As Char In Text
If "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_+-.".Contains(c) Then
tStr = String.Format("{0}{1}", tStr, c)
Else
Select Case c
Case Is = " "
tStr = String.Format("{0}+", tStr)
Case Else
tStr = String.Format("{0}%{1:x2}", tStr, Asc(c))
End Select
End If
Next
Return tStr
End Function
Private Function _UrlDecode(Text As String) As String
Dim tSplit() As String = Split(Text, "%")
Dim tStr As String = tSplit(0)
For I As Integer = 1 To UBound(tSplit)
tStr = String.Format(
"{0}{1}{2}",
tStr,
Chr(CInt(String.Format("&H{0}", Mid(tStr, 1, 2)))),
Mid(tStr, 3)
)
Next
Return tStr
End Function
Private Function _GetForms(RawHtml As String) As HtmlForm()
'-- To Do
Return Nothing
End Function
Private Function _Http(ByVal Url As String, Referer As String, Optional PostData As String = Nothing) As String
Dim Request As HttpWebRequest = DirectCast(HttpWebRequest.Create(Url), HttpWebRequest)
Dim Response As HttpWebResponse
Dim HttpPostData As Char() = Nothing
Dim ResponseString As String = ""
With Request
.AllowAutoRedirect = True
If PostData Is Nothing Then
.Method = WebRequestMethods.Http.Get
Else
'-- POST data was supplied
HttpPostData = Text.Encoding.UTF8.GetChars(Text.Encoding.UTF8.GetBytes(PostData))
.Method = WebRequestMethods.Http.Post
.ContentType = "application/x-www-form-urlencoded"
.ContentLength = HttpPostData.Length
End If
.Host = "m.facebook.com"
.UserAgent = USERAGENTSTRING
.Headers.Add(HttpRequestHeader.AcceptEncoding, "text/html, application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
.Headers.Add(HttpRequestHeader.AcceptLanguage, "en,en-GB;q=0.5")
.Referer = Referer
.CookieContainer = Me._HttpCookies
.KeepAlive = True
.Headers.Add(HttpRequestHeader.CacheControl, "max-age=0")
End With
If Not PostData Is Nothing Then
'-- Perform the POST first
Using sw As New System.IO.StreamWriter(Request.GetRequestStream)
sw.Write(HttpPostData, 0, HttpPostData.Length)
sw.Close()
End Using
End If
'-- Read the HTTP response
Response = Request.GetResponse()
Using sr As New System.IO.StreamReader(Response.GetResponseStream())
ResponseString = sr.ReadToEnd()
sr.Close()
End Using
'-- Return the HTTP response
Return ResponseString
End Function
#End Region
'-- Facebrick Methods
Private Sub _Login(User As String, Pass As String)
'-- To Do
End Sub
End Class
Public Class FacebrickDeets
Public ReadOnly Property Username As String = "YOUR USERNAME"
Public ReadOnly Property Password As String = "YOUR PASSWORD"
End Class
End Namespace