Merge pull request #6 from bellingcat/dev

Dev
Update __main.py
2026-06-10 20:48:29 +03:00 · 2023-08-09 04:45:56 +02:00 · 2023-08-09 04:45:13 +02:00 · 2023-08-09 04:44:42 +02:00 · 2023-08-09 04:44:07 +02:00 · 2023-08-09 04:43:43 +02:00
46 changed files with 2868 additions and 1777 deletions
--- a/.github/dependabot.yml
+++ b/.github/dependabot.yml
@@ -8,7 +8,7 @@ updates:
  - package-ecosystem: "nuget"
    schedule:
      interval: "daily"
-    directory: "Reddit Post Scraping Tool"
+    directory: "RPST GUI"
    ignore:
      - dependency-name: "Newtonsoft.Json"
  - package-ecosystem: "pip"
--- a/4
+++ b/4
@@ -6,6 +6,6 @@ WORKDIR /app

 COPY . .

-RUN pip install --upgrade pip && pip install build && python -m build && pip install dist/*.whl
+RUN pip install --upgrade pip && pip install .

-ENTRYPOINT ["reddit_post_scraping_tool"]
+ENTRYPOINT ["rpst"]
--- a/README.md
+++ b/README.md
@@ -1,30 +1,33 @@
-# Reddit Post Scraping Tool
-Given a subreddit name and a keyword, this script will return all posts from a specified listing (default is 'top') that contain the provided keyword.
+# RPST (Reddit Post Scraping Tool)
+Given a subreddit name and a keyword, RPST will return all posts from a specified listing (default is 'top') that contain the provided keyword.

 [![Upload Python Package](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/python-publish.yml/badge.svg)](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/python-publish.yml) [![CodeQL](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/codeql.yml/badge.svg)](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/codeql.yml) ![.Net](https://img.shields.io/badge/.NET-5C2D91?style=flat&logo=.net&logoColor=white) ![Python](https://img.shields.io/badge/python-3670A0?style=flat&logo=python&logoColor=ffdd54)
-![Screenshot 2023-02-10 195818](https://user-images.githubusercontent.com/74001397/218163494-245f6676-1fb3-4680-a6b5-bd15fb1dea5e.png)
-![Screenshot_20230210_193329](https://user-images.githubusercontent.com/74001397/218158084-9295abb7-df33-4f86-8df8-e109cac7cde6.png)
+![2023-08-09_04-05](https://github.com/bellingcat/reddit-post-scraping-tool/assets/74001397/d8917a35-3eac-44ce-aa96-1f9685095254)
+![2023-08-09_04-05_1](https://github.com/bellingcat/reddit-post-scraping-tool/assets/74001397/d2fe7269-91d4-49ad-87fb-44282c5637a7)
+***

+# ✅ Features
+## GUI
+- [x] Dark mode (Right-click)
+- [x] Saves results to a JSON (Right-click)
+- [x] Logs errors to a file 

-# Features (GUI)
- [x] Auto dark mode from 6pm - 6am
- [x] Saves results to a JSON
- [ ] Other features coming soon...
+## CLI
+- [x] Saves results to a JSON (-j/--json)
+- [x] Automatically checks for new updates. Notifies user if update were found.

-# TODO (GUI)
- [ ] Make it a stand alone executable
- [ ] Add manual dark mode option, that will be remembered in all sessions
+# 📃 TODO
+## GUI
+- [ ] Make it installable with a setup.exe/setup.msi file.
+- [x] Add manual dark mode option, that will be persistent in all sessions
 - [ ] Make it save results to a CSV file

-# Wiki
+# 📖 Wiki
 [Refer to the Wiki](https://github.com/rly0nheart/reddit-post-scraping-tool/wiki) for installation instructions, in addition to all other documentation.

-# Note
-> This is one of the projects I am working on, while learning Visual Basic, so the implementation/code may be messed up. If that's the case, please feel free to open a pull request using the available templates. Otherwise, enjoy!
+# 😁 Donations
+If you like `RPST` and would like to show support, you can Buy A Coffee for the developer using the button below

-# Donations
-If you like `Reddit Post Scraping Tool` and would like to show support, you can Buy A Coffee for the developer using the button below
-
-<a href="https://www.buymeacoffee.com/189381184" target="_blank"><img src="https://cdn.buymeacoffee.com/buttons/default-orange.png" alt="Buy Me A Coffee" height="41" width="174"></a>
+<a href="https://www.buymeacoffee.com/_rly0nheart" target="_blank"><img src="https://cdn.buymeacoffee.com/buttons/default-orange.png" alt="Buy Me A Coffee" height="41" width="174"></a>

 Your support will be much appreciated😊
--- a/GUI/RPST.sln
+++ b/GUI/RPST.sln
@@ -3,7 +3,7 @@ Microsoft Visual Studio Solution File, Format Version 12.00
 # Visual Studio Version 17
 VisualStudioVersion = 17.4.33213.308
 MinimumVisualStudioVersion = 10.0.40219.1
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Reddit Post Scraping Tool", "Reddit Post Scraping Tool\Reddit Post Scraping Tool.vbproj", "{46C2541E-6F65-461A-A479-F65D445C36EA}"
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "RPST", "RPST\RPST.vbproj", "{46C2541E-6F65-461A-A479-F65D445C36EA}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
--- a/GUI/RPST/AboutBox.Designer.vb
+++ b/GUI/RPST/AboutBox.Designer.vb
@@ -0,0 +1,144 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class AboutBox
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As ComponentModel.ComponentResourceManager = New ComponentModel.ComponentResourceManager(GetType(AboutBox))
+        PictureBoxLogo = New PictureBox()
+        LabelProgramName = New Label()
+        LabelProgramDescription = New Label()
+        LabelVersion = New Label()
+        LinkLabelReadtheWiki = New LinkLabel()
+        Panel1 = New Panel()
+        LicenseRichTextBox = New RichTextBox()
+        CType(PictureBoxLogo, ComponentModel.ISupportInitialize).BeginInit()
+        Panel1.SuspendLayout()
+        SuspendLayout()
+        ' 
+        ' PictureBoxLogo
+        ' 
+        PictureBoxLogo.BackColor = Color.Transparent
+        PictureBoxLogo.Image = CType(resources.GetObject("PictureBoxLogo.Image"), Image)
+        PictureBoxLogo.Location = New Point(12, 12)
+        PictureBoxLogo.Name = "PictureBoxLogo"
+        PictureBoxLogo.Size = New Size(88, 93)
+        PictureBoxLogo.SizeMode = PictureBoxSizeMode.StretchImage
+        PictureBoxLogo.TabIndex = 0
+        PictureBoxLogo.TabStop = False
+        ' 
+        ' LabelProgramName
+        ' 
+        LabelProgramName.AutoSize = True
+        LabelProgramName.Font = New Font("Segoe Script", 9.75F, FontStyle.Bold, GraphicsUnit.Point)
+        LabelProgramName.ForeColor = SystemColors.ControlText
+        LabelProgramName.Location = New Point(3, 15)
+        LabelProgramName.Name = "LabelProgramName"
+        LabelProgramName.Size = New Size(48, 20)
+        LabelProgramName.TabIndex = 3
+        LabelProgramName.Text = "Name"
+        ' 
+        ' LabelProgramDescription
+        ' 
+        LabelProgramDescription.AutoSize = True
+        LabelProgramDescription.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold, GraphicsUnit.Point)
+        LabelProgramDescription.ForeColor = SystemColors.ControlText
+        LabelProgramDescription.Location = New Point(3, 43)
+        LabelProgramDescription.Name = "LabelProgramDescription"
+        LabelProgramDescription.Size = New Size(68, 15)
+        LabelProgramDescription.TabIndex = 4
+        LabelProgramDescription.Text = "Description"
+        ' 
+        ' LabelVersion
+        ' 
+        LabelVersion.AutoSize = True
+        LabelVersion.Font = New Font("Segoe UI", 9F, FontStyle.Underline, GraphicsUnit.Point)
+        LabelVersion.ForeColor = SystemColors.ControlText
+        LabelVersion.Location = New Point(347, 17)
+        LabelVersion.Name = "LabelVersion"
+        LabelVersion.Size = New Size(45, 15)
+        LabelVersion.TabIndex = 5
+        LabelVersion.Text = "Version"
+        ' 
+        ' LinkLabelReadtheWiki
+        ' 
+        LinkLabelReadtheWiki.AutoSize = True
+        LinkLabelReadtheWiki.Font = New Font("Segoe UI", 9F, FontStyle.Regular, GraphicsUnit.Point)
+        LinkLabelReadtheWiki.Location = New Point(313, 43)
+        LinkLabelReadtheWiki.Name = "LinkLabelReadtheWiki"
+        LinkLabelReadtheWiki.Size = New Size(79, 15)
+        LinkLabelReadtheWiki.TabIndex = 6
+        LinkLabelReadtheWiki.TabStop = True
+        LinkLabelReadtheWiki.Text = "Read the Wiki"
+        ' 
+        ' Panel1
+        ' 
+        Panel1.BackColor = SystemColors.Control
+        Panel1.Controls.Add(LabelProgramDescription)
+        Panel1.Controls.Add(LabelProgramName)
+        Panel1.Controls.Add(LinkLabelReadtheWiki)
+        Panel1.Controls.Add(LabelVersion)
+        Panel1.Location = New Point(106, 12)
+        Panel1.Name = "Panel1"
+        Panel1.Size = New Size(409, 93)
+        Panel1.TabIndex = 7
+        ' 
+        ' LicenseRichTextBox
+        ' 
+        LicenseRichTextBox.Font = New Font("Cambria", 9.75F, FontStyle.Regular, GraphicsUnit.Point)
+        LicenseRichTextBox.Location = New Point(12, 113)
+        LicenseRichTextBox.Name = "LicenseRichTextBox"
+        LicenseRichTextBox.ReadOnly = True
+        LicenseRichTextBox.Size = New Size(503, 329)
+        LicenseRichTextBox.TabIndex = 1
+        LicenseRichTextBox.Text = "License notice"
+        ' 
+        ' AboutBox
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        BackColor = Color.Gainsboro
+        ClientSize = New Size(526, 453)
+        Controls.Add(LicenseRichTextBox)
+        Controls.Add(Panel1)
+        Controls.Add(PictureBoxLogo)
+        FormBorderStyle = FormBorderStyle.FixedSingle
+        Icon = CType(resources.GetObject("$this.Icon"), Icon)
+        MaximizeBox = False
+        MinimizeBox = False
+        Name = "AboutBox"
+        ShowInTaskbar = False
+        StartPosition = FormStartPosition.CenterScreen
+        Text = "About"
+        CType(PictureBoxLogo, ComponentModel.ISupportInitialize).EndInit()
+        Panel1.ResumeLayout(False)
+        Panel1.PerformLayout()
+        ResumeLayout(False)
+    End Sub
+
+    Friend WithEvents PictureBoxLogo As PictureBox
+    Friend WithEvents LabelProgramName As Label
+    Friend WithEvents LabelProgramDescription As Label
+    Friend WithEvents LabelVersion As Label
+    Friend WithEvents LinkLabelReadtheWiki As LinkLabel
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents LicenseRichTextBox As RichTextBox
+End Class
--- a/GUI/RPST/AboutBox.resx
+++ b/GUI/RPST/AboutBox.resx
@@ -1,4 +1,64 @@
-<root>
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!--
+    Microsoft ResX Schema 
+
+    Version 2.0
+
+    The primary goals of this format is to allow a simple XML format
+    that is mostly human readable. The generation and parsing of the
+    various data types are done through the TypeConverter classes
+    associated with the data types.
+
+    Example:
+
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing"">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+
+    There are any number of "resheader" rows that contain simple
+    name/value pairs.
+
+    Each data row contains a name, and value. The row also contains a
+    type or mimetype. Type corresponds to a .NET class that support
+    text/value conversion through the TypeConverter architecture.
+    Classes that don't support this are serialized and stored with the
+    mimetype set.
+
+    The mimetype is used for serialized objects, and tells the
+    ResXResourceReader how to depersist the object. This is currently not
+    extensible. For a given mimetype the value must be set accordingly:
+
+    Note - application/x-microsoft.net.object.binary.base64 is the format
+    that the ResXResourceWriter will generate, however the reader can
+    read any of the formats listed below.
+
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
    <xsd:element name="root" msdata:IsDataSet="true">
@@ -58,7 +118,7 @@
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="PictureBoxLogo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAN
        0AAADdABEGw9BwAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAFPuSURBVHhe7d0J
--- a/GUI/RPST/AboutBox.vb
+++ b/GUI/RPST/AboutBox.vb
@@ -0,0 +1,53 @@
+Imports System.Runtime
+
+Public Class AboutBox
+    ReadOnly settings As New SettingsManager()
+    Public Property LicenseText As String = $"MIT License
+
+{My.Application.Info.Copyright}
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the ""Software""), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED ""AS IS"", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE."
+
+
+    ''' <summary>
+    ''' Handles the Load event for the AboutBox form.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">The event data.</param>
+    Private Sub AboutBox_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        settings.LoadSettings()
+        settings.ToggleDarkMode(settings.DarkMode)
+
+        LabelProgramName.Text = My.Application.Info.ProductName
+        LabelProgramDescription.Text = "Given a subreddit name and a keyword,
+RPST returns all top posts (by default)
+that contain the specified keyword."
+        LabelVersion.Text = $"v{My.Application.Info.Version}"
+        LicenseRichTextBox.Text = LicenseText
+    End Sub
+
+    ''' <summary>
+    ''' Handles the LinkClicked event for the LinkLabelReadtheWiki control. 
+    ''' Opens the Wiki URL in the default browser.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">The event data.</param>
+    Private Sub LinkLabelReadtheWiki_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabelReadtheWiki.LinkClicked
+        Shell("cmd /c start https://github.com/bellingcat/reddit-post-scraping-tool/wiki")
+    End Sub
+End Class
--- a/GUI/RPST/ApiHandler.vb
+++ b/GUI/RPST/ApiHandler.vb
@@ -0,0 +1,50 @@
+Imports System.IO
+Imports System.Net.Http
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+
+''' <summary>
+''' Handles requests to Reddit and Github APIs.
+''' </summary>
+Public Class ApiHandler
+    Public Property LogFile As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "RedditPostScrapingTool", "logs", $"debug.log")
+    Public Property Headers As String = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/11.1.2 Safari/605.1.15"
+    Public Property UpdatesEndpoint As String = "https://api.github.com/repos/bellingcat/reddit-post-scraping-tool/releases/latest"
+
+    ''' <summary>
+    ''' Scrape Reddit data.
+    ''' </summary>
+    ''' <returns>Json object containing scraped data.</returns>
+    Public Function ScrapeReddit(subreddit As String, listing As String, limit As Integer, timeframe As String) As JObject
+        Dim ApiEndpoint As String = $"https://reddit.com/r/{subreddit}/{listing}.json?limit={limit}&t={timeframe}"
+        Return GetJObjectFromEndpoint(ApiEndpoint)
+    End Function
+
+    ''' <summary>
+    ''' Gets remote version information from the repository release page.
+    ''' </summary>
+    ''' <returns>Json object containing update data.</returns>
+    Public Function CheckUpdates() As JObject
+        Return GetJObjectFromEndpoint(UpdatesEndpoint)
+    End Function
+
+    Private Function GetJObjectFromEndpoint(endpoint As String) As JObject
+        Try
+            Using httpClient As New HttpClient()
+                httpClient.DefaultRequestHeaders.Add("User-Agent", headers)
+                Dim response As HttpResponseMessage = httpClient.GetAsync(endpoint).Result
+                If response.IsSuccessStatusCode Then
+                    Dim json As String = response.Content.ReadAsStringAsync().Result
+                    Dim data As JObject = JsonConvert.DeserializeObject(Of JObject)(json)
+                    Return data
+                Else
+                    MessageBox.Show(response.ReasonPhrase, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                End If
+            End Using
+        Catch ex As Exception
+            My.Computer.FileSystem.WriteAllText(LogFile, $"{DateTime.Now}: {ex}{Environment.NewLine}", True)
+            MessageBox.Show($"{ex.Message}. Please see the debug log '{LogFile}' for more information.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+        Return New JObject()
+    End Function
+End Class
--- a/GUI/RPST/ApplicationEvents.vb
+++ b/GUI/RPST/ApplicationEvents.vb
--- a/GUI/RPST/DataGridViewHandler.vb
+++ b/GUI/RPST/DataGridViewHandler.vb
@@ -0,0 +1,67 @@
+Imports Newtonsoft.Json.Linq
+
+Public Class DataGridViewHandler
+    ''' <summary>
+    ''' Initializes the DataGridView by clearing any existing data and setting up the necessary columns.
+    ''' </summary>
+    ''' <param name="dataGridView">The DataGridView to be initialized.</param>
+    Public Shared Sub AddColumn(dataGridView As DataGridView)
+        ' Clear the Columns and Rows before adding Items to them 
+        dataGridView.Rows.Clear()
+        dataGridView.Columns.Clear()
+
+        dataGridView.Columns.Add("PostCount", "INDEX")
+        dataGridView.Columns.Add("PostAuthor", "AUTHOR")
+        dataGridView.Columns.Add("PostID", "ID")
+        dataGridView.Columns.Add("PostText", "TEXT")
+        dataGridView.Columns.Add("PostSubreddit", "SUBREDDIT")
+        dataGridView.Columns.Add("SubredditVisibility", "VISIBILITY")
+        dataGridView.Columns.Add("PostThumbnail", "THUMBNAIL")
+        dataGridView.Columns.Add("PostIsNSFW", "NSFW")
+        dataGridView.Columns.Add("PostIsGilded", "GILDED")
+        dataGridView.Columns.Add("PostUpvotes", "UPVOTES")
+        dataGridView.Columns.Add("PostUpvoteRatio", "UPVOTE RATIO")
+        dataGridView.Columns.Add("PostDownvotes", "DOWNVOTES")
+        dataGridView.Columns.Add("PostAwards", "AWARDS")
+        dataGridView.Columns.Add("PostTopAward", "TOP AWARD")
+        dataGridView.Columns.Add("PostIsCrosspostable", "IS CROSS-POSTABLE?")
+        dataGridView.Columns.Add("PostScore", "SCORE")
+        dataGridView.Columns.Add("PostCategory", "CATEGORY")
+        dataGridView.Columns.Add("PostDomain", "DOMAIN")
+        dataGridView.Columns.Add("PostPermalink", "PERMALINK")
+        dataGridView.Columns.Add("PostCreatedAt", "CREATED AT")
+        dataGridView.Columns.Add("PostApprovedAt", "APPROVED ATt")
+        dataGridView.Columns.Add("PostApprovedBy", "APPROVED BY")
+    End Sub
+
+    Public Shared Sub AddRow(dataGridView As DataGridView, post As JObject, postNumber As Integer)
+        ''' <summary>
+        ''' Adds a row to the DataGridView based on the data from a Reddit post.
+        ''' </summary>
+        ''' <param name="dataGridView">The DataGridView to which the row will be added.</param>
+        ''' <param name="post">A JObject representing the Reddit post.</param>
+        ''' <param name="postNumber">The number of the post.</param>
+        dataGridView.Rows.Add(postNumber,
+                              post("data")("author"),
+                              post("data")("id"),
+                              post("data")("selftext"),
+                              post("data")("subreddit_name_prefixed"),
+                              post("data")("subreddit_type"),
+                              post("data")("thumbnail"),
+                              post("data")("over_18"),
+                              post("data")("gilded"),
+                              post("data")("ups"),
+                              post("data")("upvote_ratio"),
+                              post("data")("downs"),
+                              post("data")("total_awards_received"),
+                              post("data")("top_awarded_type"),
+                              post("data")("is_crosspostable"),
+                              post("data")("score"),
+                              post("data")("category"),
+                              post("data")("domain"),
+                              post("data")("permalink"),
+                              post("data")("created"),
+                              post("data")("approved_at_utc"),
+                              post("data")("approved_by"))
+    End Sub
+End Class
--- a/GUI/RPST/DeveloperBox.Designer.vb
+++ b/GUI/RPST/DeveloperBox.Designer.vb
@@ -0,0 +1,89 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class DeveloperBox
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As ComponentModel.ComponentResourceManager = New ComponentModel.ComponentResourceManager(GetType(DeveloperBox))
+        AboutMeLinkLabel = New LinkLabel()
+        LinkLabelBuyMeACoffee = New LinkLabel()
+        GreetingLabel = New Label()
+        SuspendLayout()
+        ' 
+        ' AboutMeLinkLabel
+        ' 
+        AboutMeLinkLabel.AutoSize = True
+        AboutMeLinkLabel.BackColor = Color.White
+        AboutMeLinkLabel.Font = New Font("Comic Sans MS", 9F, FontStyle.Regular, GraphicsUnit.Point)
+        AboutMeLinkLabel.Location = New Point(33, 426)
+        AboutMeLinkLabel.Name = "AboutMeLinkLabel"
+        AboutMeLinkLabel.Size = New Size(57, 17)
+        AboutMeLinkLabel.TabIndex = 0
+        AboutMeLinkLabel.TabStop = True
+        AboutMeLinkLabel.Text = "About.me"
+        ' 
+        ' LinkLabelBuyMeACoffee
+        ' 
+        LinkLabelBuyMeACoffee.AutoSize = True
+        LinkLabelBuyMeACoffee.Font = New Font("Comic Sans MS", 9F, FontStyle.Regular, GraphicsUnit.Point)
+        LinkLabelBuyMeACoffee.Location = New Point(33, 451)
+        LinkLabelBuyMeACoffee.Name = "LinkLabelBuyMeACoffee"
+        LinkLabelBuyMeACoffee.Size = New Size(101, 17)
+        LinkLabelBuyMeACoffee.TabIndex = 1
+        LinkLabelBuyMeACoffee.TabStop = True
+        LinkLabelBuyMeACoffee.Text = "Buy Me A Coffee"
+        ' 
+        ' GreetingLabel
+        ' 
+        GreetingLabel.AutoSize = True
+        GreetingLabel.Font = New Font("Ink Free", 27.75F, FontStyle.Bold, GraphicsUnit.Point)
+        GreetingLabel.Location = New Point(62, 22)
+        GreetingLabel.Name = "GreetingLabel"
+        GreetingLabel.Size = New Size(355, 46)
+        GreetingLabel.TabIndex = 3
+        GreetingLabel.Text = "👋🏾Hello, I'm Ritchie"
+        ' 
+        ' DeveloperForm
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), Image)
+        ClientSize = New Size(510, 510)
+        Controls.Add(LinkLabelBuyMeACoffee)
+        Controls.Add(AboutMeLinkLabel)
+        Controls.Add(GreetingLabel)
+        FormBorderStyle = FormBorderStyle.FixedSingle
+        MaximizeBox = False
+        MinimizeBox = False
+        Name = "DeveloperForm"
+        ShowIcon = False
+        ShowInTaskbar = False
+        StartPosition = FormStartPosition.CenterParent
+        Text = "Developer"
+        ResumeLayout(False)
+        PerformLayout()
+    End Sub
+
+    Friend WithEvents AboutMeLinkLabel As LinkLabel
+    Friend WithEvents LinkLabelBuyMeACoffee As LinkLabel
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents GreetingLabel As Label
+End Class
--- a/GUI/RPST/DeveloperBox.resx
+++ b/GUI/RPST/DeveloperBox.resx
@@ -1,4 +1,64 @@
-<root>
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!--
+    Microsoft ResX Schema 
+
+    Version 2.0
+
+    The primary goals of this format is to allow a simple XML format
+    that is mostly human readable. The generation and parsing of the
+    various data types are done through the TypeConverter classes
+    associated with the data types.
+
+    Example:
+
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing"">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+
+    There are any number of "resheader" rows that contain simple
+    name/value pairs.
+
+    Each data row contains a name, and value. The row also contains a
+    type or mimetype. Type corresponds to a .NET class that support
+    text/value conversion through the TypeConverter architecture.
+    Classes that don't support this are serialized and stored with the
+    mimetype set.
+
+    The mimetype is used for serialized objects, and tells the
+    ResXResourceReader how to depersist the object. This is currently not
+    extensible. For a given mimetype the value must be set accordingly:
+
+    Note - application/x-microsoft.net.object.binary.base64 is the format
+    that the ResXResourceWriter will generate, however the reader can
+    read any of the formats listed below.
+
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
    <xsd:element name="root" msdata:IsDataSet="true">
--- a/GUI/RPST/DeveloperBox.vb
+++ b/GUI/RPST/DeveloperBox.vb
@@ -1,8 +1,8 @@
-Public Class DeveloperForm
+Public Class DeveloperBox
    Private Sub DeveloperForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        GreetingLabel.BackColor = Color.Transparent
        AboutMeLinkLabel.BackColor = Color.Transparent
-        BuyMeACoffeeLinkLabel.BackColor = Color.Transparent
+        LinkLabelBuyMeACoffee.BackColor = Color.Transparent
    End Sub

    Private Sub AboutMeLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles AboutMeLinkLabel.LinkClicked
@@ -11,7 +11,7 @@
        Shell("cmd /c start https://about.me/rly0nheart")
    End Sub

-    Private Sub BuyMeACoffeeLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles BuyMeACoffeeLinkLabel.LinkClicked
-        Shell("cmd /c start https://buymeacoffee.com/189381184")
+    Private Sub BuyMeACoffeeLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabelBuyMeACoffee.LinkClicked
+        Shell("cmd /c start https://buymeacoffee.com/_rly0nheart")
    End Sub
 End Class
--- a/GUI/RPST/FormMain.Designer.vb
+++ b/GUI/RPST/FormMain.Designer.vb
@@ -0,0 +1,311 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class FormMain
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        components = New ComponentModel.Container()
+        Dim resources As ComponentModel.ComponentResourceManager = New ComponentModel.ComponentResourceManager(GetType(FormMain))
+        TextBoxKeyword = New TextBox()
+        TextBoxSubreddit = New TextBox()
+        ButtonScrape = New Button()
+        ComboBoxTimeframe = New ComboBox()
+        ComboBoxListing = New ComboBox()
+        LabelKeyword = New Label()
+        LabelSubreddit = New Label()
+        LabelLimit = New Label()
+        LabelListing = New Label()
+        LabelTimeframe = New Label()
+        ContextMenuStripRightClick = New ContextMenuStrip(components)
+        ToolStripMenuItemDarkMode = New ToolStripMenuItem()
+        ToolStripMenuItemSavePosts = New ToolStripMenuItem()
+        ToolStripMenuItemtoJSON = New ToolStripMenuItem()
+        ToolStripMenuItemtoCSV = New ToolStripMenuItem()
+        ToolStripMenuItemAbout = New ToolStripMenuItem()
+        ToolStripMenuItemDeveloper = New ToolStripMenuItem()
+        ToolStripMenuItemCheckUpdates = New ToolStripMenuItem()
+        ToolStripMenuItemQuit = New ToolStripMenuItem()
+        NumericUpDownLimit = New NumericUpDown()
+        ToolTip = New ToolTip(components)
+        ContextMenuStripRightClick.SuspendLayout()
+        CType(NumericUpDownLimit, ComponentModel.ISupportInitialize).BeginInit()
+        SuspendLayout()
+        ' 
+        ' TextBoxKeyword
+        ' 
+        TextBoxKeyword.BackColor = SystemColors.Window
+        TextBoxKeyword.ForeColor = SystemColors.WindowText
+        TextBoxKeyword.Location = New Point(118, 20)
+        TextBoxKeyword.Name = "TextBoxKeyword"
+        TextBoxKeyword.PlaceholderText = "Keyword"
+        TextBoxKeyword.Size = New Size(100, 23)
+        TextBoxKeyword.TabIndex = 0
+        ToolTip.SetToolTip(TextBoxKeyword, "Enter the keyword you want to search for.")
+        ' 
+        ' TextBoxSubreddit
+        ' 
+        TextBoxSubreddit.Location = New Point(118, 49)
+        TextBoxSubreddit.Name = "TextBoxSubreddit"
+        TextBoxSubreddit.PlaceholderText = "Subreddit"
+        TextBoxSubreddit.Size = New Size(100, 23)
+        TextBoxSubreddit.TabIndex = 4
+        ToolTip.SetToolTip(TextBoxSubreddit, "Provide the subreddit to search in.")
+        ' 
+        ' ButtonScrape
+        ' 
+        ButtonScrape.Location = New Point(167, 174)
+        ButtonScrape.Name = "ButtonScrape"
+        ButtonScrape.Size = New Size(51, 28)
+        ButtonScrape.TabIndex = 6
+        ButtonScrape.Text = "Scrape"
+        ToolTip.SetToolTip(ButtonScrape, "You can also just hit ENTER to start scraping.")
+        ButtonScrape.UseVisualStyleBackColor = True
+        ' 
+        ' ComboBoxTimeframe
+        ' 
+        ComboBoxTimeframe.AutoCompleteCustomSource.AddRange(New String() {"Hour", "Day", "Week", "Month", "Year"})
+        ComboBoxTimeframe.AutoCompleteMode = AutoCompleteMode.Append
+        ComboBoxTimeframe.AutoCompleteSource = AutoCompleteSource.CustomSource
+        ComboBoxTimeframe.FormattingEnabled = True
+        ComboBoxTimeframe.Items.AddRange(New Object() {"Hour", "Day", "Week", "Month", "Year"})
+        ComboBoxTimeframe.Location = New Point(118, 136)
+        ComboBoxTimeframe.Name = "ComboBoxTimeframe"
+        ComboBoxTimeframe.Size = New Size(100, 23)
+        ComboBoxTimeframe.TabIndex = 8
+        ComboBoxTimeframe.Text = "All"
+        ToolTip.SetToolTip(ComboBoxTimeframe, "Select the time period for the posts. Default value is `All`.")
+        ' 
+        ' ComboBoxListing
+        ' 
+        ComboBoxListing.AutoCompleteCustomSource.AddRange(New String() {"Controversial", "Hot", "Best", "New", "Rising"})
+        ComboBoxListing.AutoCompleteMode = AutoCompleteMode.Append
+        ComboBoxListing.AutoCompleteSource = AutoCompleteSource.CustomSource
+        ComboBoxListing.FormattingEnabled = True
+        ComboBoxListing.Items.AddRange(New Object() {"Controversial", "Hot", "Best", "New", "Rising"})
+        ComboBoxListing.Location = New Point(118, 107)
+        ComboBoxListing.Name = "ComboBoxListing"
+        ComboBoxListing.Size = New Size(100, 23)
+        ComboBoxListing.TabIndex = 9
+        ComboBoxListing.Text = "Top"
+        ToolTip.SetToolTip(ComboBoxListing, "Choose the type of post listings. Default value is `Top`.")
+        ' 
+        ' LabelKeyword
+        ' 
+        LabelKeyword.AutoEllipsis = True
+        LabelKeyword.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Point)
+        LabelKeyword.ForeColor = Color.Black
+        LabelKeyword.Location = New Point(19, 23)
+        LabelKeyword.Name = "LabelKeyword"
+        LabelKeyword.Size = New Size(71, 20)
+        LabelKeyword.TabIndex = 10
+        LabelKeyword.Text = "Keyword:"
+        ' 
+        ' LabelSubreddit
+        ' 
+        LabelSubreddit.AutoEllipsis = True
+        LabelSubreddit.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Point)
+        LabelSubreddit.ForeColor = Color.Black
+        LabelSubreddit.Location = New Point(19, 52)
+        LabelSubreddit.Name = "LabelSubreddit"
+        LabelSubreddit.Size = New Size(71, 23)
+        LabelSubreddit.TabIndex = 11
+        LabelSubreddit.Text = "Subreddit:"
+        ' 
+        ' LabelLimit
+        ' 
+        LabelLimit.AutoEllipsis = True
+        LabelLimit.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Point)
+        LabelLimit.ForeColor = Color.Black
+        LabelLimit.Location = New Point(19, 75)
+        LabelLimit.Name = "LabelLimit"
+        LabelLimit.Size = New Size(56, 23)
+        LabelLimit.TabIndex = 12
+        LabelLimit.Text = "Limit:"
+        ' 
+        ' LabelListing
+        ' 
+        LabelListing.AutoEllipsis = True
+        LabelListing.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Point)
+        LabelListing.ForeColor = Color.Black
+        LabelListing.Location = New Point(19, 107)
+        LabelListing.Name = "LabelListing"
+        LabelListing.Size = New Size(56, 23)
+        LabelListing.TabIndex = 13
+        LabelListing.Text = "Listing:"
+        ' 
+        ' LabelTimeframe
+        ' 
+        LabelTimeframe.AutoEllipsis = True
+        LabelTimeframe.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Point)
+        LabelTimeframe.ForeColor = Color.Black
+        LabelTimeframe.Location = New Point(19, 136)
+        LabelTimeframe.Name = "LabelTimeframe"
+        LabelTimeframe.Size = New Size(81, 23)
+        LabelTimeframe.TabIndex = 14
+        LabelTimeframe.Text = "Timeframe:"
+        ' 
+        ' ContextMenuStripRightClick
+        ' 
+        ContextMenuStripRightClick.Items.AddRange(New ToolStripItem() {ToolStripMenuItemDarkMode, ToolStripMenuItemSavePosts, ToolStripMenuItemAbout, ToolStripMenuItemDeveloper, ToolStripMenuItemCheckUpdates, ToolStripMenuItemQuit})
+        ContextMenuStripRightClick.Name = "ContextMenuStrip1"
+        ContextMenuStripRightClick.Size = New Size(154, 136)
+        ' 
+        ' ToolStripMenuItemDarkMode
+        ' 
+        ToolStripMenuItemDarkMode.AutoToolTip = True
+        ToolStripMenuItemDarkMode.CheckOnClick = True
+        ToolStripMenuItemDarkMode.Image = CType(resources.GetObject("ToolStripMenuItemDarkMode.Image"), Image)
+        ToolStripMenuItemDarkMode.Name = "ToolStripMenuItemDarkMode"
+        ToolStripMenuItemDarkMode.Size = New Size(153, 22)
+        ToolStripMenuItemDarkMode.Text = "Dark Mode"
+        ' 
+        ' ToolStripMenuItemSavePosts
+        ' 
+        ToolStripMenuItemSavePosts.AutoToolTip = True
+        ToolStripMenuItemSavePosts.DropDownItems.AddRange(New ToolStripItem() {ToolStripMenuItemtoJSON, ToolStripMenuItemtoCSV})
+        ToolStripMenuItemSavePosts.Image = CType(resources.GetObject("ToolStripMenuItemSavePosts.Image"), Image)
+        ToolStripMenuItemSavePosts.Name = "ToolStripMenuItemSavePosts"
+        ToolStripMenuItemSavePosts.Size = New Size(153, 22)
+        ToolStripMenuItemSavePosts.Text = "Save Posts"
+        ToolStripMenuItemSavePosts.ToolTipText = "Save found posts to..."
+        ' 
+        ' ToolStripMenuItemtoJSON
+        ' 
+        ToolStripMenuItemtoJSON.AutoToolTip = True
+        ToolStripMenuItemtoJSON.CheckOnClick = True
+        ToolStripMenuItemtoJSON.Image = CType(resources.GetObject("ToolStripMenuItemtoJSON.Image"), Image)
+        ToolStripMenuItemtoJSON.Name = "ToolStripMenuItemtoJSON"
+        ToolStripMenuItemtoJSON.Size = New Size(116, 22)
+        ToolStripMenuItemtoJSON.Text = "to JSON"
+        ' 
+        ' ToolStripMenuItemtoCSV
+        ' 
+        ToolStripMenuItemtoCSV.AutoToolTip = True
+        ToolStripMenuItemtoCSV.Enabled = False
+        ToolStripMenuItemtoCSV.Image = CType(resources.GetObject("ToolStripMenuItemtoCSV.Image"), Image)
+        ToolStripMenuItemtoCSV.Name = "ToolStripMenuItemtoCSV"
+        ToolStripMenuItemtoCSV.Size = New Size(116, 22)
+        ToolStripMenuItemtoCSV.Text = "to CSV"
+        ' 
+        ' ToolStripMenuItemAbout
+        ' 
+        ToolStripMenuItemAbout.AutoToolTip = True
+        ToolStripMenuItemAbout.Image = CType(resources.GetObject("ToolStripMenuItemAbout.Image"), Image)
+        ToolStripMenuItemAbout.Name = "ToolStripMenuItemAbout"
+        ToolStripMenuItemAbout.Size = New Size(153, 22)
+        ToolStripMenuItemAbout.Text = "About"
+        ' 
+        ' ToolStripMenuItemDeveloper
+        ' 
+        ToolStripMenuItemDeveloper.AutoToolTip = True
+        ToolStripMenuItemDeveloper.Image = CType(resources.GetObject("ToolStripMenuItemDeveloper.Image"), Image)
+        ToolStripMenuItemDeveloper.Name = "ToolStripMenuItemDeveloper"
+        ToolStripMenuItemDeveloper.Size = New Size(153, 22)
+        ToolStripMenuItemDeveloper.Text = "Developer"
+        ' 
+        ' ToolStripMenuItemCheckUpdates
+        ' 
+        ToolStripMenuItemCheckUpdates.AutoToolTip = True
+        ToolStripMenuItemCheckUpdates.Image = CType(resources.GetObject("ToolStripMenuItemCheckUpdates.Image"), Image)
+        ToolStripMenuItemCheckUpdates.Name = "ToolStripMenuItemCheckUpdates"
+        ToolStripMenuItemCheckUpdates.Size = New Size(153, 22)
+        ToolStripMenuItemCheckUpdates.Text = "Check Updates"
+        ' 
+        ' ToolStripMenuItemQuit
+        ' 
+        ToolStripMenuItemQuit.AutoToolTip = True
+        ToolStripMenuItemQuit.Image = CType(resources.GetObject("ToolStripMenuItemQuit.Image"), Image)
+        ToolStripMenuItemQuit.Name = "ToolStripMenuItemQuit"
+        ToolStripMenuItemQuit.Size = New Size(153, 22)
+        ToolStripMenuItemQuit.Text = "Quit"
+        ' 
+        ' NumericUpDownLimit
+        ' 
+        NumericUpDownLimit.Location = New Point(118, 78)
+        NumericUpDownLimit.Minimum = New Decimal(New Integer() {5, 0, 0, 0})
+        NumericUpDownLimit.Name = "NumericUpDownLimit"
+        NumericUpDownLimit.ReadOnly = True
+        NumericUpDownLimit.Size = New Size(100, 23)
+        NumericUpDownLimit.TabIndex = 15
+        ToolTip.SetToolTip(NumericUpDownLimit, "Set how many posts you want to go through. Default value is `10`.")
+        NumericUpDownLimit.Value = New Decimal(New Integer() {10, 0, 0, 0})
+        ' 
+        ' ToolTip
+        ' 
+        ToolTip.AutoPopDelay = 5000
+        ToolTip.BackColor = Color.Gainsboro
+        ToolTip.InitialDelay = 500
+        ToolTip.ReshowDelay = 100
+        ToolTip.ToolTipIcon = ToolTipIcon.Info
+        ToolTip.ToolTipTitle = "Tip"
+        ' 
+        ' FormMain
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        BackColor = SystemColors.Control
+        ClientSize = New Size(239, 221)
+        ContextMenuStrip = ContextMenuStripRightClick
+        Controls.Add(ComboBoxTimeframe)
+        Controls.Add(TextBoxKeyword)
+        Controls.Add(LabelTimeframe)
+        Controls.Add(LabelKeyword)
+        Controls.Add(ComboBoxListing)
+        Controls.Add(NumericUpDownLimit)
+        Controls.Add(LabelListing)
+        Controls.Add(ButtonScrape)
+        Controls.Add(LabelLimit)
+        Controls.Add(LabelSubreddit)
+        Controls.Add(TextBoxSubreddit)
+        FormBorderStyle = FormBorderStyle.FixedSingle
+        Icon = CType(resources.GetObject("$this.Icon"), Icon)
+        MaximizeBox = False
+        Name = "FormMain"
+        StartPosition = FormStartPosition.CenterScreen
+        Text = "RPST"
+        ContextMenuStripRightClick.ResumeLayout(False)
+        CType(NumericUpDownLimit, ComponentModel.ISupportInitialize).EndInit()
+        ResumeLayout(False)
+        PerformLayout()
+    End Sub
+
+    Friend WithEvents TextBoxKeyword As TextBox
+    Friend WithEvents TextBoxSubreddit As TextBox
+    Friend WithEvents ButtonScrape As Button
+    Friend WithEvents ComboBoxTimeframe As ComboBox
+    Friend WithEvents ComboBoxListing As ComboBox
+    Friend WithEvents LabelKeyword As Label
+    Friend WithEvents LabelSubreddit As Label
+    Friend WithEvents LabelLimit As Label
+    Friend WithEvents LabelListing As Label
+    Friend WithEvents LabelTimeframe As Label
+    Friend WithEvents ContextMenuStripRightClick As ContextMenuStrip
+    Friend WithEvents ToolStripMenuItemSavePosts As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItemtoJSON As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItemtoCSV As ToolStripMenuItem
+    Friend WithEvents NumericUpDownLimit As NumericUpDown
+    Friend WithEvents ToolStripMenuItemDarkMode As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItemAbout As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItemDeveloper As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItemCheckUpdates As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItemQuit As ToolStripMenuItem
+    Friend WithEvents ToolTip As ToolTip
+End Class
--- a/GUI/RPST/FormMain.resx
+++ b/GUI/RPST/FormMain.resx
--- a/GUI/RPST/FormMain.vb
+++ b/GUI/RPST/FormMain.vb
@@ -0,0 +1,184 @@
+Imports System.IO
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+
+Public Class FormMain
+    ReadOnly settings As New SettingsManager()
+    ReadOnly ApiHandler As New ApiHandler()
+
+    ''' <summary>
+    ''' Event handler for the form load event.
+    ''' It loads settings, toggles dark mode if necessary, checks for directories, logs first time launch, and sets the form title.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">An EventArgs that contains the event data.</param>
+    Private Sub FormMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        settings.LoadSettings()
+        settings.ToggleDarkMode(settings.DarkMode)
+        Utilities.PathFinder()
+        Utilities.LogFirstTimeLaunch()
+        Me.Text = My.Application.Info.AssemblyName
+    End Sub
+
+
+    ''' <summary>
+    ''' Event handler for the 'Dark Mode' checkbox change event.
+    ''' It toggles the dark mode of the application based on the checkbox status.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">An EventArgs that contains the event data.</param>
+    Private Sub DarkModeToolStripMenuItem_CheckedChanged(sender As Object, e As EventArgs) Handles ToolStripMenuItemDarkMode.CheckedChanged
+        settings.ToggleDarkMode(ToolStripMenuItemDarkMode.Checked)
+    End Sub
+
+
+    ''' <summary>
+    ''' Event handler for the 'About' menu item click.
+    ''' It shows the 'About' box.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">An EventArgs that contains the event data.</param>
+    Private Sub ToolStripMenuItemAbout_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemAbout.Click
+        AboutBox.Show()
+    End Sub
+
+
+    ''' <summary>
+    ''' Event handler for the 'Developer' menu item click.
+    ''' It shows the 'Developer' dialog box.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">An EventArgs that contains the event data.</param>
+    Private Sub ToolStripMenuItemDeveloper_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemDeveloper.Click
+        DeveloperBox.ShowDialog()
+    End Sub
+
+
+    ''' <summary>
+    ''' Event handler for the 'Check Updates' menu item click.
+    ''' It checks for application updates and provides update information if a newer version is available.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">An EventArgs that contains the event data.</param>
+    Private Sub ToolStripMenuItemCheckUpdates_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemCheckUpdates.Click
+        Dim data As JObject = ApiHandler.CheckUpdates()
+        If data("tag_name").ToString = My.Application.Info.Version.ToString Then
+            MessageBox.Show($"You're running the latest version v{My.Application.Info.Version} of {Me.Text}. Check again soon! :)", $"{Me.Text} v{My.Application.Info.Version}", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        Else
+            Dim confirm As DialogResult = MessageBox.Show($"A new version v{data("tag_name")} of {Me.Text} is available, would you like to get it?
+
+{data("body")}
+", $"{Me.Text} v{data("tag_name")}".ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            If confirm = DialogResult.Yes Then
+                Shell($"cmd /c start {data("html_url")}")
+            End If
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Event handler for the 'Quit' menu item click.
+    ''' It asks the user for confirmation and closes the program if the user agrees.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">An EventArgs that contains the event data.</param>
+    Private Sub ToolStripMenuItemQuit_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemQuit.Click
+        Dim result As DialogResult = MessageBox.Show("This will close the program, continue?", "Quit", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        If result = DialogResult.Yes Then
+            Me.Close()
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Handles the click event of the ScrapeButton.
+    ''' Collects inputs, fetches Reddit posts based on the inputs,
+    ''' and processes Reddit posts.
+    ''' </summary>
+    ''' <param name="sender">The sender of the event.</param>
+    ''' <param name="e">The EventArgs instance containing the event data.</param>
+    Private Sub ButtonScrape_Click(sender As Object, e As EventArgs) Handles ButtonScrape.Click
+        Utilities.ProcessRedditPosts(ToolStripMenuItemtoJSON)
+    End Sub
+
+
+    ''' <summary>
+    ''' Handles the KeyDown event for the TextBoxKeyword. 
+    ''' Processes Reddit posts when the Enter key is pressed.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">The <see cref="KeyEventArgs"/> instance containing the event data.</param>
+    Private Sub TextBoxKeyword_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBoxKeyword.KeyDown
+        ' Check if the Enter key is pressed
+        If e.KeyCode = Keys.Enter Then
+            ' Prevent the beep sound that usually comes with the Enter key in a single-line TextBox
+            e.SuppressKeyPress = True
+            Utilities.ProcessRedditPosts(ToolStripMenuItemtoJSON)
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Handles the KeyDown event for the TextBoxSubreddit. 
+    ''' Processes Reddit posts when the Enter key is pressed.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">The <see cref="KeyEventArgs"/> instance containing the event data.</param>
+    Private Sub TextBoxSubreddit_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBoxSubreddit.KeyDown
+        ' Check if the Enter key is pressed
+        If e.KeyCode = Keys.Enter Then
+            ' Prevent the beep sound that usually comes with the Enter key in a single-line TextBox
+            e.SuppressKeyPress = True
+            Utilities.ProcessRedditPosts(ToolStripMenuItemtoJSON)
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Handles the KeyDown event for the NumericUpDownLimit. 
+    ''' Processes Reddit posts when the Enter key is pressed.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">The <see cref="KeyEventArgs"/> instance containing the event data.</param>
+    Private Sub NumericUpDownLimit_KeyDown(sender As Object, e As KeyEventArgs) Handles NumericUpDownLimit.KeyDown
+        ' Check if the Enter key is pressed
+        If e.KeyCode = Keys.Enter Then
+            ' Prevent the beep sound that usually comes with the Enter key in a single-line TextBox
+            e.SuppressKeyPress = True
+            Utilities.ProcessRedditPosts(ToolStripMenuItemtoJSON)
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Handles the KeyDown event for the ComboBoxListing. 
+    ''' Processes Reddit posts when the Enter key is pressed.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">The <see cref="KeyEventArgs"/> instance containing the event data.</param>
+    Private Sub ComboBoxListing_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBoxListing.KeyDown
+        ' Check if the Enter key is pressed
+        If e.KeyCode = Keys.Enter Then
+            ' Prevent the beep sound that usually comes with the Enter key in a single-line TextBox
+            e.SuppressKeyPress = True
+            Utilities.ProcessRedditPosts(ToolStripMenuItemtoJSON)
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Handles the KeyDown event for the ComboBoxTimeframe. 
+    ''' Processes Reddit posts when the Enter key is pressed.
+    ''' </summary>
+    ''' <param name="sender">The source of the event.</param>
+    ''' <param name="e">The <see cref="KeyEventArgs"/> instance containing the event data.</param>
+    Private Sub ComboBoxTimeframe_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBoxTimeframe.KeyDown
+        ' Check if the Enter key is pressed
+        If e.KeyCode = Keys.Enter Then
+            ' Prevent the beep sound that usually comes with the Enter key in a single-line TextBox
+            e.SuppressKeyPress = True
+            Utilities.ProcessRedditPosts(ToolStripMenuItemtoJSON)
+        End If
+    End Sub
+End Class
--- a/GUI/RPST/FormPosts.Designer.vb
+++ b/GUI/RPST/FormPosts.Designer.vb
@@ -0,0 +1,59 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class FormPosts
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As ComponentModel.ComponentResourceManager = New ComponentModel.ComponentResourceManager(GetType(FormPosts))
+        DataGridViewPosts = New DataGridView()
+        CType(DataGridViewPosts, ComponentModel.ISupportInitialize).BeginInit()
+        SuspendLayout()
+        ' 
+        ' DataGridViewPosts
+        ' 
+        DataGridViewPosts.BackgroundColor = Color.Gainsboro
+        DataGridViewPosts.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewPosts.Dock = DockStyle.Fill
+        DataGridViewPosts.Location = New Point(0, 0)
+        DataGridViewPosts.Name = "DataGridViewPosts"
+        DataGridViewPosts.ReadOnly = True
+        DataGridViewPosts.RowHeadersVisible = False
+        DataGridViewPosts.RowTemplate.Height = 25
+        DataGridViewPosts.Size = New Size(501, 365)
+        DataGridViewPosts.TabIndex = 3
+        ' 
+        ' FormPosts
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        ClientSize = New Size(501, 365)
+        Controls.Add(DataGridViewPosts)
+        Icon = CType(resources.GetObject("$this.Icon"), Icon)
+        Name = "FormPosts"
+        ShowInTaskbar = False
+        StartPosition = FormStartPosition.CenterScreen
+        Text = "Posts"
+        CType(DataGridViewPosts, ComponentModel.ISupportInitialize).EndInit()
+        ResumeLayout(False)
+    End Sub
+
+    Friend WithEvents DataGridViewPosts As DataGridView
+End Class
--- a/GUI/RPST/FormPosts.resx
+++ b/GUI/RPST/FormPosts.resx
@@ -0,0 +1,393 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!--
+    Microsoft ResX Schema 
+
+    Version 2.0
+
+    The primary goals of this format is to allow a simple XML format
+    that is mostly human readable. The generation and parsing of the
+    various data types are done through the TypeConverter classes
+    associated with the data types.
+
+    Example:
+
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing"">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+
+    There are any number of "resheader" rows that contain simple
+    name/value pairs.
+
+    Each data row contains a name, and value. The row also contains a
+    type or mimetype. Type corresponds to a .NET class that support
+    text/value conversion through the TypeConverter architecture.
+    Classes that don't support this are serialized and stored with the
+    mimetype set.
+
+    The mimetype is used for serialized objects, and tells the
+    ResXResourceReader how to depersist the object. This is currently not
+    extensible. For a given mimetype the value must be set accordingly:
+
+    Note - application/x-microsoft.net.object.binary.base64 is the format
+    that the ResXResourceWriter will generate, however the reader can
+    read any of the formats listed below.
+
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAAAAAAAEAIACvPgAAFgAAAIlQTkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAAPnZJ
+        REFUeNrtvXmcXNdZ5/09595be/Wi1i5LsoVsq1urHdtxHBLiYIgJIQkhbxLIggNDhoSwBHgnwzDMDDMv
+        fCYMLwGGMG8y4ElIwJCQkIWQhRBnc4ITO7a2lixLlqy9W1JvtVfde877x6nbKrWq1d3V1d21nO/nU5+2
+        S1W37nKe33nOc57zHLBYLBaLxWKxWCwWi8VisVgsFovFYrFYLBaLxWKxWCwWi8VisVgsFovFYrFYLG2B
+        sLfAYrmec+fONe1YmzZtsgJgsbSp0XtAL9APbAY2AEkgAUSAEpAHssB54AwwAUwBfquLgRUAizX66+kF
+        dgB3VV+7aww/BriAU/N5v/oqVoXgHHAAeKL6ehbItKIYWAGwWMM3uMAg8KPAg8A+YBUgF/EzPnClKgJf
+        AL5SFQPVKkJgBcDS7cbvAS8A3gr8BHDTEtlFAJwCPgX8DXCw+t6KioAVAEvXcPz4caampkgmkwRBQG9v
+        7xDwS8BPAeuW8VTOVEXgQ8Bztf+w3EJgBcDSFQwPD+N5HoVCAc/zViWTybc5jvNvMWP9leIp4I+BTwCF
+        lRABKwCWjufgwYM4jsPk5CSpVGqflPJ30+n0jzuO47TA6eWAjwD/HeMZLKsIyBa4ARbLknH48GEcx2Fw
+        cFAkk8nX+b7/t57nvbpFjB/MzMK7gL8CXhi+2cw8hBthPQBLxxL2/P39/c7o6OjbfN9/n+d5a/r7+5Gy
+        Jfu+w8B7gH8O31hqT8B6AJaONX4pJfF43B0dHf1F3/f/CFiTSCRa1fgBdgIfBF4TvrHUnoAVAEvHMTw8
+        jOM4DA0NMTk5+Xbf939Pa93nui7RaLTVT/8W4P3AjyyHCNghgKWjOHz4MJ7nceXKFZLJ5GsrlcqHtNZr
+        AFKpFOl0um0uBfg54LvhG0sxHLACYGkJ3vGOdzSnQQvBO9/5ThzHubNSqfy1UmoHgJSSVatW4XleO92W
+        rwA/i1ljsCQC4NqmZ2kxY5eYyHgcs9gmjll4k6i+72By7ouYufM8Js++CBTvv//+UjqdXjU5OflfQ+MH
+        8DwP12275v7DwG8CvwWUzp0713QRsAJgWUmj9zCr7LZVX1uqr62YlXe91c+Ei28cjNeqMGm0ASbffgK4
+        AFz46le/ejaVSt20YcOGV1zzQ56HEG3n8Arg54HHgE8uxQ9YAbAst9EPVI39BZiVdi+oGnsKaDRCtxEY
+        0lqzbt2668b5Qoh2c/1r6QF+HfhX4FyzvQArAJblMPo0Zkntg8ADwK2Ynr+pyTie57F7925SqRRa6+n3
+        pZTt6P7Xci/wEPD7gG7mga0AWJbK8CVwG2Z57Y9hevvVS/X7WmvWr1/P5s2brzF+AMdxWnnufz5I4G2Y
+        NQPHmukFWAGwNNvwXUxv/zPA64CbWYZ8E9d1ue2224hGo3UFoA3H/zO5FXgj8N+aeVCbCGRplvG7mFz2
+        9wOfwUSvty1HG9Nas2bNGjZv3ly/kUvZCQIggDdggqRNSw6yHoBlsYYPpnd6J/AmTOms5bUMIdi8eTOx
+        WOy63j/89w7hNuClwMeadUDrAVgWY/y9wC9gpqjesxLGr7UmFovN2vt3mABEMPGUpuUzWw/A0ojhC+DF
+        GDf/FZhCmc2iyNXkngvAJGbNfL76Cqq/FwPiWuuBdevW3drb27u+Xu8PtHsAcCb3YaZNjzcjGGgFwLJQ
+        409ipqTeW22IiyWDqaL7FKZO3ing+ep7Ga5W3A2TfjRXk4Kcc+fOyYceeui3Pc9772w/MJswtCnrgL3A
+        8WYczAqAZSHGfzPwH4C3YFJ0G+UK8CTwdUzF3GHgMqb3nw8KqNx99938wR/8QezkyZO3BEFAlwhAHDOl
+        2pTMQCsAlvka/8uA/wfj+jdCATgEfKn6OoDZPOM6PvShD83rgL/8y7/M2bNnezHTjt0iAAC7MJmTWSsA
+        lqU2fgG8HvgDjAewUHLANzElr74KjDRq8DPxfR8hRL9Sqv9Gn1NKddrjuRkzFLMCYFlS43cxy1F/j4WX
+        zc4D/4IpePkVTDBv0UZfixACKeVQEAQ9N/pcEARorTtpNmA1Zk3FiBUAy1IZfwxTM/8/An0LOITGjO//
+        BPgsM9z8Zhh+rQBgph5jcwmAUorWqQO6aOLAekzsxAqApenGH8GsQPttzDr8+XIBeBj435hI/pIYfkh1
+        bJ9gjnwWpRRBEHSSADiYIcCisQJgmWn8DvAOTBGKhRj/N4D/gonsq6U0/FoB0FpH5vqcUopKpUIkEqFD
+        cBf4bKwAWOZl/GAW8fwXTJR5PuS5urHF6eUw/FoBAJz5RPkrlUonxQEkxkuzAmBpqvG/umrIA/P8+gXM
+        6rSPVIVg2YwfpmMAgRBizqm+crlMEATtXhcgJABKVgAszTT+FwDvw1TXmQ8nMKnAn659c7mMPxQAIURl
+        PtN8QRBQKpU6SQDyVgAszWIt8LvMf6PMg8CvYeb1l93wZ4hADhNzmDPhv1QqkUgkOmEY4GPSpBeNXQ3Y
+        pcyI+L8Hs8psPjyJWQG44sZf5STz7A3L5TKlUokOII8ZflkBsCzK+MFU7XnnPNvCEeBXgcdbwfiVUiil
+        nmGWlOKZaK0pFAqdkBo8AoxbAbAsltsxc/298/js85jcgMdawfjBlAFzHCcrhJiY73dKpRLlcrndn9sp
+        TIq1FQDLwqjp/T3MttS75vG1K5jlv19sFeMPBSCRSEwA35/vd7TW5HK5dl8fcIAmBQGtAHQvLwfePI/P
+        VTB1/v6+lYwfIB6PMzk5WZJSPr2QwF6pVKJQKLTrc8thllA3BSsAXURN778a487PZ77/H4APYKaeWsb4
+        Q0OWUiKlfJwFjolzuVy7DgXOYTyAppQGtwLQnbwBuH8en9uPmR6caDXjB9ixYwdSShzHOSSEOLiQ7wZB
+        QCaT4UaFRFqUr1PdLLQZWAHoEmp6/42Ykl5z7ZWVxWQFDrfydUUiETKZzISU8vML/W65XCabzbZTPCAP
+        fAGTB2AFwNIQPwHsm8fnPo1Zzgu0Xu8fopQiHo8jpfyiEOLsgi0qnyebzbbL1OAh4NvNPKAVgC6gpvdf
+        i9liaq7e/3nMev58Kxs/wNDQEK7r0tPTMyyl/Gwjx2gTEQiAv6ZaBKRZW4NZAegufhxTUPJGKOAvMRl/
+        bYHWmsnJSd9xnI8KIUYb+X4ulyOTybTycOAAJiDbVKwAdA89mL3l5lpGegTT02ho7d4/ZNeuXTiOQzwe
+        f0JK+YlGRSSXyzE1NdWKgcEyRpTPAE3dHtwKQIdT4/7vYe7eXwOPAM+1i/HXGnChUPBd1/0zKeXRRo9T
+        KBSYmJhotTUD/1J9Lk3HCkD38CBzz/s/A3y8HS9u9+7deJ7H+Pj4USnlnwghGp7kL5fLTE5OrvgMgdYa
+        3/fHfN//00qlMgbN7f2tAHQ4Nb3/OuBH5/GVTwLPQnv1/iFBENDf3080Gv1rKeXfLvZYmUyG8fFxisXi
+        sgcIK5UKmUxGZzKZv8zn818tFotL8jtWALqDFwJDc3zmEvC5dr7IXbt2hfX/Mq7r/m41Q3BRlMtlJiYm
+        GB8fp1AoLKlHoLUODT8Uni8CfxgEQRma3/uDLQjSDQjgh5i7iux3gcPQnr1/SDQaDYcCz0UikX/v+/7D
+        SqlbFmuY4SpCz/OIRqNEo1Fc1110cRGtNUqp6VoFYekyKeV+z/N+u1wuj955551Ldr+sB9D59GLKfd2I
+        AJNhlm33i92xYwelUolkMkmhUPia4zi/JoS42Ixja60pl8tkMhnGxsYYHx8nk8lQLBbxfR+l1KxDhWoF
+        4+kS5aVSiVwux+TkJGNjY0xOTlIoFELjP+Z53q+WSqWnenp6ePbZZ5fsflkPoEOpGf9vwaz7vxHnqanw
+        0+4MDQ1x6NAhkskkx48f/+wtt9wSD4Lg/UqpDc36DaUUpVKJUqkU1iYM1yXgOM70e6Hxh+IQCsBsYiGl
+        PO553i/n8/mv9/X1US6XGRoaWrJ7ZQWg87mTuaP/B6jOMbez+1/Lrl27OHDgANu3b+fs2bN/t2HDhjzw
+        x0qpbc3+rdre3fcbT9OXUj7luu6vF4vFr/X29qKUWlLjBzsE6HQkZu5/rtTfJ+kA938me/bsQWvN5s2b
+        KRaLn3Nd9+1Sysda8Vwdx/l8JBL52VKp9LV0Ok0QBAwODi5LA7F0Lmnmjv7naKO034Wye/dutNb09vZS
+        Lpe/4XnezziO8xdCiJaoCCKEmHQc5488z/u5SqVycGBgAK01O3fuXJbftwLQ2aSAzXN8ZhRT5rtj3P+Z
+        7Nq1C601a9euRWt9OhaL/arjOO+SUu5fQcPXUsrHPM97KJVK/ZbWenT//v3L1vOH2BhAZ7OeuXf2PQmM
+        dfqNGBwc5OhRkyEcBEG+WCx+OJlMfj0Igl8MguCntdabl+tcpJTPSik/4nnew4VC4UK4aelDDz207PfF
+        egAdSM0MwFbm3kTyeZpUYLLV2bFjB3v27EEIQV9fH1rrk6tXr/4tz/Ne5TjO+6SUzwohlmQlkBCiIqU8
+        6Lrub0cikVfu3bv395RSF1avXo3jOOzevXtF7on1ADqbLfMQgNOYwp9dQzi+PnToEFNTU0prfeD2228/
+        ePz48Q8ppX5EKfVKrfXdwBqtdcM2IoQoCyEuCiEek1J+WUr5laeeeursvn37OHr0KFJKbr755hW9F1YA
+        Opu55r0rGA+gK9m1y1REP3z4MKdOndJa6+eCIPhgIpH4aKVSuVlrfa9Sahdwt9Z6o1IqJYRIYWZVHIwH
+        rar3sQLkhBBTQoiTWuunHMcZllJ+O5lMnpmYmCgJIbj33nuXfZxvBaA7kcy9xXcRuAidGwCcD6FHcPTo
+        UXp6esjlcnml1DAwXO2t+8vlcsxxnNVSyu1a6z4gqbX2hBBFIUQGGA+C4JSUciwej+eGh4entm7dOp0w
+        dMcdd3DixAm2b9/eUtfeEZuldzvnzp275v+feOIJPvjBD3qbNm36EKYA6GyM+77/Ez/4gz/42IMPPrjg
+        312KxSmtxJEjRxBCEAQBlUoFrTVSmrBZmMVXuxZAKYWUkkgkguu6aK257bbbWvoarQfQRoY9DyQQeelL
+        XyqFEMlHH320Vyk1nZYavsJ0Vc/zxNDQ0OYHHnhge6lU8jFubIBxa9Us/12u/p33+bWrULSKm76UWA+g
+        fYzdBaI1r15Mkc+1wJqav6uAmFIqMTIyckelUlnrum64jx6u6yKlDHPXVSwWm5BSlqsG7gOl6qtY89+1
+        741hlg6P1vwdBSZnfNbvRFGwAmBZakP3MGP3VcAtwHbgphojDw09XSMGMepM6c5nqeoiCl2oGSKRmSEI
+        l4CzwHGu5hpkmWPGwQqDFYBuMvhk1ZA3Vg391pq/WzC9fBITcW5HAkyq8SRmuvHZqiCEf89XhSNnBcEK
+        QKcbvMBk5W3FrNDbWTX27Vzt0WNdcpuKXPUYjldfhzG7/D6P2YpMW0GwAtDuRt+Dcd/vwKzKuwvTu69i
+        7hV63UYFM0x4FrP77RPAU5hhxJQVAysA7WD0SYw7v7fG4Acx6/Gj9q4tiBJwBbNPQSgI+zHDhpwVAysA
+        rWT0twEvB16Gqb+/BojbO9ZUClxdufg1TAWjY1YMrACshNEnMGP3lwEPAHdjSm/b+7k8aMweed8DvlIV
+        hOPUWdRkxcAKQLMMPwZsw1TY/RHgHkyuvV1RubIo4AKmqvE/A1/H7GxUtELQIgLQQEYbK/Hw6pynwEzH
+        PYDZWONFmDF+u07LdToBJkbwHeDLGO/gNDNmFJarPT3xxBOL+v5dd9215Oe4JAJwA4N3MGPjOCYKHqn+
+        t8CM8cqYDLJC9VVZDlGoc74RYBfwOuA1mKq6NmrfXlQwW519BvgUcKjavpakDc1h7F5Nu3dr2r2uafeV
+        mnYfLJcgNE0AZjH6FCZzbWfVoLZipsU2YZJcIlVRENWLrmDmhy9gpn9OY6LABzHKPtFMIahzzr3Ai4H/
+        C9Pjb7R21BGcx3gEnwAewyQmNaUNzWL4fdW2sxszC7Sl2u43YPI9wuXEutruy9VzOldt989XBeswJvCZ
+        XSoxWLQA1DGidPWi7wdeiilKuYa5d6aZjSIwjon4fhuzU+rTmCmihsSgzjlvBl4BvAGzjVaPtZmOZAp4
+        HLMB6peolkJfaPuZxegHgH3ADwP3YWaG+mk8uSuHSZQaBr4BPIrpDDPNFIKGBaCOEd0E/BjGbX5B1eiX
+        gkmMOn4O494do7o6ba6HOOOcBcYzeT3w2qpQWTe/O6hUDevTwN9jelo9nzY0w/hl1dBfA/wExsvtXaJz
+        voSp3vwpzC5OZ5shBAsWgDqGfwvw0xi3eecyGpHGRHs/A3wUkyRS9yHWOedbgbcAbwZ+wNpDV3MC+Gvg
+        Y1R3Rq7XhmYYvsAke721avzbWL4ZtQpGsD4BPIJZaNWwECzopGcY0gDGZX5H9Was5JTiSeAjwIe5cYmr
+        LcCbgJ9l7nr5lu5iuNqG/hYTewLMasmLF6/ZWnArpsjKz2I6v5VCYzq9D2GGNFcaEYF5GW0d1/kHgf+A
+        yX6LtMgD1BgX6X3AZ7k24rse+Cng5zDjNDt3b6mHwsSXHgY+SbVc2sWLF9FaR4BXA+/FDHFbJYemjMmK
+        /H3gW9R4wfMRgjkvYobx9wC/APwaZszfikwCfwm8H5MZ9mrg32ASd+wY3zIfKpjEor8APnvu3LmElPI9
+        wM+zdGP8xXIW+GPgf1OzeGouERALMP5NwO9ixj2t0uvPhga+ickpuI/uWWZraS5F4NuTk5NuoVB4ida6
+        1TNny5h42H/GTCnOKQJinsY/CPwh8ErbJizdhlKKQqFALpcjCIJ2OOV/An4TM214QxEQ8zD+ncCfY+b0
+        LZaupVKpkMvlKBaLiymltlx8A3gXZsZgVhEQcxj/IPC/MAtgLJauR2s97Q34vt/qp/t14J3cwBO4UTR8
+        I/D/WuO3WK4ihCCRSNDf308ikZhX4dUV5IeqNjxrSvs1AlDT+6eA3wEebOWrs1hWCtd16enpobe3F9dt
+        6e01HqzacgquT2OWdYwfzHTHQ7RgvQCtNUEQtMMYzNLhCCGIx+P09/cTi7XsRJOo2vLPh2/UikC9IcA9
+        mHn+lruicJ81rXWru16WLsJ1XXp7e0mlUq3aLmNVm75n5j9IuKb378FkOt3calcQBAG5XA4hRKu7XJYu
+        REpJKpWit7cXx2nJejE3V227B656ATM9gFdjVvS1FOVymampKVzXJRq1xXUtrUk4JOjr6yMSaclcuR+r
+        2vjVc67p/ddiVhi1zHy/1ppisUg2myWRSJBMJlvl1CyWGxIEAZlMphVzBr6BWbk7Ctd6AK8C7m2Vs1RK
+        kc1mmZycJBqNkkgkbKuytA2O47RqXODeqq1TKwBpTGGMlvBblFJkMhmy2SyRSKSVgysWy6wIIUgmk6TT
+        aaRsmQWokaqtp2sF4E5MKayWMP6pqSny+TyO47TazbNYOkEEXli1+WkBeAVmv7oVJQgCpqamKBQKCCFI
+        p9N4nl3Ba2l/EokEPT09rTJDsKpq80hMZZ/7Wsn4wxvWwskVFsuCicfjrSQC9wEDLqY+3u0rbfyTk5OU
+        SiUAIpEIyWTSjvstHUcsFkMIwdTU1EovJroduFVisoNWzP33ff8a4w8TKlo0mcJiWTTRaLQV1hCsAu6R
+        VSVYkeh/6PaHxg/GTWrRJAqLpWlEIpGVHg5EgNslZgiw7IRTfbXG77puOyyxtFiaQjQaXekp7lslplT2
+        sqK1JpfLTQf84Op0ic3zt3QTiURiJUVgi2QFqpzm83lyudw170WjUeLxuG0Rlq4jmUyuVKZrr6SaEbRc
+        hLn9tfnRUkrr+lu6FiEEqVRqJaa90xJYtuV15XKZTCaDUuqa96PRqA38WboaKSU9PT3LbQdRidmPfMnx
+        fZ9MJnPd3KeUkng8bnt/S9fjOA49PT3LGQcrSOrsPd5swqBfuVy+7t9s72+xXMXzvOUMCmYlMLHUv1Is
+        Fq+J+IfY3t9iuZ5YLLZcQcEJyY130100vu9fF/QLiUQitve3WGYQTokvg208L5mxJ3oz0VqTzWbr5jwL
+        Iabzojv0KV77ar0Cy6188+rcv+7CcRxSqdRSLyF+1gWOYjZBbPocRKFQoFgs1v0313U7q/cPG6oGggr4
+        PvgVUApcFxyv+tcxn9Gamp2crcELYTQyCMx9C++hlOB6V++hqN67LigLH+bGzMyZaRJF4KiL2QZ5jBvs
+        HtIIvu+Ty+VmrYcWjUY7Y8GPkKACyE7BhdPo547C2Ij5/9wUulJBJFKQTEO6DzbdjLjlduhfA9G4EYFu
+        3eMg9IxKBRi/hD75DJw7BZkJyGXQ+SzC8yDZA6keWLUOsW0HbNhi7qd0QKuOvkXJZJJyuUylUmn2oceA
+        77rACWC4mQJwI9cfTPCv7av7CmEa37mT6O9/C/3Mfhg9D/lstVFW3VYR2nfVyL0IuqcfsXk77HkhYtdd
+        pnGrbvIIBEgB2Sn0oSfgwOPoM8dhahwq5aufEbXaqEFIdCIFazcibt+DuPMlsHGLEeEOFVHHcUgmk0xO
+        Tja7uOgwcMIFxoFvAw8068ilUmlW1x/MVEdbV/oRAi6PoL/7KPp7X4NLF0wDnB6zOte192mCAMYuoa+M
+        wPCT6Ft3IX7wQcSOfRCJdr43IASUS+ijT6O/9UV49hCUi8aIhTC9+mz3DozAnnwGfeoY+vuPIe5+GeKe
+        +2H1uo69d7FYjGKxeEObaoBvA+NhWfAXAZ8FVi/2qEopJiYmrlnlN5Oenp42LfEtAA1Hn0b941/D6eOm
+        txeNBmq06fkTScQ9L0f86Ouhd1XnurVCwuQY+st/j/7uVyGfM55AowHS8N5v2Y581Zthx76rz6jDKJVK
+        TExMXJdF2yCXMfsDfMf5jd/4DTBewD00oTJQoVAgn8/P+u9tW/BDCAgqptf/1P+BC6ebEKGufr9SgTPH
+        YfQcYtNWEyvoOOMXJkbyyb9EP/F14+pLyaJmR8J7P34ZfXwY4knEhs0m0NphOI5DEATNigV8BfhzoBJ2
+        XTng45jIYMMEQUA+n7/hWMVxnPYM/qkA/diX0Z96GMZHq423icahNfrg46i/+QCcf34RXkUrGr+E88+j
+        /uYD6IOPXx0uNQspYXwU/amH0Y992QRlO4xwW/Im2E6xaus5uHZjkC8A31zUkYvFORUqEom0X5lvIdAH
+        v4v+4sehkJ3TOB0pibguMc8jHvGIei6u48yd8yAknDyC/txHYfJKZ8x/CwGTV8w1nTwy570TQuA6DlHP
+        JR7xiHkeEdfFmavNCAmFLPqLH0cf/G5H5g54nteMFYPfrNo6AO6mTZvCzUHHgA9i4gGphR5VKTVnkEII
+        0X7BPyHh+WPoz30MMuOzNmABRDyXeCRC1HVxHDnt3Jppf03FDyhWKhTLFfzZxnJCog8/CV/6BOK1D4EX
+        pX3HtNWA35c+Ya7pBsbvSkmsavCea8Sy9v4FgaLk+xTKZcoVv/4dERIy4+jPfQzRtxq23tZx8ZRYLEah
+        UGg0FpCt2vgYwF133XXd5qBfBP6hkSPPp/eXUraXAAgzR62/+hm4cGbWBuw6Dn3JBAPpFKlYFM91kEKY
+        RiwEUgicagPvSyYY6EmRjEZm9wiUMrGG4SerQbI2RQr08JPo7z5qEqLq3mJBMhphoCdFXzJBLOLhSHnd
+        /fNch1QsykDafM6dzRUWEi6cMc+sVOg4T8DzvMVMof9D1cavPiKATZs2hf+fA/4QOLaQo4abeM41T9l2
+        438h0M/sN4Y4S0OKuC6rUgmSsShyno3NqwpGTzxW/ztCQCGP/taXIDPZno1YCMhMmmso5OtegxSCnniM
+        vmQCb57tQgpBMhZlVSpBZLZls6IqPM/s7zgBCHcgbiCF/ljVtnNgev9pAZjBAeB/hB+cD+Vyue5S35m4
+        rts+uf9CQC5rGnA+V7chea5Df/IGDXGOB5mOx0jHY/XbqJRwYhh96Hu05zoCYc79xHDdgKkQ1Fz/wq8v
+        4rr0JxN4rlP/2eVz5tnlsh3pBSzQk85VbfrAdc0s/I8aLwDgY8D/B8xroFEqleaVpdRuvT9nn4NTz8za
+        e/XG4/Ub4AJIxaIkZlsTUS7Bgcfbz5WtDp048Li5hjokIhFSscVlg3quQ288PrsXdeoZ8ww7TACklAsJ
+        BqqqLX8sfCPs/a8RgBkiUAT+O/CpuY4eBMENk36uPg/RXgKgNfrEYZN5VqcBxaMRopHFxzOEEKRisfpR
+        biHQZ07AlVHaywsQcGXUnHude+dISapJK0GjEY94NFJfAPJZ8ww7MENwAWtpPlW15eJM479OAGZwGfh3
+        wD/d6OjlcnleWxy1lQCELuTx4bqNR0ppgnhN+jnPdYhHZmnEUxPok0fbzv71yaMwNVFfPCORRXtONT9F
+        MjrL1LLW5hnOMoRrZxzHmc9q2n+q2vDl2T5w3V2bMRQ4CfwKMyKHV++vnlfv33YCAJCdhJGzdRtOxHHm
+        HbSaL7HILPERv2xWyAVtlNwSBOac/XLddhCLNLfmnec4RJxZYgEjZ82z7DCEEESj0Rt5UV+s2u7J8I2Z
+        vX9dAagjAieAdwF/B1zTCpVS8wr+hYrVVgHA7FTNyrQZAuA2/1o8x5kl2UVAdsKskW8LN0CYc81O1D1f
+        R8qmi6cQgshsHkWlbJ5lByYGzZJUF1Rt9V1V253V+GcVgDoicBL4JeCPqZkdKJfL805ICOd02wWdnTQF
+        KergOM3PZBTVXIG6ZKeMUbWJ/RsBmKp/76RcknYw6zPxffMsOxAp5cxhQK5qo7/EHD3/nAJQRwSuAL+D
+        cSuOhQIw3zXK7VX6S0AhB4F/Xc9hElPkUvziLNFs0PnqubQLgW/Ouc7lyJoMv6Yag6gjLEKY+1bI0Ykl
+        2WZk1h6r2ubvVG11TuOfUwDqiEABeFgI8cYgCD5ZqVT8hZxsW+F61fnr6wVOL1FUWddLcNWA57XX4iAh
+        zTnreV5jM+5d3Weir5YU61AikYjvOM7fa63fCDxMzT4fcxk/wLyiMaEIVNcMMDU19bTv+3/h+/6PMs+t
+        xdprCKBNlR7XNfPY4tqGppYgv1wDStU3DpHsaa9G7HqIZE9dU1fKSECzW4LS6noR0JhnmOqhU6steZ43
+        NTAw8P5isfj01NTUvA0/ZEHdyqZNm3jrW99KoVDA9/2dLGBfwbbyAHTV6Jz6+ljxmy8AgVIEdeMpGlJp
+        05DbYT5b66rRpesa3ezXuThmfSaOa55l5xZaSjuOsyOZTKKUWpDxL1gAAD7wgQ+wceNGRyl160Jc4fYa
+        AmhI90Kqt24jLvl+0xtxqTLLMYWEVevazgNg1bq6w5ZAKUqV5sYzAmVWCtZ9jqle8yw7VwE8YAiuG64v
+        jQAopRgbG+sVQuzt1DuK1pDsMdV767SbIDDLepuF0ppCvelUrSGehG072i8VeNsOc+51OolCuYxqojdT
+        rFQI6uVJaMwzTPZ0eq3F7UBDNfYWLACVSoVyuZzQWm/o5DuKF4HtO83f69sVuWKpaV5AoVymXK8H0xrW
+        bEBsvLm9GrDW5pzXbKh73uXquv5mEChFrliq37/f4Bl2oACkGvliQ6FlIcQtWuuehbWJNlNgrRC37IBV
+        a+sWlSj7AZlCcdHXVfZ9MoVSffsWAnHbbhPEajMBINVjzr2O56I1ZAql+qK3wDaVKRQp+0Hd58eqteYZ
+        dvjeAcBaoKEOecECUB3L37ZQxWk/AdAwsA5x10uuL/NdJVcqkymWGr62ih8wkSvg13VfNQysRbzgJdeX
+        ym4HpGPOfWBtXfHyA3PtFb+xFGetNZliiVxpFk9COObZDXRuufAa4sCmRr64IAF45plnUEqhlFqFCT4s
+        6IG1nQhIB3H3y8zmE3Xc/bAHmswXFjwcKFYqjOVys/eCQiDu+iHYdEt79mBawaZbzDXMEr8o+z5judyC
+        4ymBUkzmC7N7YErBxi3m2bWjeC6cKLAGrk7VL4kACCFCAUgs1JiVatNGvGYD4sWvmHXTDq012WKJK5kc
+        udKN4wJaa8p+wEQuz1g2N3vvpxTctA1x7w+3dwOWjrmGm7bNWhKs4geMZXNM5PKU/eCGnUSgFLmSudfZ
+        2TwvrSESNc9szYZucP/BdMZrG/nigpZlKaXYs2ePPHjw4II3EFHKJGq0427A4p774eJpU2FmlgZa9n0q
+        OR9XOkRc19QFlAKBQGlFEGjKgU/FD27sLWgF/asRr3pz+zfgUEBf9Wb0Ix+Aict1pwaVMiJaKFfwXIeI
+        4+I4JuVao1HKFFQt+z6+Cm7s0UuJeNEPm2fWXTS0qc+CBEBrzenTp6NCiPWNCkD7NWINsTjiFW8wG1Ac
+        /O6sablaQyUIqAQBlELPt1rzf74GE0siHnwjYujOzhi7am2u5cE3oj/9YSjmZr1/gVIEZUWRiskUFGaX
+        n3nfBq0Qu+4xzyoW77ZNV3sBhxkrdudiQUMArTVBELg0MOdY/W7bNmJ6BxCvfTti9z3TG3nM52t6Icaf
+        6kW88k2IF97fWctXhUC88H7EK99kEnPm4dWEpdTnZcPVjUbE7nsQr3079A50447L0aoALIgFC4BSygES
+        XSUAoYGuuwnxpneZ8aUXmXVcu2BxUQrW3oR4wy8ifuhV5tid1IC1Bi+C+KFXId7wi7D2JnPNzbhGpcyx
+        X/wKxJveBetu6pZx/0xiNDCrt+AhgNbaqf7YggXA99toSetsItC7CvGan4UNW8zuthdON7ZBqHEPzH52
+        Q3cgXv4auPn2q+93GtqszBN3vhixajX6q59BDz9lluo2ssdieM833Wx2V77n/qrb35XGDw16AAuuzaS1
+        FjSYQBQEQdsGAq9pyLE44iU/hhi8w2zg8eQ3YeySqT4TjvvhaqOuNehwX7x4Em6+zfRcO/ZBLNEdjVdr
+        uHkH4me2wNGn0Y99CU4dM0Iwc8/A6+6fri6PjsCqNYgXvKS6Nfj6eQ/LOpiGbHJBAiCEQEoZAKVGfsz3
+        /fYXgNoGuWYj4sfehLj7Zejnjpg6/iefMdVwAt9UxtHKrCp0PfNauxGxfSfiB3bClh+AZLra63dRz6WV
+        EdE77jPZgqdPoE8cRh8/DKPnzX3zK9WCLNX1/I5Z1ituuR1+YAixbdAYvnTM8brb+AHKzLOM/6IEQAgR
+        UFN0YCEEQYDv+/OpZto+DVkIY9TrboK7XorITkFmAp2dulrKK5E0i4tSvdDTB/GU2fIrHP93I+FQJ5GC
+        wX2I2/ciCllTBTk7CbkpU83X9Yzhp3rMtumpHrNfYmj03evyz6S45AIAhB5AvpEzVEp1lgBc05gD00v1
+        DUDf6qtTgOYDNX+qDV91fY91rRCAEYNEGiE2V/+x5v5dc+86b/vvJlBigVOACxYAIQSRSKSstR5r9Cwr
+        TVxG27INerrBWuy9WzZyjQjAglOBz58/X9Fan1+MALRlWrDF0tpcpgHpXHAeQCwWQ0qZazSQ5/t+53sB
+        FsvyEgCXGvniggRgcHAwnAnI0EDAARa2m5DFYpkXpVAAFloWrNGCIGdocCYAFrahiMVimZcAXGzkiwsW
+        gGo68DDQ8HYrvu/Pe0sxi8UyJxPA2WURANd1cV13UkrZ8EyA1ppisdieqwMtltbjVFUEll4AHMchGo1m
+        gKOLOeNyudzei4MsltbhWWr27FxSAZBSMj4+XgAOL+aMgyCgWCzaR2exLJ5jQEMr7RqKAUQiERzHOSKE
+        WJQFF4tF6wVYLItjCni60S8vWAAGBwdDIfgeDc49hlQqFTslaLEsjnNUh+PLsjMQgOd5RKPRy1LKo4s9
+        +0KhYKcELZbGeRqTBdgQDQmA4zhcuXJlCvj2Ys/eegEWS8No4Hs0uDy/YQHQWpNMJpFSfksIMbWoK9Ca
+        fD5vvQCLZeFcAr61mAM0JACDg4NIKXEc52khxLOLvYpyuUyhUMBisSyI/cAz0Nj4v2EBABMHuO+++y4L
+        If6lGVeSz+fbqmZgtThK+1c3srQzj2JmARqmYQHQWvONb3wDx3G+KoTILPZKfN8nn8/T6oQGn8vlmJqa
+        mj5nKwSWZeYS8NVFt+fFfPnAgQM4jtNfKpU+rZR66WJPRkpJX18f0Wi0ZY1/cnKS73//+zz77LMUCgVS
+        qRS33347O3fupL+/H2jDjVAt7cingbcAuUbdf2igJFgt0WiUycnJ8Ugk8mml1EsWKyhKKXK5HJ7nIaWk
+        lRBCMDU1xRe+8AWOHDky/f6VK1c4c+YMhw8f5t5772XHjh1Eo1ErAktw/0Mvqy03mm0u5aoA5BZ7oEVZ
+        WRAERKNRpJT/JIR4vhlXViqVWnIooLXmwIEDHD169JrxfyhU58+f5x//8R/57Gc/y5kzZzqj+nGLGD7A
+        1NQUx48f59ixY1y6dAmlVDff32dogvsPi/QAhoaGGB4eJplMnhgbG/tCEATvbMZJ5fN5IpFIyxQPFUJQ
+        KBQ4ceIESqm63okQgkqlwqFDhzhz5gx33nkn+/bto6+vb1pALAs3/LGxMQ4ePMiRI0cYHx9Ha00ikWDX
+        rl286EUvIplMduO9/QzV5b+Lcf8XLQBg3PaJiQnfcZyPKaVer7Ves9hjBkFAJpOhr68Px2mN7bGVUhSL
+        xTl7nTBO8PWvf52jR4+yb98+hoaG6OnpsUKwAMOfmppieHiYp556ipGRkWvuW6lU4rHHHqNSqfDAAw/g
+        um433aJTwMdpUunURd+5Xbt2cejQITzPeyIIgi8EQfC2ZpxYuVwml8uRTqdX3NXTWuO6Lj09PZw7d25e
+        IqC15sKFC4yOjnLgwAH27dvH4OAg6XTaCsENDD+Xy3Hs2DGefPJJzp8/TxAEdadblVIcOHCAoaEhtm7d
+        2k338x+AYVh8798UAQCTzuv7fllK+RGl1Ku11n3NOG4+n8fzPOLx+Irf9Wg0yo4dOzhx4gSVSmVeoiSE
+        QCnFuXPnuHjx4rQQ3HrrrfT09EwLRbcbvtaa8fFxjh07xqFDh7hw4cL0PZ7tPgshyOfznD17lptvvrlb
+        7uM54G9ooPz3kgpALBYjCAJc1/22UurzQRC8uRnH1VqTyWSQUq741KDWmqGhIcbGxvjXf/1XyuXyvD2T
+        UAjOnDnD+fPnWbNmDbfffjs7duxg7dq1eJ7XVZHt0LArlQqXL1/myJEjHDlyhMuXL+P7PlLKed/bLksh
+        /3sWsfS37rNo1oG+//3vI6VESnlfpVL5pNZ6fbOO7Xkevb29eJ634g23XC5z+PBhHn/8cS5evNhQtD/8
+        TjqdZtu2bQwNDbF582bi8ThSyo4Ug9DolVJks1nOnDnDsWPHOHnyJJOTkwu+j1protEor3vd6xgcHOwG
+        ITgO/CRwCJrj/jdVAI4cOYJSilQq5YyNjf2PIAje08yrj0QiLRMUFEIwNjbGE088wf79+8lmsw3FKUJD
+        j8VirFu3jm3btnHLLbewbt26a4Y97SoGodFrrSkUCoyOjnL8+HGOHz/O5cuXKZVKDadTa60ZHBzkNa95
+        DfF4vNO9JwX8DvD74RstJwAABw8eDJV8R6VS+YxS6rZmHj8ej9PT09MSSUJCCIIg4Pnnn+c73/kOzz33
+        HL7vNxywDBtwIpFg7dq102KwevVqYrEYjuNMf6ZVG3t47eG9yefzjIyMcPr0aU6fPs3FixcXnTodBmRv
+        u+02HnjgAQYGBrph6PQE8FPA6WYaf9MFAIwncPLkSTZu3PjuIAj+SGvdVL89mUy2xMxAbaMvFAocOnSI
+        J598kpGRkUUlqYRegZSSeDzOwMAAGzduZOPGjWzYsIGenp5wd6ZrGv5yG0Ht9YUGXywWyWQyjIyMcPbs
+        Wc6cOcPY2Nh0BejFLJ4K78mGDRu48847GRoaIpFIdIPxZ4F/iwn+NdX4l0QADh8+HCbL9JXL5Y8EQfDq
+        Zje8VCpFKpVqmScUNuqJiQkOHz7M/v37m5KtVtvjh7Mhq1evZsOGDaxZs4ZVq1bR19dHLBYL6zTOKggL
+        NZR65x2+F+7rUC6XmZycZHR0lJGRES5evMj4+DjFYvGaIOli74EQgjVr1rBv3z527dpFb2/viojeCvFh
+        4Jeo7sjd8gIA8IEPfID77rsPx3FeXKlUPq613tjM40spSafTJBKJlnpStVNahw8f5sCBA1y6dKlpacG1
+        wUHXdYlEIsTjcfr6+hgYGKC/v590Ok0ymSSZTBKPx3FdF8dxcBznuhTmmbn14UspRRAE069isUg+nyeT
+        yTA+Ps7ExATj4+NMTk5SKBQolUrXDH+ada1SSvr7+9m1axd79+5l1apV3TZ1egx4PXBwKYx/yQTg6NGj
+        KKUYHBwU+/fv/60gCP6r1rqp0TspJalUikQi0XI54WEjDdNYh4eHp6e4mllDYGZMQEo5bfCu6+J5HolE
+        gkQiQTQanX6/9gUm89L3/em/vu9TKBSmX+EeDuHGruHvNdPgQ5RSuK7LunXrGBoaYnBwkFWrVl035OkC
+        CsB7gA+Gb7SNAIAJCFYbZX+pVHpYKfXapTC0VCpFMplsyYUhoRBMTk5y/Phxjhw5wtmzZ6f3Q1iqc16s
+        +197/jf6/2aebzitt2nTJnbv3s327du7PVnqYeBXqK74WwrjX1IBAPjmN79JOp1GSnmH7/t/p5S6dSmM
+        LJlMkkqlWnZ1WHhehUKBs2fPMjw8zIkTJ5iampqOE3TbyrbQ6B3Hobe3l5tvvpnbb7+drVu3Tg/tujhL
+        8nvAz2Dm/pfM+JdcAI4ePTo9Jk4kEm8JguDPtdbppTCwRCJBKpVquToCM8+zNgPuxIkTPPfcc1y4cGG6
+        MGoni0Fo9KFob9y4kVtvvZVt27bR39/fdRmRs3AJeDvw+fCNthUAgEOHDgHgeV4kn8//J6XUe7XWS7J8
+        K5FIhB5Hyz/l0MiLxSKXL1/m5MmTPPfcc1y8eHF6r4ROEIPanj7Mcdi6dSvbtm1j7dq1xGKx6c9ZyAP/
+        AfifmOSfJTX+ZREAMKXDqpHnnnK5/CdBEDy0VL8Vj8dJp9Mts4x4vkIAZohw6dIlnn/+ec6dO8fIyAjZ
+        bJZyubzoefTlMvbwrxACz/Ome/qtW7eyefNmVq1a1RFZjkuAD/wR8J+B4nIY/7IJAMD+/fvDBry+Uqn8
+        hVLqx5fqtyKRCOl0umUKijQiBuFy6JGREc6fP8/58+e5dOnSdFQ+zH1fikj8Qo0dmF6wlUgkWLNmDevW
+        rWPdunWsX7+enp6ea8qkWaOvy0eBXwXGl8v4l1UAwko569evx3GcQd/3P6yUumepfs9xHNLpNLFYrG3d
+        6Npc+lKpRDab5fLly4yNjTE2NsaVK1cYHx+nUCiES7KvMa4bLaW9kVHf6P2wZw8Tk3p7e+nv72dgYIB1
+        69axevVq4vE40Wh0+tytwc/Jl4BfAM6Eb3ScAIBJE/Y8j4mJCSKRyEuqIrBtKQ0oTIpph7jAXNdS+zcI
+        AsrlMqVSaToxJ5vNksvlrnkVCoVpYQiTfGqTfmqFZmaiUGjkiURi+m86naavr2866SgajeJ53nROgTX4
+        BfMkJuh3cLmNf9kFAGB4eBiAbDZLNBr9Sd/3P9iMMmI3IhaLkU6nO6501Mx8fGA6iy9M7An3XgwTfGoT
+        foIgmA7Q1SYQOY5DJBIhFotdk0kYvkJDD7EG3zAngZ8DvrYSxr8iAgAmSUgIwc6dO8X+/fvfEQTB+7TW
+        vUv5m57nTfdY3cBC3f+5jNkaedMZAX5Za/2J8Jkst/GvmADA1ZmBeDzuZrPZnw+C4Pe11quW8jellCST
+        SRKJRNsPCSztidYa3/evKKX+b8dxPiKEUI7jrIjxr6gA1IpAf3+/vHz58luCIPjDpR4OgKnvl0wmu8Yb
+        sLQGQRBQKBSuVCqV905NTX149erVQSwWY8uWLSt2TivaDe7ZsyfMFFR79+79K8dx3i2lvLDUvxsGzjKZ
+        DEEQYLEsJVprisUik5OTl/L5/K+PjY39n1QqFVQqlRU1flhhDyDkwIEDSCm5dOkSq1atek0QBH+qlFqW
+        OxOJRKa9AbuTj6XZBEEQzsZcBH49Eok8ElY83rdv34qfX8u0+DAwmM/nicViD/q+/z+VUtuX5SaYWATJ
+        ZLLbNpmwLBG1uRu+758UQrwnCILPhO3rjjvuaInzbKku7+DBg0gpyefzRKPR+33f/xOl1O7l+v1w/XxY
+        cstiaYRyuUw+nw93ktrvuu57SqXSo+Fip1Yx/pYTADAZg1JKstkssVhsn+/7v6eUeuWy3ZBqplsoBHZY
+        YJkvlUpluohKtSzelzzPe28+n9+fTqfxfZ89e/a01Dm3ZOs+fPgwnueFW4WvrVQqv62U+jda62WrASaE
+        mI4PRCIRKwSWWamtoFQNKpeklB9zHOd3lFIXUqkUvu8zODjYcufekn7uzp07UUrxne98B6XUaCKReK/j
+        OO+RUp5brnMIx3Bh7btwRZ7FEhIEAdlsdjoNu7qP4aiU8rdc1/01rfWFffv2UalUWtL4oUU9gFrC4OCp
+        U6fYsmXLy6tDgnuX+zyklMRiMeLxeNutMrQ0l3Cn6Hw+T6VSuWpMQjwlpfyP69at+8Lo6KgG4x3cdddd
+        LXstbeHXHjx4EMdxyOVyxGKxbb7v/zel1BuWqrDIfIQgLMVthwbdg+/7lEqlaxZYVQmklJ9yHOc/lUql
+        o+HS51aY5usIAQCzkjAejzM5OYnneb3lcvndQRD8itZ67UqcT+1quZk1+S2dg9aaSqVCsVicXlR1jQEJ
+        Meo4zp85jvNnQRCMRyIRgiBg9+7dbXF9bdV9HT16lGKxiOM49PX1yfHx8Zf5vv/vtdYvb3bZ8XnfQCFw
+        XXfaK7B5BJ2BUopyuXxdAZbaj0gpv+Y4zu+vX7/+0YsXLyqlFI7jtFykv2MEICTMFyiVSkQikdW+7/98
+        EATv1lrftJLn5TgO0WjUDg/amCAIpt382j0QrjEaIUaFEP/Ldd0/r1Qqo7FYDKVU2/T6bS8AYLyB9evX
+        c/r0aXbv3s3BgwfvDYLg3ymlflxrvaJRunB4EI1GiUQiuK5rxaCFCXv7UqlEuVy+zs2vwRdCPCqlfF9P
+        T8+jmUxGDQwMMDU1xc6dO9vy2tu+VYaJQ+VymUgk0lsul9+slHrPcqURz4XjONeIQbhFl2XljT4slhIa
+        /Y2meYUQz0kp/0xK+VdBEFwJd2tuh0BfRwsAGG9gZGSEVatWMTo6ypo1a/YEQfCbSqmf1Fq3zC6iYaWd
+        8GXFYPmNPozkhwG9uXI7hBCZaoT//efOndu/YcMGPM/D93327t3b9veko1rf4cOHa72BRLlcfkUQBL+o
+        tX6p1jrWSucaikFYU8+KQfMJayDW7mbs+369gF49ylLKbzmO82fxePyL+Xy+4LouSqm2CvJ1lQCA8QYK
+        hQKu61Iul4nFYn2VSuUnlFLv0FrfuxK5Azd8ANUCnKEghAU2rSA0ZvDVijtUKpXpV1j7cJ4EQognpJQf
+        cl330+VyeSwWi1GpVEilUmzf3hIjSysAcxHmDWQyGYrFIvF4fI3v+z+llPoFrfU+rXVLpkGHghDu7hu+
+        arfztlwl7OFrDV4pNd9e/hr9EEIcklL+pZTy70ql0sVwn4Nyudy2Qb6uFYBaIfA8j3w+Ty6XI51Ob/J9
+        /6eVUm9XSg21/AOqKdFdu623lLKrRKG2rHltZeOwh2/A4Gvv8TEhxEellB8rFAqnwn0NgiBg165dHX1f
+        u6ZLGR4exnEcSqUSFy5cYOPGjT8QBMFblFJv1FrftlKJRI0IQu2wYWY571AU2lkYQkMPgmDa0EOjD935
+        JizMUlLKo1LKv5VSPvLud7/7+J/+6Z8SRvc7aZxvBaCGMFBYqVTYvXs3hw4d2hoEwY9X1xbcpbVOtuWD
+        rBr9TDGY+aoVh5UQiVrjDV312ldo5GGvvgQbjZSklN8XQjziuu5n3/jGNz7/yCOPIKXsKsPvWgGoJwSl
+        UolEItHv+/5LlFJvVEo9sFJrDJZCGGoFop4o1ArDzM/P/O/w/2fu81drqDN3Hqpn6LXj9OXYTUgIcQX4
+        ppTyE1LKfy6VSpdisRjRaBSlVMsu17UCsMQcOXIE13UpFov4vk8ikYiWSqU9QRC8Xmv9aqXUbbRo3YSl
+        EIr5/H89Aahl5nsrWEdBCSFOCCE+L6X8pJTy+77v56WURCIRlFIdP8a3AjBPjh49yvj4OOl0miAI2LNn
+        j6gOD16llHqd1nrvUm9cYmlSoxZiXAixX0r5KSnl51evXn1qZGRE1W622u4ZfFYAlpDahKJisUg6ne71
+        fX9nEAQPaK1/VGu9U2vdZ+9US5GRUh4Bvuw4zpcdxzmQz+cnw7UYWuu2XKxjBWAFOXLkyPTMQRAETE1N
+        MTAw0B8EwZ6qGPyI1npQa91j79aKkBNCnAC+IqX8suM4T46Ojl5evXo1tW7+0FDLz/ZaAWh1hoeHp4OG
+        QRBw/vx5tm7dOuD7/h1KqR+uisGtVgyWuMEKMSmEOA48KqX8BvC99evXj5w/f16HU6OA7e2tACyfGDzy
+        yCO89a1vXaOU2hsEwd1a67uBvVrrde06rdhCFIUQl4QQB4UQ33Yc5ztSyoM7d+689PTTTwNM7+HQCYtz
+        rAC0oRgIIaZTUIMgIJVKJUql0gBwRxAEdwD3VrMO17baoqQWpFw1+GeB70gpDyilvheNRkcKhUI2zIIM
+        x/WdmqJrBaANOXLkCFLK6RRVMBuR9vb2pkul0mohxN2+7+8VQtynlLoF6AN6tNZd+RyqU4tTwLiU8pTW
+        +rtSyoNa68dd1x2ZnJycTCaTaK2n059tMM8KQNsJQqVSma4yc+XKFTZu3NhXKpXSUsrtWuudQRBsEELs
+        rsYQ+oE+rXVH7V0uhKhoraeEEFNCiFNa66ccxzkjhDiktX4mEolkDh06NHHrrbdOG7zWGiFE12XnWQHo
+        UMLYQeghhMk1mUyGtWvXpkqlUlIptVpKuTcIgq1a61uEEHu11muUUlEgIYRIAJFW3KRECOFrrQtATkpZ
+        EEKMaK0PAaeklBe01oe01uc8z8u+7W1vm3z44Yen5+U9z5s+Trcn51gB6CKOHDmCEGJ60YtSCiEESilW
+        r17tZrPZ3kqlEg2CIOa67hZgi9Z6dRAESa11v5TyFmCT1rpfax3TWkeEEB7gAk7NS1KT0ThH+SsADSjA
+        B3ytdRkzPq9U/2aBUa31SeCilDIrpRzTWp9VSp10HCcTiUSKiURi6sqVK35t9mAYqXcch2Kx2NIbZ1gB
+        sCw7YWBx5vLX2r0HlFLceeedPPvss8lKpRILgiDi+74rpewXQvQKIZJAAohXA48xrbWH8R5crbVTjT2I
+        qqErIYTCFMTwq4ZfEkLkgCkhxITW+koQBFNSykBK6Uspi67r5nO5nF+7XiAsjx2O233fR0ppe3YrAJZm
+        CUQ8HqdYLF63dHa21X61Pf7MhTvzXQcQfi9cVBSKVDicecELXmAfjsVisVgsFovFYrFYLBaLxWKxWCwW
+        i8VisVgsFovFYrFYLBaLxWKxWCwWi8VisSwF/z/asEghz8EDCAAAAABJRU5ErkJggg==
+</value>
+  </data>
+</root>
--- a/GUI/RPST/FormPosts.vb
+++ b/GUI/RPST/FormPosts.vb
@@ -0,0 +1,5 @@
+Public Class FormPosts
+    Private Sub FormResults_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.Text = $"{Me.Text} - {FormMain.TextBoxKeyword.Text}, r/{FormMain.TextBoxSubreddit.Text}, {FormMain.NumericUpDownLimit.Text}, {FormMain.ComboBoxListing.Text}, {FormMain.ComboBoxTimeframe.Text}"
+    End Sub
+End Class
--- a/GUI/RPST/LICENSE
+++ b/GUI/RPST/LICENSE
--- a/Project/Application.Designer.vb
+++ b/Project/Application.Designer.vb
@@ -33,7 +33,7 @@ Namespace My
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.Reddit_Post_Scraping_Tool.StartForm
+            Me.MainForm = Global.RPST.FormMain
        End Sub
    End Class
 End Namespace
--- a/Project/Application.myapp
+++ b/Project/Application.myapp
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -39,7 +39,7 @@ Namespace My.Resources
        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
            Get
                If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Reddit_Post_Scraping_Tool.Resources", GetType(Resources).Assembly)
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("RPST.Resources", GetType(Resources).Assembly)
                    resourceMan = temp
                End If
                Return resourceMan
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
--- a/GUI/RPST/PostsProcessor.vb
+++ b/GUI/RPST/PostsProcessor.vb
@@ -0,0 +1,29 @@
+Imports Newtonsoft.Json.Linq
+
+Public Class PostsProcessor
+    Private ReadOnly ApiHandler As New ApiHandler
+
+    ''' <summary>
+    ''' Fetches Reddit posts based on the given parameters and returns them as a JObject.
+    ''' </summary>
+    ''' <param name="subreddit">The subreddit to fetch posts from.</param>
+    ''' <param name="listing">The type of listing (e.g., "new", "top", etc.).</param>
+    ''' <param name="limit">The maximum number of posts to fetch.</param>
+    ''' <param name="timeframe">The timeframe to consider for the posts (e.g., "day", "week", "month", "year", "all").</param>
+    ''' <returns>A JObject containing the fetched Reddit posts.</returns>
+    Public Function FetchPosts(subreddit As String, listing As String, limit As Integer, timeframe As String) As JObject
+        Dim posts As JObject = ApiHandler.ScrapeReddit(subreddit, listing, limit, timeframe)
+        Return posts
+    End Function
+
+    ''' <summary>
+    ''' Checks if the given Reddit post contains the given keyword in its text.
+    ''' </summary>
+    ''' <param name="post">The Reddit post to check.</param>
+    ''' <param name="keyword">The keyword to check for.</param>
+    ''' <returns>True if the post contains the keyword, False otherwise.</returns>
+    Public Shared Function PostContainsKeyword(post As JObject, keyword As String) As Boolean
+        Return post("data")("selftext").ToString.ToLower(Globalization.CultureInfo.InvariantCulture).Contains(keyword.ToLower(System.Globalization.CultureInfo.InvariantCulture))
+    End Function
+
+End Class
--- a/GUI/RPST/README.md
+++ b/GUI/RPST/README.md
@@ -0,0 +1,33 @@
+# RPST (Reddit Post Scraping Tool)
+Given a subreddit name and a keyword, RPST will return all posts from a specified listing (default is 'top') that contain the provided keyword.
+
+[![Upload Python Package](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/python-publish.yml/badge.svg)](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/python-publish.yml) [![CodeQL](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/codeql.yml/badge.svg)](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/codeql.yml) ![.Net](https://img.shields.io/badge/.NET-5C2D91?style=flat&logo=.net&logoColor=white) ![Python](https://img.shields.io/badge/python-3670A0?style=flat&logo=python&logoColor=ffdd54)
+![2023-08-09_04-05](https://github.com/bellingcat/reddit-post-scraping-tool/assets/74001397/d8917a35-3eac-44ce-aa96-1f9685095254)
+![2023-08-09_04-05_1](https://github.com/bellingcat/reddit-post-scraping-tool/assets/74001397/d2fe7269-91d4-49ad-87fb-44282c5637a7)
+***
+
+# ✅ Features
+## GUI
+- [x] Dark mode (Right-click)
+- [x] Saves results to a JSON (Right-click)
+- [x] Logs errors to a file 
+
+## CLI
+- [x] Saves results to a JSON (-j/--json)
+- [x] Automatically checks for new updates. Notifies user if update were found.
+
+# 📃 TODO
+## GUI
+- [ ] Make it installable with a setup.exe/setup.msi file.
+- [x] Add manual dark mode option, that will be persistent in all sessions
+- [ ] Make it save results to a CSV file
+
+# 📖 Wiki
+[Refer to the Wiki](https://github.com/rly0nheart/reddit-post-scraping-tool/wiki) for installation instructions, in addition to all other documentation.
+
+# 😁 Donations
+If you like `RPST` and would like to show support, you can Buy A Coffee for the developer using the button below
+
+<a href="https://www.buymeacoffee.com/_rly0nheart" target="_blank"><img src="https://cdn.buymeacoffee.com/buttons/default-orange.png" alt="Buy Me A Coffee" height="41" width="174"></a>
+
+Your support will be much appreciated😊
--- a/GUI/RPST/RPST.vbproj
+++ b/GUI/RPST/RPST.vbproj
@@ -3,23 +3,29 @@
  <PropertyGroup>
    <OutputType>WinExe</OutputType>
    <TargetFramework>net6.0-windows</TargetFramework>
-    <StartupObject>Reddit_Post_Scraping_Tool.My.MyApplication</StartupObject>
+    <StartupObject>RPST.My.MyApplication</StartupObject>
    <UseWindowsForms>true</UseWindowsForms>
    <MyType>WindowsForms</MyType>
    <ApplicationIcon>icon.ico</ApplicationIcon>
-    <Company>Richard Mwewa</Company>
-    <Description>Given a subreddit name and a keyword, this program returns all top (by default) posts that contain the specified keyword. </Description>
-    <Copyright>Copyright (c) 2023 Richard Mwewa. All rights reserved.</Copyright>
+    <Company>Bellingcat</Company>
+    <Description>Given a subreddit name and a keyword, RPST (Reddit Post Scraping Tool) returns all top (by default) posts that contain the specified keyword. </Description>
+    <Copyright>Copyright (c) 2023 Richard Mwewa</Copyright>
    <PackageProjectUrl>https://github.com/bellingcat/reddit-post-scraping-tool</PackageProjectUrl>
    <PackageReadmeFile>README.md</PackageReadmeFile>
    <RepositoryUrl>https://github.com/bellingcat/reddit-post-scraping-tool</RepositoryUrl>
-    <AssemblyVersion>1.3.0.1</AssemblyVersion>
-    <FileVersion>1.3.0.1</FileVersion>
+    <AssemblyVersion>1.6.0.0</AssemblyVersion>
+    <FileVersion>1.6.0.0</FileVersion>
    <PackageLicenseFile>LICENSE</PackageLicenseFile>
    <PackageRequireLicenseAcceptance>True</PackageRequireLicenseAcceptance>
-    <Version>1.3.0</Version>
+    <Version>1.6.0</Version>
    <PackageTags>reddit;scraper;reddit-scraper;osint</PackageTags>
    <PackageReleaseNotes></PackageReleaseNotes>
+    <AnalysisLevel>6.0-recommended</AnalysisLevel>
+    <PackageId>RPST</PackageId>
+    <Authors>Richard Mwewa</Authors>
+    <NeutralLanguage>en</NeutralLanguage>
+    <Product>$(AssemblyName) (Reddit Post Scraping Tool)</Product>
+    <AssemblyName>RPST</AssemblyName>
  </PropertyGroup>

  <ItemGroup>
--- a/GUI/RPST/RPST.vbproj.user
+++ b/GUI/RPST/RPST.vbproj.user
@@ -1,16 +1,16 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <ItemGroup>
-    <Compile Update="AboutForm.vb">
+    <Compile Update="AboutBox.vb">
      <SubType>Form</SubType>
    </Compile>
-    <Compile Update="DeveloperForm.vb">
+    <Compile Update="DeveloperBox.vb">
      <SubType>Form</SubType>
    </Compile>
-    <Compile Update="PostsForm.vb">
+    <Compile Update="FormMain.vb">
      <SubType>Form</SubType>
    </Compile>
-    <Compile Update="StartForm.vb">
+    <Compile Update="FormPosts.vb">
      <SubType>Form</SubType>
    </Compile>
  </ItemGroup>
--- a/GUI/RPST/Settings.vb
+++ b/GUI/RPST/Settings.vb
@@ -0,0 +1,206 @@
+Imports System.IO
+Imports System.Text.Json
+Imports Newtonsoft.Json.Linq
+
+
+Public Class SettingsManager
+
+    ''' <summary>
+    ''' Represents the Dark Mode property.
+    ''' Indicates whether the dark mode is enabled or disabled.
+    ''' </summary>
+    Public Property DarkMode As Boolean
+
+    Private ReadOnly settingsFilePath As String = Path.Combine(Environment.CurrentDirectory, "settings.json")
+
+    ''' <summary>
+    ''' Loads application settings from the 'settings.json' file.
+    ''' If the settings file doesn't exist, it creates a new file with default settings.
+    ''' </summary>
+    Public Sub LoadSettings()
+        ' Check if the settings.json file exists
+        ' and load the configurations from it
+        If File.Exists(settingsFilePath) Then
+            Dim json As String = File.ReadAllText(settingsFilePath)
+            Dim options As New JsonSerializerOptions With {.PropertyNameCaseInsensitive = True}
+            Dim settings = Text.Json.JsonSerializer.Deserialize(Of SettingsManager)(json, options)
+            Me.DarkMode = settings.DarkMode
+            FormMain.ToolStripMenuItemDarkMode.Checked = settings.DarkMode
+        Else
+            ' Settings file does not exist
+            ' Create a new file with default settings 'False'
+            Dim defaultSettings = New SettingsManager With {.DarkMode = False}
+            Dim jsonOutput = Text.Json.JsonSerializer.Serialize(defaultSettings)
+            File.WriteAllText(settingsFilePath, jsonOutput)
+
+            Me.DarkMode = False
+            FormMain.ToolStripMenuItemDarkMode.Checked = False
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Toggles the Dark Mode setting on or off based on the provided parameter.
+    ''' </summary>
+    ''' <param name="enabled">A Boolean indicating if Dark Mode should be enabled or not.</param>
+    Public Sub ToggleDarkMode(enabled As Boolean)
+        Dim json As String = File.ReadAllText(settingsFilePath)
+        Dim options As New JsonSerializerOptions With {.PropertyNameCaseInsensitive = True}
+        Dim settings As SettingsManager = JsonSerializer.Deserialize(Of SettingsManager)(json, options)
+        settings.DarkMode = enabled
+        SaveSettings(settings)
+        ApplyTheme()
+    End Sub
+
+    ''' <summary>
+    ''' Saves the provided settings to the 'settings.json' file.
+    ''' </summary>
+    ''' <param name="settings">An instance of the SettingsManager containing the configurations to be saved.</param>
+    Private Sub SaveSettings(settings)
+        Dim jsonOutput = JsonSerializer.Serialize(settings)
+        File.WriteAllText(settingsFilePath, jsonOutput)
+    End Sub
+
+
+    ''' <summary>
+    ''' Applies the visual theme based on the Dark Mode setting.
+    ''' If Dark Mode is enabled, a dark theme is applied. If it's disabled, a light theme is set.
+    ''' </summary>
+    Public Sub ApplyTheme()
+        Dim DarkMode As Boolean = GetDarkMode()
+        If DarkMode Then
+            ' Enable dark mode for the Main form
+            ' Background colours (I know 'Colours'/'Colors'😆)
+            FormMain.BackColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.TextBoxSubreddit.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
+            FormMain.TextBoxKeyword.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
+            FormMain.NumericUpDownLimit.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
+            FormMain.NumericUpDownLimit.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
+            FormMain.ComboBoxListing.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
+            FormMain.ComboBoxTimeframe.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
+            ' Foreground colours
+            FormMain.TextBoxKeyword.ForeColor = SystemColors.Control
+            FormMain.TextBoxSubreddit.ForeColor = SystemColors.Control
+            FormMain.NumericUpDownLimit.ForeColor = SystemColors.Control
+            FormMain.NumericUpDownLimit.ForeColor = SystemColors.Control
+            FormMain.ComboBoxListing.ForeColor = SystemColors.Control
+            FormMain.ComboBoxTimeframe.ForeColor = SystemColors.Control
+            FormMain.LabelKeyword.ForeColor = SystemColors.Control
+            FormMain.LabelSubreddit.ForeColor = SystemColors.Control
+            FormMain.LabelLimit.ForeColor = SystemColors.Control
+            FormMain.LabelListing.ForeColor = SystemColors.Control
+            FormMain.LabelTimeframe.ForeColor = SystemColors.Control
+
+
+            ' Enable dark mode on 'Right Click Menu' items
+            ' Background colours
+            FormMain.ToolStripMenuItemDarkMode.BackColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ToolStripMenuItemSavePosts.BackColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ToolStripMenuItemtoJSON.BackColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ToolStripMenuItemtoCSV.BackColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ToolStripMenuItemAbout.BackColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ToolStripMenuItemDeveloper.BackColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ToolStripMenuItemCheckUpdates.BackColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ToolStripMenuItemQuit.BackColor = ColorTranslator.FromHtml("#FF121212")
+            ' Foreground colours
+            FormMain.ToolStripMenuItemDarkMode.ForeColor = SystemColors.Control
+            FormMain.ToolStripMenuItemSavePosts.ForeColor = SystemColors.Control
+            FormMain.ToolStripMenuItemtoJSON.ForeColor = SystemColors.Control
+            FormMain.ToolStripMenuItemtoCSV.ForeColor = SystemColors.Control
+            FormMain.ToolStripMenuItemAbout.ForeColor = SystemColors.Control
+            FormMain.ToolStripMenuItemDeveloper.ForeColor = SystemColors.Control
+            FormMain.ToolStripMenuItemCheckUpdates.ForeColor = SystemColors.Control
+            FormMain.ToolStripMenuItemQuit.ForeColor = SystemColors.Control
+
+
+            ' Enable dark mode for the About box
+            ' Background colours
+            AboutBox.BackColor = ColorTranslator.FromHtml("#FF121212")
+            AboutBox.LicenseRichTextBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
+            AboutBox.Panel1.BackColor = ColorTranslator.FromHtml("#FF121212")
+            ' Foreground colours
+            AboutBox.ForeColor = SystemColors.Control
+            AboutBox.LicenseRichTextBox.ForeColor = SystemColors.Control
+            AboutBox.LabelProgramName.ForeColor = SystemColors.Control
+            AboutBox.LabelProgramDescription.ForeColor = SystemColors.Control
+            AboutBox.LabelVersion.ForeColor = SystemColors.Control
+
+            ' If dark mode is enabled, set the 'Dark Mode' text value to 'Light mode'
+            FormMain.ToolStripMenuItemDarkMode.Text = "Light Mode"
+        Else
+            ' Disable dark mode for the Main Form
+            ' Background colours
+            FormMain.BackColor = Color.Gainsboro
+            FormMain.TextBoxKeyword.BackColor = SystemColors.Control
+            FormMain.TextBoxSubreddit.BackColor = SystemColors.Control
+            FormMain.NumericUpDownLimit.BackColor = SystemColors.Control
+            FormMain.NumericUpDownLimit.BackColor = SystemColors.Control
+            FormMain.ComboBoxTimeframe.BackColor = SystemColors.Control
+            FormMain.ComboBoxListing.BackColor = SystemColors.Control
+            ' Foreground colours
+            FormMain.TextBoxKeyword.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.TextBoxSubreddit.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.NumericUpDownLimit.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.NumericUpDownLimit.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ComboBoxListing.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.ComboBoxTimeframe.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.LabelKeyword.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.LabelSubreddit.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.LabelLimit.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.LabelListing.ForeColor = ColorTranslator.FromHtml("#FF121212")
+            FormMain.LabelTimeframe.ForeColor = ColorTranslator.FromHtml("#FF121212")
+
+            ' Disable dark mode on 'Right Click Menu' items
+            ' Background colours
+            FormMain.ToolStripMenuItemDarkMode.BackColor = Color.Gainsboro
+            FormMain.ToolStripMenuItemSavePosts.BackColor = Color.Gainsboro
+            FormMain.ToolStripMenuItemtoJSON.BackColor = Color.Gainsboro
+            FormMain.ToolStripMenuItemtoCSV.BackColor = Color.Gainsboro
+            FormMain.ToolStripMenuItemAbout.BackColor = Color.Gainsboro
+            FormMain.ToolStripMenuItemDeveloper.BackColor = Color.Gainsboro
+            FormMain.ToolStripMenuItemCheckUpdates.BackColor = Color.Gainsboro
+            FormMain.ToolStripMenuItemQuit.BackColor = Color.Gainsboro
+            ' Foreground colours
+            FormMain.ToolStripMenuItemDarkMode.ForeColor = Color.Black
+            FormMain.ToolStripMenuItemSavePosts.ForeColor = Color.Black
+            FormMain.ToolStripMenuItemtoJSON.ForeColor = Color.Black
+            FormMain.ToolStripMenuItemtoCSV.ForeColor = Color.Black
+            FormMain.ToolStripMenuItemAbout.ForeColor = Color.Black
+            FormMain.ToolStripMenuItemDeveloper.ForeColor = Color.Black
+            FormMain.ToolStripMenuItemCheckUpdates.ForeColor = Color.Black
+            FormMain.ToolStripMenuItemQuit.ForeColor = Color.Black
+
+            ' Disable dark mode for the About box
+            ' Background colours
+            AboutBox.BackColor = Color.Gainsboro
+            AboutBox.ForeColor = SystemColors.WindowText
+            AboutBox.LicenseRichTextBox.BackColor = SystemColors.Control
+            AboutBox.LicenseRichTextBox.ForeColor = SystemColors.WindowText
+            AboutBox.Panel1.BackColor = Color.Gainsboro
+            ' Foreground colours
+            AboutBox.Panel1.ForeColor = SystemColors.WindowText
+            AboutBox.LabelProgramName.ForeColor = SystemColors.WindowText
+            AboutBox.LabelProgramDescription.ForeColor = SystemColors.WindowText
+            AboutBox.LabelVersion.ForeColor = SystemColors.WindowText
+
+            ' If dark mode is disabled, set the 'Light Mode' text value to 'Dark Mode'
+            FormMain.ToolStripMenuItemDarkMode.Text = "Dark Mode"
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Retrieves the Dark Mode setting value from 'settings.json'. 
+    ''' If the settings file doesn't exist, defaults to returning 'False' (Dark Mode off).
+    ''' </summary>
+    ''' <returns>A Boolean indicating if Dark Mode is enabled or not.</returns>
+    Private Function GetDarkMode() As Boolean
+        If File.Exists(settingsFilePath) Then
+            Dim json As String = File.ReadAllText(settingsFilePath)
+            Dim settings As JObject = JObject.Parse(json)
+            Return settings(NameOf(DarkMode)).ToObject(Of Boolean)()
+        Else
+            Return False
+        End If
+    End Function
+End Class
--- a/GUI/RPST/Utilities.vb
+++ b/GUI/RPST/Utilities.vb
@@ -0,0 +1,175 @@
+Imports System.IO
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+
+Public Class Utilities
+    ''' <summary>
+    ''' Collects user inputs, fetches Reddit posts based on the inputs, checks if posts contain the keyword, and saves posts to a JSON file if necessary.
+    ''' </summary>
+    ''' <param name="JSONToolStripMenuItem">Indicates whether to save the posts to a JSON file.</param>
+    ''' <remarks>
+    ''' This function initializes the DataGridView, iterates over each post, adds the posts containing the keyword to the DataGridView and updates the UI.
+    ''' It also shows a message if the keyword was not found in any of the posts or if the inputs are empty.
+    ''' </remarks>
+    Public Shared Sub ProcessRedditPosts(JSONToolStripMenuItem As ToolStripMenuItem)
+        ' Collect inputs from the user
+        Dim inputs = CollectInputs()
+
+        If inputs.HasValue Then
+            ' Initialize the DataGridView
+            DataGridViewHandler.AddColumn(FormPosts.DataGridViewPosts)
+
+            ' Fetch Reddit posts based on the inputs
+            Dim processor As New PostsProcessor()
+            Dim posts As JObject = processor.FetchPosts(inputs.Value.Subreddit, inputs.Value.Listing, inputs.Value.Limit, inputs.Value.Timeframe)
+            Dim totalPosts As Integer = 0
+            Dim keywordFound As Boolean = False
+
+            ' Iterate over each post
+            For Each post In posts("data")("children")
+                totalPosts += 1
+                ' Check if the post contains the keyword
+                If PostsProcessor.PostContainsKeyword(post, inputs.Value.Keyword.ToLower(Globalization.CultureInfo.InvariantCulture)) Then
+                    ' Add the post to the DataGridView
+                    DataGridViewHandler.AddRow(FormPosts.DataGridViewPosts, post, totalPosts)
+                    FormPosts.Show()
+                    keywordFound = True
+                End If
+            Next
+
+            ' Check if the keyword was found in any posts
+            If Not keywordFound Then
+                MessageBox.Show($"Keyword `{inputs.Value.Keyword}` was not found in any of the " + posts("data")("children").Count.ToString(Globalization.CultureInfo.InvariantCulture) _
+                                + $" {inputs.Value.Listing} posts from r/{inputs.Value.Subreddit}", "Not Found", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+            End If
+
+            If JSONToolStripMenuItem.Checked Then
+                ' Save posts to a JSON file if the JSONToolStripMenuItem is checked
+                Utilities.SavePostsToJson(posts("data"))
+            End If
+        Else
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Checks for the existence of the 'logs' directory under the 'RPST' directory within the user's AppData\Roaming folder. 
+    ''' If the directory does not exist, it creates one.
+    ''' </summary>
+    ''' <remarks>
+    ''' The directory path is 'C:\Users\<username>\AppData\Roaming\RPST\logs'.
+    ''' If the 'RPST' or 'logs' directories do not exist, the function will create them.
+    ''' If the directories already exist, the function will not perform any actions.
+    ''' </remarks>
+    Public Shared Sub PathFinder()
+        Dim directoryPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "RPST", "logs")
+
+        If Not Directory.Exists(directoryPath) Then
+            Directory.CreateDirectory(directoryPath)
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Collects and validates user inputs from StartForm and returns them as a Tuple.
+    ''' </summary>
+    ''' <returns>
+    ''' Tuple containing:
+    ''' Keyword (String) - Keyword entered by user in theFormMain.
+    ''' Subreddit (String) - Subreddit entered by user in theFormMain.
+    ''' Listing (String) - Listing chosen by user in the StartForm, defaults to 'top' if none is selected.
+    ''' Limit (Integer) - Limit entered by user in the StartForm, defaults to 10 if the entered value is over 100.
+    ''' Timeframe (String) - Timeframe chosen by user in the StartForm, defaults to 'all' if none is selected.
+    ''' </returns>
+    ''' <remarks>
+    ''' If keyword or subreddit are empty, Displays a warning and returns nothing.
+    ''' </remarks>
+    Public Shared Function CollectInputs() As (Keyword As String, Subreddit As String, Listing As String, Limit As Integer, Timeframe As String)?
+        Dim keyword As String = FormMain.TextBoxKeyword.Text.Trim()
+        Dim subreddit As String = FormMain.TextBoxSubreddit.Text.Trim()
+        ' Convert the Listing and Subreddit to lowercase using InvariantCulture
+        Dim listing As String = If(String.IsNullOrEmpty(FormMain.ComboBoxListing.Text), "top", FormMain.ComboBoxListing.Text.ToLower(Globalization.CultureInfo.InvariantCulture).Trim())
+        Dim timeframe As String = If(String.IsNullOrEmpty(FormMain.ComboBoxTimeframe.Text), "all", FormMain.ComboBoxTimeframe.Text.ToLower(Globalization.CultureInfo.InvariantCulture).Trim())
+        Dim limit As Integer = FormMain.NumericUpDownLimit.Value
+
+        ' Validate inputs
+        If String.IsNullOrEmpty(keyword) AndAlso String.IsNullOrEmpty(subreddit) Then
+            MessageBox.Show("Keyword and Subreddit fields should not be empty.", "Invalid Inputs", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+            Return Nothing
+        ElseIf String.IsNullOrEmpty(keyword) Then
+            MessageBox.Show("Keyword field should not be empty.", "Invalid Input", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+            Return Nothing
+        ElseIf String.IsNullOrEmpty(subreddit) Then
+            MessageBox.Show("Subreddit field should not be empty.", "Invalid Input", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+            Return Nothing
+        End If
+        Return (keyword, subreddit, listing, limit, timeframe)
+    End Function
+
+
+    ''' <summary>
+    ''' Saves the gives posts' data to a JSON file.
+    ''' </summary>
+    ''' <param name="Posts">The object containing posts to be saved.</param>
+    ''' <remarks>
+    ''' This function allows the user to select a location to save the posts. 
+    ''' If the user confirms the save location, the posts will be serialized 
+    ''' to JSON with an indented format and written to the chosen file. 
+    ''' A success message will be displayed to the user upon successful save.
+    ''' </remarks>
+    Public Shared Sub SavePostsToJson(Posts As Object)
+        Dim saveFileDialog As New SaveFileDialog With {
+                    .Filter = "JSON files (*.json)|*.json",
+                    .Title = "Save posts to JSON"
+                }
+
+        If saveFileDialog.ShowDialog() = DialogResult.OK Then
+            Dim fileName As String = saveFileDialog.FileName
+            Dim serializerSettings As New JsonSerializerSettings With {
+                .Formatting = Formatting.Indented
+            }
+            Dim json As String = JsonConvert.SerializeObject(Posts, serializerSettings)
+
+            File.WriteAllText(fileName, json)
+
+            MessageBox.Show($"Posts saved to {fileName}", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Shows the license notice in a messagebox.
+    ''' </summary>
+    ''' <remarks>
+    ''' The license text is retrieved from the AboutBox.LicenseText property.
+    ''' The messagebox is displayed with the title "License" and an information icon.
+    ''' </remarks>
+    Public Shared Sub LicenseNotice()
+        MessageBox.Show(AboutBox.LicenseText, "License", MessageBoxButtons.OK, MessageBoxIcon.Information)
+    End Sub
+
+
+    ''' <summary>
+    ''' Checks if the "first-launch.log" file exists in the directory: C:\Users\<username>\AppData\Roaming\RedditPostScrapingTool\logs.
+    ''' If the file doesn't exist, it creates one. This file is used to determine whether the program has been run before.
+    ''' If the program is being run for the first time, a license notice will be displayed.
+    ''' </summary>
+    Public Shared Sub LogFirstTimeLaunch()
+        Dim filePath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "RPST", "logs", "first-launch.log")
+        Dim textToWrite As String = $"
+{My.Application.Info.AssemblyName}
+-------------------------
+
+
+User: {Environment.UserName}
+Host: {Environment.MachineName}
+OS: {Environment.OSVersion}
+x64: {Environment.Is64BitOperatingSystem}
+First launched on: {DateTime.Now}"
+        If Not File.Exists(filePath) Then
+            LicenseNotice()
+            File.WriteAllText(filePath, textToWrite)
+        Else
+        End If
+    End Sub
+End Class
--- a/GUI/RPST/icon.ico
+++ b/GUI/RPST/icon.ico
--- a/Tool/AboutForm.Designer.vb
+++ b/Tool/AboutForm.Designer.vb
@@ -1,133 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class AboutForm
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Dim resources As ComponentModel.ComponentResourceManager = New ComponentModel.ComponentResourceManager(GetType(AboutForm))
-        PictureBox1 = New PictureBox()
-        LicenseRichTextBox = New RichTextBox()
-        Label1 = New Label()
-        Label2 = New Label()
-        DescriptionLabel = New Label()
-        VersionLabel = New Label()
-        WikiLinkLabel = New LinkLabel()
-        CType(PictureBox1, ComponentModel.ISupportInitialize).BeginInit()
-        SuspendLayout()
-        ' 
-        ' PictureBox1
-        ' 
-        PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), Image)
-        PictureBox1.Location = New Point(28, 38)
-        PictureBox1.Name = "PictureBox1"
-        PictureBox1.Size = New Size(82, 88)
-        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
-        PictureBox1.TabIndex = 0
-        PictureBox1.TabStop = False
-        ' 
-        ' LicenseRichTextBox
-        ' 
-        LicenseRichTextBox.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold, GraphicsUnit.Point)
-        LicenseRichTextBox.Location = New Point(28, 170)
-        LicenseRichTextBox.Name = "LicenseRichTextBox"
-        LicenseRichTextBox.ReadOnly = True
-        LicenseRichTextBox.Size = New Size(513, 342)
-        LicenseRichTextBox.TabIndex = 1
-        LicenseRichTextBox.Text = ""' 
-        ' Label1
-        ' 
-        Label1.AutoSize = True
-        Label1.Font = New Font("Microsoft JhengHei UI", 9.75F, FontStyle.Regular, GraphicsUnit.Point)
-        Label1.Location = New Point(28, 150)
-        Label1.Name = "Label1"
-        Label1.Size = New Size(52, 17)
-        Label1.TabIndex = 2
-        Label1.Text = "License"' 
-        ' Label2
-        ' 
-        Label2.AutoSize = True
-        Label2.Font = New Font("Microsoft JhengHei", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
-        Label2.Location = New Point(126, 47)
-        Label2.Name = "Label2"
-        Label2.Size = New Size(246, 24)
-        Label2.TabIndex = 3
-        Label2.Text = "Reddit Post Scraping Tool"' 
-        ' DescriptionLabel
-        ' 
-        DescriptionLabel.AutoSize = True
-        DescriptionLabel.Font = New Font("Segoe UI", 9F, FontStyle.Regular, GraphicsUnit.Point)
-        DescriptionLabel.Location = New Point(126, 81)
-        DescriptionLabel.Name = "DescriptionLabel"
-        DescriptionLabel.Size = New Size(0, 15)
-        DescriptionLabel.TabIndex = 4
-        ' 
-        ' VersionLabel
-        ' 
-        VersionLabel.AutoSize = True
-        VersionLabel.Font = New Font("Segoe UI", 9F, FontStyle.Italic, GraphicsUnit.Point)
-        VersionLabel.Location = New Point(500, 54)
-        VersionLabel.Name = "VersionLabel"
-        VersionLabel.Size = New Size(42, 15)
-        VersionLabel.TabIndex = 5
-        VersionLabel.Text = "Label4"' 
-        ' WikiLinkLabel
-        ' 
-        WikiLinkLabel.AutoSize = True
-        WikiLinkLabel.Location = New Point(511, 81)
-        WikiLinkLabel.Name = "WikiLinkLabel"
-        WikiLinkLabel.Size = New Size(30, 15)
-        WikiLinkLabel.TabIndex = 6
-        WikiLinkLabel.TabStop = True
-        WikiLinkLabel.Text = "Wiki"' 
-        ' AboutForm
-        ' 
-        AutoScaleDimensions = New SizeF(7F, 15F)
-        AutoScaleMode = AutoScaleMode.Font
-        BackColor = Color.Gainsboro
-        ClientSize = New Size(569, 541)
-        Controls.Add(WikiLinkLabel)
-        Controls.Add(VersionLabel)
-        Controls.Add(DescriptionLabel)
-        Controls.Add(Label2)
-        Controls.Add(Label1)
-        Controls.Add(LicenseRichTextBox)
-        Controls.Add(PictureBox1)
-        FormBorderStyle = FormBorderStyle.FixedSingle
-        Icon = CType(resources.GetObject("$this.Icon"), Icon)
-        MaximizeBox = False
-        MinimizeBox = False
-        Name = "AboutForm"
-        ShowInTaskbar = False
-        StartPosition = FormStartPosition.CenterScreen
-        Text = "About - Reddit Post Scraping Tool"
-        CType(PictureBox1, ComponentModel.ISupportInitialize).EndInit()
-        ResumeLayout(False)
-        PerformLayout()
-    End Sub
-
-    Friend WithEvents PictureBox1 As PictureBox
-    Friend WithEvents LicenseRichTextBox As RichTextBox
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label2 As Label
-    Friend WithEvents DescriptionLabel As Label
-    Friend WithEvents VersionLabel As Label
-    Friend WithEvents WikiLinkLabel As LinkLabel
-End Class
--- a/Tool/AboutForm.vb
+++ b/Tool/AboutForm.vb
@@ -1,14 +0,0 @@
-Public Class AboutForm
-    Private Sub AboutForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        DescriptionLabel.Text = "Given a subreddit name and a keyword,
-Reddit Post Scraping Tool returns all top posts
-(by default) that contain the specified keyword."
-        VersionLabel.Text = $"v{My.Application.Info.Version}"
-        LicenseRichTextBox.Text = StartForm.LicenseText
-    End Sub
-
-    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles WikiLinkLabel.LinkClicked
-        Shell("cmd /c start https://github.com/bellingcat/reddit-post-scraping-tool/wiki")
-    End Sub
-
-End Class
--- a/Tool/ApiHandler.vb
+++ b/Tool/ApiHandler.vb
@@ -1,59 +0,0 @@
-Imports System.IO
-Imports System.Net.Http
-Imports Newtonsoft.Json
-Imports Newtonsoft.Json.Linq
-
-Public Class ApiHandler
-    Public logfile As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "RedditPostScrapingTool", "logs", $"debug.log")
-    Public headers As String = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/11.1.2 Safari/605.1.15"
-    Public UpdatesEndpoint As String = "https://api.github.com/repos/bellingcat/reddit-post-scraping-tool/releases/latest"
-
-    Public Function ScrapeReddit(subreddit, listing, limit, timeframe) As JObject
-        Dim ApiEndpoint As String = $"https://reddit.com/r/{subreddit}/{listing}.json?limit={limit}&t={timeframe}').json()"
-        Try
-            Dim httpClient As New HttpClient()
-            httpClient.DefaultRequestHeaders.Add("User-Agent", headers)
-            Dim response As HttpResponseMessage = httpClient.GetAsync(ApiEndpoint).Result
-            If response.IsSuccessStatusCode Then
-                Dim json As String = response.Content.ReadAsStringAsync().Result
-                Dim data As JObject = JsonConvert.DeserializeObject(Of JObject)(json)
-                Return data
-            Else
-                ' handle the case when the response status is not successful
-                ' return an empty JObject or throw an exception
-                Return New JObject()
-                MessageBox.Show(response.ReasonPhrase, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-            End If
-        Catch ex As Exception
-            ' handle the exception
-            ' return an empty JObject or throw an exception
-            Return New JObject()
-            My.Computer.FileSystem.WriteAllText(logfile, $"{DateTime.Now}: {ex}{Environment.NewLine}", True)
-            MessageBox.Show($"{ex.Message}. Please see the debug log '{logfile}' for more information.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-        End Try
-        Return New JObject()
-    End Function
-
-
-    ' Gets remote version information from the repository release page
-    Public Function CheckUpdates() As JObject
-        Try
-            Dim httpClient As New HttpClient()
-            httpClient.DefaultRequestHeaders.Add("User-Agent", headers)
-            Dim response As HttpResponseMessage = httpClient.GetAsync(UpdatesEndpoint).Result
-            If response.IsSuccessStatusCode Then
-                Dim json As String = response.Content.ReadAsStringAsync().Result
-                Dim data As JObject = JsonConvert.DeserializeObject(Of JObject)(json)
-                Return data
-            Else
-                'Return New JObject()
-                MessageBox.Show(response.ReasonPhrase, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-            End If
-        Catch ex As Exception
-            'Return New JObject()
-            My.Computer.FileSystem.WriteAllText(logfile, $"{DateTime.Now}: {ex}{Environment.NewLine}", True)
-            MessageBox.Show($"{ex.Message}. Please see the debug log '{logfile}' for more information.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-        End Try
-        Return New JObject()
-    End Function
-End Class
--- a/Tool/DeveloperForm.Designer.vb
+++ b/Tool/DeveloperForm.Designer.vb
@@ -1,87 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class DeveloperForm
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DeveloperForm))
-        Me.AboutMeLinkLabel = New System.Windows.Forms.LinkLabel()
-        Me.BuyMeACoffeeLinkLabel = New System.Windows.Forms.LinkLabel()
-        Me.GreetingLabel = New System.Windows.Forms.Label()
-        Me.SuspendLayout()
-        '
-        'AboutMeLinkLabel
-        '
-        Me.AboutMeLinkLabel.AutoSize = True
-        Me.AboutMeLinkLabel.BackColor = System.Drawing.Color.White
-        Me.AboutMeLinkLabel.Location = New System.Drawing.Point(33, 426)
-        Me.AboutMeLinkLabel.Name = "AboutMeLinkLabel"
-        Me.AboutMeLinkLabel.Size = New System.Drawing.Size(60, 15)
-        Me.AboutMeLinkLabel.TabIndex = 0
-        Me.AboutMeLinkLabel.TabStop = True
-        Me.AboutMeLinkLabel.Text = "About.me"
-        '
-        'BuyMeACoffeeLinkLabel
-        '
-        Me.BuyMeACoffeeLinkLabel.AutoSize = True
-        Me.BuyMeACoffeeLinkLabel.Location = New System.Drawing.Point(33, 451)
-        Me.BuyMeACoffeeLinkLabel.Name = "BuyMeACoffeeLinkLabel"
-        Me.BuyMeACoffeeLinkLabel.Size = New System.Drawing.Size(96, 15)
-        Me.BuyMeACoffeeLinkLabel.TabIndex = 1
-        Me.BuyMeACoffeeLinkLabel.TabStop = True
-        Me.BuyMeACoffeeLinkLabel.Text = "Buy Me A Coffee"
-        '
-        'GreetingLabel
-        '
-        Me.GreetingLabel.AutoSize = True
-        Me.GreetingLabel.Font = New System.Drawing.Font("Verdana", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
-        Me.GreetingLabel.Location = New System.Drawing.Point(62, 22)
-        Me.GreetingLabel.Name = "GreetingLabel"
-        Me.GreetingLabel.Size = New System.Drawing.Size(382, 45)
-        Me.GreetingLabel.TabIndex = 3
-        Me.GreetingLabel.Text = "Hello, I'm Ritchie"
-        '
-        'DeveloperForm
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
-        Me.ClientSize = New System.Drawing.Size(510, 510)
-        Me.Controls.Add(Me.BuyMeACoffeeLinkLabel)
-        Me.Controls.Add(Me.AboutMeLinkLabel)
-        Me.Controls.Add(Me.GreetingLabel)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
-        Me.MaximizeBox = False
-        Me.Name = "DeveloperForm"
-        Me.ShowIcon = False
-        Me.ShowInTaskbar = False
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
-        Me.Text = "Developer"
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents AboutMeLinkLabel As LinkLabel
-    Friend WithEvents BuyMeACoffeeLinkLabel As LinkLabel
-    Friend WithEvents PictureBox1 As PictureBox
-    Friend WithEvents GreetingLabel As Label
-End Class
--- a/Tool/PostsForm.Designer.vb
+++ b/Tool/PostsForm.Designer.vb
@@ -1,56 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class PostsForm
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.DataGridViewPosts = New System.Windows.Forms.DataGridView()
-        CType(Me.DataGridViewPosts, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'DataGridViewPosts
-        '
-        Me.DataGridViewPosts.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridViewPosts.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DataGridViewPosts.Location = New System.Drawing.Point(0, 0)
-        Me.DataGridViewPosts.Name = "DataGridViewPosts"
-        Me.DataGridViewPosts.ReadOnly = True
-        Me.DataGridViewPosts.RowTemplate.Height = 25
-        Me.DataGridViewPosts.Size = New System.Drawing.Size(800, 450)
-        Me.DataGridViewPosts.TabIndex = 3
-        '
-        'PostsForm
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Controls.Add(Me.DataGridViewPosts)
-        Me.Name = "PostsForm"
-        Me.ShowIcon = False
-        Me.ShowInTaskbar = False
-        Me.Text = "PostsForm"
-        CType(Me.DataGridViewPosts, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents DataGridViewPosts As DataGridView
-End Class
--- a/Tool/PostsForm.resx
+++ b/Tool/PostsForm.resx
@@ -1,60 +0,0 @@
-<root>
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>
--- a/Tool/PostsForm.vb
+++ b/Tool/PostsForm.vb
@@ -1,3 +0,0 @@
-Public Class PostsForm
-
-End Class
--- a/Tool/README.md
+++ b/Tool/README.md
@@ -1,29 +0,0 @@
-# Reddit Post Scraping Tool
-Given a subreddit name and a keyword, this script will return all posts from a specified listing (default is 'top') that contain the provided keyword.
-
-[![Upload Python Package](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/python-publish.yml/badge.svg)](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/python-publish.yml) [![CodeQL](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/codeql.yml/badge.svg)](https://github.com/rly0nheart/reddit-post-scraping-tool/actions/workflows/codeql.yml) ![.Net](https://img.shields.io/badge/.NET-5C2D91?style=flat&logo=.net&logoColor=white) ![Python](https://img.shields.io/badge/python-3670A0?style=flat&logo=python&logoColor=ffdd54)
-![Screenshot 2023-02-10 195818](https://user-images.githubusercontent.com/74001397/218163494-245f6676-1fb3-4680-a6b5-bd15fb1dea5e.png)
-![Screenshot_20230210_193329](https://user-images.githubusercontent.com/74001397/218158084-9295abb7-df33-4f86-8df8-e109cac7cde6.png)
-
-
-# Features (GUI)
- [x] Auto dark mode from 6pm - 6am
- [x] Saves results to a JSON
- [ ] Other features coming soon...
-
-# TODO (GUI)
- [ ] Make it a stand alone executable
- [ ] Add manual dark mode option, that will be remembered in all sessions
-
-# Wiki
-[Refer to the Wiki](https://github.com/rly0nheart/reddit-post-scraping-tool/wiki) for installation instructions, in addition to all other documentation.
-
-# Note
-> This is one of the projects I am working on, while learning Visual Basic, so the implementation/code may be messed up. If that's the case, please feel free to open a pull request using the available templates. Otherwise, enjoy!
-
-# Donations
-If you like `Reddit Post Scraping Tool` and would like to show support, you can Buy A Coffee for the developer using the button below
-
-<a href="https://www.buymeacoffee.com/189381184" target="_blank"><img src="https://cdn.buymeacoffee.com/buttons/default-orange.png" alt="Buy Me A Coffee" height="41" width="174"></a>
-
-Your support will be much appreciated😊
--- a/Tool/StartForm.Designer.vb
+++ b/Tool/StartForm.Designer.vb
@@ -1,297 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class StartForm
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        components = New ComponentModel.Container()
-        Dim resources As ComponentModel.ComponentResourceManager = New ComponentModel.ComponentResourceManager(GetType(StartForm))
-        KeywordTextBox = New TextBox()
-        SubredditTextBox = New TextBox()
-        ScrapeButton = New Button()
-        TimeframeComboBox = New ComboBox()
-        ListingComboBox = New ComboBox()
-        Label1 = New Label()
-        Label2 = New Label()
-        Label3 = New Label()
-        Label4 = New Label()
-        Label5 = New Label()
-        ContextMenuStrip1 = New ContextMenuStrip(components)
-        SaveResultsJSONToolStripMenuItem = New ToolStripMenuItem()
-        JSONToolStripMenuItem = New ToolStripMenuItem()
-        CSVToolStripMenuItem = New ToolStripMenuItem()
-        FileMenuStrip = New MenuStrip()
-        ToolsToolStripMenuTools = New ToolStripMenuItem()
-        AboutToolStripMenuItem = New ToolStripMenuItem()
-        DeveloperToolStripMenuItem = New ToolStripMenuItem()
-        ChekUpdatesToolStripMenuItem = New ToolStripMenuItem()
-        ToolStripSeparator2 = New ToolStripSeparator()
-        QuitToolStripMenuItem = New ToolStripMenuItem()
-        LimitNumericUpDown = New NumericUpDown()
-        ContextMenuStrip1.SuspendLayout()
-        FileMenuStrip.SuspendLayout()
-        CType(LimitNumericUpDown, ComponentModel.ISupportInitialize).BeginInit()
-        SuspendLayout()
-        ' 
-        ' KeywordTextBox
-        ' 
-        KeywordTextBox.BackColor = SystemColors.Window
-        KeywordTextBox.ForeColor = SystemColors.WindowText
-        KeywordTextBox.Location = New Point(89, 60)
-        KeywordTextBox.Name = "KeywordTextBox"
-        KeywordTextBox.PlaceholderText = "Keyword"
-        KeywordTextBox.Size = New Size(100, 23)
-        KeywordTextBox.TabIndex = 0
-        ' 
-        ' SubredditTextBox
-        ' 
-        SubredditTextBox.Location = New Point(89, 92)
-        SubredditTextBox.Name = "SubredditTextBox"
-        SubredditTextBox.PlaceholderText = "Subreddit"
-        SubredditTextBox.Size = New Size(100, 23)
-        SubredditTextBox.TabIndex = 4
-        ' 
-        ' ScrapeButton
-        ' 
-        ScrapeButton.Location = New Point(257, 191)
-        ScrapeButton.Name = "ScrapeButton"
-        ScrapeButton.Size = New Size(76, 28)
-        ScrapeButton.TabIndex = 6
-        ScrapeButton.Text = "Scrape"
-        ScrapeButton.UseVisualStyleBackColor = True
-        ' 
-        ' TimeframeComboBox
-        ' 
-        TimeframeComboBox.FormattingEnabled = True
-        TimeframeComboBox.Items.AddRange(New Object() {"Hour", "Day", "Week", "Month", "Year"})
-        TimeframeComboBox.Location = New Point(89, 191)
-        TimeframeComboBox.Name = "TimeframeComboBox"
-        TimeframeComboBox.Size = New Size(100, 23)
-        TimeframeComboBox.TabIndex = 8
-        TimeframeComboBox.Text = "All"' 
-        ' ListingComboBox
-        ' 
-        ListingComboBox.FormattingEnabled = True
-        ListingComboBox.Items.AddRange(New Object() {"Controversial", "Hot", "Best", "New", "Rising"})
-        ListingComboBox.Location = New Point(89, 157)
-        ListingComboBox.Name = "ListingComboBox"
-        ListingComboBox.Size = New Size(100, 23)
-        ListingComboBox.TabIndex = 9
-        ListingComboBox.Text = "Top"' 
-        ' Label1
-        ' 
-        Label1.AutoEllipsis = True
-        Label1.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Underline, GraphicsUnit.Point)
-        Label1.ForeColor = Color.Black
-        Label1.Location = New Point(12, 60)
-        Label1.Name = "Label1"
-        Label1.Size = New Size(56, 23)
-        Label1.TabIndex = 10
-        Label1.Text = "Keyword"' 
-        ' Label2
-        ' 
-        Label2.AutoEllipsis = True
-        Label2.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Underline, GraphicsUnit.Point)
-        Label2.ForeColor = Color.Black
-        Label2.Location = New Point(12, 92)
-        Label2.Name = "Label2"
-        Label2.Size = New Size(63, 23)
-        Label2.TabIndex = 11
-        Label2.Text = "Subreddit"' 
-        ' Label3
-        ' 
-        Label3.AutoEllipsis = True
-        Label3.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Point)
-        Label3.ForeColor = Color.Black
-        Label3.Location = New Point(12, 125)
-        Label3.Name = "Label3"
-        Label3.Size = New Size(56, 23)
-        Label3.TabIndex = 12
-        Label3.Text = "Limit"' 
-        ' Label4
-        ' 
-        Label4.AutoEllipsis = True
-        Label4.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Point)
-        Label4.ForeColor = Color.Black
-        Label4.Location = New Point(12, 157)
-        Label4.Name = "Label4"
-        Label4.Size = New Size(56, 23)
-        Label4.TabIndex = 13
-        Label4.Text = "Listing"' 
-        ' Label5
-        ' 
-        Label5.AutoEllipsis = True
-        Label5.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Point)
-        Label5.ForeColor = Color.Black
-        Label5.Location = New Point(12, 191)
-        Label5.Name = "Label5"
-        Label5.Size = New Size(71, 23)
-        Label5.TabIndex = 14
-        Label5.Text = "Timeframe"' 
-        ' ContextMenuStrip1
-        ' 
-        ContextMenuStrip1.Items.AddRange(New ToolStripItem() {SaveResultsJSONToolStripMenuItem})
-        ContextMenuStrip1.Name = "ContextMenuStrip1"
-        ContextMenuStrip1.Size = New Size(144, 26)
-        ' 
-        ' SaveResultsJSONToolStripMenuItem
-        ' 
-        SaveResultsJSONToolStripMenuItem.AutoToolTip = True
-        SaveResultsJSONToolStripMenuItem.DropDownItems.AddRange(New ToolStripItem() {JSONToolStripMenuItem, CSVToolStripMenuItem})
-        SaveResultsJSONToolStripMenuItem.Image = CType(resources.GetObject("SaveResultsJSONToolStripMenuItem.Image"), Image)
-        SaveResultsJSONToolStripMenuItem.Name = "SaveResultsJSONToolStripMenuItem"
-        SaveResultsJSONToolStripMenuItem.Size = New Size(143, 22)
-        SaveResultsJSONToolStripMenuItem.Text = "Save posts to"
-        SaveResultsJSONToolStripMenuItem.ToolTipText = "Save results to a JSON file"' 
-        ' JSONToolStripMenuItem
-        ' 
-        JSONToolStripMenuItem.AutoToolTip = True
-        JSONToolStripMenuItem.CheckOnClick = True
-        JSONToolStripMenuItem.Image = CType(resources.GetObject("JSONToolStripMenuItem.Image"), Image)
-        JSONToolStripMenuItem.Name = "JSONToolStripMenuItem"
-        JSONToolStripMenuItem.Size = New Size(185, 22)
-        JSONToolStripMenuItem.Text = "JSON"' 
-        ' CSVToolStripMenuItem
-        ' 
-        CSVToolStripMenuItem.AutoToolTip = True
-        CSVToolStripMenuItem.Enabled = False
-        CSVToolStripMenuItem.Image = CType(resources.GetObject("CSVToolStripMenuItem.Image"), Image)
-        CSVToolStripMenuItem.Name = "CSVToolStripMenuItem"
-        CSVToolStripMenuItem.Size = New Size(185, 22)
-        CSVToolStripMenuItem.Text = "CSV (coming soon...)"' 
-        ' FileMenuStrip
-        ' 
-        FileMenuStrip.BackColor = Color.Transparent
-        FileMenuStrip.Items.AddRange(New ToolStripItem() {ToolsToolStripMenuTools})
-        FileMenuStrip.Location = New Point(0, 0)
-        FileMenuStrip.Name = "FileMenuStrip"
-        FileMenuStrip.Size = New Size(355, 24)
-        FileMenuStrip.TabIndex = 0
-        FileMenuStrip.Text = "MenuStrip1"' 
-        ' ToolsToolStripMenuTools
-        ' 
-        ToolsToolStripMenuTools.DropDownItems.AddRange(New ToolStripItem() {AboutToolStripMenuItem, DeveloperToolStripMenuItem, ChekUpdatesToolStripMenuItem, ToolStripSeparator2, QuitToolStripMenuItem})
-        ToolsToolStripMenuTools.Font = New Font("Segoe UI", 9F, FontStyle.Regular, GraphicsUnit.Point)
-        ToolsToolStripMenuTools.ForeColor = Color.White
-        ToolsToolStripMenuTools.Image = CType(resources.GetObject("ToolsToolStripMenuTools.Image"), Image)
-        ToolsToolStripMenuTools.Name = "ToolsToolStripMenuTools"
-        ToolsToolStripMenuTools.Size = New Size(53, 20)
-        ToolsToolStripMenuTools.Text = "File"' 
-        ' AboutToolStripMenuItem
-        ' 
-        AboutToolStripMenuItem.AutoToolTip = True
-        AboutToolStripMenuItem.Image = CType(resources.GetObject("AboutToolStripMenuItem.Image"), Image)
-        AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
-        AboutToolStripMenuItem.Size = New Size(152, 22)
-        AboutToolStripMenuItem.Text = "About"' 
-        ' DeveloperToolStripMenuItem
-        ' 
-        DeveloperToolStripMenuItem.AutoToolTip = True
-        DeveloperToolStripMenuItem.Image = CType(resources.GetObject("DeveloperToolStripMenuItem.Image"), Image)
-        DeveloperToolStripMenuItem.Name = "DeveloperToolStripMenuItem"
-        DeveloperToolStripMenuItem.Size = New Size(152, 22)
-        DeveloperToolStripMenuItem.Text = "Developer"' 
-        ' ChekUpdatesToolStripMenuItem
-        ' 
-        ChekUpdatesToolStripMenuItem.AutoToolTip = True
-        ChekUpdatesToolStripMenuItem.Image = CType(resources.GetObject("ChekUpdatesToolStripMenuItem.Image"), Image)
-        ChekUpdatesToolStripMenuItem.Name = "ChekUpdatesToolStripMenuItem"
-        ChekUpdatesToolStripMenuItem.Size = New Size(152, 22)
-        ChekUpdatesToolStripMenuItem.Text = "Check updates"' 
-        ' ToolStripSeparator2
-        ' 
-        ToolStripSeparator2.Name = "ToolStripSeparator2"
-        ToolStripSeparator2.Size = New Size(149, 6)
-        ' 
-        ' QuitToolStripMenuItem
-        ' 
-        QuitToolStripMenuItem.AutoToolTip = True
-        QuitToolStripMenuItem.Image = CType(resources.GetObject("QuitToolStripMenuItem.Image"), Image)
-        QuitToolStripMenuItem.Name = "QuitToolStripMenuItem"
-        QuitToolStripMenuItem.Size = New Size(152, 22)
-        QuitToolStripMenuItem.Text = "Quit"' 
-        ' LimitNumericUpDown
-        ' 
-        LimitNumericUpDown.Location = New Point(89, 125)
-        LimitNumericUpDown.Minimum = New [Decimal](New Integer() {5, 0, 0, 0})
-        LimitNumericUpDown.Name = "LimitNumericUpDown"
-        LimitNumericUpDown.ReadOnly = True
-        LimitNumericUpDown.Size = New Size(100, 23)
-        LimitNumericUpDown.TabIndex = 15
-        LimitNumericUpDown.Value = New [Decimal](New Integer() {5, 0, 0, 0})
-        ' 
-        ' StartForm
-        ' 
-        AutoScaleDimensions = New SizeF(7F, 15F)
-        AutoScaleMode = AutoScaleMode.Font
-        BackColor = Color.White
-        ClientSize = New Size(355, 255)
-        ContextMenuStrip = ContextMenuStrip1
-        Controls.Add(LimitNumericUpDown)
-        Controls.Add(FileMenuStrip)
-        Controls.Add(Label5)
-        Controls.Add(Label4)
-        Controls.Add(Label3)
-        Controls.Add(Label2)
-        Controls.Add(Label1)
-        Controls.Add(ListingComboBox)
-        Controls.Add(TimeframeComboBox)
-        Controls.Add(SubredditTextBox)
-        Controls.Add(ScrapeButton)
-        Controls.Add(KeywordTextBox)
-        FormBorderStyle = FormBorderStyle.FixedSingle
-        Icon = CType(resources.GetObject("$this.Icon"), Icon)
-        MainMenuStrip = FileMenuStrip
-        MaximizeBox = False
-        Name = "StartForm"
-        StartPosition = FormStartPosition.CenterScreen
-        Text = "Reddit Post Scraping Tool"
-        ContextMenuStrip1.ResumeLayout(False)
-        FileMenuStrip.ResumeLayout(False)
-        FileMenuStrip.PerformLayout()
-        CType(LimitNumericUpDown, ComponentModel.ISupportInitialize).EndInit()
-        ResumeLayout(False)
-        PerformLayout()
-    End Sub
-
-    Friend WithEvents KeywordTextBox As TextBox
-    Friend WithEvents SubredditTextBox As TextBox
-    Friend WithEvents ScrapeButton As Button
-    Friend WithEvents TimeframeComboBox As ComboBox
-    Friend WithEvents ListingComboBox As ComboBox
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label2 As Label
-    Friend WithEvents Label3 As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
-    Friend WithEvents FileMenuStrip As MenuStrip
-    Friend WithEvents ToolsToolStripMenuTools As ToolStripMenuItem
-    Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents DeveloperToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
-    Friend WithEvents QuitToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents SaveResultsJSONToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ChekUpdatesToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents JSONToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents CSVToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents LimitNumericUpDown As NumericUpDown
-End Class
--- a/Tool/StartForm.vb
+++ b/Tool/StartForm.vb
@@ -1,283 +0,0 @@
-Imports System.IO
-Imports Newtonsoft.Json
-Imports Newtonsoft.Json.Linq
-
-Public Class StartForm
-
-    ' Create the program's directory
-    ' We will store information about the user and current machine in it
-    Public LicenseText As String = "MIT License
-
-Copyright (c) 2023 Richard Mwewa
-
-Permission is hereby granted, free of charge, to any person obtaining a copy
-of this software and associated documentation files (the ""Software""), to deal
-in the Software without restriction, including without limitation the rights
-to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the Software is
-furnished to do so, subject to the following conditions:
-
-The above copyright notice and this permission notice shall be included in all
-copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED ""AS IS"", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
-SOFTWARE."
-    Private Sub PathFinder()
-        Dim directoryPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "RedditPostScrapingTool", "logs")
-
-        If Not Directory.Exists(directoryPath) Then
-            Directory.CreateDirectory(directoryPath)
-        Else
-            ' DO NOTHING
-        End If
-    End Sub
-
-
-    Private Sub LicenseNotice()
-        MessageBox.Show(LicenseText, "License", MessageBoxButtons.OK, MessageBoxIcon.Information)
-    End Sub
-
-
-    ' Create a file in C:\Users\<username>\AppData\Roaming\RedditPostScrapingTool, this will be used to determine
-    ' Whether the program has been run before
-    ' If it has not been run before, display the license notice
-    Private Sub LogFirstTimeLaunch()
-        Dim filePath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "RedditPostScrapingTool", "logs", "first_launch.log")
-        Dim textToWrite As String = $"
-{My.Application.Info.AssemblyName}
-------------------------
-
-
-User: {Environment.UserName}
-Host: {Environment.MachineName}
-OS: {Environment.OSVersion}
-x64: {Environment.Is64BitOperatingSystem}
-First launched on: {DateTime.Now}"
-
-        If Not File.Exists(filePath) Then
-            LicenseNotice()
-            File.WriteAllText(filePath, textToWrite)
-        Else
-            ' DO NOTHING
-        End If
-    End Sub
-
-
-    ' Check the current time
-    ' add a dark background to the program if it's evening
-    ' This is my way of implementing auto dark-mode (you could help if you know a better way :) )
-    Private Sub DarkModeProperties()
-        Dim currentHour As Integer = DateTime.Now.Hour
-        If currentHour >= 6 And currentHour < 18 Then
-            Me.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
-
-            ToolsToolStripMenuTools.ForeColor = ColorTranslator.FromHtml("#FF121212")
-            KeywordTextBox.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            KeywordTextBox.ForeColor = ColorTranslator.FromHtml("#FF121212")
-
-            SubredditTextBox.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            SubredditTextBox.ForeColor = ColorTranslator.FromHtml("#FF121212")
-
-            LimitNumericUpDown.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            LimitNumericUpDown.ForeColor = ColorTranslator.FromHtml("#FF121212")
-
-            LimitNumericUpDown.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            LimitNumericUpDown.ForeColor = ColorTranslator.FromHtml("#FF121212")
-
-            ListingComboBox.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            ListingComboBox.ForeColor = ColorTranslator.FromHtml("#FF121212")
-
-            TimeframeComboBox.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            TimeframeComboBox.ForeColor = ColorTranslator.FromHtml("#FF121212")
-
-            Label1.ForeColor = ColorTranslator.FromHtml("#FF121212")
-            Label2.ForeColor = ColorTranslator.FromHtml("#FF121212")
-            Label3.ForeColor = ColorTranslator.FromHtml("#FF121212")
-            Label4.ForeColor = ColorTranslator.FromHtml("#FF121212")
-            Label5.ForeColor = ColorTranslator.FromHtml("#FF121212")
-        Else
-            Me.BackColor = ColorTranslator.FromHtml("#FF121212")
-
-            ToolsToolStripMenuTools.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            KeywordTextBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
-            KeywordTextBox.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-
-            SubredditTextBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
-            SubredditTextBox.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-
-            LimitNumericUpDown.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
-            LimitNumericUpDown.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            LimitNumericUpDown.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
-            LimitNumericUpDown.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-
-            ListingComboBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
-            ListingComboBox.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-
-            TimeframeComboBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
-            TimeframeComboBox.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-
-            Label1.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            Label2.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            Label3.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            Label4.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-            Label5.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-        End If
-    End Sub
-
-
-    Private Sub ScrapeButton_Click(sender As Object, e As EventArgs) Handles ScrapeButton.Click
-        Dim ApiHandler As New ApiHandler
-        Dim Keyword As String = KeywordTextBox.Text
-        Dim Subreddit As String = SubredditTextBox.Text
-        Dim Listing As String = ListingComboBox.Text.ToLower()
-        Dim Limit As Integer = LimitNumericUpDown.Value
-        Dim Timeframe As String = TimeframeComboBox.Text.ToLower()
-        Dim FoundPosts As Integer = 0
-        Dim TotalPosts As Integer = 0
-
-        ' Clear the Columns and Rows before adding Items to them 
-        PostsForm.DataGridViewPosts.Rows.Clear()
-        PostsForm.DataGridViewPosts.Columns.Clear()
-
-        PostsForm.DataGridViewPosts.Columns.Add("PostCount", "Post Number")
-        PostsForm.DataGridViewPosts.Columns.Add("PostAuthor", "Author")
-        PostsForm.DataGridViewPosts.Columns.Add("PostID", "ID")
-        PostsForm.DataGridViewPosts.Columns.Add("PostSubreddit", "Subreddit")
-        PostsForm.DataGridViewPosts.Columns.Add("SubredditVisibility", "Subreddit Visibility")
-        PostsForm.DataGridViewPosts.Columns.Add("PostThumbnail", "Thumbnail")
-        PostsForm.DataGridViewPosts.Columns.Add("PostIsNSFW", "NSFW")
-        PostsForm.DataGridViewPosts.Columns.Add("PostIsGilded", "Gilded")
-        PostsForm.DataGridViewPosts.Columns.Add("PostUpvotes", "Upvotes")
-        PostsForm.DataGridViewPosts.Columns.Add("PostUpvoteRatio", "Upvote Ratio")
-        PostsForm.DataGridViewPosts.Columns.Add("PostDownvotes", "Downvotes")
-        PostsForm.DataGridViewPosts.Columns.Add("PostAwards", "Awards")
-        PostsForm.DataGridViewPosts.Columns.Add("PostTopAward", "Top Award")
-        PostsForm.DataGridViewPosts.Columns.Add("PostIsCrosspostable", "Is Crosspostable?")
-        PostsForm.DataGridViewPosts.Columns.Add("PostScore", "Score")
-        PostsForm.DataGridViewPosts.Columns.Add("PostText", "Text")
-        PostsForm.DataGridViewPosts.Columns.Add("PostCategory", "Category")
-        PostsForm.DataGridViewPosts.Columns.Add("PostDomain", "Domain")
-        PostsForm.DataGridViewPosts.Columns.Add("PostPermalink", "Permalink")
-        PostsForm.DataGridViewPosts.Columns.Add("PostCreatedAt", "Created At")
-        PostsForm.DataGridViewPosts.Columns.Add("PostApprovedAt", "Approved At")
-        PostsForm.DataGridViewPosts.Columns.Add("PostApprovedBy", "Approved By")
-
-        If Limit > 100 Then
-            MessageBox.Show("Limit should not be over 100. Defaulting to 10", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
-        End If
-
-        If Listing = "" Then
-            Listing = "top"
-        End If
-
-        If Timeframe = "" Then
-            Timeframe = "all"
-        End If
-
-        If Keyword = "" Then
-            MessageBox.Show("Keyword should not be emtpy", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
-        ElseIf Subreddit = "" Then
-            MessageBox.Show("Subreddit should not be emtpy", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
-        Else
-            PostsForm.Text = $"Reddit Post Scraping Tool - {Keyword}"
-            Dim Posts As JObject = ApiHandler.ScrapeReddit(Subreddit, Listing, Limit, Timeframe)
-            For Each Post In Posts("data")("children")
-                TotalPosts += 1
-                If Post("data")("selftext").ToString.ToLower().Contains(KeywordTextBox.Text.ToLower()) Then
-                    FoundPosts += 1
-                    PostsForm.DataGridViewPosts.Rows.Add(TotalPosts, Post("data")("author"), Post("data")("id"), Post("data")("subreddit_name_prefixed"),
-                                                                 Post("data")("subreddit_type"), Post("data")("thumbnail"), Post("data")("over_18"), Post("data")("gilded"),
-                                                                 Post("data")("ups"), Post("data")("upvote_ratio"), Post("data")("downs"), Post("data")("total_awards_received"),
-                                                                 Post("data")("top_awarded_type"), Post("data")("is_crosspostable"), Post("data")("score"), Post("data")("selftext"),
-                                                                 Post("data")("category"), Post("data")("domain"), Post("data")("permalink"), Post("data")("created"),
-                                                                 Post("data")("approved_at_utc"), Post("data")("approved_by"))
-                End If
-            Next
-
-            'Don't show the results form if found posts are not greater than 0
-            If FoundPosts > 0 Then
-                MessageBox.Show($"Keyword `{Keyword}` was found in {FoundPosts}/" + Posts("data")("children").Count.ToString _
-                                   + $" {Listing} posts from r/{Subreddit}", "Found", MessageBoxButtons.OK, MessageBoxIcon.Information)
-                PostsForm.Show()
-            Else
-                MessageBox.Show($"Keyword `{Keyword}` was not found in either one of the  " + Posts("data")("children").Count.ToString _
-                                    + $" {Listing} posts from r/{Subreddit}", "Not Found", MessageBoxButtons.OK, MessageBoxIcon.Warning)
-            End If
-
-
-            If JSONToolStripMenuItem.Checked Then
-                Dim saveFileDialog As New SaveFileDialog()
-
-                saveFileDialog.Filter = "JSON files (*.json)|*.json"
-                saveFileDialog.Title = "Save posts to JSON"
-
-                If saveFileDialog.ShowDialog() = DialogResult.OK Then
-                    Dim fileName As String = saveFileDialog.FileName
-                    Dim serializerSettings As New JsonSerializerSettings()
-                    serializerSettings.Formatting = Formatting.Indented
-                    Dim json As String = JsonConvert.SerializeObject(Posts("data"), serializerSettings)
-
-                    System.IO.File.WriteAllText(fileName, json)
-
-                    MessageBox.Show($"Results saved to {fileName} successfully!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
-                End If
-            End If
-        End If
-    End Sub
-
-    ' StartForm load event
-    Private Sub StartForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        PathFinder()
-        LogFirstTimeLaunch()
-        DarkModeProperties()
-        ToolsToolStripMenuTools.Text = Environment.UserName
-        Me.Text = $"{My.Application.Info.AssemblyName} v{My.Application.Info.Version}"
-    End Sub
-
-    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
-        AboutForm.ShowDialog()
-    End Sub
-
-    Private Sub QuitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitToolStripMenuItem.Click
-        Dim result As DialogResult = MessageBox.Show("This will close the program, continue?", "Quit", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        If result = DialogResult.Yes Then
-            Me.Close()
-        End If
-    End Sub
-
-    Private Sub DeveloperToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeveloperToolStripMenuItem.Click
-        DeveloperForm.ShowDialog()
-    End Sub
-
-    Private Sub ChekUpdatesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChekUpdatesToolStripMenuItem.Click
-        Dim ApiHandler As New ApiHandler()
-        Dim data As JObject = ApiHandler.CheckUpdates()
-        If data("tag_name").ToString = $"{My.Application.Info.Version}" Then
-            MessageBox.Show($"You're running the current version v{My.Application.Info.Version} of {My.Application.Info.ProductName}. Check again soon! :)", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
-        Else
-            Dim confirm As DialogResult = MessageBox.Show($"A new version v{data("tag_name")} of {My.Application.Info.ProductName} is availble, would you like to get it?
-
-What's new in v{data("tag_name")}?
-{data("body")}
-", "Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-            If confirm = DialogResult.Yes Then
-                Shell($"cmd /c start https://github.com/bellingcat/reddit-post-scraping-tool/releases/tag/{data("tag_name")}")
-            End If
-        End If
-
-    End Sub
-
-    Private Sub ToolsToolStripMenuTools_Click(sender As Object, e As EventArgs) Handles ToolsToolStripMenuTools.Click
-        ToolsToolStripMenuTools.ForeColor = ColorTranslator.FromHtml("#FF121212")
-    End Sub
-
-    Private Sub ToolsToolStripMenuTools_DropDownClosed(sender As Object, e As EventArgs) Handles ToolsToolStripMenuTools.DropDownClosed
-        ToolsToolStripMenuTools.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
-    End Sub
-
-End Class
--- a/pyproject.toml
+++ b/pyproject.toml
@@ -2,10 +2,13 @@
 requires = ["setuptools", "setuptools-scm"]
 build-backend = "setuptools.build_meta"

+[tool.setuptools]
+packages = ["rpst"]
+
 [project]
 name = "reddit-post-scraping-tool"
-version = "1.3.0.1"
-description = "Given a subreddit name and a keyword, this program returns all top (by default) posts that contain the specified word."
+version = "1.6.0.0"
+description = "Given a subreddit name and a keyword, RPST returns all top (by default) posts that contain the specified keyword."
 readme = "README.md"
 requires-python = ">=3.8"
 license = {file = "LICENSE"}
@@ -27,9 +30,9 @@ dependencies = [
 ]

 [project.urls]
-homepage = "https://github.com/bellingcat/reddit-post-scraping-tool"
+homepage = "https://github.com/bellingcat"
 documentation = "https://github.com/bellingcat/reddit-post-scraping-tool/wiki"
 repository = "https://github.com/bellingcat/reddit-post-scraping-tool.git"

 [project.scripts]
-reddit_post_scraping_tool = "reddit_post_scraping_tool.main:main"
+rpst = "rpst.__main:run"
--- a/reddit_post_scraping_tool/main.py
+++ b/reddit_post_scraping_tool/main.py
@@ -1,13 +0,0 @@
-from reddit_post_scraping_tool.reddit_post_scraping_tool import *
-
-
-def main():
-    try:
-        check_updates("1.3.0.1")
-        reddit_post_scraper()
-    except KeyboardInterrupt:
-        log.warning(f"User interruption detected.")
-    except Exception as e:
-        log.error(e)
-    finally:
-        log.info(f'Finished in {datetime.now() - start_time} seconds.')
--- a/reddit_post_scraping_tool/reddit_post_scraping_tool.py
+++ b/reddit_post_scraping_tool/reddit_post_scraping_tool.py
@@ -1,91 +0,0 @@
-import logging
-import argparse
-import requests
-from rich.tree import Tree
-from datetime import datetime
-from rich import print as xprint
-from rich.markdown import Markdown
-from rich.logging import RichHandler
-
-
-start_time = datetime.now()
-logging.basicConfig(level="NOTSET", format="%(message)s", handlers=[RichHandler(markup=True, log_time_format='[%H:%M:%S%p]')])
-log = logging.getLogger("rich")
-
-
-# Check if the remote tag_name from the latest release matches the one in the program
-# if it does, it means the program is up-to-date.
-# If it doesn't match, notify the user about a new release
-def check_updates(version_tag):
-    response = requests.get("https://api.github.com/repos/bellingcat/reddit-post-scraping-tool/releases/latest").json()
-    if response['tag_name'] == version_tag:
-        pass
-    else:
-        raw_release_notes = response['body']
-        markdown_release_notes = Markdown(raw_release_notes)
-        log.info(f"A new release of reddit-post-scraping-tool is available ({response['tag_name']}). Run 'pip install --upgrade reddit-post-scraping-tool' to get the updates.")
-        xprint(markdown_release_notes)
-        
-        
-# Getting posts
-def get_posts(post):
-    post_data = {'Author': post['data']['author'],
-                 'ID': post['data']['id'],
-                 'Subreddit': post["data"]["subreddit_name_prefixed"],
-                 'Visibility': post['data']['subreddit_type'],
-                 # 'Author': post["data"]["author_fullname"],
-                 'Thumbnail': post["data"]["thumbnail"],
-                 # 'Flair': post["data"]["link_flair_text"],
-                 'NSFW': post['data']['over_18'],
-                 'Gilded': post['data']['gilded'],
-                 'Upvotes': post["data"]["ups"],
-                 'Upvote ratio': post["data"]["upvote_ratio"],
-                 'Downvotes': post["data"]["downs"],
-                 'Awards': post["data"]["total_awards_received"],
-                 'Top award': post['data']['top_awarded_type'],
-                 'Is crosspostable?': post['data']['is_crosspostable'],
-                 'Score': post["data"]["score"],
-                 'Category': post['data']['category'],
-                 'Domain': post["data"]["domain"],
-                 'Created': post['data']['created'],
-                 'Approved at': post['data']['approved_at_utc'],
-                 'Approved by': post['data']['approved_by'], }
-
-    post_tree = Tree("\n" + post['data']['title'])
-    for post_key, post_value in post_data.items():
-        post_tree.add(f"{post_key}: {post_value}")
-    xprint(post_tree)
-    print(post['data']['selftext'] + "\n")
-
-
-def reddit_post_scraper():
-    session = requests.session()
-    session.headers = {'User-Agent': 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/14.1.1 Safari/605.1.15'}
-    response = session.get(f'https://reddit.com/r/{args.subreddit}/{args.listing}.json?limit={args.limit}&t={args.timeframe}').json()
-    found_posts = 0
-    for post in response['data']['children']:
-        if args.keyword.lower() in post['data']['selftext'] or args.keyword.lower() in post['data']['title']:
-            found_posts += 1
-            get_posts(post)
-
-    log.info(f"Keyword ('{args.keyword}') was found in {found_posts}/{len(response['data']['children'])} {args.listing} posts from r/{args.subreddit}.")
-
-
-def create_parser():
-    parser = argparse.ArgumentParser(
-        description=f'reddit-post-scraping-tool — by Richard Mwewa | https://about.me/rly0nheart',
-        epilog=f'Given a subreddit name and a keyword, this program returns all top (by default) posts that contain the specified word. ')
-    parser.add_argument('-k', '--keyword', help='kewyword', required=True)
-    parser.add_argument('-s', '--subreddit', help='subreddit', required=True)
-    parser.add_argument('-c', '--limit', help='results limit (1-100) (default: %(default)s)', default=10, type=int)
-    parser.add_argument('-l', '--listing', default='top', const='top', nargs='?',
-                        choices=['controversial', 'hot', 'best', 'new', 'rising'],
-                        help='listings: controversial, hot, best, new, rising (default: %(default)s)')
-    parser.add_argument('-t', '--timeframe', default='all', const='all', nargs='?',
-                        choices=['hour', 'day', 'week', 'month', 'year'],
-                        help='timeframe: hour, day, week, month, year (default: %(default)s)')
-    return parser
-
-
-_parser = create_parser()
-args = _parser.parse_args()
--- a/rpst/__main.py
+++ b/rpst/__main.py
@@ -0,0 +1,29 @@
+from datetime import datetime
+from rpst.__rpst import log, get_posts, check_updates, create_parser
+
+
+def run():
+    """
+    Main entry point for the program. It creates a parser, parses the command line arguments,
+    checks for updates, gets posts, and handles any exceptions that occur during the execution.
+    """
+
+    # Create a parser and parse the command line arguments
+    parser = create_parser()
+    arguments = parser.parse_args()
+
+    # Record the start time
+    start_time = datetime.now()
+
+    try:
+        # Check for updates
+        check_updates(version_tag="1.6.0.0")
+
+        # Get posts with the provided/parsed arguments
+        get_posts(arguments=arguments)
+    except KeyboardInterrupt:
+        log.warning("User interruption detected.")
+    except Exception as e:
+        log.error(f"An error occurred: {e}")
+    finally:
+        log.info(f'Finished in {datetime.now() - start_time} seconds.')
--- a/rpst/__rpst_.py
+++ b/rpst/__rpst_.py
@@ -0,0 +1,201 @@
+import json
+import logging
+import argparse
+import requests
+from rich.tree import Tree
+from rich import print as xprint
+from rich.markdown import Markdown
+from rich.logging import RichHandler
+
+
+def write_post_data(post_data: dict, filename: str):
+    """
+    Writes post data to a specified JSON file.
+
+    :param post_data: A dictionary containing post data.
+    :param filename: The name of the file to which post data will be written.
+    """
+    # Write the data to a JSON file
+    with open(filename + ".json", 'a') as file:
+        file.write(json.dumps(post_data))
+        file.write('\n')  # write a newline to separate posts
+    
+    log.info(f"Post data written to '{file.name}'")
+
+
+def check_updates(version_tag: str):
+    """
+    This function checks if there's a new release of a project on GitHub. If there is, it logs an
+    information message and prints the release notes.
+
+    :param version_tag: A string representing the current version of the project.
+    """
+
+    # Make a GET request to the GitHub API to get the latest release of the project
+    response = requests.get("https://api.github.com/repos/bellingcat/reddit-post-scraping-tool/releases/latest").json()
+
+    # Check if the latest release's tag matches the current version tag
+    if response['tag_name'] != version_tag:
+
+        # If not, convert the release notes from Markdown to HTML
+        raw_release_notes = response['body']
+        markdown_release_notes = Markdown(raw_release_notes)
+
+        # Log an info message about the new release
+        log.info(
+            f"A new release of RPST is available ({response['tag_name']}). "
+            f"Run 'pip install --upgrade reddit-post-scraping-tool' to get the updates."
+        )
+
+        # Print the release notes
+        xprint(markdown_release_notes)
+
+
+def format_post_data(post: dict, keyword: str, output: bool):
+    """
+    This function extracts relevant data from a Reddit post and displays it in a tree structure,
+    followed by the post's selftext.
+
+    :param post: A dictionary containing the data of a Reddit post.
+    :param keyword: The keyword that is used to find posts, in his case gets uses as the filename.
+    :param output: If specified, all found posts will be written to a json file.
+    """
+    # Define the data to extract from the post
+    post_data = {
+        'Author': post['data']['author'],
+        'ID': post['data']['id'],
+        'Subreddit': post["data"]["subreddit_name_prefixed"],
+        'Visibility': post['data']['subreddit_type'],
+        'Thumbnail': post["data"]["thumbnail"],
+        'NSFW': post['data']['over_18'],
+        'Gilded': post['data']['gilded'],
+        'Upvotes': post["data"]["ups"],
+        'Upvote ratio': post["data"]["upvote_ratio"],
+        'Downvotes': post["data"]["downs"],
+        'Awards': post["data"]["total_awards_received"],
+        'Top award': post['data']['top_awarded_type'],
+        'Is crosspostable?': post['data']['is_crosspostable'],
+        'Score': post["data"]["score"],
+        'Category': post['data']['category'],
+        'Domain': post["data"]["domain"],
+        'Created': post['data']['created'],
+        'Approved at': post['data']['approved_at_utc'],
+        'Approved by': post['data']['approved_by'],
+    }
+    if output:
+        write_post_data(filename=keyword, post_data=post_data)
+    # Create a tree structure with the post's title as the root
+    post_tree = Tree("\n" + post['data']['title'])
+
+    # Add each piece of extracted data as a branch of the tree
+    for post_key, post_value in post_data.items():
+        post_tree.add(f"{post_key}: {post_value}")
+
+    # Print the tree structure
+    xprint(post_tree)
+
+    # Print the post's selftext
+    print(post['data']['selftext'] + "\n")
+
+
+def get_posts(arguments: argparse):
+    """
+    Scrapes a given subreddit for posts that contain a specified keyword.
+    The search is limited by the number of posts and timeframe specified. The results are either
+    printed to the console or saved to a specified file, based on the 'output' argument.
+
+    :param arguments: Namespace object from argparse.
+
+    Expected Object Attributes
+    --------------------------
+        - keyword: The keyword to search for in the posts.
+        - subreddit: The subreddit to scrape.
+        - listing: The type of posts to scrape. This could be 'hot', 'new', etc.
+        - timeframe: The timeframe from which to scrape posts. This could be 'day', 'week', etc.
+        - limit: The maximum number of posts to scrape.
+        - json: If specified, all found posts will be written to a json file.
+
+    Also logs the number of posts in which the keyword was found.
+    """
+    keyword = arguments.keyword
+    subreddit = arguments.subreddit
+    listing = arguments.listing
+    timeframe = arguments.timeframe
+    limit = arguments.limit
+    json_output = arguments.json
+
+    # Start a new session
+    session = requests.session()
+    # Set the User-Agent to mimic a Safari browser on a Mac
+    session.headers = {'User-Agent': 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/605.1.15 (KHTML, '
+                                     'like Gecko) Version/14.1.1 Safari/605.1.15'}
+
+    # Send a GET request to the specified subreddit and listing,
+    # limiting the response by the specified limit and timeframe
+    response = session.get(f'https://reddit.com/r/{subreddit}/{listing}'
+                           f'.json?limit={limit}&t={timeframe}').json()
+
+    # Initialize a counter for the number of posts found that contain the keyword
+    found_posts = 0
+
+    # Loop through each post in the response
+    for post in response['data']['children']:
+        # If the keyword is found in the post's selftext or title, increment the counter and process the post
+        if keyword.lower() in post['data']['selftext'] or keyword.lower() in post['data']['title']:
+            found_posts += 1
+            format_post_data(post=post, keyword=keyword, output=json_output)
+
+    # Log the number of posts in which the keyword was found
+    log.info(f"Keyword ('{keyword}') was found in {found_posts}/{len(response['data']['children'])} "
+             f"{listing} posts from r/{subreddit}.")
+
+
+def create_parser():
+    """
+    Creates and configures an argument parser for the command line arguments.
+
+    :return: A configured argparse.ArgumentParser object ready to parse the command line arguments.
+    """
+    parser = argparse.ArgumentParser(
+        description='RPST: Reddit Post Scraping Tool  —by Richard Mwewa | https://about.me/rly0nheart',
+        epilog='Given a subreddit name and a keyword, '
+               'RPST returns all top (by default) posts that contain the specified keyword.'
+    )
+
+    parser.add_argument('-k', '--keyword', help='The keyword to search for in the posts.', required=True)
+    parser.add_argument('-s', '--subreddit', help='The subreddit to scrape.', required=True)
+    parser.add_argument(
+        '-c', '--limit',
+        help='The maximum number of posts to scrape (1-100). (default: %(default)s)',
+        default=10,
+        type=int,
+        choices=range(1, 101)  # This enforces that the limit must be between 1 and 100 inclusive.
+    )
+    parser.add_argument(
+        '-l', '--listing',
+        default='top',
+        const='top',
+        nargs='?',
+        choices=['controversial', 'hot', 'best', 'new', 'rising'],
+        help='The type of posts to scrape (default: %(default)s)'
+    )
+    parser.add_argument(
+        '-t', '--timeframe',
+        default='all',
+        const='all',
+        nargs='?',
+        choices=['hour', 'day', 'week', 'month', 'year', 'all'],
+        help='The timeframe from which to scrape posts (default: %(default)s)'
+    )
+    parser.add_argument(
+        '-j', '--json',
+        help='Write all found posts to a json file.',
+        action='store_true'
+    )
+
+    return parser
+
+
+logging.basicConfig(level="NOTSET", format="%(message)s",
+                    handlers=[RichHandler(markup=True, log_time_format='[%H:%M:%S%p]')])
+log = logging.getLogger("rich")
Author	SHA1	Message	Date
Richard Mwewa	13db97b6d8	Merge pull request #6 from bellingcat/dev Dev	2023-08-09 04:45:56 +02:00
Richard Mwewa	4da2fcf913	Update __main.py	2023-08-09 04:45:13 +02:00
Richard Mwewa	c6792277f3	Update pyproject.toml	2023-08-09 04:44:42 +02:00
Richard Mwewa	5bc061b300	Update README.md	2023-08-09 04:44:07 +02:00
Richard Mwewa	b3441a58b1	Update README.md	2023-08-09 04:43:43 +02:00
Richard Mwewa	60ba2e41b0	Update README.md	2023-08-09 04:17:17 +02:00
Richard Mwewa	7bebff61a8	Update README.md	2023-08-09 04:16:39 +02:00
Richard Mwewa	3576bcbf45	1.6.0.0 Added Tool tips on the Main Form controls and auto complete on the Listing and Timeframe controls.	2023-08-09 04:14:00 +02:00
Richard Mwewa	d266301917	Delete RPST GUI directory	2023-08-09 04:11:12 +02:00
Richard Mwewa	1f3d8f41eb	Merge pull request #5 from bellingcat/dev Dev	2023-08-08 07:15:29 +02:00
Richard Mwewa	4ac58f0fc4	Update README.md	2023-08-08 07:10:13 +02:00
Richard Mwewa	7696dd923a	Update __main.py Changed layout and applied dark mode to the "Right Click" menu	2023-08-08 07:08:58 +02:00
Richard Mwewa	45b82e57ac	Update pyproject.toml Changed layout and applied dark mode to the "Right Click" Menu	2023-08-08 07:07:52 +02:00
Richard Mwewa	6d6e616640	Update README.md	2023-08-08 07:06:52 +02:00
Richard Mwewa	4ba402a129	Add files via upload 1.5.0.0	2023-08-08 07:00:32 +02:00
Richard Mwewa	52d36baae2	Delete RPST GUI directory	2023-08-07 16:29:00 +02:00
Richard Mwewa	1086ba1db1	Merge pull request #4 from bellingcat/dev Dev	2023-08-07 02:32:17 +02:00
Richard Mwewa	d8919b4357	Update __main.py Added dark mode to the About box.	2023-08-07 02:31:20 +02:00
Richard Mwewa	8952c7910b	Update README.md	2023-08-07 02:29:28 +02:00
Richard Mwewa	5d144fcd00	Add files via upload Added dark mode to the About box	2023-08-07 02:27:51 +02:00
Richard Mwewa	4c86206d0f	Update pyproject.toml Added dark mode to the About Form	2023-08-07 02:25:06 +02:00
Richard Mwewa	6f77623681	Update README.md	2023-08-07 02:24:04 +02:00
Richard Mwewa	e88e1a2d5a	Update README.md	2023-08-06 05:37:08 +02:00
Richard Mwewa	71b65753cf	Update __main.py Added json file logger for found posts.	2023-08-06 05:35:46 +02:00
Richard Mwewa	002dd57c0d	Update __rpst_.py Added json logger for found posts	2023-08-06 05:34:13 +02:00
Richard Mwewa	6e9f97c444	Update README.md	2023-08-06 04:45:36 +02:00
Richard Mwewa	1ff6d2c9c0	Update pyproject.toml	2023-08-06 02:24:17 +02:00
Richard Mwewa	b356a6beaa	Merge pull request #3 from bellingcat/dev Dev	2023-08-06 02:19:33 +02:00
Richard Mwewa	618aaa45ba	Update dependabot.yml	2023-08-06 02:12:39 +02:00
Richard Mwewa	f321accfbb	Add files via upload New version of RPST GUI	2023-08-06 02:12:11 +02:00
Richard Mwewa	e2e9228bec	Delete Reddit Post Scraping Tool directory	2023-08-06 02:11:06 +02:00
Richard Mwewa	90e7fefa7f	Update Dockerfile	2023-08-05 23:50:51 +02:00
Richard Mwewa	64ebdca6ee	Update pyproject.toml	2023-08-05 23:50:09 +02:00
Richard Mwewa	ca0458f328	Update and rename main.py to __main.py Refactored and added doc strings to code.	2023-08-05 23:48:23 +02:00
Richard Mwewa	bc10b3020e	Update and rename reddit_post_scraping_tool.py to __rpst_.py Refactored and added doc strings to code	2023-08-05 23:47:01 +02:00
Richard Mwewa	fc0c62a1ee	Update README.md	2023-06-07 15:29:57 +02:00
Richard Mwewa	151183765b	Update pyproject.toml Added line `[tool.setuptools]`. Fixes error that was being returned during compilation: ` * Getting build dependencies for sdist... error: Multiple top-level packages discovered in a flat-layout: ["reddit_post_scraping_tool", "Reddit Post Scraping Tool"] `	2023-04-13 11:40:38 +02:00
Richard Mwewa	210beccce8	Update pyproject.toml	2023-03-07 01:37:54 +02:00
Richard Mwewa	3a3a0b67dc	Update to v1.4.0.0	2023-03-07 01:34:19 +02:00
Richard Mwewa	7399683352	Update README.md	2023-03-07 01:03:11 +02:00
Richard Mwewa	b536b8245a	Delete Reddit Post Scraping Tool directory	2023-03-07 00:51:45 +02:00