58 Commits

Author SHA1 Message Date
Richard Mwewa
2f1619b4c5 Merge pull request #9 from bellingcat/dev
Dev
2023-08-12 03:54:42 +02:00
Richard Mwewa
33db66dbc3 Add files via upload 2023-08-12 03:53:33 +02:00
Richard Mwewa
bbbdab906d Update pyproject.toml 2023-08-12 03:49:05 +02:00
Richard Mwewa
74264224a5 Update __main.py 2023-08-12 03:47:28 +02:00
Richard Mwewa
ce75d40f76 Update __rpst.py
Changed post ouput format
2023-08-12 03:46:23 +02:00
Richard Mwewa
406e34c4bb Update __rpst.py 2023-08-09 22:50:33 +02:00
Richard Mwewa
38140ea2be Merge pull request #8 from bellingcat/dev
Update and rename __rpst_.py to __rpst.py
2023-08-09 22:39:33 +02:00
Richard Mwewa
4c3d3a688f Update and rename __rpst_.py to __rpst.py
Yep, I suck
2023-08-09 22:38:48 +02:00
Richard Mwewa
a03b649904 Merge pull request #7 from bellingcat/dev
Create __init__.py
2023-08-09 22:36:41 +02:00
Richard Mwewa
aa3b506a96 Create __init__.py 2023-08-09 22:36:20 +02:00
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
Richard Mwewa
8102c2276c Delete setup.py 2023-03-01 23:30:02 +02:00
Richard Mwewa
5ba5db6118 Update main.py 2023-03-01 23:08:49 +02:00
Richard Mwewa
2863aef3df Update reddit_post_scraping_tool.py 2023-03-01 23:07:52 +02:00
Richard Mwewa
4d3eed1d41 Update setup.py 2023-03-01 23:00:28 +02:00
Richard Mwewa
d86ecb020b Create pyproject.toml 2023-03-01 23:00:04 +02:00
Richard Mwewa
67b36a8764 Delete Reddit Post Scraping Tool/Reddit Post Scraping Tool/obj/Debug/net6.0-windows directory 2023-03-01 22:26:42 +02:00
Richard Mwewa
7705eb29af Added About Form
Adde a form that shows the programs about information including the license notice
2023-03-01 22:26:14 +02:00
50 changed files with 3331 additions and 1701 deletions

View File

@@ -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"

View File

@@ -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"]

View File

@@ -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😊

View File

@@ -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

144
RPST GUI/RPST/AboutBox.Designer.vb generated Normal file
View File

@@ -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

758
RPST GUI/RPST/AboutBox.resx Normal file
View File

@@ -0,0 +1,758 @@
<?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="PictureBoxLogo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAN
0AAADdABEGw9BwAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAFPuSURBVHhe7d0J
nBxVvTZ+ExbZVPTPX0Svonjd5b0qV0UEARXR60Xvq2yyi4DsskR2QfZNEEE2gbAIAgEEAgQIS4BAQEh6
uqfXmUkySaYHbyCsCXuSep9fJyOdzjMz3dW1nKp++Hy+H+AH6e4659T5nao6dc57PM8TERGRDkODIiIi
km40KCIiIulGgyIiIpJuNCgiIiLpRoMiIiKSbjQoIiIi6UaDIiIikm40KCIiIulGgyIiIpJuNCgiIiLp
RoMiIiKSbjQoIiIi6UaDIiIikm40KCIiIulGgyIiIpJuNCgiIiLpRoMiIiKSbjQoIiIi6UaDIiIikm40
KCIiIulGgyIiIpJuNCgiIiLpRoMiIiKSbjQoIiIi6UaDIiIikm40KCIiIulGgyIiIpJuNCgiIiLpRoMi
IiKtGhwcXA0+Bz+B38Jf4Ba4Dx6HHMyG5+B/oQ+64DG4B26GP8Mh8APYEMaw75L20aCIiMhILDHDf8Dh
cDv0wDvgBex1sIHD9fAr+BT7PdI6GhQREWmE5LsR7A8T4HlgCTsK/XAV7AofZr9VRkeDIiIiBgl2PTgI
ngKWjOO2GCbBzrAmOwbhaFBERDoXEul7YXu4E94Glnhd9AqMh61AcwdGQYMiItJ5kDTXhiPgWWAJNkls
3oDdFRjLjlU0ABAR6XhIkuvC72ABsGSaZL2wN6zGjr2T0aCIiKQfkqJd8Z8GduucJc80mQf7gu4ILEeD
IiKSbkiEP1ueFFmyTLOnYRNWJp2GBkVEJJ2Q/D4N9y5Php1qCVwM67Iy6hQ0KCIi6YJkt8rMmTMvx9/f
AJYUO9F82JmVVyegQRERSQ8k/s/n8/nn+/v7WRKUwcEroOPWEKBBERFJh56enoO7uroWFwoFlvjkXd3w
eVaGaUWDIiKSbEhmq5RKpftnzJjhmXnz5rGkJytaCLux8kwjGhQRkeTCVf9H8vn8/OnTp3umUqmwZCfD
Ox9Sv5IgDYqISDL19vZ+JpfLLRpK/plMxqtWqyzJychugFQvHkSDIiKSPH19fZtks9k3h5K/QYwlN2nO
/bA2K+s0oEEREUkWJPrvI/m/U5/88e8sqUlrbOGg9ViZJx0NiohIcvT29v6oq6trSX3yN7r6D0wRPsTK
PsloUEREkqFcLn/XXvNrTP4281/P/gP1JKzF6iCpaFBERNxXqVQ+j+S/wm3/IaVSiSUxaY8toZyaiYE0
KCIibps9e/YHc7ncQpb8jVb9C831kIpXBGlQRETchQQ0tlAoDLDEbzT5L3TnsnpJGhoUERF3lUqlSSzx
D+nt7WVJS4L1U1Y3SUKDIiLipnK5PI4l/XoDAwMsYUmwXoRPsDpKChoUERH3FIvFr2cymZVe96unTX8i
9QSsyuoqCWhQRERGtt9++60C68LH4UuwKWwDP4O94BAYBwfCnrAD/BdsCf8JX4BPwDrs8xsh0YzN5XIv
sKRfb+bMmSxRSXjOYPWVBDQoItLpkJhXhc/CdmCJ/Ap4DAbhNfAC9Dw8A7fAuXAQ/BhsYFFbirZcLt/E
En4j7foXuaWwRWP7SQIaFBHpFEiwY+ArsA9Y8p0IPfAOsGQduRNPPHHANvVhCb+e/T8NyUmikYfEPQqg
QRGRNENS/TzYrflbYYElWZdNmzaNJvxGev4fq3GsrbmMBkVE0gRJdEP4JfwV7BY+TbQuuuKKK2iyZ/T6
X6wWwr+x9ucqGhQRSTokT5todyHMGkqmSXPwwQfX1vRnyZ7R6n+xu4W1RVfRoIhIEiFp2oz8Y6E0lEST
bNKkSTTRM9r8xxlbs7bpIhoUEUkKJMp1wF6zewiWWOJMg0MPPbSlq//u7m6WjCR6j7B26iIaFBFxGRKk
zdy3d+7tmX7Qr+Q5YeLEiTTRD6dcLrNkJPFIxGuBNCgi4iIkRlt8Z1coDiXKNDrwwANrr/SxRD+cvr4+
logkHpNZ+3UNDYqIuARJcXXYF2YOJck0u/XWW2mSH8msWbNYIpL4fJO1ZZfQoIiIC5AM14RDYWAoOabd
/vvv3/LVv9EbAM65m7Vpl9CgiEickAjfB8fA/KHE2CnGjx9PE/xo5s6dy5KQxGcJOL0uAA2KiMQBCXA1
OApeHEqInabZVf8aaQtgJx3N2rkraFBEJGpIfrZLXqon943miCOOaOnVv3paA8BJBdbWXUGDIiJRQeJb
H+x1PpoUO8mECRNoch+NDRpI8hE3fJW1exfQoIhI2JDwxoJte/vSUALsdM888wxN8KPp6upiiUfccD5r
/y6gQRGRMCHZfR2m1ye/TnfMMcf4vv2fy+VY4hE3PMvOARfQoIhIGJDobNneSyHJS/ba9sFPwA1gx3IO
nAC/gb1he9gWNoNNYAv4IfwMdof94Ug4Cf4Ck6H35ptvXsySezO0DLDzvszOh7jRoIhI0JDk/gN6gCVV
17wDFbgTLMFbYv82rMeOLQhI4nNYcm+G7gA471BW53GjQRGRICFx/hreAJZsXWAJ/0k4Db4La7DjCAuS
+JgZM2YsaUzszdIcAOfdweo9bjQoIhIEJFJb0OcmYEk3TkshC+fDj+F97PdHpVwuf58l9mbZyoEk6Yg7
XoKxrO7jRIMiIu1CUv0q9AFLwHGwpP8Y7AOh3cr3AwOAy1lib5ZeA0yE/2R1HycaFBFpBxLsgfAmsEQc
tV74HXyS/VYXFIvFPEvsrSAJR9xyOKv7ONGgiIgfSLJ2y/8WYIk4Si/AxbAp+52u6e7ufpkl9VZoKWDn
/YXVfZxoUESkVUi2H4a43+0vwx6wOvuNrspkMktZUm/FnDlzWNIRdzzG6j5ONCgi0gok3E9BnM/7bULf
DuDcRKvRVCqVr7CE3qqZM2eypCPumM/qP040KCLSLCRde7//n8ASc9j+Adux35UUxWLxGJbQW4WBBEs6
4pZ1WRuICw2KiDQDydd28Ht5eTKO0qOwDftNSYMBwN9YQm9VoVBgCUfc8k3WBuJCgyIio0ECtqVto57p
PwDbs9+TVBgATGUJvVXZbJYlHHHLrqwNxIUGRURGgiRsf0W5nv/bYEvyrs1+T5Lhyr3tVwCN1gJIhINZ
G4gLDYqIDAdJ+NjlSTkqU+CL7LekQT6f72cJ3Q+9CeC8Y1gbiAsNiogwSMS2fz9L0mGwiYW7sN+RJt3d
3fNZMvejp6eHJR1xx+msDcSFBkVEGiEZ22t2Ud32vxbez35H2uRyuVdYMvcjn8+zpCPuuJC1gbjQoIhI
PSRj2yHvreXJOUyvwS/Zb0irbDb7Bkvmftg8gGq1yhKPuGE8awNxoUERkSFIyF+DV5cn6DAVIbXP+ofT
1dW1mCVzv/r7+1niETfcwtpAXGhQRMQgIf87zF+eoMN0NazFfkPaYQDwDkvkfmlBIKfdyNpAXGhQRAQJ
+SMwa3mCDssi2IN9f6fIZrOvs0TuFwYULPGIG65gbSAuNCginQ1J+f3QtTxJh6UfvsC+v5Pkcrm2dwJs
pMcAzjqftYG40KCIdC4k5TFwz/IkHZYcbMC+v9N0d3c/x5J4O0qlEks+Er+TWRuICw2KSOdCYj6qLlGH
4TFwalOUOGEAMJcl8XbobQBnjWNtIC40KCKdCYl5M3hneaIOwx2wBvvuTpXP50ssibdL2wM7aX/WBuJC
gyLSeZCYPwTzlifqMFwJq7Dv7mSFQuExlsDb1d3dzRKQxOtnrA3EhQZFpLMgMdtz/7uWJ+ownMG+V7z3
lEqlS1gCD4ImAzrnS6wNxIUGRaSzIEGPa0jYQXJq4pNryuXy7ix5B0FLAztlCbyXtYG40KCIdA4k6E3B
tttlybtdl7HvlHdVKpWPseQdFO0Q6IxZrP7jRIMi0hmQoD8Ic+oSdpBuhbHse2VFmUxmCUveQSgUCiwZ
SfQmsbqPEw2KSGdAgr6pLmEHyfbwd+p2p8tyudxLLHkHZe7cuSwhSbT+yOo+TjQoIumHBL1NXcIOkq0g
2BFb+QYln89nWeIOiuYCOGFvVvdxokERSTck6NWhZ3nCDtJMWJ99pwyvVCqdwxJ3kGbNmsWSkkTnU6zu
40SDIpJuSNIn1CXtoLwM/86+T0ZWqVQ+w5J2kGyTIK0OGJvZrN7jRoMikl5I0p+C15cn7SD9nH2fNCfo
XQGZcrnMkpOE70pW53GjQRFJLyTqMBb8uYh9lzSvUChkWNIOml4LjMUurM7jRoMikk5I1D9pSNxBmA6r
s++T5pVKpdNYwg5aNpvVo4DofYTVedxoUETSB0l6TQj6nf9X4NPs+6Q1lUplA9vFjyXtoBWLRZakJBwz
WH27gAZFJH2QqE+vS9xB2YF9l/gTxtbAw9FugZE5nNW1C2hQRNIFiXoDeLMucQfhYvZd4l+pVPodS9Zh
sLsNWiAodIvB2ddiaVBE0gXJ+ryG5N2uPtBKfwGrVCqrh7kscCPNBwjdvayeXUGDIpIeSNTrwaLliTso
27LvkvYVCoVnWLIOS3d3twYB4XFy9v8QGhSR9ECyPq0hebfrVvY9Eoxyubw9S9Rh0oZBoVgIa7E6dgUN
ikg6IFl/AGyFPpbI/bA7CR9n3yXBCXtzIEaLBAXufFa3LqFBEUkHJOugl/w9mn2PBAvJ+CiWpMPW09PD
Epm07k3YgNWtS2hQRJIPyXptWFCXvNtVgtXYd0nwstnsIpakw1apVFhCk9Yk4g0ZGhSR5EOyPrIueQdh
a/Y9Eo6oVgZk8N0sqUlz3oZPsDp1DQ2KSLIhWa8B/6xL3u26hX2PhAdX4mOz2ewbLEFHwSYG6u0AX5zc
+IehQRFJNiTsXzUk8HYshY3Z90i4cCV+FkvOUbFXBAcGBliSE+4NcG7f/+HQoIgkGxL2Y3UJvF23s++Q
aCAJP8+Sc1S6urq0g2DzTmJ16CoaFJHkQsK2/f7tqp0lcz82Yd8j0ahUKltHtUnQSHp7e1nCk3f1QaJW
x6RBEUkuJOwTGxJ4Oyax75BoFQqFR1hSjprNC9AjgWH9kNWdy2hQRJILSdvW6WfJ3I/N2HdItCqVyrpd
XV1vs6QcNXsk0N/fzxJgx6pWq7exenMdDYpIMiFhf6shgbfjIfYdEo+4FgcaTrFY7Pi7AfPmzbN1E97o
7e1N5CRZGhSRZELSvrQhibdD7/07plAoTGPJOC42N6ET5wbY65G2aqIdPwYAx7O6SgIaFJHkQcJ+L7xY
l8DbkWXfIfFCslk9l8u9zJJxnPCbvNmzZ9NkmTYzZ86sPQax4y4Wi9NYPSUFDYpI8iBp/7whibfjcPYd
Ej8MAjbJZDJLGpOwC2wgMGvWLJo4k87mPdjxDR1rd3f3K4itweooKWhQRJIHSfvOhiTu12JYn32HuKFU
Kh1Xn3hdk81ma1fKLJEmid3qt+PI5/MrHB8GYEv7+vq+weomSWhQRJIFCduW/n1zeQJvl179S4BisTip
Pim5yG6VVyoVb+7cuTTBusoWPrLtkZHo6XHhmFKxKyYNikiyIGl/ryGJt2Nn9h3inkKhkGEJykW2rDCu
mp19c8B+l/2++tv8TKlUuoTVRRLRoIgkC5L26Q1J3K9XYE32HeIeXImORWKdwxKVq2zmvN1St7cH4l5i
2L7ffoctcNTMaotI/jezekgqGhSRZEHSfrIuibcjMTuZyTIYBKyFq9YFLGElgd1mtwRsV9+WkMPagdCu
8G2Coj2SsLsRrS6vXC6XH2Dln2Q0KCLJgaT9PninLom34zvsO8RtSGrrYxDwKktcSWRzByxJ44q7doVu
idteM7QBgs0nsAV4hgYKltgtZv/N/h+btGd/xhK9/XkbXNikRPY9zcLnPMXKPeloUESSA0n7xw1J3K9/
whj2HeI+JLz1kDTnswQm/hWLxamsvNOABkUkOZC0z69L4u34G/t8SQ4MAtbI5/MzWSKT1hUKhYmsnNOC
BkUkOZC4sw2J3K992edLsmAQMBaJ6ymW0KQ5Nj+gXC6fy8o3TWhQRJIBSXs9CGrv/39n3yHJVCwWb2PJ
TUbW1dW1pLe3dx9WpmlDgyKSDEja2zckcb/msc+XZMNV7K+R0BazRCcry+Vyr/T19f0HK8s0okERSQYk
7vMaErlf17LPl+SrVCqf0eTA0eXz+Syu/DtqDQwaFJFkQOK+uyGR+7UX+3xJB5sXUCwW72GJr9PZxkql
Uul0Vm5pR4MikgxI3H0NidyvDdnnS7qUy+VdstnsIpYIO1GhUOibOXPmZ1lZdQIaFBH3IWmvBrZzH0vo
rehnny/pVKlUVi0Wi9fbjnYsKXYCDILeRDkcwsqnk9CgiLgPifvzDYncrzvZ50u6IQF+Np/P97IEmVb2
eh8GP/f39fWtxcqk09CgiLgPifunDYncr7PZ50tnKJfLe3Z3d/8vS5hpYYm/UChke3p6Er+Hf5BoUETc
h8R9VEMi92tv9vnSWTAQ2B4DgbksgSaVPebAFf+03t7eL7Bj7nQ0KCLuQ+K+qiGR+/Vt9vnSmSqVyjb5
fL6n1d3yXLJ8Zv/kvr6+T7BjlGVoUETch8T9eEMi92s99vnS2TAQ+Biunq/N5XIvsyTrGhuwdHd3D+I3
n1cul9dmxyQrokERcR8S9/MNidyPBeyzRephMPCdQqHwcFdX11ss+cbFkn4+n38RCX/8zJkzP85+uwyP
BkXEbUjc6zYkcr+eYJ8vMhwMBjYrlUpX2q6DGBC8wxJzmGwQgiv9Cn7DuUr67aFBEXEbEvenGxK5X+PZ
54s0CwOCrZGMr7AdCJGY/xnUXQK7us9ms69joDEbnz+pp6fnBCT8T7HfIP7QoIi4DYn7Kw2J3K/j2OeL
tAODgjVgGyTuk+DSYrF4E9yHQcI0JPRumAW9+PcZiE/B//P3crl8Jf7M2XAw/v07GEi8l322BIcGRcRt
SNxbNCRyvw5kny8i6UeDIuI2JO4fNyRyv3Zjny8i6UeDIuI2JO6dGxK5Xz9lny8i6UeDIuI2JO59GxK5
X99lny8i6UeDIuI2JO4jGxL5iPbff3/vkEMO8Q4//HDvqKOO8o4//njvpJNO8m699dbdBwcHvwifhPXh
/bAa+04RSRcaFJH4IAGvDZ+D74El6P3hCDgeToPzHn/88WcmTZrkTZ482ZsyZYo3depU76mnnqq9OpXL
5bxSqeT19vZ6/f39XrVa9fBnWrUYXoX5MAfKkIHH4QGYCDfDNXAJnAf22+w32m+132y/3Y7BjkUrs4k4
hgZFJBxIhB+CjeFHsC+cDFfCfVCAl4El5DSwY7NjtGO1Y7ZjtzKwsrAy+RArMxEJBw2KSGuQvMbCR+A/
4X/gIDgT/gpToBdeB5YY5V1WRlZWVmZWdlaGVpZWpla2VsZjWR2ISGtoUEQ4JJ8xsBFYQjoJboM+eBtY
QpPgWVlbmVvZWx1YXVidjGF1JiIcDYpILdmvA98Ce55tz7mfAHsuzpKSxM/qxurI6srqzOpuHVa3IqIB
gMhwV/UzYSmwRCPJYXVodam7BSINaFAkrdDx66pejO4WSMejQZG0QKdus+5/BhdDCXRVL8OxtmFtxNqK
tRm9lSCpRoMiSYVO267w7bWyc2EGLAHW2YuMxtqOtSFrS9amdIdAUoUGRZICnfJ7YUs4BWyRGs3Gl7BY
27I2Zm3N2py2q5VEo0ERV6HTXQW+AcfAZNC79RIXa3vWBq0tWptchbVZEVfRoIgr0KnaDP0vw2/gTkjz
SnmSbNY2rY1aW7U2qzcNxGk0KBIndJwfhF/CTWBr0bPOVsR11nZvBGvLH2RtXSRONCgSNXSQ74Pd4C54
C1iHKpJU1qatbVsbfx87B0SiRoMiUUBHuBbsCLZIyxvAOk6RtLG2bm3e2v5a7NwQiQINioQFHZ7N2rfV
2OzW6CJgHaRIp7BzwM4FOyf0VoFEigZFgoSObTX4L7gWXgHWEYp0Ojs37Byxc2U1di6JBIkGRdqFDsxe
1/s+XAEvAOvwRISzc8bOHTuH9HqhhIIGRfxAR2V74n8HbClVzd4XCYadS3ZO2bk1lp17In7QoEgr0Cl9
Cmy5VPuLdWAiEgz7y861T7FzUaQVNCjSDHRC34U7QOvti0TLzjk7977Lzk2RZtBgJ8CJsyp8AD4GnwNb
ueuTsB6syf6M1MptTdgX8sA6JhGJlp2Ldk6q3xrG9OnT14T14JPwZfgcfAw+AKuyP9MJaDDpcCKsAV8C
e7VmHFwOD8FsWABvAjuR6i0Gm5Vrf00HW5XuVNgTvg0fZt+dVjjej8NZoAl9Im6yc9PO0Y+zczitkMA/
DN+GPeFUuAnsr0F4BRaDN4o3YQHMhofgchgH/wNfgjXYdycdDSYNGvynYS+4Enogqj3fX4J74TiwCTqp
ayQ4pi3gFrABESsDEXGLnat2zm7Bzukks0QM34Hj4F54CVhCD9pS6IErYS/4NPt9SUODrkPD3gAOhAnw
LLCTIA623OcTYKPwzSGRm4Hgd9tiPTagygA7ThFJBjuH7VxO5CJDSLRjYHM4C56At4Al6Dg8CxPgQNiA
/X7X0aCL0IA/DAfAFEjKpLMBOB++yY7JNfidHwV7zPEcsOMRkWSyc9rO7Y+yc981SKjfhPNhAFjydc0S
mAIHQGIeD9OgK9BYbcLZ3vAgJP0WdD/YnYHPsGONE37TpvA3eBvYbxeRdLBz3M71TVlfECckzs+AXen3
A0uySWFzDh6EvcHpiZk0GDc0TrvFfxrYhD3WiJPM5idMhK3YsUcF32/77O8A/wD2O0Uk3ezctz4g1keV
SJJbwUSw5+wsoSaZTSw8DZx8RECDcUFD/ArYWtidsh1sF+wOq7PyCAu+74eg5/siYqwv+CHrK8KChLg6
7A5dwBJn2tjchWvhK6w84kKDUUPj2xhsNj1rnJ3A/toHQl3mE5+/GTwC7DeISGezvmEz1ncEBQlwLOwD
9ooeS5SdwN5e2JiVT9RoMCpobB+Bv4BeMVumG7ZhZdUOfKYNsOyxA/tOEZF61lcEnqCQ9LaB7uVJsNPZ
PIG/wEdYWUWFBsOGxmWT+06AhcAaYKebBF9kZdcKfMZG8FfQUr0i0grrM6zv2Ij1La1AkvsiTAKWCDvd
QjgBYpksSINhQoPaFuYBa3TyLrsrch60vLgQ/ozdWbHdwzSrX0TaYX2I9SUtX6kiqdmiPedBMyvxdbp5
sC0rxzDRYBjQgNaGS4E1MhleCTZhZdoI/9+6cCa8BuyzRET8sD7F+pZ1Wd/TCMlsEygtT27SvEthbVam
YaDBoKHR2OSzPmANS0b3DpwIdNMKxNeCY+BFYH9eRCQI1sdYX7MW64uQvFaFE+EdYAlORtcHoU7GHEKD
QUEjsR33bNSoSX7BeBo+W1e+q4EtiezScsgikn7W51jfs9pQf4Sk9Vl4enkSk/bYY5MzIdSdCmkwCGgY
ttXuZGCNR/yzDYi2gV1h1vKYiEgcrA/aFYnKZvhHtTFPJ5kMH2A5Ngg02C40CJt9bs+uWYOR9kW126GI
yKj6+/uXZrNZlsCkfTaXou23MRgabAcag+2C93x94xARkXSrVqtepVJhCUza9zxsznJuO2jQLzSCXeDN
+kYhIiKdY86cOV4ul2NJTNrzJuzCcq9fNOgHKn5P0IIzIiLi9fb2ejNmzGCJTPyzbYf3ZDnYDxpsFSp7
N1DyFxGRf5k3b57X3d3NEpn4Z4OA3VgubhUNtgKVvDPoNT8REaH6+vq8TCbDkpn4Y68J7sxycitosFmo
WNtLWslfRERGNDAw4BUKBZbMxB8bBOzAcnOzaLAZqNAtwVaoo5UtIiLSaNasWbobEBxbcXFLlqObQYOj
QSVuCHrVT0REWmZ3A0qlEkto0jp7RXBDlqtHQ4MjQeXZuvPZ+soUERFpVX9/v9fV1cWSmrQmC3R/hpHQ
4EhQaRMaK1FERMQPW0BIdwMCMYHl7JHQ4HBQWcc1Vp40zxq63fpi/01EpJPNnDlT6wa07ziWu4dDgwwq
6GugSX8+zZ07tzb5hf03ERFZ1k9qT4G22KTAr7EcztBgI1SMbTubq68oaZ6NbG2NbPbfRETkXXanVK8L
tiUH/9qmeSQ02AiVclJjJUlzyuVyrTGz/yYiIlxPTw9LbtKck1gub0SD9VARG8Pb9RUjo7Nn/bYEprER
Lft/RERkeLNnz9aaAf68DRuznF6PBoegAlaB6fUVIqOz3bDs1RZ7lqVJfyIi/tl+Atpd0Bf7axWW24fQ
4BAU/l6NlSEjszWvbSarjVqt4bL/R0REmqdXBX3bi+X2ITRoUOirw5z6SpDh1TdQGwDYXQD2/4mIiD9D
F1gNSU6GNwdWZzne0KBBYR/aWPjCNd6isudW7P8TEZH2DD1iHepvZVSHshxvaBCFvDbMry904Wwpy/pJ
KjZCZf+fiIgEw+ZW5fP5+iQnw5sPa7Ncv1LAoICPbyxwWVlvb+8KBW2v/LH/T0REgmfrq9T3wTKs41mu
XymAQl0DXqgvZFmRPe8vFosrFLC97sf+XxERCY8ttFbfFwv1AqzRmO9X+BeDAt2lsYDlXZb8LdnXF65m
/IuIxMeWWdfkwFHt0pjvV/gXg8Kc0li4sgxL/kaT/kRE4mX9sAYBI5rSmO9X+BcU4mcaC1WWsUknbDEK
rfEvIuIGm5StQcCIPlOf8xsHAGc3FqgsS/5shyo99xcRcYu9Jqjlg4d1dn3Or0/+q4Je/Wtgz/ZZ8tdz
fxERN9m2wlorgLJXAldlA4AtGgux01mCH64R6bm/iIi7Ruq/O9wWbABwWmMBdrKRRpB67i8i4r7h7uB2
uNPYAOCZxsLrVCM9Q9JzfxGR5BhuAncHe2aFAQAKaT1YWl9onWqk5K/n/iIiyTPcK9wdaimsVz8A0OI/
MNorJLbiFPtzIiLiNhsEaP+Af6ktCjQ0ABjfWFidZrRFJHTrX0Qk2WwQUCgUaB/fYcbXDwAyjQXVSUZb
RtL+m00KZH9WRESSRYOA6ZnaAACFMRZery+cTmJX/qRwVqBZ/yIi6aE5AdNfh7E2ANiosXA6hV3Vj7Zs
pL1CYo2F/XkREUkmezugw9cJ2MgGAP/dWDCdoNnK14I/IiLpZBeBHbxs8H/bAODoxkJJu2Zv/9ie/+zP
i4hIOtjbX6z/7wBH2wDg6sYCSTtL7KQwVmCjQrtLwP68iIikh73izfJAyl1tA4C7GgsjzXp6elhBrKSv
r4/+eRERSR+b7M1yQYrdZQOARxsLIq2aHeXZspHsz4uISHo1c3c4RR61AUC2sRDSaLRV/urZcsDsM0RE
JL067PXArA0AZjcWQtrY+v3NzvTUxD8Rkc7VQa8HzrYBwILGAkgTG9G1sh2kVvwTEelsHfJ64AIbALzd
ePBp0srmD7r6FxER08pj44R62wYAbzQeeFqUSiV20MPS1b+IiAxJ+euBb9gAYH7jQadBb28vO+Bh6epf
REQapfj1wPk2AOhrPOCka2aDn0a6+hcREaaVR8kJ0mcDgBmNB5tkfmZw6upfRESGY3klhZMCZ9gAYErj
wSaZn4UcdPUvIiIj8XNn2XFTbABwZ+OBJtWsWbPYQY5IV/8iItKMcrlM80hC3WkDgMsbDzKJ/N6i0dW/
iIg0w9aVsaXiWS5JoMttAPCbxoNMIj+3/nX1LyIirbCLxpSsD/AbGwBs03iASePn1r/Rmv8iItIq2y2W
5ZSE2cYGAB9tPLgk8XvrXzv+iYiIXyl4NfCj7/E8zwYBLzceXFIUCgV2YKPSfv8iIuKXbTKX4EcBL1vu
HxoATGs8uCTwu0yjVZrdOWCfKSIi0oxWV5x1yLT6AcBFjQfmunYWZtDkPxERCUJC3wq4qH4AsF3jQbnO
761/Yws6sM8URxW7vcGpD3nVu2/xqjdc7lUvPcurnnWUVz12H2/gkB296jF7e9Uzx3nVi8/wqtdf6lXv
utkbfOwBbzDfxT9PpFnWhtCWrE3V2pa1MWtraHO1toc2WGuL1iatbaKNWluttVn2eZI6Npmc5RnHbVc/
AFgHErMtcDs7NNkywewzxSHVqjf45KNe9fJzvIGDfu4N/Pwb/v36J171z6ctGxDY57LvExlibcQSPtqM
tR3appqFtmtt2Nqy2l66JWyBoLdhnX8NAJYPAhKxJLBNvGhnTeaenh76uRIz1Gv1oXu86h9P9Ab2/hHv
UNu15/e96rnHetX7bvcG9QqoDEFbsDZhbcPaCG077UKbtrZtbdzaOv0dkli2QFCre9DEaMpQ3q8fABzT
eFAuavfVCxtAsM+VmODEqU68yRvYbzvecYbll9t61QnjvcEBtYeOhbq3NmBtgbaRsKCtV++8UXcFUsbv
ejQxOIYNAL7WeECuaXczBhs8sM+VeFQfnuQNHLYz7ySjcsD/9ar33kZ/n6SX1bnVPW0TUUHbt3OA/T5J
pu7ubpp7HPM1NgAYA7PqD8Y17c62tBEa+1yJ2D+metXj9+OdYlzG7e4NTn2Q/15JD9Sx1TVtAzGxc8HO
Cfp7JVESMCFwFoxZaQCwfBBwXOMBuaKdiX/G5g3Ycxr22RKRgQGvevHp3sD236QdoQuq5xzjDc7V/IDU
QZ1a3bI6dwLOCTs37Byhv18Sw8++NBE6tj7nNw4ANoB36g/GBUFMsLDXBtlnS0Rm9nnVE37NOz/XHLGb
N1hWe0kN1KXVKa1rx9g5YucKPQ5JBIdXCHwHNqjP+SsMAAwO4I7GA4qbzdxvOJCWaenfGGWnewMHxvy8
tVV7/2jZ61vseCQ5UIehvVUSFpwrds7Q45FEqFQqNA/F7I7GfL/Cvxj8+B83HkycbMW/IEZTmv0fj+qU
e72B3b/LOzrX7bx57Q0FdlzivtrbJahDWreuwzlj5w47LnGf3bVu53X1kPy4Md+v8C8GP34szK0/mDgF
scCCFv+JR/X2672BHb7FO7gEqY6/gB6fuMvqjNVlouDcsXOIHZ+4z7Etg+fC2MZ8v8K/DMGP36/xYOIQ
1LOUUqlEP1/CU33kfm9gx+Qn/yHVO/5Gj1PcY3XF6jCRcA7ZucSOU9zm2OJA+7Fcv1LA4MevCr31BxOH
oJZX1Ot/EevOeAN7fI93aEm187e9wWlT+PGKO1BHVle0DpMK55KdU/R4xWmO7BbYC6uyXL9SYAh+/E6N
BxOloJ79G239G6HZM72Bg7fnHVmbqj//pve/O23mPf+Lb3sv7rKF98puW3oL99iy9nf7d4vP3wlXTGG9
ZvjLbb3BkjZ5cRbqJqxV/axNWdsaqe1Z27Q2yv5823BO2blFj1uc5chcgJ1Yjjc0aPDjbWGgTP3BRCmo
WZS2eBD7fAkBGnv1pAN5B+bTIDreF3bZ3Ht9r629pfv+wPP223ZU9v+9vtd30TFv7g3uEHCHfNgvvME5
/fz4JT6oE6sbWmc+WduxNmRtqbW2t3WtzVrbZZ/rl51bWj44eYJ4i60NGfjXwj+NaHAIfvy2jQcThSBH
TTaQYN8hwatedjbtuPx4dodNvUV7IumTTrY1ywYD/7vjpvR7/KiecSQ9fomP1QmrKz+srVibsbbD21Rz
rO1aG7a2zL7HDzvH2PGLu4K8m+0DGiPP74YG6+EA7mw8oLAF+dykv19Xa5HIPO0NBNDR2VXTq7tvGUDi
X9miPbdCZxzMVZnWcHdHbU8JUketsrZhbYS1nXZYW7Y2HcgdAZxjdq6xchB3xbRd8J0sp9ejwXr48R+F
l+oPJkxBXv3bqIt9hwSvevKhvMNqwXM7f9tbsk97V12jsVu0dnuWfX9LDttZt2NdgDoIYkMpaxPN3ub3
y9q2tXH2/a2wc42WhTgrhrsAL8FHWU6vR4ONcAB7Nx5QWIJ8d1K7/0Xk8YdoR9WKl3bdwvP25R1nGF7Z
/Tv0d7RCiwTFr7bYD6mbVlhbYG0kFGjj1tbZ72iFnXOsPMRdEe8RsDfL5Y1okMEBTG48oDC0u+NfPT3/
j8bAb/eknVRTtv+Gt2iP4G+7NuP1Pb/b3hsD+23nDc6bS8tEIoCytzqgddMEq3trA6xthM3avLV99rua
gnOOlok4yx5HszwVgskshzM0yOAANoSF9QcUtKC3UrQdBNn3SHCq993OO6gmLYwp+Q+xBMB+V7OqN1xO
y0XCZ2XP6qRZcSX/Idb22e9qlp17rFzEXdlsluaqAC2EDVkOZ2hwODiAXRsPKEi2Yl/DwbTFBhTseyQg
9vz1wJ/RzqkZL9ptf9IxRq2txwF7fN8b7NdCU5FDmVvZ0zppQqS3/Udg5wD7fU3Buad5KMkSwcJAu7Lc
PRwaHAkO4tzGgwqCTf4LepKEfSb7LgnItEd4x9SE53beLJSZ/n4t2MX/5Kzq3RN4+UhorMxZXTTD6pq1
gTjYOWDnAvudzbBzkJWPuCmMPFfnXJazR0KDI8FB2GZB99UfVBCC3jhBGwCFr3r5ObRTGo2tlrZ4n21o
hxiXpftu6/sVweqZ42j5SHiszFldjMbq2OqatYG42LngdwVBOwdZ+Yi7gr7Tvdx9sNJmP6OhwdHgINaF
QPcK6O7uZgflm94ACN/AQT+nndJoXtnNjduvjXw/k91tK29Q201HB2VtZU7rYhRxzzkZjp0T7PeOCucg
LSNxVtBz3cDW+l+X5erR0GAzcCBfgJfrD8yvuXPnsoNqiy28wL5LApKdzjukUdjyqq5dgf0Lftc/fe5g
WH1ICwNFxcqa1cForG6jfNW0FXZO+F222s5FVk7irgAnA74MX2A5uhk02CwcyKbwav2B+RHUuv/17JEC
+y4JRvW6i2lnNBpXr8CG+H0roHrBSbScJHhW1qwORhP3rP/R+L0DZeciKydxV0D7A7wKm7Lc3CwabAUO
ZjNo6/XAMPZM1hsA4Rr47R60MxqJPecMe7W19v3AG9zex5LGv/oRLScJnpU1rYMRWJ22u7Z/2Ozc8DUX
AOciKydxVwB3ve11v81YTm4FDbYKB7QFLKo/wGaF8DykRm8AhMhewfKxgI5tmco6Ptf4fTVLa7RHwPac
IGU/GldeOR2NnSPs948I56JeRU2eNh4DLAI0aJ6PW0GDfuCAtoLX6g+wGWHc/tcbACHz+fw/rhX/WvXG
Xj4fA2geQOj8Pv+3OmV17ZraCoHk949G8wCSx+djgNcAHSnPw62iQb9wUPY44Ln6gxxNGCsj6Q2AkD06
mXZCo3Ht1b/h1G7F+limtXr79by8JDBWxqzsR2J16f6jp2XsHGHHMBo7J1l5ibt8PAZ4Dtq+7V+PBtuB
A/skFOoPdDhhzP43tukC+z4Jhp8NWGxPdNbhuWq+j8VZqtdcSMtLgmNlzMp+JFaXrI5dZecKO46RaGOq
ZGrhArgAn2Q5tx002C4c2PthUv2BMgHNhFyJXgEMV/Wvl9BOaCTzd/oW7excteAXrW8ZXP3T72l5SXCs
jFnZj8TqktWxq+xcYccxEjsnWXmJ25p8BD4J3s9ybbtoMAg4uFXggvqDbRTkzn/1tAtguKp/Po12QiNJ
Wif80q6tL8xSPUX7tIfNypiV/UisLlkdu8rX4BPnJCsvcVsTk+AvgFVYjg0CDQYJB7kTvFh/0GZgYIAd
bCDszkLj90lwqmccSTuhkby0WzJmYQ95dfct6XGMaNzutLwkOFbGtOxHYHXJ6thVdq6w4xiJnZOsvMR9
mUyG5bEXYSeWU4NEg0HDQX4M7q8/aNuqt+GAA6NFgMJVPX4/2gmN5JWEdcKL9tiaHseIDvgfWl4SHCtj
WvYjsLpkdewqO1fYcYzEzklWXuK+QqHQmMPuh4+xXBo0GgwDDnQMHAyv20GHtCFCjQ0u7DskHH42Ynkp
Ie9hD/F3B0ALsoTNypiW/QgSdwfAxzoU2pAqueo2wnsdDoYxLIeGgQbDhAP+HEwN4/W/IbNnz6YFLcGo
XnwG7YRGkrw5AD464VMPo+UlwbEyZmU/kqQNPn3NAcA5ycpL3Lf8bbip8DmWM8NEg2GrVCpfqk/YQevv
76cFLcGoXn8p7YRGMn+nZL2KtcDHimzVC0+m5SXBsTJmZT8Sq0tWx66yc4Udx0jsnGTlJYmxPsuVYaPB
sJVKpT+yxB0U7QMQrupdN9NOaCS2Dzvr7FzlqxO+9iJaXhIcK2NW9iNJ2uDTzhV2HCOxc5KVlyRG6BP+
GBoMWwF/scQdlHnamz1cj3XCSoA+OmGtBBg6fysBJmETqmV8rwSIc5KVlyTGZSxXho0Gw5bNZt9kiTso
9oohKWAJis+9ABbunoy9AF7fy+deAA9rL4CwWRmzsh+N1Smra9fYOcJ+/2i0F0DiVViuDBsNhqm3t3c9
lrSDpJ0AQzan3xvwsVzpczsn41nsC7u0PgnLqBOOgM/Bp9Upq2vX2DnCfv+IcC7aOUnLS5JiKazNcmaY
aDBM5XJ5L5a0g9RQsBKC6jF7885oJNt/w1vi+q3Yfbf1Bn3c/h/Y979pOUnwrKxpHYzA6tTqlta5I+zc
sHOE/f6R2LnIykkSB42U582w0GCYSqXSNSxpB4kUrASsesNltDMazauObwn82p7+bsFWLzqFlpMEz8qa
1cForG5ZnbvCzg32u0dj5yIrJ0mcfVnODBMNhqlQKGRZ0g6SHgFEIN9FO6PR2JWYq3cBbKKYn53YTPWR
+3k5SeCsrFkdjMbq1tXJgHZO+LrzBHYusnKSxPkzy5lhosEw5XK5l1jSDpImAUZj4NAdaYc0mpd3c3Nz
loU+r8AG9vieN6g2Fx2UtZU5rYtRWB2zuo+bnRPs944K5yAtI0mix1jODBMNhimTySxlSTtIGgBEo3rl
ebxTGkUVXHslsHYF5uP9a1M9+2haPhIeK3NWF6OxOnbtDpSdC3ZOsN87GjsHWflIIr3EcmaYaDAsPT09
m7CEHTStAxCRf0ylnVIzbHGWpaQzjMcPvOf9zL5ernrvbbx8JDRW5qwummF1bXXO20K07Bzws+jUEDsH
WflIYn2C5c6w0GBYyuXyCSxhB83WViYFKyEYOHQn2jE14wVH9gfwffvV/HJbvYIVB3sVFWVP66QJrjyG
snOA/b6m4NyjZSNJ9mOWO8NCg2EplUo3sYQdNC0FHJ3qQ/fwzqlJce/UtmhPH9v+1qnecjUtFwmflT2r
k2ZZ3bM2ERVfO07WsXOPlYsk2sEsd4aFBsNSKBSeYAk7aNoMKFrV4/alHVSz4hoELNpjK9/PXmsO/L+a
/BcnmwyIOqB10wSre2sDrG2Ere3kj3OOlokk3Zksd4aFBsOSz+dnsoQdtFmzZrGClbA8NdUb8PkK0xC7
FRrdnIAftHfbfzk9+49fO3MBhix7HBDNnABr423d9jc41+ycY+UhiXcdy51hocGw5HK5F1jCDlpfXx8r
WAlR9YwjeWfVgvk7fSv0twNsBvjzPrb6Xcm4PWg5SPSsLmgdtcDaRNhvB1jbtjbOvr8Vdq6xcpBUeIjl
zrDQYFi6urreYgk7aJVKhRWshKk74w3s6H828xDbuc2uyILujO3Ky1Za87vYSqPBqQ/ycpDooS5YHbXK
2oa1kaDvRFlbtjbtZ4fJleAcs3ONloOkQaSbAtFgWGbMmBH6GgCmWCyygpWQVa/+E++0fLD3tW3RlnZX
brPOfNGeW3nP7uhvhT+met7x9PglPlYnrK78sLZibabdgYC1XWvDfteXYOwcY8cvqbGI5c6w0GAYenp6
PsaSdRi6u7tZwUoEqqcfQTsuv+yqyd7bXrTH1k0/Hliyzw+81/bc2lvwi8296s+D63xrjtrLG5yn10yd
gzqxuqF15pO1HWtD1pasTbG21sjaqLVVa7OBXPHXsXOLHrukzQdYDg0DDYahUqn8mCXrMHR1aW3s2Nj7
2YfvQjuwIPxzh029+Ttv5i3Y5dveS7tt4b2y+5a1v9t2r8/ttFntv7M/Fwjb8a+nzI9b4oe68bNTYLOs
bVkbs7ZW3/asLVqbDLXt4ZzSehMd44ssh4aBBsNQLpcPZMk6DDNmzGCFKlEpdbe1SIuTdvmON/jME/x4
xR2oI6srWodJZYtN4ZyixytptDnLoWGgwTBgAHAMS9Zh0X4AMZv2iDfQxvK6Ttn+m1713r/z4xTnWF21
+1qqM3AO2bnEjlNS6wcsh4aBBsNQKpXOYIk6LFoNMH7Ve271BnZK+CDAkv+Nf6HHJ+6yOkv8IADnjp1D
7Pgk1X7KcmgYaDAMGABcxBJ1WLQWgCOmTfEGfvkD3sG5btetvOrkify4xHlWd1aHtG5dh3PGzh12XJJ6
v2A5NAw0GAYMAMazRB2WclmTtZxR7PYGDvsF7+hctf9PvcHMP/jxSHKgDq0uaR27CueKnTP0eKQT7M1y
aBhoMAzFYnECS9Rh0auAjpnT71VPO5x3eI6prbPe18OPQ5IHddnufhVRsXNEs/07XmQbAtFgGDAAuIcl
6rBkMloty0XV8Rd4Azu2vxxqKOx5/0WnaoOfNEKdWt06Oy8A54SdG/S3S6c5iuXQMNBgGAqFwhSWqMM0
b948VrgSt+x0XOkc5lRnXP3d/nrNrxOgjq2uWRuIhQ06cS7YOUF/r3Sik1gODQMNhiGqrYDrzZ49mxWu
uOLJR73qMXvzjjEqh+/iVR+5j/8+SS2r8zAXrGqGtX07B9jvk452OsuhYaDBMGAA8BBL0mHq6dFz3CSo
PjDRGzhkB9pJhubXP/Gqd0/wBqtV+pukA6Duq3fdXGsLtI2EBW29+sBd/DeJDA7+juXQMNBgGIrF4kSW
pMOEQQcrXHGRJeJpj3jVy872Bg78Ge8427Xfdl71z6d5g49N1nN+eZe1BbQJaxvWRmjbaRfatLXt2qI+
GnTKyI5kOTQMNBgGDABuYkk6TJoImGA2T+C6i5ft9d7OXIHDfuFVr/qjN/jMNP49Io3QVqzNtPXqqrVZ
tF1rw3q+Ly06kOXQMNBgGEql0pUsSYdt7lzt3JZ4s/q8welPetWHJnnV26/3qtdc5FX/dLJXPfU33sBR
v/SqJx/iVS84qbZVavW267zqg3cvS/h6lU/aZW3IBgRoU7W2ZW3M2hraXK3toQ3W2qK1SWubaKPWVmtt
ln2eyOj2Yjk0DDQYBgwALmAJOmxaEVBERBJkR5ZDw0CDYcAA4FSWoMOmeQAiIpIg27EcGgYaDEO5XB7H
EnTYNA9AREQS5Hssh4aBBsOAAcC+LEFHQfMAREQkIb7FcmgYaDAMGABsxZJzFDQPQEREEmIjlkPDQINh
qFQq67LkHAXNAxARkYRYg+XQMNBgWDKZzFKWoMM2Y8YMr6rFN0RExG0LWO4MCw2GJZvNvsESdBRmzZrF
CltERMQVOZY7w0KDYcnlcs+x5ByFYrHICltERMQVk1juDAsNhiWfz1dYco6CHgOIiIjjrmC5Myw0GJZC
ofAIS85R0WMAERFx2O9Z7gwLDYalWCxexxJzVPQYQEREHLYvy51hocGwlMvlw1hijooeA4iIiMO2Yrkz
LDQYlkql8mmWmKOkxwAiIuKoD7HcGRYaDFMmk1nMEnNU8vk8K3QREZE4VVnODBMNhqm7uzu2VwGHzJs3
jxW+iIhIXCJ9BdDQYJgKhcKTLClHqVKpsMIXERGJy5ksZ4aJBsNUKpUuYkk5StoiWEREHPMLljPDRINh
KpfLP2VJOWqaDCgiIg75EsuZYaLBMFUqlTXsdTyWlKOkyYAiIuKIN2FVljPDRINhy+VyC1lSjpomA4qI
iAOeZLkybDQYtkKhMI0l5KiVy2VWESIiIlE6g+XKsNFg2JB4j2YJOWr2KGJgYIBVhoiISFS2YbkybDQY
tkqlsh5LyHHQK4EiIhKjt2EtlivDRoNRyOVyr7CEHDXtDyAiIjGaynJkFGgwCoVC4TGWkOPQ09PDKkVE
RCRsp7AcGQUajEK5XD6cJeM42MJAugsgIiIx2JrlyCjQYBQqlcq6LqwHMKS3t5dVjIiISFjs/f81WI6M
Ag1GJZfLPc+ScRy6urp0F0BERKJ0H8uNUaHBqBSLxetYMo6L5gKIiEiE9mW5MSo0GJVKpfJ5lojjonUB
REQkIovh/2e5MSo0GKVcLvciS8ZxKZVKrKJERESC9DDLiVGiwSgVi8WbWSKO09y5c1lliYiIBOUglhOj
RINRqlQqX2VJOE6FQoFVloiISBCWwkdZTowSDUbNlVUB6/X397NKExERadfjLBdGjQajViwW72BJOE4Y
lLBKExERadfhLBdGjQajVqlUvsKScNz6+vpYxYmIiPj1DmzAcmHUaDAO3d3dgywJx8leC5w3bx6rQPHh
ySef9C688ELv8MMP9w477DDvN7/5jTdu3Djv2muv1bwLEekUf2c5MA40GIdSqXQcS8JxU2Jqnw2kjj/+
eG+//fYb0dlnn13bl4F9hohISmzLcmAcaDAOlUplbFdX1zssCcdt1qxZrBKlCZbQ7UqfJXzm17/+tTd+
/HhNwhSRNJoNY1gOjAMNxqVYLE5mCThu2i3QH9tfwW71s0Q/miOPPNKbPHky/VwRkYQ6juW+uNBgXCqV
yv9hCdgFWiGwdXZLnyX3Vpx11lled3c3/XwRkQSxyX8fYbkvLjQYJxcnAw7RbenmFYtFmtD9OOCAA7zr
r79eKzRKIsyZM8d74IEHapNbb7rpJu/OO+/0Hn74Ye0zIrexnBcnGoxTuVw+miVfF2SzWT0KaNJ1111H
k3k7jjrqKO+RRx6h3ycStyeeeML705/+5B100EG0/R599NHe3XffrYFA59qG5bw40WDckGhfZwnYBXZl
SypWGpxyyim0EwzCeeedp3oQZ9gcoXPOOYe2VeZ3v/udJhZ3ni6W6+JGg3ErlUoXsOTripkzZ7IKljqn
nnoq7fyCsv/++3uXX365Vy6X6feLhM0GoRdddBFtn6M5/fTTtcZIZ9mR5bq40WDcKpXKql1dXW+x5OsC
LRA0utNOO412fEGz+QFXXnml19PTQ3+HSNBshdCrrrqq1vZYm2yWDR7Y50vq9MBYluviRoMuwOj6apZ8
XaG9Akb2hz/8gXZ6YTnwwAO9q6++Wss3S2hsct/f/vY37+CDD6Zt0A+94dIR9mY5zgU06IJyubx2JpNZ
zJKvKyqVCqtsAXuHn3V4YbMJWDYBUY9pJCh2t++OO+6oLWHN2lw7brzxRvqdkhrzYDWW41xAg64oFou3
scTrEr0ayNlM5zA6zGYdcsgh3g033ODNnj2b/j6R0djdJEvQYbZjWyKbfbekxiEst7mCBl1RLpfXy2Qy
S1jidYXNANZ8AM7egWadXpQOPfTQ2hoCulsjzbLb8n/5y19qj5VYmwqaXi1OrfmwJsttrqBBlxSLxbtZ
4nWJ1gcY3hVXXEE7vajZWwMXXHBBbUdC9jtFrG3YK6a2HwVrQ2GwO1Xst0gqHMlymkto0CXlcvkDrm4S
VC+fz7MGIGAzplnnFxd7D/uuu+7SyoJSG7jbfJXf//73tK2E7be//S39XZJ4tunPe1lOcwkNuqZUKl3I
kq5rtF/A8O655x7fGwOFxXYpvOaaa7SoUAeyc9Vm9FsCZm0jKrYeAPt9kng7sVzmGhp0DZLrmGw2u7Ax
4bpI76MPz2bm2+I9Ud5ibYb9Hrv1O3XqVPq7JR3sNb57773XO/PMM2k7iIPtEcB+qyTakyyPuYgGXVQu
l/dnCddFWuZzZE8//bR30kkn0Q4xbrZeu71GaJM72W+X5Jk2bZp3ySWXBPr+fhDsURT7vZJ4m7Ec5iIa
dFV3d3eVJVzX2EqBdrVBGoYsZ89eb7/99tokKNY5uuDYY4+tvUpokzzZMYi7hm7x24CO1W3cbFLqY489
Rn+7JNotLHe5igZdValUtrbkypKua/R6YHPskYnf9dSjdMIJJ9TeCddkT3fZQG3ChAmh70PRLhv06nFT
Kr0Fn2a5y1U06LJCoYD8ypOua/R6YPNsK9XjjjuOdpiuOfHEE2uJRpMH42WLTVm7GT9+vHfMMcfQunLN
uHHj9Hgpvc5jOctlNOiySqWyfhJeCxyiK8bmWYd+8803D7ufuovsMYGtdfDggw9q+eEI2MqO9tqe3TWy
RZ5YnbjIrvptYSw9GkytubAOy1kuo0HXlUqlk1iydZVeD2yNbfF72WWX1Z6Tss7UVfY2gU1utFcLH330
UXX2AbAyfPzxx2vP8232frs78EVtaJMqDQ5T779YrnIdDSZBd3f3HJZsXaXXA1tXKBS8iy++2LnXBptl
AxjbFtkmEtpMdM0JGZ0t2WxX+LZ4lA2mklr39rvtzQMbzLLjlFT5G8tRSUCDSYCO4ouZTGYpS7au0uuB
/tjWy3/6059oR5skdjVoSe3SSy/1/v73v9cGBZ3cJmwlRjsv7rzzztot/aOOOoqWW9LYmhJ6c6RjvAAf
ZjkqCWgwKUql0hWNSdZl9gaDdg/0r6uryzv//PNpp5tkNjHsD3/4g/fXv/7Ve+CBB2qb0aRp8qglemv7
tgiPrbFgx2qv5yX16n44drfnH//4By0DSa09WW5KChpMElwdvsCSrausI9QWte2xcjz33HNpJ5wWNhHS
1qf/4x//WLsdfsstt3j33Xdf7a6BPRpxaR8DG6zYIy6rl0ceeaS2z4IlersSTmOib3TyySfXjpuVjaTa
AywnJQkNJkmlUtkyKWsDDLHfq8cB7bOrLZeWdY2a7a1gq8nZYMiWWLaJcrfddps3ceLE2tW2vZlgkxFt
0PDMM8/Ubkvb4MGStQ1C7a0LY3elbO97m6xqdx/sNTUrW3vFzv68fY4NPu64447aXQp7hHHOOefUXoc8
4ogjUp/gh2N3MqxsWduU1HsNNmI5KUloMGmKxeL1LNG6TjODg2GdsD0a6NREJNGxeRz2hooNlFhblI6x
H8tFSUODSYQTcpAlWdf19vayxiU+2BXstddeW9vlj3XeIn5Zm7r++ut1voq5jeWgJKLBJKpUKhtlMpnF
LMm6Tq8IBsuej9v2w65uOCTJYSsM2qMPrekgy82DD7IclEQ0mFTlcvlQlmCTwN5/bmhoEoCnnnrKu/DC
CxO3qJDEy+aW2NwHLeUtdRbDd1juSSoaTLJCoTCVJdgk0IqB4bG7LLYgj01aYx2+iF3t24ZPOg9lGCez
nJNkNJhk5XL5vdls9lWWYJNAG8yEy2a933///d5ZZ52lSYPiHXzwwbW3Gp588knaXkSWewJWYTknyWgw
6TAI2GLGjBmJWiWwnr2qpVuP4bNX32wVujPOOEODgQ5idW23+O1VST3blya8BBuyXJN0NJgGpVLpOJZc
k8J2EdQgIDr2iOD22293fi958c92btQtfmnRO/B9lmPSgAbTolgs3sCSa1KkbUnYpLANXGxBHVvhjSUS
SQa70rcB3YQJE/Tevvi1D8staUGDaYIr6WdYck0K2wjHnluThikRsDkZlkD0SmEy2BLKtiiUvQZqj3hY
nYo06SyWU9KEBtOkUCisktRFgobYJjh6Vhk/Syi2Va0tu2szxlkCkujZmx1WJ7Yev0t7JEii3QJjWE5J
ExpMm3K5vF42m13EkmtS2P4BWjrYLfaowK40//znP3tHHnkkTU4SPFuVz/Y/uPnmm2t7HLC6EWnDU7Am
yyVpQ4NphM56Y1xJv8OSa5LYBCbNC3CTPWe2VeNsBz8tRxwcu9tyySWX1HYZtEdirOxFAtIPid3fv1U0
mFYYBPxPkl8PHGKd4Lx581jjFYfYXRtLWldeeWVtr/hDDjmEJjh51wEHHOCdcsop3jXXXOM99NBDWntf
ovQyfJHljrSiwTTDFfSxLKkmjW3Zalu6NjRgcZxNKrTEZlv32mQ12y+fJcK0sxn6dmV/3nnn1bYYtu2G
bcCkga3E5G34HssZaUaDaYdO+K8sqSaRNhJKPtuP3/YssMcHNpnNFiay5Ghbz7LkmST1if666677V6LX
ZD1xzK9Yrkg7GuwE+Xz+aZZQk0grB6aXTfy0uz02w33ixIm1LWntebgtZXzcccfVlrJliTcKNs/hhBNO
qP2Wiy++uLYV89///nfvgQceqC2ta+1SiV4S4EyWIzoBDXaCNLweWC+bzaqz7VD2KMgmIFo7sDsJU6dO
9R5++OHaK4v2loLdWbjllltqq+DZVfhVV11Vu9Ngby+Yyy67rDZPwZ6724ZJNrveFkKyZZInTZpU+xz7
PPvcp59+ujYRVbfqJSUmQOpf9xsODXaKcrn8oaS/HlhPrwqKiDTtSViD5YZOQYOdJC2vB9az99MbGrqI
iLxrNnTM637DocFOg4T540wms5gl06SyW8JaQlhEZCVV+CzLBZ2GBjsRBgFbpu1OgF4VFBF516xZs57t
6en5BssBnYgGOxUGAf+JQcBbLJkmmb17rrsBItKpbNIq+sGXYAvW93cqGuxkGAR8IZvNvs4SaZLZ3QCM
funJISKSVraJFy7s3igUCl9nfX4no8FOh0HAhhgEvMoSadLZu9l6hUtE0s5ei7a5ULj4eTOfz/8f1td3
OhoU7z2VSuXDuVzuRZZEk85eF9Re6SKSVrZCqvVzuPJ/HYOAz7M+XjQAGFG5XP4AGs8/WRJNAxsda/Eg
EUkL689sszTr35D8F+KfP8X6dlmGBuVdGASsiUQ5pzF5poWNkrWfgIgkmS2FXqlU/tWvIfm/Av/G+nR5
Fw3KitCwVs3n8+X6xJk2NmqeM2cOPblERFxl/ZYthT7UlyHxL8hkMh9hfbmsiAZlZWhYYwqFwoyhRpZW
5XJZGwuJiPOsn7L+qr7/wkCgH39/H+vDZWU0KMPDIOCR+gaXRhhB17aoZSediEjcrH+qv+o33d3d+Nv0
VVi/LRwNysiKxeLE+oaXVrbrmxYQEhFXWH9k/VJjX4U++S7WV8vIaFBGhwb318ZGmEa2gFBvb68eC4hI
bIYm+dmk5fr+yf69XC5fxvpoGR0NSnPQ8A5HglxS3yDTyh4LaO0AEYmSJX67ALELkcY+yfpeDAoOYn2z
NIcGpXlogJvkcrlUrhrI2HM3LSksImFbvoQv7YcQf71UKn2L9cnSPBqU1mAQsFY+n7cZKLSxppG9Nqid
BkUkaHaB0TjBrx7+WxX9T8fv5R8EGhR/MCK9pPEZVdph4KP1A0SkbTaz31YnZf3MECT+yfj76qz/ldbR
oPhXLpd/1tXV9XZjw00722RIywqLSKvsAsIuJFi/MgQXVkswOPgt63PFPxqU9lQqlY+jsaZ2D4GR2Cs6
2m1QREazfI9+2o/UwwXVq+hPtZVvCGhQ2odBwFg07vtYg0675a/maA0BEVmJ9QvWPzTzuDSXy3VlMpl1
WB8r7aNBCQ4a+rhOeVWwkZ3gGAhpDQERqfUDQ9v0sv6iHv6fpfl8/gLWp0pwaFCChST49Ww2u5A19E5g
7/Daia87AiKdx271N3vFb7q6ut4sFAr/xfpSCRYNSvAwCFgHI9o8a/CdwjoAmyOgtwZE0s9m9dvkYNYX
DCeXy/V3d3evz/pQCR4NSniQAC9rdiScZva6jxYUEkkXu80/c+bM2joh7LwfjvWJGCzcgH8ew/pNCQcN
SrjsVcFsNvta40nQiWylLz0eEEk2O3/tPGZL9o7G+sJKpfJT1ldKuGhQwocGv3qxWLxHdwOWGXo8oLUE
RJLDHufZq3x++zFc9U/GBdF7WR8p4aNBiQ4GAt/L5XIvsZOjU+nxgIjb7Py085Sdv83o6upahIHDT1if
KNGhQYkWBgG2ZsB1GEUvZSdLp7LHA9qKWMQNQzvz2XnJztdmYeBwLz5jDdYXSrRoUOKBgcBXcXI8y06a
TqbHAyLxsfOuldf4hoOkvzCfz2/H+j6JBw1KvJDs/tCpiweNxtYMt9uPuisgEh6b1Gfb8dr5xs7DVuVy
uXvx97VYfyfxoUGJX6VS+RROvt7GE0mWsasRm3ykwYBIMIZe4bN399u92h+Cq/4XkPy3ZX2cxI8GxR3l
cvkonETvsJNLlhkaDMyePZt2bCLCWdK3QXQ7M/kZfNYSXMBchH9ehfVr4gYaFLdUKpX1MCqf0XiSycrs
PWSbL2CrkLEOT0QGa4PloJP+kO7u7iKS/4asLxO30KC4qVwu/zKbzb7BTjpZmQ0GbPKSBgMiy5bmtcGx
n8V6mmF9Ez5/H9Z3iZtoUNxVqVTWKhQKD4Uxck8ze3XJBgPah0A6ibV3a/fW/tl5EQQMKJYi8d89c+ZM
vdqXMDQo7sNA4Ov5fL7CTkgZmXWGKD8NBiSV7LU9a99hJv0hNlG5p6fnK6yPEvfRoCQHRvc/7O7uHmAn
p4wum83WOkt7Jqq3CSSJ7JU9m8hnV/rWnlk7Dxq+5/lisbgT65MkOWhQkgcn/265XG4BO1mlOfZYxZY3
tU1NNG9AXGUDVRuw2sC11V332tXV1bWwUCgczvogSR4alOTCQOBwjM4XspNXWmMDgnw+X1v+VI8LJE42
ILWBqQ1Q45j/k8lk3kLiPwv/PJb1O5JMNCjJVyqVzsJA4M3GE1n8s9nTtkiKrZCmZYklTDbgtIGnDUDj
nPCLNr8Yv2E8/lk79qUQDUo6VCqV1TEQuLJLCwmFwgYE9i61DQjmzZtHO3KRZtiA0tqRDTCtXbH2FiUM
OpZ2d3dPxEXEB1nfIulAg5IuGAi8H4nqdnQs2l8gRDbr2t6ztuVUNSCQkVjCt3ZiA8goZuu3Aon/8Vwu
9wnWl0i60KCkEwYCG+AKY4qN7tmJL8GyKzl7Zmuzs62zt9u6etOgs1h92/N7u51vg0ObtBfnLf3h2G9C
W50OG7O+Q9KJBiXdMBD4LAYCOOe1mFAc7FUtu/KzSV02m1t3C9LB6tFex7PZ+XYr37Ure8b6APzWZzA4
+RLrKyTdaFA6Azqqr+PkfwpXqrojEDPdLUgOqxerH3tmb1f1Vm9JG0zbOY9B6GNoa19kfYN0BhqUzoKB
wIfQGVyHK1PtM+AYdrdAA4NoWDnbs3ordyt/qwerD1ZPSYHE/zaO40Y751lfIJ2FBqVz2ToCuKJ5lnUe
4g67Y2DPk+1Ws12FWoKyOwf2vNmSlgYJI6tP7nYlb+Vn5Wiv3VmSt/Jl5Z5UXV1dr6KtnIl/XpWd99KZ
aFAEVwibo8N42m4VNnYmkgyWxCyZWVKz5GbPpi3ZWdKz5GdLyLLkmHR2XHaLfii523Hb1ftQcu+kuS84
3gEMFPfFP49h57l0NhoUGYLOcz10ntejI9GiQilkydCSoj3HtrsJlihtsGBzESxx2pWxsVnslkztLoNN
dLPkancbLNEaG1DY4wlLvs3efbD/z/5/+3P25+1z7DPts+07jH2ffa99v/0O+0322+w32m819rvt99uk
O01srdXpEpTHFNTrJuycFhlCgyIMOt5x6Fj+yTodEcYSst2JsORsf1eCDg/K+OV8Pn8+/nltdv6KNKJB
kZHgKmxLXHVNR2euxwMiMbJzEIPyIs7Hn7NzVWQkNCjSDAwEPlwsFm/ElYceD4hECOecbc5zG86/j7Nz
U6QZNCjSKns8kM/n+3RXQCQcy6/2Z5dKpaPx75rUJ22jQRG/KpXKOuigTsVgoF+DAZH25XK5Z3Gl/0dc
8f9/7JwT8YsGRYKAwcCHMBg4F1ctAxgM0M5NRFaWzWZfxCD6apw7n2TnlkgQaFAkaBgMrI/BwEX2FoEG
AyIry2Qyi3B+3IYr/q+wc0gkaDQoEiYMBj6OwcAV6OyeZx2hSKdA0n8LCf8BXPF/j50rImGiQZGoYDDw
mWKxeB06wRdZBymSNl1dXYvy+fy9aPM/xL+PZeeFSBRoUCQOGAx8GYOBm9ExvtLYaYokGdr0S2jbt8I3
WNsXiQMNisQNg4GvlkqlK3GlNCuTySxmnaqIq2YsW463H2340r6+vs+zNi4SNxoUcU25XP4hrp5uRKc6
gAGBXi8U53R1db2K9vlQoVDYA/+uXffEeTQo4rJKpTIWA4KdMCC4Ex3uc1pvQOKAhP8a2t9TcCza4EdZ
WxVxGQ2KJAkGBGtgQPBrXHk9aJMJ9ZqhhCGTybyBZD8jn8+fguSv9/Ml8WhQJMkwIFjXlibGgOCJbDa7
kHXmIqOxV/SQ8JHv8+eiHX2OtTWRJKNBkTTBgOBjpVLpVAwIZtgbBnpkII2sTaBtvIw2Mr1YLJ6NpL8x
a0siaUKDImlXLpe3wKDgdHT4D+Eqr9rV1fU2SwySPpbscUW/AEn+SST7P6IdfA9xvY8vHYcGRToRBgXr
wz5ICtcjORSQJF7V3YJkQ/0tweDuOVzdP4qB3umo028hrhn6IkCDIrIMksUYDAq2xFXiWYVCYQqSyCAS
yjv1SUbiZ2tF2FU96mc6Bm/j8fe9Ed8IdGUvMgwaFJGRYUDwUdjf1iZAwiniCvN5DAze1B2DcKGMbWLe
cxiMdaHsr0Md2NsfG7I6EpGR0aCI+IfE9GEkpm3hSPzz5UhQ92OQkEfi+ieuUl/D1eoSltw6HQZPi5Hg
X8Fgag7K6h8oslvgTNgd5bYx/p81WHmLiD80KCLhwuBgrXK5/C3YH/98PgYKd2CgMB2Jb569qZCWxwxI
6rXb8zie15DEn8exzQRbPGcCEvsZ+Puu+O9fxv/7PlZOIhIeGhSR+NmKh/B52BwDhe1gNzgQjsag4TS4
EK7C4OEmmIgBxIMwDTJIrkWYiQQ7APORdF+EV5GEX7fb6LDY7kTAUkvQ8A5ib4L994X4/16GBfC/UMWf
7YdeKEAGnsTnPgC34nuuwHeeg99gv+tX9lt7enq+MXv27H8bHBwcw45NROJHgyIiIpJuNCgiIiLpRoMi
IiKSbjQoIiIi6UaDIiIikm40KCIiIulGgyIiIpJuNCgiIiLpRoMiIiKSbjQoIiIi6UaDIiIikm40KCIi
IulGgyIiIpJuNCgiIiLpRoMiIiKSbjQoIiIi6UaDIiIikm40KCIiIulGgyIiIpJuNCgiIiLpRoMiIiKS
bjQoIiIi6UaDIiIikm40KCIiIulGgyIiIpJuNCgiIiLpRoMiIiKSbjQoIiIi6UaDIiIikmbee/4fFi8j
zX+PctYAAAAASUVORK5CYII=
</value>
</data>
<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>

53
RPST GUI/RPST/AboutBox.vb Normal file
View File

@@ -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

View File

@@ -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

View File

@@ -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

89
RPST GUI/RPST/DeveloperBox.Designer.vb generated Normal file
View File

@@ -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

View File

@@ -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">

View File

@@ -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

311
RPST GUI/RPST/FormMain.Designer.vb generated Normal file
View File

@@ -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

View File

@@ -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">
@@ -57,11 +117,276 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>243, 22</value>
</metadata>
<metadata name="ContextMenuStripRightClick.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>38, 22</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="JSONToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripMenuItemDarkMode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAADvXSURBVHhe7Z0J
eFxV3f9vZlJ22WRRQERcAVEgkrY0KZO0FJJMOjNtbgoqiPq+BVFE/uJbUcG6VwSkCr70RQRBQEJn0lJA
2ZW1ZNKKrCqLgKigiKxtaWbm/M+dnmI6c5Jmmcyce87n8zyfJ+jDkqRzft/vnbn3HA8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAQ8pnIhbl0dOVYLFxQd23+7Gj/WBRneYeobwEAAACqTS4T
vVOWADEmL4g8mz9bfh2D4lzvcPUtAAAAQLUZTwEoXBB5RRfuI5ECAAAAUEPGVQDOj+R14T4SKQAAAAA1
ZFwfAZwv1YT7SKQAAAAA1BAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAA
DkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAK
AAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAA
AByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAg
FAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAA
AAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADA
QSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIB
AAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQXLLoyvzK2QoXy/9lfRG6S3S
26S/kf5Weof0TuXdynukaelVyiulVygvl14mvVT6M+lF0gulP5H+WHqeLAA/9GaqbwFgTLT7/tvaE/6B
8WRXrD3ZPbcj6X+mPdn1tY5k9w/jSf8y+bVH/n/XS29WZqX90vs7Ev6j6q8D75Fu/Huu70h0/0L+sz+S
f883OpJdX4gnuo6LJ7o72+bMmzJ79tF7LFy4MKK+BQAAcxEPe1uIVd6HcvdFU/ls5FTpjwrZumvl1wel
r0rFmL1WqntnYGTmpc/kMtE75NefyzKxMNcbPV5kvMOlu6lvHxwmdvzxW3XOmXdIPOF3yVA+TQbx+cWA
TvoPS9dIRY1cL/2z9A5ZEC6X5eO7HanuT8jv9dDZs2e/RX37AADVQzzg7ST6vaZ8X+QUGdCX5bPRfvl1
7SahXUmDdw704V4JX5Tl4C75dXG+NzpfloImscLbRv2oYBlHJY/eJ7jKlkH/FRmqV8twfUQ6INUFsNG2
J/1n5Neb5NfzisWgc+4Bvu9H1Y8KADA+xGPelqLPO0yG/Wnyin6Z/Pq8NqQn0uBjA314T5QDud5oVn49
T5YDXyz39lC/DggRMgy3bp/dPb0Y9gn/OhmWLw4OUEt9tSPl/1aWgnM6Ul1HJxJHv0P9OgAAhkfc422d
y0bbZPAukl/vlF8n7sp+pFa/AOj8s/Ry6Yki7e2rfl1gEDLwt2tPdSVk8J0bT/j3yjAM3kLXhaRrPtaR
6Pq/9oT/0SPnzHm7+nUBAMjQz3r75rPR+YVspEcG7itlAVxrzSgApT6RT0eWFN8h6PG2U79KqDLB297F
z+2T/q0y6N4oCT7U+0jwsUE82TWjYf78SepXCQAuIAMrOrCqvlWG64+lj28StiZqZgEY7OuF3rrr872R
z4jl3u7q1wwTQBBYbcmuNhliS6RPDwo1HJsvBfdCxFNdHzvS93dWv2YAsAkhvIi6cW+xDNW/lYWsyZpf
AAabL95U2Bs5hTJQGYIb29pT/hHxVPdFMrD+VRJgWDlz0pviia5PzvT9HdSvHwDCiljlTcn3R86TQfrX
smANi+EqAIMdKPTW/VoWgk+JG7zt1R8JjIy6zpR/eHui639lKP1jUEhhNUz4a+XXdLDvQfCYpPozAQDT
kVf6OwSf6cvgv18bqGEzvAVgsGsLmUjPQLp+phBenfqjghJmzz5m945E9wIZPo9tEkhYM2e2z/7N5KaW
CyY3z/iQ+mMCANOQV/sNMjCXSF/fJEDDrh0FYLCPSheIFd4u6o/OaYId72Toz1Q76nHnvkHK8H9Uhr8Y
ZL90fkNDJ3tlANQa8XtvWxmSn5P+YZPQtEn7CsBG10p/LjLeh9Ufp1MEnzO3p/wvyaAJdrvTBhDWzhlt
nc+VhP9gX5Iu+chhsQ+qP04AqBYy+HeT4bhQ+sImYWmj9haANw1uHMwti3a68PFA8Cx6PNm9UIbMv0tD
B81wxlGdr5YE/lAWpNdNboo1qT9eAJgoxErvvepO/jVlQWmrDhSAQf6x+ATBJZ51N161J/2DNhyew9v8
Jtt6ZHygJORH6l1Tmlo75R8197gAVBJxn/fhQrZuuQzEQllA2q5bBWCjz0o/K3q8LdRLILTEU/5UGSzB
CXjawEFzbD2qI7ii14X7KGx9oLGp5bhYLFavXgIAMBbEKm8/GYKXSfObhKJLulkANvpM8R2BG7wt1Usi
NARH6Kob+wqlQYPm2XpkpybMx64sAY9Pbo593PM41hhgVIh7vX1k+AV39Oc2CUMXdbsAbPSp4mmFt3vG
X1UVt+cl+ENlpcO/xIcbm1p99fIAgKFQN/cFwT+wSQi6LAVgsI/mMtG4erkYRXDyXDzpXyEDJV8aMGiu
rUfFdaFdcRubWu7mZkEADaLfm6TO13+pLABdlwJQZiFTd4tY5h2oXj41pbOzcxu1ec+rpeGCZjvBV/46
C5ObWq9pbJrxPvXyAXCbgWz9zHx/5GFt+CEFYGgHghMJRY+3q3opVZ14ortTBgnP8YfQGoT/YNdLF8di
MU7SrCTiRm9b0evto/4nGExwg18hW3ejNvTwP1IANucLsgicJBZ6VbvZqnPOvENkiNxdGioYDqv1tv8I
fJb7AyqIHATfkgPhDelisdx7i/q/wSCKb/f3RxbIcFtXFnZYLgVgZPZGVou0d4h6mU0Ivu9v3ZHqWiRD
JDg5ThsuaLY1vvLXOqWpdcWUWIwL1/EglnnvkIPg9UFD4a/FO4ereGUAwyOy3sEy1FaVhRwOLQVgNK6X
LpqIxwbbZ3dPjyf9P+hCBcOhieE/yNcnN7V+uaGhYZJ6ycFoCE4bKxkGRXO90awsB4epvw1qgLzq30aG
2SIpj/WNVgrA6E1HHhtI17eol9+4SCaTO8rwWCLlsb4Qa3j4D7L1gUMPix2kXn4wEkTamyYXfqFsEPzH
QlAQRI+3t/pHoEoMrKpvlUH2VFmw4cikAIzVvCwCP5Zrfmv1Uhw17amuhAyP50rDBMOlQZ/5j9S1U5pi
C3zfj6qXIgxF8BZ/PhPt1wwAna/LobDQxr3GTSPYtEUGWHBgD1f945ECMF4fFUu9g9XLckQEn/XHE12L
ZXhw1R9yw3Plr7E5ds/k6dPfq16WoEMG+gmaRb85n8llosepfwVUGNHvfUCGF5/1V0IKQCVcXyz+I7gf
aMMWvv4DpUGC4TPU4f8fX5/cFDtFvjQ5ZKgUcYO3vVzcfy9Z7CM2l6m73dXzyCeKXDZ6nAyu18qCDMcm
BaBiFjcQ6vH2VC/VUuriSf8UGRxvlAYJhk9Lwn+Qrb0HxWI7qtcqBMhFfU7pIh+D+Xxv5DJZBHZT/1oY
A/Kqf4dCtq5XG2I4dikAlfafud5om3rZFpmVSu0mw/9WXZBg+AzhZ/4j9ampza2N6mXrNmK59x65mNeV
LO7x+G/pAhuOIK026i3/R8rCC8cvBWAiDG4YXhR8JCADo0H61OAAwfBq35X/pjY2taxTHwm4TaG37vqS
RV0p/5hLRzvUfwY2Q64vOk8GFW/5T5QUgAkz863339+R8NfqggTDp+3hv4nTWi//0KxZ26ox7BYDmfoj
dAu6ksqCcbNY6h2g/pNQgujxojKggmf7C5sEFlZWCkDFXXdNvVj8pUO1IYLh1Knwf9PWB6ZOjb1HjWQ3
KD5elok8VLqoJ8hgZ7HFMux2UP95kIj7vLfmsnW3awMLKysFoKI+/4ttxRc+PVMbIhhOLf7MfyT+a0pT
LKZGs/3IRXxq6aKugi/keyOnBFe96ttwFpH19pXB9IeyoMKJkQJQMZ+4eCfxiY91aEMEw6mbV/5lvtHY
1GL/Y+0ygHeWC/lfpQu7am44cGS6+nacQ6zypuT7Is9rgwonRgpARVx1wduE353UhgiGU8K/zMWet9De
s2/kQr6wdGHXwkKmboW41nuX+racIJeNzpWBtKYsoHBipQCM219/f1+RSM3VhgiGU8J/KFuvmTp16pi3
vzaW4IY8uZgHShd3DV0jXeTCscPyqv8UGUb5snDCiZcCMGZz6Yj4xdc/qA0QDK+E//A2NrXcPXXqkTur
8W0Hwa59ukVugM8G2woLYd9WjcHPlO+PnKcNJqyOFIAxuX5pVJz9/yZrAwTDq+M3/I3C1kemTTtiDzXK
w00uHe3SLXKTlCWgT2S8qepbDj0y/CPyyv8ibShh9aQAjNo3ltaL75xymDZAMLxy5T9qnzy0aea+aqSH
k+Dkvnw68qRuoRtoobitcI/3NvXth5LiM/59kUu1gYTVlQIwKoNn/L95cpM2QDC8Ev5jc0pTy9OhPlFQ
BurXdAvdaNOR18J67LB42NuikK1bqg0jrL4UgBH7+tVbiK985nBtgGB4JfzH7XOTm2d8SI348CCvRPeU
C/vV0oUeIh/PZaK++nGMR9zjbS3D/1faIMLaSAEYka9cvaU4bX6rNkAwvPKZf4VsbnlBfm1Qoz4cyIV9
eelCD6OFTN2tYqlndAMT/d6kQl/dCm0IYe2kAGzWNT2TxIITYtoAwfDKlX/F/ffU6dMPViPfbETamyIX
d3Bql3bRh9ANxw73eLuqH9EYip/5ZyO/LAsfrL0UgGENbvg746Tp2gDB8Er4T5jPT50a+4Aa/WYSPH6W
S0dX6ha8Bb4oNebY4eKjftnIT8uCB82QAjCkb6TrxUJu+LNOwn/C/cuUWGwfFQHmkctEP6Fb8Jb5h9zS
aLv6kWtCMfz7Ij/RBg+aIQVA60A6KhZ9Yao2QDC8Ev5VsrnlsYbm5rerKDALWQDu0C16Gy1k6paJ5V5N
jnTM90d+oA0dNEcKQJnBDn/nntaoDRAMr9zwV12nNLU82Ng4460qDsxBLPEmBafvycX+cunit9QNxw7f
4G2vfgUTjgyXE8rCBs2TAlDmZWceqA0QDK9c+dfMlcaeHSDS3tvz6cgSuehzpUPAUv8ZFJ/gpjz1K5gQ
cv3RDhkuubKwQfOkAGziTWe9SxsgGF4J/xo7rWWp0acIil6vIZeJ3qkbCJa6SizzmtWPX1HEKq9BBstr
ZUGDZkoBeNP7f7KbSMzhVD+bJPwNsbnluyoizKT4ZEAm6stB8FTpYLDV4rHDvV7F7tYU93r7yFD5e1nI
oLlSAIr++Wc7im7O87dKwt8sG6fFTlBRYS5ihbeNHAgLpGHeIXA0vi5dJHq87dSvYEyIfm8HGSgPlQUM
mi0FQLxw5Tbikx/r0IYIhlNu+DPS9Yc2t8xQkWE2Iu3tFWysIweETZsFDeeYjx0O/plCf11GGzBoto4X
gOBZ//85oUUbIhhOufI32heN3yhoMGKZN9niTYPKlCXgvmCXRPXjjwgZJAvLggXDoeMF4CcLDtGGCIZT
wj8U/nHy5LaqPZE2bsRCLxJcHcuB8VzpALHUDdsKL/d2V7+CIRnI1h8hg4Q7/sOqwwXgtnPeqQ0RDKeE
f3hsbGq5WkVIeAg+Jw+O4ZXDY13pMLHSjccO3+BtqX4Fm6Bu+nuhLFQwPDpaAB6/eGcxp2uONkgwfBL+
4XNKc+vJKkrChVjqvbeQifToBouVpiOPBU9IqB+/SHC0rwyQVWWBguHSwQLw8lVbiU9/vF0bJBg+Cf/Q
un5Kc8s0FSnhY6C3foYcKA+WDhhbLWTqbhEZ74PBzy7D42dlYYLh07ECEGzzu/BzzdogwfDJ3f6h95mG
WGyXYqCGEXG7V5/vjc6Xw+WfpcPGUgdyN0Vv0oYJhk/HCsC133uvNkgwfHLlb4uxG4zeKXAkiB5vZzlg
Fkvt3lZ4ufQ+qS5MMHw6VACeumRHPve3RMLfLhubW05VURpuRMbbr9Bb92vdAAq9vdI7pbogwXDqSAFY
d029OPlTR2jDBMMl4W+fjU0t6z5yWKz48bIV5JZFO+XgeaJ0EIXaW6S6EMHw6kgBuOgrB2nDBMMl4W+1
qxoaGiapCA0/osfbwppjh6+T9kl1IYLh1YEC8LsLdhfxZJc2UDA8csOf/TY2xb6u4tMexHJvD3XscL50
OIXGu6W6AMFwa3kBWNMziUf+LJArf2ccmNrc2qii0y7EUu8juUz0Lt2gMlre+rdXywvAktMP1gYKhkfC
3zkfnTp16tYqNu3izWOHeyNP6waWcV4r5a1/e7W4APzhol1EZ4q3/sMs4e+qse+pyLST4rHDG7YVXls6
uIySu/7t1tICsH5pVHyeu/5DLeHvtG9MmT59PxWX9iKWee9Qxw5rB1lNvUmqCw20R0sLwJULD9CGCoZD
wh8nT2v5rYzIUR9PH0oGer2YHFz3lw6ymsmGP25oYQF45tIdRHLuXG2woPlytz9udMq02MdURNrPoGOH
ny8dalX3N1JdYKBdWlgAzvwse/2HVa78scTnDorFdlQR6Qai19tRDrJF0jcGD7aqyTP/7mhZAVh9wdu0
wYLmS/ijzinNsR+raHQLkfHeV8jUrdANugn1LqkuLNA+LSoAwY1/Jx0/SxsuaLaEPw5jbkpz6yEqFt1j
IF0/Uw64h0oH3oR4o1QXFGinFhWAZd95nzZc0GwJfxyBt6s4dBOxxJukthV+qXTwVczgsJ97pbqgQDu1
pAC89MutxNHzEtqAQXMl/HHEHtY6S8Whu4iMt5sceP8nrfy2wrdKdSGB9mpJAfjfLx+iDRg0V+72x1F6
v+ctjKgodBux1Ds4l4n+VjcMx+QyKY/9uacFBeC5y7fjsb+QyZU/jsXGppaPqgiEgOKxw+nIk7rBOCq5
+ndTCwrA4i99RBsyaKaEP47ZaS1/bmtr21LFHwSIHm9rOQgXSF8ZPBhHbHD1z2N/bhryAvC3y94iEnO4
+g+LhD+O39gpKvpgMMVjhzdsK1woHZTDytW/u4a8AJz9xcnaoEHzJPyxQj7f0NC5jYo9KEWkvUNzmeg9
uoFZZrDlL1f/7hriAhBs+Tt7Dqf9hUHCHyvplObWk1XcgQ517HCwrfDfSwfnJt4m1QUDumGIC8D3T52i
DRs0S+72xwnwmQMO8LdQcQdDIW70th3y2GE++8eQFoDgs3+u/s2XK3+cKBubWo5TMQebQ3vs8C1SXSig
O4a0AFx4+sHawEFzJPxxgn2UfQFGyUC6vkUO0N8Xd/1bKdWFArpjCAvAy1dtJeZ2pbShg2ZI+GNVbG5J
qGiDkVI8dvg30Yu1gYBuGcICcPU399OGDpoh4Y9V9D4VazBSghsE5fB/qCwM0D1DVgDeSNeLT3w0rg0e
rL2EP1bfWJOKNhgJuWy0TRsG6J4hKwC3/GAfbfBg7eVuf6yJ01ovV9EGI6GQrbtOGwboniErAKf+1wxt
+GBt5cofa2VjU8u6ww6btZuKNxgOsdLbSw7+XFkQoJuGqAA8cfFO2vDB2kr4Y61tbG75koo4GA459L9e
FgLoriEqAD/hyF/jJPzRBBubWh7nkcDNIIQXkUP/qbIQQHcNSQFYe80kMW9eQhtCWBsJfzTKaTOOUFEH
Orj5D8sMSQHg5j+zJPzRQNMq6kBHob8uow0BdNeQFIAvzW/RBhFWX8IfTXR665EPzp59zO4q7mAwYrW3
qxz468sCAN02BAXgLz/fXhtEWH151A9NtLnlyBfbE/7aeNL/nIo8GEy+P3KiNgDQbUNQAK5ceIA2jLC6
cuWPJtrcOmtAhv869Tq9W0UeDKaQrbtNGwDotiEoACcdP6ssjLC6Ev5oojL8RXvSXz/otVro7PTfpWIP
AkSf9zY57Hn2H8s1vAA8fekOmwQRVl/CH020GP6JroHS12s82XW6ij4IkIP+c2WDHzHQ8AJw+Zkf3GRx
Y3Ul/NFE1ZV/XvealT6sog8Ccn3RO7TDH9HwAnDiJ47ULXCsgoQ/mmgQ/h2JroLuNbvRzrlzP6Diz23E
Pd6ectDnywY/YqDBBYCtf2snd/ujiaq3/bWv2cG2p3y2Bg6QQ/6EsqGPuFGDC8CVC/fXLm6cWLnyRxMd
afgr71AR6DaFbN0y7eBHDDS4AJw2v1W3sHECJfzRREcZ/oG5zs5jdlEx6CbiYW8LOeRfKRv6iBs1tAC8
fNVWYvacUS14HKeEP5roGMK/aHvSP1ZFoZsMrKpv1Q59xI0aWgB+e+7e2kWNEyPhjyY61vDfYHePikI3
yfdHfqAd+ogbNbQAnPPFRs2CxomQ8EcTDcK/Y8zhX/Tfvu9HVRy6hxzwD5UNfMTBGlgAcumIOPaYTt2C
xgpL+KOJju/KfxMbVBy6hVjp7aUd+IiDNbAAPPbTnXULGSss4Y8mWsHwl3Z9UUWiW+Sy0WO0Ax9xsAYW
gGXffZ9mIWMlJfzRRCsb/tKEf52KRLeQw/38smGPWKqBBeB7X5iqX8xYEQl/NNGKh/8GX4nFYvUqFt0h
3x+5XzvwEQdrYAH4xEfjuoWMFZDwRxOdoPAvGk/6jSoW3UCs9LaXw53T/3DzGlYA/nbZW7SLGMcv4Y8m
GoT/OO/2H95E92kqGt1goL9+lnbYI5ZqWAG47Zx36hcxjkvCH010Iq/8/2PX1Soa3SDfH/mGdtgjlmpY
ATh/QYNmAeN4JPzRRKsT/kWfVNHoBoVs3Y3aYY9YqmEF4POfOkK3gHGMEv5oolUM/6Jtvr+rikf7kYP9
ubJBj6jToAKwfmlUJOfO1S5gHL2EP5potcM/sD3lH6Xi0W7Eam9X7aBH1GlQAXjyZztpFy+OXsIfTbQW
4b/B7jNURNrNQLb+CO2gR9RpUAHgBsDKSPijiQbhP6F3+w9je9LvVRFpN/n+yBe1gx5Rp0EF4JKvfUi7
eHHkEv5oorW78n/TP6qItJt8X+RS7aBH1GlQATjzs826hYsjlPBHEzUg/AMH2tratlQxaS9yqK8uG/KI
Q2lQAWAHwLFL+KOJGhL+RTs75x6gYtJOhPAicqivLRvyiENpSAF45eottYsWNy/hjyZqUvgHxhN+l4pK
OxH3eHtqhzziUBpSADgCeGwS/miipoX/Bi1/EkD0e03aIY84lIYUgLvP20uzYHE4CX800SD8a3W3/3DG
k/4VKirtJJeNHqsd8ohDaUgByHz7/dpFi3oJfzRRM6/83/RuFZV2ku+PnKEd8ohDaUgB+N8vH6JbsKiR
8EcTNTz8g70AnlFRaSdyoF9cNuARh9OQArDw5CbtosVNJfzRRE0Pf2UuFovVq7i0j0K27jbtkEccSkMK
wEnHz9ItWBwk4Y8mGpLwL9rZ6e+t4tI+5EB/vGzAIw6nIQXA705qFyxukPBHEw1T+Ae2zemepuLSPuRA
f7VswCMOpwEFYO3SSdrFihsk/NFEwxb+RVNdR6u4tAvxmLeldsAjDqcBBeD5X2yrX6xI+KORhjL8i3Z9
QUWmXYjV3h7aAY84nAYUgMcvZhMgnYQ/mmh4w1+a8L+hItMuxCrvQ9oBjzicBhSA312wu36xOizhjyYa
6vDf4I9VZNrFwKr6Vu2ARxxOAwrAb8/dW7dQnZXwRxO1IPxFR6L7Fyoy7SLXH/W1Ax5xOA0oACu+9x79
YnVQwh9N1Irwl8aT/g0qMu1CDvMTyoY74uY0oABcuXB/7WJ1TcIfTdSW8A+MJ/x7VWTahRzmp5YNd8TN
aUABuOSMD2kXq0sS/miiQfibeLDPmE34j6rItIt8f+TL2gGPOJwGFICLvnKQfrE6IuGPJmrTlf8gn1SR
aRf5vsiZ2gGPOJwGFACXDwIi/NFELQ1/0ZHyn1WRaRdymH+7bLgjbk4DCsCP/ucj+sVquYQ/mqi14b/B
f6jItAs5zM8qG+6Im9OAAnDuaY26hWq1hD+aqOXhH/iSiky7yPdHztMOeMThNKAAnHXqFN1CtVbCH03U
gfAPXKMi0y7yfZGfaAc84nAaUAC+c8phuoVqpYQ/mqgj4R+YU5FpFxQAHJMUgKpJ+KOJOhT+gZYWAD4C
wLFoQAH4vgMfARD+aKKOhX/g6yoy7UIOc24CxNFrQAE454t23wRI+KOJOhj+gS+qyLQLOcx5DBBHrwEF
YPGXDtUtVCsk/NFEHQ3/wOdUZNoFGwHhmDSgAFywoEG3UEMv4Y8m6nD4Bz6tItMu2AoYx6QBBWDJ6Qfr
FmqoJfzRRB0P/8DHVGTahRzmHAaEo9eAAvCzr9l1GBDhjyZK+EtT/kMqMu1CDnOOA8bRa0ABuPob++kX
awgl/NFEg/C36lS/Mdqe9PtUZNpFLhvt0g54xOE0oABcv+jd2sUaNgl/NFGu/P9jPOnfoCLTLgayXkw7
4BGH04AC8Ntz99Yu1jBJ+KOJEv6ldl2uItMuRL93oHbAIw6nAQVg9QVv0yzU8Ej4o4kS/jq7f6gi0y5k
AXi7dsAjDqcBBeCPF71Vs1DDIeGPJkr4621Pdn1NRaZdiIe9LeRAL5QNeMThNKAA/O3nb9EuVtMl/NFE
Cf9h/YyKTPuQA/3lsgGPOJwGFIA1PZN0C9VoCX80UcJ/M6a6fBWX9iEH+uNlAx5xOA0oAIFHz0voF6yB
Ev5ookH486jf8MaTXTEVl/ZR6Ku7VTvkEYfSkAJw8qeO0C5Y0yT80US58h+ZnZ3+u1Rc2occ6BeXDXjE
4TSkAHzj5CbtgjVJwh9NlPAfsQMN8+dPUnFpH/n+yBnaIY84lIYUgJ8sOES3YI2R8EcTJfxH5Z9VVNpJ
ri/6ce2QRxxKQwpAzzfN3Q6Y8EcTJfxHacq/TUWlnYisN0075BGH0pACYOpugIQ/mijhPxa7LlZRaSfi
Hm9P7ZBHHEpDCsDjF++sWbC1lfBHEyX8x2r3GSoq7UQILyKH+pqyIY84lIYUgLVLJ4nOlDlDjfBHEw3C
n0f9xmr3x1VU2ks+G+3XDnpEnYYUgMBPf7xds2irL+GPJsqV//iMp+Z9WMWkvcih/rOyIY84lAYVgK9/
tlm7cKsp4Y8mSviP24G2trYtVUzaixzqp5YNecShNKgA/PSrH9Yt3KpJ+KOJEv4V8UEVkXYz0Fc/Qzvo
EXUaVABuOutduoVbFQl/NFHCvzLGk/4VKiLtRqz2dtUOekSdBhWAJy7eSbt4J1rCH02U8K+c7Sn/yyoi
7UcO9r+XDXpEnQYVgIF0VMz1U9oFPFES/miihH+FneN3qHi0n0Jf3a+1wx6xVIMKQOBp81v1C3gCJPzR
RIPw51G/yto2Z85eKh7tRw72r5cNekSdhhWAC08/WLuAKy3hjybKlf+E+BcVjW4wkK2fqR32iKUaVgBu
O+edugVcUQl/NFHCf6LsulJFoxuIh73t5HAfKBv2iKUaVgCevmQHzQKunIQ/mijhP3G2p7o/q6LRHeRw
X1027BFLNawA5NIR8bFjOrULebwS/miihP/E6sQOgKXI4f7jsmGPWKphBSDwe1+Yql3I45HwRxMl/Cfc
l33fj6pYdIdcNnq0duAjDtbAAnD9ovfoFvKYJfzRRAn/qvhrFYluoY4GLpQNfMTBGlgAKnkfAOGPJhqE
P4/6VcGU/1UVie4hB/yDZQMfcbAGFoDA4z4a1y/oUUj4o4ly5V9VG1Qcuocc8GeVDXzEwRpaAM46dYpu
MY9Ywh9NlPCvqv9YuHBhRMWhewz017dohz7iRg0tALeevY9uQY9Iwh9NlPCvru2p7p+rKHQT0e9NkkP+
pbKhj7hRQwvAS7/cSsyeM/phSfijiRL+1bc92X2MikJ3KWTrerWDHzHQ0AIQuOCEmHZhDyXhjyZK+NfE
fJvv76pi0F3y2eh87eBHDDS4ACz91gd0C1sr4Y8mSvjXxnjCv1dFoNuI1d4ectDnywY/YqDBBeDZS7fX
Lu5SCX800SD8edSvRia6v6IiEHLZ6G+0wx/R4AIQeMInjtIvcCXhjybKlX9tnT3bf4+KP8j3RU7SDn9E
wwvAZWceqF3ggTOOimuHL2ItJfxrblZFHwSI1d6ucthzOiCWa3gBePpS/a6AR7Z3aIcvYi0l/A0w0X2a
ij7YSCFbd4s2ANBtDS8AgSd/6ohNFvjs2W3a4YtYSwl/IywclTx6HxV7sBGeBkCtISgA13zzP08DdM+d
pR2+iLWU8DdD7v4fAtHv7SIH/vqyAEC3DUEBeP7y7UQ82SU+ecwM7fBFrKVB+HO3vyl2fUFFHpRSyNal
tSGA7hqCAhD4nc8drB2+iLWUK3+jfGNWKrWbijsoZaCv/ihtCKC7hqQAXPftt2sHMGKtJPxNs7tHRR3o
EMKLyKH/VFkIoLuGpACsu6ZeHHlEk3YQI1Zbwt8821P+ESrqYCjyfZEztUGAbhqSAhD4w1Peqx3GiNWU
8DfSJ50++nekiJXeXnLw58qCAN00RAXg6Yu3FVOa9UMZsRoS/oaa8r+qIg42R6GvboU2DNA9Q1QAAk86
hpsBsTYS/sY6EI/7e6p4g82Ry0bbtGGA7hmyAnDz93bXDmfEiTQIfx71M9N40l+qog1GSr4/cr82ENAt
Q1YA3lgaFe2zpmmHNOJEyJW/2cZT/lQVazASxO1eff726KXaQEC3DFkBCPzZl/fRDmrESkv4G++dKtZg
JAxk6lvlEH0g3yuH6UqpLhTQHUNYAF7+5RaidUazdmAjVkrC33w7k91JFW0wHGK5955CJtKzyTC9RaoL
BXTHEBaAwB+f+h7t0EashIR/KPwjj/5tBnGjt20+HVkoh+a60iGaXya9T6oLBnTDkBaAf16+lZgeO1w7
vBHHI+EfDuWf0Qkq5qAUIby6XCZ6nByWfy8dnpt4m1QXDOiGIS0AgYs++37tAEccq0H4c7d/KHzO9/2t
VdzBYESv1yjD/17d0CxzubRPqgsHtN8QF4C/XLKNOGx6TDvIEUcrV/7hMZ70T1FxBxsRPd6e+d7IZXI4
FkqH5bDyLoC7hrgABJ7x3wdohzniaCT8Q+XfuPofhAz+reUwXCB9dfBwHLHBvQC8C+CmIS8AwbsATYdz
LwCOXcI/dH5GRR/klkU75SD8c+lgHLW3SnUBgXYb8gIQeNbnuBcAxybhHzqfklf/W6j4cxeR9g7JZaJ3
6AbimOSJADe1oAD864otRUvrdO2ARxxKwj+Epro/pSLQTcRyb/d8OvJTOfjypYNw3LIvgHtaUAACl5y2
r3bII+oMwp+7/UPnH2OxWL2KQrcQS7xJ+d7IKXLYvVQ6/ComuwO6pyUF4LWrJ4m2IzkjADcvV/7htD3V
FVdx6BYD6fqZcsg9XDr0JsRfS3VBgXZqSQEI/OUZ79AOfMSNEv6h9RYVh+4glnvvL/TWXa8bdhPqXVJd
WKB9WlQA1l1TL7riU7SDH5HwD60DHal5H1SxaD/iOm8nOdAWSd8YPOCq5nVSHgt0Q4sKQODKH75VO/zR
bQn/8BpPdC1W0Wg3YqEXUdv3Pl862Krub6S6wEC7tKwABJ7+6Q9qQwDdlPAPtf9KpVJvVRFpLwPp+hY5
vH5fOsxqZrBFMI8F2q+FBeAfv9hKzGjluGDcEP7c7R9q7d70Ryzz3qG279UOs5p6o1QXGmiPFhaAwCu+
trc2ENAdufIPt/GEf6+1x/0OOqZ3benwMkpuCLRbSwvAQDoqjp1zqDYY0H4J/9D7RlvC31/FpT2oY3p9
edX/tG5wGee1Um4ItFdLC0Dg/efvJKY2c1qgaxL+Fpjyz1SRaQ8i7R2aS0fv1g0ro71ZqgsPDL8WF4DA
cz//Xm1IoJ0S/haY8B9ta2vbUsVm+BHLvT3y6cgSOZAqv31vtbxbqgsQDLeWF4Bgb4CPJhu1YYF2Sfhb
Yb5tTvc0FZ3hRvR4W6jte18pHUyh8zopHwXYp+UFIPCRC3cQ06bzUYDNBuHP3f7htz3pn6PiM9wUj+lN
R57UDaTQykcB9ulAAQjksCB75crfGh+MHX/8VipCw4no9Q7KZaK/0Q2h0BscFsRTAXbpSAFYvzQqPtnV
oA0QDK+EvyUm/LXtCf9AFaPhQ/R4O8tBs1iaGzx4rJMNguzSkQIQ+MRPtxPTY4drgwTDJ+FvkYmuk1SU
hotBx/T+u3TgWOpA4abojdowwfDpUAEIvObre2nDBMMl4W+P8aR/g4zSug2JGiLUMb0PlQ4ZWy1k6m4R
Ga94KpMMj5+WhQmGT8cKQODC+ftrQwXDITf8WWTC//usVGq3YqCGBRmC75NhuEI3XCz1T8HmRerHLyJu
97bKZ6P92lDB8OhgAXjt6kni6ASPBoZRrvytcqAz5R+uIsV8RK+3oxwgwTG96wYPFIt9NdiuWNzgaTdl
EKu9d8oQ+WdZqGB4dLAABP754u1E6wwODAqThL9tdn1BRYnZGHVMb3XMBwcUieXe7upXMCQD2fqZMkhy
ZcGC4dDRAhB40/d21wYNmifhb5mJ7qtUhJiNyHiHy2Fxf+nwsNVcOrpSLPMmqx9/ROT7I2dowwXN1+EC
EPj9z75fGzhojoS/dT4wa9ax26r4MBOR9vYKroLlkCiUDg1L/UvwLkdwWJH6FYyY4J8pZOvS2oBBs3W8
AARbBZ8472Bt8GDtJfyt85XOuXM/oKLDPMQKb5tQHNNbOV+XLhI93nbqVzAmRL+3gwyUB8sCBs3W8QIQ
+O8rtxR+52RtAGHtDMKfu/2tcqAt2dWmIsMs3jymNxN5qnRA2GrwJINIe+9Uv4JxI+7x9pSh8peykEFz
pQAUfeaSbcWRRzRpgwirL1f+9tme6v6sigqzEL1egwz/u3SDwVJXiYzXpH78iiL6vUNksLxaFjRophSA
N131o51F0+HsFFhrCX8LTXUtUhFhDvLq9+2hP6Z3dP4z2LVQ9HhR9SuYEHLZaLsMl4GysEHzpABs4o3f
211MadYHE068hL+NdvcsXLgwouKh9gw6pvfl0gFgqeuli8UN3vbqVzDh5LPR+drAQbOkAJR5IScH1kTC
3z7bk35fZ2fnNioWzCCXid6hW/g2WkjX9Ype793qR68qMmC+XxY4aJYUgDJz6YhYxOOBVZUb/qz0kc7O
Y3ZRcWAOud7ox3UL3zL/IH/Omt9xKUPm3LLQQXOkAGgNSsC3P7OfNqywsnLlb6VPd3b6e6sYMAt1x/+d
uoVvgS8WP+e/3atXP25NCX7X+b7IRdrwwdpLARjSgXRUnP7pD2pDCysj4W+hKf/Zjrlz91URYCYi7R0i
F7lNN/8NBDc0ih5vV/UjGkNw06EMm6vKwgdrLwVgWIONgk499sPa8MLxSfhb6T/aEv7+avSbjVzgl5Yu
+DBayNTdKpZ5B6ofy0hEvzep0Fe3QhtCWDspAJt1TU+9OPEYdguspIS/lb7UOWfeIWrkm09w2I1c4OF9
EiAdeSzYvEj9OMYTHCFcyNbdoA0irI0UgBH5ylVbiBOOpgRUQm74s9J/xZN+oxr14SHfGzldt+CNNh15
LdiuWFzibaV+jNAgHva2kCXgGm0YYfWlAIzY16+eJD7/sYO0oYYjkyt/+5TB/3w8Ne/DasSHi+KeAJnI
n0oXu6EWggOK5Pf8NvXthxJ1T8DPysIIqy8FYFQG9wQs+OSB2nDD4SX8rfRvnZ1zD1CjPZzk0tGUbrGb
ZC4T7RMZb6r6lkOPejpgsTaUsHpSAEZt8HTAN07YXxtyqJfwt9I/tyXn1WSPmYpTyNTdqFvsBvisDP8x
HdNrOqoEnK0NJqyOFIAxGewTcPbJ79OGHW4qn/lb6cOzZx+9hxrl4Ucs8/aXC3ugdKHX0DXScR/TGwZk
CThFhlG+LJxw4qUAjNmgBFzwxXdrQw83yJW/ld7d5vvGPW4+bvK9kQt0C73aFo/p7fX2Ud+WE+Tui6Zk
IL1eFlA4sVIAxu2139qDUwQ1Ev422t0TO/740N18PiLk1fbOckG/ULrAq2ZvZLVIe9PVt+McIus1ylB6
riykcOKkAFTE352/kzjyiCZtELoo4W+f8UTXYqNO9ZsI5GL+fOniroIvFLfvneBjesOAuM97lwymR8qC
CidGCkDFfPribYXfOVkbiC5J+FvnQDzVfaIa0XYT7KEvF/ODpYt7gtxwTG+Pt4P6z4NE3OPtXMjW3awN
LKysFICK+uIVW4oT57m7YRA3/FnnCx2J7plqNLvBQG/9DN3irqSF3rqbgxsP1X8SSlB7BSyUcnPgREoB
qLhrr6kX3zrRvZMEufK3zt91dvrvUiPZLQrpumt1i7sC/jGXjnao/wxshlxftFMG1UtlwYWVkQIwYV5+
+jtXT2mKrdGFpW0S/rbZdXlnZ+c2agy7h+j13i0X8brSRT0OX5QukFe2W6j/BIwQcZ/3PhlWD5WFF45f
CsBEmCtu1b3Qi0yZPn2/yU2tj+hC0xYJf6tcF0/6p6jR6zZyIf+gZGGPxXxx+96Mt5v618IYEHd5bylk
Iz3aEMOxSwGotM8PZOqPUC/bItOmTXtLY1PL1brwDLt85m+VT7fNmTdFvWxBLPfeIhf030oW+IgtZOpu
E0u9D6l/HVSAXDZ6nAyuV8uCDMcmBaBiyvV+k5wZQ+2OVtfY3HKqDM31pSEaVrnyt8iUf82Rvr+zeq3C
RnLp6H/pFvtmfCbYvlf9K6DCBI8KyiJwlzbQcHRSACrhWumC4C1/9RIdkqnTpx8ow/N3pWEaNgl/a3xF
Ol+9PKGUYFEHB/GULHi9IT6mN2wUH9fc8JRAbpNAw9FJARivD4uMN6qjUGOx2FaNTa2LZJDmSoM1DBL+
1njf7Nn+e9TLEoZCLPMOkwu9ULLwB1soZCI9osfbW/0jUCVEnzddBtkTZcGGI5MCMFbz0nPHU/YbD5sx
dXJzy2O6kDVVPvO3wvXxZPdCWUTr1UsRNke+N/LLkgFQNNcbzQYFQf1tUAPEPd7WMswWSXk3YLRSAMbi
gyLtVeRmqYaGzm1ksC6WFgYHrYly5R9+40l/deeceYeolx+MFLng9yq+xf+fIfDXfG90/kg+94PqIPq8
g3LZaFYbdKiXAjAag507F4kbvC3VS65iNDa3HGnyuwGEf+h9vSPRvcD3fee3mx8zwef7cgC8IV0cPCGg
/m8wiOK9ARuOF36tLOywXArAiMylo3dP9M6dDQ0Nk6Y0xRbIwF1bGsC1lPAPvbfH5859r3qZwVgRK7xt
XDumN6yIld57C9m667Whh/+RArA5/5HLRP+7mu/0Hdo0c9/JzS3X68K42vKZf6j9S3uy+xj1sgJwj4G+
+hky6B4sCz7cIAVgKDcc1NXr7aheSlVnSlNrpwzhp0pDuVpy5R9a13SkuhbNnj2bd6kBNjwyGJ0vA++f
ZQHouhSAMosHdS31DlAvn5oSi8W2m9zccqYM5FdKA3oiJfzDaTzprzgqeTTvUgOUIvq9XfL9kQtk8K0v
C0JXpQAM9qGBTP1R6uViFI2NM94a7B3Q2NSyThfYlZS3/cNne9Lv60z5TerlAgBDIVZ775Tht0Q6sEkY
uigFINjA68niEz09nvF3SDc0zdxbhvQSaX5waFdKrvxDZsp/qCPV5cuXRt2GVwgAjIhgS2EZgkERcHf/
ALcLwFPF4L/dC92GKFOaWw9pbGr5lS7ExyrhHyofiSe6juOxPoBxIrLeBwvZurQMxHxZQNquiwWgN/K0
vOo/QSzxJqmXQGiRJeDDMrwvk45rW2He9g+Nf+pIdn+c4AeoMKLfe3e+L7JYBuPrZUFpq24VgPuDQ7ps
CP5Sio8ObthRcNR7CKgr/4ImbNAc+4MrfrbvBZhgxGpvVxmOwUFD9j814EABkKF/V25ZtFMI+z8nnRyL
7TVlWsu5MthfLQ16nRvC389pAgdrbz64q78j0T1T/fECQLUQ/d42+f7IZ2RQPlIWnLZobwFYk09HLhHL
vAPVH6dTTJ7ctr0M+PnS+wcH/mBl+Oc6El0DmuDB2hoc0fsTdu8DMASxymuQgRncMGjXFsP2FYBHpAtE
xnur+qNzHhn2DdLgyYE1g8L/3+1Jf11J8GBt7ZfO931/O/VHBwAmIVZ626tNhVaXhWkYtaMArAmO4x5I
1/NW6TA0Nzfv2tjc8qXprUfeJq/8CX8zfLEj2f2j9oTv5DtVAKFF3Od9JN8XOVsG6TNlwRoWw1sA3ihk
6q4r3tTX43HFNEraE3Mntyf982QA/a0kkHCiTfhrO1J+Jp7w58WOP34r9UcCAGFF9HkHyEBdJP3rJgFr
uuEqALnghr58b+QUkfF2U796GAfB42TxZNeMjmTXxTKc5NWoJrCwEq6ThevaeKrrY+zRD2ApQngRWQYO
l+H6Q+kfNglbEzW9AKQjr8kr/eXFDXtWeLuoXzNMAMEjZh2zu1s6Ul3nysB6rCTAcPS+JK/0r+lIdX8i
mUzW7FApAKgRG3YbjM4vZCM9MnBfLgvgWmtmAXhCBv+S4qN7N3hbql8lVJmO1Lz94smu/5FBdruUewY2
byGe9Fe3J7u/25HoauaZfQB4E/GYt+VAtn5mvi/yrVy27nYZwLXfcMiMAvAn6aW53uinRY+3t/p1gUH4
vr91W8pv7Uh2fVMG3Z3S9YOCz1WDzZMeiae6Lwo26Wn3/bepXxcAwPCIfm+SdLIM4lPVVsR/3yScq2H1
C8D6XDq6Un49N5eJzhHLvd3VrwNCxKxZx24b3DsgPT24oa096T9TEo42uq4j4d8lr/C/H090d6ZSKR41
BYDKIR7wdpKloCnfFzlFBvSSXDZ6l/y6ZpPQrqQrpPqgroQvFm/ay0QWFz/Dz3hN8gp/a/WjgmUEV8BB
MMaT3QuLn30n/QelbwwK0DD5VLALX/Ht/FTX0Z2dcw/gLX0AqDrFdwpWevvLMjC7WAz6I+cVsnXLZID/
Xjq++wqulerDe/OmI3n59alcpu72YNc9+ddnyqv7Y4tBz0Y8IAlCsz01732dye5ke8r/sgzWJdLri8fY
Jv2XVdjWwuAjjCdkyN8qv/5Ufj9fDe7Qj6f8qdywBwChobA8em8xyIO3838lvVF6i/RW6W+Vd0jvVN6t
vEeall61wdwVdSJ/hfzrwMull0kvlV4s/T/phdILpD+WnhcR4hxvhvoWAMZEW9vHtg+urmU5OCJ4Lj6e
6j6xI9H9FXnV/YMNjyZ298iAvjlQhXWwW16//Pt/L78+svF/ywC/TX69uSPh/2rDP9N1ZXGDnWTX1+U/
9zl5JX9M8N9oT/oHJRJHv4PT9ADACnKZ6J2bXJmPxvOlZ49Nca53uPoWAAAAoNpQAAAAAByEAgAAAOAg
FAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAA
AAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADA
QSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIB
AAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAA
gINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByE
AgAAAOAgFAAAAAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAA
AAAHoQAAAAA4CAUAAADAQSgAAAAADkIBAAAAcBAKAAAAgINQAAAAAByEAgAAAOAgFAAAAAAHoQAAAAA4
CAUAAADAQSgAAAAADjKeAlA4P1LQhftIpAAAAADUkHG+A/CqLtxHIgUAAACghoyrAFwQeVYX7iORAgAA
AFBDZJBfmEtHV47Fwvl1K/JnR/vHojjLO0R9CwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAATi+f9f8YwfCLxZgZEAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripMenuItemtoJSON.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAACG3SURBVHhe7d17
@@ -212,7 +537,7 @@
YII=
</value>
</data>
<data name="CSVToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripMenuItemtoCSV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAACgeSURBVHhe7d1b
@@ -390,7 +715,7 @@
/4YzHMz4V1N2AAAAAElFTkSuQmCC
</value>
</data>
<data name="SaveResultsJSONToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripMenuItemSavePosts.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAACoYSURBVHhe7d0L
@@ -576,10 +901,7 @@
MzMzMzMzMzMzMzMzMzMzMzMzMzMzG7ONG/dfN4AEyYl6I7cAAAAASUVORK5CYII=
</value>
</data>
<metadata name="FileMenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="AboutToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripMenuItemAbout.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAC/+SURBVHhe7d0J
@@ -790,331 +1112,7 @@
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIioua11Vb/H5RJBVvCTy+9AAAAAElFTkSuQmCC
</value>
</data>
<data name="LicensceToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAEpRSURBVHhe7d13
bJ35nt/3i5sbZ22sg82Fs8naWQTOYgNjEyObrIM1HKdh4U1iZ7H7hxeO12skF16PpFEvM3eKCjupLqr3
3kZU7xrVUa+kSIoqLKeyl8NzSEnkqPCX8+M82jtDfaWheJ7n97T3B3jBBuw7bEfn8znnPOUnTkdlMj9/
0Z8e9+3TzPGsyLf96eff9mcUAOA9+tJqINOrnvd2q6fd7aq/s9WYp13tr7JfM/O0u+Pr7P/5R9bTOSGj
i1LqP8w+gD/PPpDTbz2wAQAfZCDdo/q72sTCdtrT7s5H33Z3/wPr6Z2Qd+e7V/1956UHMQBgbAb70sbf
DfhrXe2vBlIdf2k9zRPydrKv/P/mt32Z29KDFwCQo+wIeObSCHja1Tb0rLv7T62ne0J+mOwDdOdbD1gA
gH30OwEufRyQHR/f6nd5rad8Qr7Li0zmD7MPzqG3HqwAAFsN9HaLBW3C0+6O09bTPiHf5du+zAnpgQoA
sJt77wL0d7YNKdX569ZTPwl7VFfX384+KAfffpACAJzwLNUplLMZT1Odn1tP/yTsGXya/mPpAQoAcMbz
tHsfAzzr6bhmPf2TsOdFX98vpAcoAMAZg+mUWM5GdLc3Wk//JOwZfNo3U3qAAgCcMZjplcvZgGfd7R3W
0z8Jewb7+j6RHqAAAGe4OQD6u9o7rad/EvYwAADALAYA8UQYAABgFgOAeCIMAAAwiwFAPBEGAACYxQAg
nggDAADMYgAQT4QBAABmMQCIJ8IAAACzGADEE2EAAIBZDADiiTAAAMAsBgDxRBgAAGAWA4B4IgwAADCL
AUA8EQYAAJjFACCeCAMAAMxiABBPhAEAAGYxAIgnwgAAALMYAMQTYQAAgFkMAOKJMAAAwCwGAPFEGAAA
YBYDgHgiDAAAMIsBQDwRBgAAmMUAIJ4IAwAAzGIAEE+EAQAAZjEAiCfCAAAAsxgAxBNhAACAWQwA4ok8
Tff98llfWgEAzOhPp1RHR4srehkA5E121seOf3KvTgEAzPjodo36vXM3XfF/Xa18bT39k7CHAQAAZjEA
iCfCAAAAsxgAxBNhAACAWQwA4okwAADALAYA8UQYAABgFgOAeCIMAAAwiwFAPBEGAACYxQAgnggDAADM
YgAQT4QBAABmMQCIJ8IAAACzGADEE2EAAIBZDADiiTAAAMAsBgDxRBgAAGAWA4B4IgwAADCLAUA8EQYA
AJjFACCeCAMAAMxiABBPhAEAAGYxAIgnwgAAALMYAMQTYQAAgFkMAOKJMAAAwCwGAPFEGAAAYBYDgHgi
DAAAMIsBQDwRBgAAmMUAIJ4IAwAAzGIAEE+EAQAAZjEAiCfCAAAAsxgAxBNhAACAWQwA4okwAADALAYA
8UQYAABgFgOAeCIMAAAwiwFAPBEGAACYxQAgnggDAADMYgAQT4QBAABmMQCIJ8IAAACzGADEE2EAAIBZ
DADiiTAAAMAsBgDxRBgAAGAWA4B4IgwAADCLAUA8kc7u3tmdqZQCAJjR0t2lKuNxVzxMJlLW0z8Jewb7
+j75tj+jAABmDGZ6VX9nqzu62jutp38S9jAAAMAsBgDxRBgAAGAWA4B4IgwAADCLAUA8EQYAAJjFACCe
CAMAAMxiABBPhAEAAGYxAIgnwgAAALMYAMQTYQAAgFkMAOKJMAAAwCwGAPFEGAAAYBYDgHgiDAAAMIsB
QDwRBgAAmMUAIJ4IAwAAzGIAEE+EAQAAZjEAiCfCAAAAsxgAxBNhAACAWQwA4okwAADALAYA8UQYAABg
FgOAeCIMAAAwiwFAPBEGAACYxQAgnggDAADMYgAQT4QBAABmMQCIJ8IAAACzGADEE2EAAIBZDADiiTAA
AMCstwZAW1L11t5R3d+cVB0n9qr2w9tV674NqnXnyqzl2f/7etV+ZIfqPFmhOs8fVT13vlGZlugP/xuj
xQAgb8IAAABznsUbVNeZ/ap500IVW/yZihROVJF5H6mmMdD/29jCT1RyTZFqr9ikUtU35dL/PgYAeRMG
AOBvT9MpdfvBE7X7/HW19thFtWj/GaOWHTynNpz8Rh2/Xqmi8Wbxe/xQza2t6vTN+2rTqcuq/NA58ev6
Rfm+E+rE+jWqcvEc1Vg4SSxyO0UKPlaJ5fNU+8GtKl3/gAFA3h0GAOBfdQ0RtaDitJq97Yhn7Dx7TaV7
usXv98c87e1VB765o+ZsPyr+t/2kfPNedWrtKtW4skgllnyhYiXTVCRvnFjajsl+vdiCWart0BbVl2xi
AJAfhgEA+NPtuidqrkeLcsmBr1Vvd5f4fb9Lf7pXrTl6Ufzv+UXh1oPq4Pp16uHKUtW8PO9t5fNUfOGn
2VfpE+XCdlL+eJVYla9S966lrad/EvYwAAD/iSWa1bwdx8QS8gr9sYD0vb/LVxdviv8dPyjeekAdXrdW
RVYUysUv0O8KRIunyGXtsGjh5Pb4/Jn/1qoBEtYwAAD/2ZgtV6mIvKamvkn8/keKZgfNHOF/73VFWw4M
v80fW14glvxoJBZnh0ChC+8IZEUKJ7XFS6b9S6sOSNjCAAD8pauj0zdlufPsdfFnGOnw1bvi/96r5mw7
rLZv3KIaVhSJpT4W8YW/VJH8CWJRO0mfgRAtmlKVXPLl37NqgYQlDADAXyofNYil5EWle0+KP8NIK4+c
F//3XrR08151d/VCscRzVj5PxcpmiEXtuPzxr6Ol09epvJ/81KoHEvQwAAB/uVJVJxaTF+l3Kgb60uLP
8X3z93nrTAbJ3Cz9OX9CKm6bJRZ/Pnw6n1jUDosUTWpvKvzkd62KIEEOAwDwF330v1RQXlS467j4M4yk
ryUg/e+9Qh/kd2P1ErGsnZLU7wa4dJBgpGD8q2jp9PFWTZCghgEA+Iu+2I5UUl6kL0wk/Qwj7T53Xfzf
e8HqTbtU/Ur7Puv/IPq0wfmzxnylwFwMHxtQPOWSysv7mVUXJGhhAAD+Mpi1sOKMWFZe803lA/FnGKnq
UaP4v3fbng0bVVIqZsOGPxIwfREhS7RoUqwu7+NftyqDBCkMAMB/9KV/pcLykrJ9p4cv7iN9/yPp4wSW
H/bWgYD7168Xy9gtySVfqiYXzhLQooWTUpwlEMAwAAD/0e8CePnCOfoiRQ2xuPi9v4u+/r8+ZkD675mk
D/b7eu1KsYTdllw627WDA6OFE5/GF838Pas6SBDCAAD86XmmVx2+ckcsMTeV7DmpnkQ+rPzfiCdb1EIX
722gz1q4uKZcLF+vSC6b49oIaMqf8G20ZOY/sOqD+D0MAMDfGmMJtePrayp/l7uXBl68/+vhO/ilUz3i
9zla+oZAF+7VquWHzJ8ZcHLtKrF0vUa/E+DexwETn8aKv/gtq0KIn8MAAIJBf47e09mpOto7jMvkWPrv
oo8hkL6eE9ounBLL1qu+OyZgvFjSTosWTup5PP/Tv23VCPFrGAAAwi5976pYsl6XWPT58C1/pZJ2mj47
gFMEfR4GAIAwexp9olpWjf4ufl4TXzBLLGgTYsXTTlpVQvwYBgCAsBro6VStm81e4c8JsZJpYkE7TV8s
KFY6/WOrTojfwgAAEE5p1XVkp1iovlM+1717B+RPeNVcMuO/tiqF+CkMAABhlL51SS5Tn9JXC5QK2oRo
4eR2q1KIn8IAABA2A23NqmW1S9f3d5BrtxLOipVMX2HVCvFLGAAAwqbz8A6xQH2vfJ6LFwka/7phed5/
YVUL8UMYAADCpP9RtVyeAZFY9Jlc0AZEi6ZUWtVC/BAGAICwGOztUW1blorFGSSRosliQTtNnxUQL/3k
z616IV4PAwBAWKRvXhQLM2gS+iqBI8rZFA4I9FEYAADCYDDTq1o3LxYLM4iixVPEgjYhXjzjL62KIV4O
AwBAGKTvXROLMqiSS74Qy9mESOGkpFUxxMthAAAIvL60atu6TCzKIHPrWAAtWjb9T62aIV4NAwBA0PXV
3hULMujibp4RUDz5kVUzxKthAAAIus6D28WCDLpkllu3DI7kjxtK5uX93Koa4sUwAAAE2WBXm2pZWSAW
ZBjESt27OmC8ZOpSq2qIF8MAABBkQbvm/4dKLJ0tlrMJkcKJHVbVEC8miANgsC+tYolmde9hvbpR89jX
7tbVq0giqQayP5P0swJ4v/bdq8ViDJOoW3cKzIovmvl7Vt0QryVIA0CX5LX7D9X8fafV7G1HAqVk7yl1
qbJWPUv3ij87gLcNdLSIhRg2bn4MECuZutGqG+K1BGUAZFI9atOpy2J5Bsm6Y5dUqrtb/B0A+KFM1U2x
EMMmsdi9awLEiiY3WnVDvJYgDAD9yn/z6StiYQaRHgHPM7wTAPyY7pMVYiGGTvk8184GiOZPeGXVDfFa
gjAAbtY+EosyyL6pfCD+LgD8SuvmJXIhhlDUxYsCJRZM/2OrcoiXEoQBsOzgWbEkg6zsq9PDBztKvw8A
GTXQlhSLMKxiZTPFcjYhVjJtp1U5xEvx+wBob28XCzIMovFm8XcCIKP66+6JRRhWiUW/FMvZhGjR5AdW
5RAvxe8D4FFjTCzHMKh81CD+TgBkVO/182IRhlVy6RyxnE2IFk1MWZVDvBS/D4C6hqhYjmGgrxEg/U4A
cADgW/SBgHnjxIJ2WrRgPAcCejF+HwDJllaxHMOgIRYXfycAMqpj73q5CEMs4tIFgbRY8Re/ZdUO8Ur8
PgAGs4J44Z8fU7T7BKcCAu/Run6+WIJh5uaZALGy6X9h1Q7xSvw+ALQLd2vFkgyykzcqxd8FgKy+tFiA
YRctnS6WswmR0hlfWrVDvJIgDICn6ZRacficWJRBtHj/18NXPpR+FwAyajDVJRZg2MXLXLwkcOn0RVbt
EK8kCANA6+zoVEsPBP96AAsrTquW1jbxdwDgOwPt3ANA4u61AKZutmqHeCVBGQCaflV8+ModNW/HMbE8
/Wzu9qNq/6Xbqre7S/zZAfzK8+aYWIBhF5s/SyxnE6LFUw9atUO8kiANgDf0zXJuP3iizty6rw5evu1r
p29WqZsPHquerk7xZwXwtqfRerEAwy6+4BOxnE2IFE89Z9UO8UqCOAAAhNuzaINYgGHn5gCIFU05a9UO
8UoYAACC5nkLHwFIXP0IoGTqAat2iFfCAAAQNAMdHAQoic938SDA0mmbrNohXgkDAEDQDKa6xQIMO1dP
AyyZttCqHeKVMAAABI6+ENCKfLEEwyz7KlwsZxNiJVO/sGqHeCUMAABB1LJhgViCYebmpYATpVP/lVU7
xCthAAAIoo6vNoglGGZu3gyoPW/Wb1q1Q7wSBgCAIOo5fUAswTBz63bAkfwJL63KIV4KAwBAEKWvnxdL
MKySS2eL5WxCpGBSj1U5xEthAAAIov6HlWIRhlVi0S/FcjYhUjyl2qoc4qUwAAAEETcE+iE3TwGMlkzf
alUO8VIYAACCqm3LMrEMwyji5hkAZTP/F6tyiJcSxAHwLN2rHjfF1LX7D9XFew8AhFTdvu1iGYZO+TzV
lDdeLGfHcQCgdxOkAaCL/+ydalW0+4R4S10A4bJ1w1a5EEMmsfhzuZwNiBRPemLVDfFagjIA9C2A1xy9
KD4JAAinki0HVFIoxLCJufn5f/G01VbdEK8lCAPgeaZXrT9+SXwCABBud1cvFEsxTNy7ANA41VT4ye9a
dUO8liAMgKv3H4r/8AFg94ZNYimGRWLJl0IxmxEtmtRsVQ3xYoIwABbtPyP+wweAwq0HVXx5eG8MFCud
LpazCdHiGSVW1RAvxu8DoLWtTfxHDwBvXF4d1tMB56mIa0f/jxtqyMv7j62qIV6M3wfAw4ao+A8eAN7Y
uHGHUI7BF1/I1f/Ie+L3AfCokQEA4P3mbDusalbNF0syyCKFk8Rydlxe1vwpf2TVDPFq/D4AWlr5CADA
j9u2cYtYkkHl5rn/0aLJjVbFEC8nCAcBLqzgIEAA7zc3q25lqViWQZQtYbGcTYiWTf9Tq2KIlxOEAXCl
qk78Bw8A37crJKcEJhZ/IRazCZGiSQmrXojXE4QBoC8EtPYYVwEE8H5ztx5WNSvLxNIMkkjhRLGcnTdO
JUs/+T+teiFeTxAGgJbq7lKrjl4Q/9EDwBurNu0O9OWB4ws/FYrZjFjRlCtWtRA/JCgDQHva26vO3Lqv
CnYeF//hA4B2cU25WJ5+lyyfq+++J5az4/InvGzNy/s7VrUQPyRIA+ANPQRqG5rU5coH6uSNSgD4gbOX
b6j4qmKxRP0sWjJNLmcDYiXTC61aIX5JEAcAAPyYTNV1sUT9KrHoM7GYTYgWTYpZlUL8FAYAgLDqPrlP
LFPfWTZXRdx6679gwovE/E//rlUpxE9hAAAIq8HeHtW2fblcqj4SLZ4il7PT8rKv/ktn/murTojfwgAA
EGbPEk2qZXWRWKx+ECubKZezAdHSabutKiF+DAMAQNj11d5VzSv8d8tgdz/3n/zAqhHi1zAAACCj0nev
iiXrVcklX6hI3jixnJ0WLZzYpvLy/oZVI8SvYQAAwHdSl0+LZes1ySVfqqZ8d+7zHy2Y2BtdOu03rAoh
fg4DAAB+pfvsIbF0vSK5dLZrR/xHCj5+1lj05W9b9UH8HgYAAPxQ7/XzYvm6TZe/W1f606/8Kf+AhQEA
AG/L3L7sqQMDk/r+/m697V84uZW3/QMYBgAAyPqqb6vWNUWqbUOxat/ojs6t+v+cq1pXzlCtK6YbFS/7
WEVKJteovLyfWZVBghQGAAD8yovepHrVdk+9jp1UQ00Vaqhht/vqd6mhJ9vU0MN1aqh6qRqqKlFDlcWG
ZL/W/fnfDtUsq1Z1K2api1t+zaoP4vcEcQCkUz2q8lGDOnunWrwRCACMdO3uNdX98LBcwF5Tv1MNPVj5
XTmLpe2ksleqtnyHqtvHaYB+T5AGQF9vSh29dk/N23FMvAUoAIyUv+OIqry2T72Witbr6rdlX50vFEra
gPsLnqma1f+rVSXEjwnKAOju7FTlB8+J/8ABQDJ/z2GVrNwrl6tv7FJDtcvkknZc2ZCqXT7TqhPitwRh
ADxL96qVR86L/8ABQFKy67Dqrt0jFKpPuTYCSpR6sHKiVSnETwnCALh474H4DxwAJPO2H1FNd7+Si9Sv
9IGC1S59HFBVOqQerPrfrVohfonfB8Bg1oKK0+I/cgCQnL/gkaP77abPFJAK2oT7C/uUUj+1qoX4IX4f
AM0treI/cACQlO4+rAYeB+it/5EerJAL2gBVW77Qqhbih/h9ANQ1RMV/5AAguXE5oK/+36jfYfg6Ad9T
teBb3gXwUfw+AB41xsR/5AAw0tztR1T/wwC/+n+jZqlc0AaoByv/X6teiNfj9wHQ3t4u/kMHgJE2Hjoo
F2bQ6CsGCuVswqvapVeteiFej98HgLb0wFnxHzsAfN+5C/vlwgya+u1iORtRvbDPqhfi9QRhANyofSz+
YweA77tzdZ9cmEEklbMJVfNfWfVCvJ4gDICBvrTadOqy+A8eAN54fDtg5/6/T1WZXNCOK1FKcfdAXyQI
A0DLpHrUhpPfiP/oAUBrCNrFf97n/nyhnM1Qdat+3aoY4uUEZQBozzO96nJVnSrde0r8xw8g3Cqv8xGA
46rKXlv1QryeIA2AN/RHAk3xpLrz4Im6VFk7fKlgAIjVnZXLMmj0tQCkcjbh/oLnVr0QryeIAwAAJC+7
HsuFGTSPNsrlbELNkidWvRCvhwEAIDT6UmqoMQTHATxYLpezAapmeaFVL8TrYQAACJNXiXNyaQbGLvfO
ANB3Bazb+HOrXojXwwAAECYvUnGhNAPExasAqtplF6xqIX4IAwBA2LxKXpDL0/d2qqH7br36L3ut7q77
LataiB/CAAAQNi/SHep10wGhQH2u1sXP/utWFFm1QvwSBgCAMHqRiqmhxr1ykfpR3VqxmE1QteVnrEoh
fgoDAEBYvex+EoyzAh6uzxZxyVvFbETt0ltKqZ9alUL8FAYAgDB70dusXkcOycXqdfVZD1bKxWyAqlm+
yaoS4scwAACEXl9KvWqv9Ne7AY83qaHqRWIxO656cY96uPrPrBohfg0DAAC+ow8OfNV2V72OHZdL1236
Er/6NL/qxXIxO6lq/quhmiU1qmbFL6z6IH4PAwAA3qbHwIueiHrZ+VC9aq8afofgh+6pvlMrVeZ4uaP6
Ti5T/aeXqGfnFquBSwvVYNbzc6Xq2dki2317dUFM1Sw7+Z3yE6p2+YasL1Tt6n/B5/wBTBAHQGdHp7pW
/VAdvXZPHbx8Gzk4fOWOOnenRjXGE2qwLy3+voGw6vhqg2penmdcpHCSapr3ke0ixTP/mVUNJAwJ0gBI
dXerry7eVHO2HxVvBYrcrDh8TtVH4+LvHgij7rOHxIJ2WqTgY7HAcxHJHzek8vJ+ZlUDCUOCMgDa2trV
woozYnHBPnOz4+rWg8fi3wAIm/Tdq2JBO60pb5xY4rmIFk1MWbVAwpIgDID+dEotPXBWLCzYT4+A+gjv
BABPI0/EgnZU+VyxwHMVKZ56x6oFEpYEYQCcvV0tFhWcU37wnBrgmACE3ECqSy5pByWXfikWeK5iJVM3
WrVAwhK/DwB9YFrpV6fEkoKznjTxLgDQuq5MLGqnJBZ9JhZ4ruJls/69VQskLPH7AEg0t4rlBOedulEl
/k2AMOnYvVYsaqckFn4qFnjOCj/5XasWSFji9wFQ1xARywnO02dcSH8TIEy6j+8Vi9opsbKZcoHnIJI/
/rVVCSRM8fsAeNwUE8sJztt/6bb4NwHCJPXNKbGonRItnS6WeC4ihRMzViWQMMXvA6Czo0MsJzjvwt1a
8W8ChEmm8oZY1E6JFk8RSzwX0eLJT6xKIGGK3weAtvzQObGg4KxkS6v49wDC5GnjQ7GonRIpmCiWeC5i
pVNPWJVAwpQgDIC7dfViQcE5289cE/8WQNgMtDWLRe2USP54scRzESudvsSqBBKmBGEADGbtPHtdLCrY
r2TvqeH7LUh/CyBsBtMpsagdUT5PLPBccQpgSBOEAaD1p3vVjq+viYUF+yyoOK3iyRbxbwCElalrASSX
zhYLPFfRkll/aFUCCVOCMgA0/U7AnQdPuCywA4p2n1DHrleq3p5u8XcPhFn79hViYdstufgLscBzkpcd
AHl5v2ZVAglTgjQAvq+1rU3VNjSpm7WP1I2axxijykcNqimeVM8zveLvGUBGdezfJBa23eILfymXeA6i
BeNfWXVAwpagDgAAMKX7hJmLAcXnzxJLPBeRgo/7rTogYQsDAABy03PhmFjYdouVzRBLPBfRoknNVh2Q
sIUBAAC5Sd84Jxa23WKl08QSz0WkeEq1VQckbGEAAEBu0neuiIVtt2jRZLHEcxEtnnLJqgMStjAAACA3
mfu3xMK2W7RwkljiuYgWTz1o1QEJWxgAAJCb/odVYmHbLVIwQSzxXERLp6+z6oCELQwAAMjN04Y6sbDt
1pQ3TizxXMTLpudbdUDCFgYAAOTmWaxBLGxbLZsrFniuEqUzx1t1QMIWBgAA5OZ5S1wubRs5dRngeNms
P7HqgIQtDAAAyM1gZ5tY2nZKLHHgMsBZ0eJPft+qAxK2MAAAIDeDqW6xtO2UWPSZWOC5ihV/8VtWHZCw
hQEAALkZ7O0RS9tO8QWfiAWeK24EFOIwAAAgN4PplFjadorPnykWeE7yPlJWFZAwhgEAADnqS4ulbadY
6XS5xHMyjgEQ5jAAACB3UmnbKVoyVSjwHOWPG7KqgIQxDAAAyF3zinyxuO3ixGWAm/LHv7aqgIQxDAAA
yF3LygKxuO0SKfhYLvFc5E94aVUBCWMYAACQu5bVRWJx2yX7al0u8VwUTPjWqgISxjAAACB3jg8AqcBz
FC2YMGBVAQljGAAAkLtmJz8CKHfmPgCRgo8HrSogYQwDAABy5PBpgE7dB6Apn48AQh0GAADkZjDt7JUA
k0u+lAs8VwUTXlhVQMIYBgAA5GYg1SUWt12Siz+XCzxHEQZAuMMAAIDcDHS1i8VtF6duBMRpgCEPAwAA
cjPQ3iIWt13iC38pF3iOIgyAcIcBAAC5GWhLisVtF8fuBFgw/pVVBSSMYQAAQG6eN8fE4raLI3cC1PK4
FHCowwAAgNw8jdSLxW0XpwZAhJsBhTsMgGBoSzWqK62H1KH4WrUzskBtaSzJKlRbm0rU7shidTyxSd1t
/1ql+9rF/z2AsXv6pFYsbrvESmeIBZ6zvI+4HXCYwwDwr55MQp1r3qM2Z4t+Tf3srC9HYbba2bRQ3W47
pQb6U+J/F8CH6au9Kxa3XWKl0+UCt0F06bTfsOqAhC0MAP/pSSfUicQWtW7UpS/b0JCnLrZUqOd9PeLX
ATA6mcprYnHbJVYyTSxvWxR+8rtWHZCwhQHgH5m+tmzxb1Zr6+eIhT5Weghcaz2a/Rrpt74mgB+XvnFB
LG67xEqmyuVtg5ayGf/EqgMStjAA/EF/fr+hYZ5Y4HbZ1lSqmnrui18fwLulLp8Wi9suseIpYnnbIV42
60+sOiBhCwPA29pTjWpXZJFY2M6YPXzA4NNMp/j9AHhbz7kjYnHbJeLgAIiWTP+FVQckbGEAeFesp1pt
bSoWStp5mxoKVH3XXfH7AvBD3af2icVtl2jRJLG87RArnTrTqgMStjAAvKc/06GutR1VB+Irs1YMn9a3
tiG3A/7GYm3Dl+pofIN6lukSv08A3+k8vFMsbrtECp0bANHiGSVWHZCwhQHgLbGeWnUsscEq/1/ZF1um
Njbmi0XtNH2aYWNXpfj9Asiojj3rxOK2S9TBARArmbrZqgMStjAAvOFpX5e6237mreIfafjdgBxP/xsL
/TVPJ3dw7QBA0Lp5iVjcdnF0AJROPWHVAQlbGADui/bUqOPJTWLhS76K6ncD8sSidpq+smBTT5X4cwBh
1bK6SCxuuzh5DEC0eMotqw5I2MIAcE9vpkVdbjsklvyPW6F2RRaodQ32XhNgNPSxAQfja7isMJA1kOoS
S9tOjh4DUDS53qoDErYwAMzr6+tQ9zsuqsOJtUKxf5iK2PLhV+WjvxSwffR1Cb5pOaCeZbrFnxMIA6fv
BKhFCieK5W2HSNGkdqsOSNjCADBHH92vi/9IPPfiH2lfdghs00PAhbMF9JUELw0PAc4WQPj0N9SJpW0n
JwdAtPDjPqsOSNjCAHCWPrivqbtKXWk9rA4l1ojlbaf98RVqT3SR2tJYZPxgwXX1c4aPT9BXLeRdAYRF
X80dsbTt5ORBgJGCj19YdUDCFgaAvfSNdVp761Vt5xX1Tet+I6X/Lvvjy9Xu7BjQ7wxszL5KN/kxgT42
YU9kiTqf3JsdQJVqoL9X/H0Bfpe+dUksbTs5eQxAU/74IasOSNjCABi7gb6U6uyNqobuu8Oves8373W1
8H9MRXyF2htbonZEyobfIVjv8L0Fvk+/O7C9af7whYVutJ1QydTD7O+Qmw/B/1KXToqlbadI0WS5vG1y
Ny/vb1mVQMIUBsDoDGbLqqs3puq776g77afVuZbdni770dofy46CqB4F89WWpuLsKJgrFrgT9F0NtzeV
qcOJ9ep66zHVmnoi/u4BL+s+8ZVY2naKFjs7ALgjYEjDAHi37nRc1XVdU1faDqkjiXVigQZRRaxc7Y4u
VNuyg8D0aYbrG/LUvmj58EGFenBJfxfASzr2rhdL205RB28GpCVKZ463KoGEKQyAH+pJJ4c/v/+6eadY
jmGk3yHQxxHot/Gl0nbO7OF3CC62VGT/Lgnx7wW4rXXTIrG07RQtmSoWt12ipdOXWZVAwhQGwHfaehty
uChPeOiLD5n8mOANfUbDwfgq1d7bKP79ADcMplOqeUW+WNp2cnoAxEqmHrMqgYQpYR8AfZl2df2v77yH
0drZNN+1exKcSGzhNEN4wvOWuFjYdouVThOL2y7RoimVViWQMCXMAyCRqhPvvIfR0Xco3ODSPQm2NBZa
ZxLIf1vAhKePa8TCtpvzA2BSs1UJJEwJ6wB40n1n+C1lqdgwevrUwo2NBWJJO21d/Vz1pPOO+PcFTEjf
vSoWtt1ipdPF4rZLpHBiv1UJJEwJ4wCIdN8Xywxjo68+uLEhXyxpp+mzFGLdNeLfGXBa6tIJsbDtFps/
Uyxuu0QLxr+yKoGEKWEbAPogskOJ1WKRYewq4stdOEvgO/peBJlMm/j3BpzUdXyPWNh2iy/4RCxu2+Rl
R0Be3q9ZtUDCkjANgGf9PepUcptYYMjdnuhisaBNqIiuEP/mgJM69qwVC9tuiYWfysVtIy4GFMKEaQDU
dH4jFhfss7mxUCxo581WdZ1Xxb874JTWtaViYdstsegzsbTtFCuZMcuqBRKWhGUA9Gfa1eEAXLrX676K
LRPK2YxtTaXi3x5wwkBHq1jWTkgu/kIsbTvFSqbttGqBhCVhGQC8+jfHvXcBvlQPu26If3/Abk/r68Sy
dkJy6ZdiadspWjzlllULJCwJwwDQN/I5ntwklhXst9vVYwGWi48BwG7pO1fEsnZCctkcsbTtFCue3GLV
AglLwjAAWlP1YlHBKSvU2gbzVwnU9JkIzzJd4uMAsFPPuSNiWTshWT5PLG07RQomDFi1QMKSMAwAfa9+
uajglC2NxWJBm3Cv7Zz4OADs1Hlgi1jWTmnKGycWt23yPlJq35//B1Y1kDAk6ANAv/1/jLf/jXPzlMB9
fAwAA1o3LxaL2imR/AlycdupaPo/sqqBhCFBHwD6nvJSQcFZ+uqAUjmboO9WKD0WALsM9vYYuQvg90UL
J8mlbaNo2cypVjWQMCToA+BJ1y2xoOA8ty4PrDWnHomPB8AOz2KNYkk7yelbAmvR0qnbrGogYUjQBwC3
+nXP9qZSsZxNuNpyWHw8AHbIVN8SS9pJTt8QSONUwJAl6AOA0//cszu6SCxnE/bHVoqPB8AOPReOiyXt
pLjDNwTSIoUTO6xqIGFIkAeAvkGMVEwwQ98gSCpnEzY1FoiPCcAOHYbPANDiBu4H0FTw8UurGkgYEuQB
kEg9EIsJ5ujb9UoF7bS1DV+qfq4HAIe0bFgglrSTkgbuB6All3z596x6IEFPkAdAbedlsZRgzubsK3Gp
oE143HlbfFwAuRjoNHcPgO/LFrNY2HaLlUz/d1Y9kKAnyAPgSuthsZRgzvamMrGcTbjYsl98XAC56H9U
LRa000xcDVCLlkzfatUDCXqCPACOJzeLpQRz9rh4IOABDgSEA3qvnxcL2oRI3nixtO0ULZ58z6oHEvQE
dQDo2/9KhQSzKmLlYjmbsKWpSHxsALnoOr5HLGcTIoUTxdK2U7RoYrdVDyToCeoASKYeioUE8/QNeqSC
dt5sbgwE27VtXyGWswkxAxcDiuRPeGXVAwl6gjoAHnReFcsI5ulT8uSCdl59113x8QGMxfAlgFcWiOVs
QrxshljadksUTv4dqyJIkBPUAXC59aBYRjBvh4sHAp5P7hUfH8BYPI3Wi8VsipFrAWTFi6dNtiqCBDlB
HACD/b3qSGKtWEYwb290iVjOJuyJLBEfI8BYpO9cFovZlOTiL8TCtlu0eOpBqyJIkBPEAdCRbhKLCO5Z
Wz9bLGin6QsRfduffusxAoxF96l9YjGbklw2Ryxsu8WKJjdaFUGCnCAOgIdd18QSgns2ungcQKT7vvg4
AT5U2/blYjEbo68FkDdOLG07RQo+HrQqggQ5QRwA51v2iCUE9+yMLBDL2YSTia3i4wT4EIOpbtW8Il8u
ZoMiBc6fCtiU95FqK/n8P7VqggQ1QRsAvZkWsYDgrorY8uHr80sF7TT97oP0WAE+xNMnD8RCNs3EqYBa
vGzWv7dqggQ1QRsAdV3XxQKCGdfbjg5fg6G/r3P47zHQl1LtvY2qsuO82t5UKha0CY3dlW89VoAP0Xvt
nFjIppm4LbAWL526z6oJEtQEaQAM9qfVmebtYjHBWceTm1Rrb734d3mjN92iDsXWigXttIPxNeL3BIxW
15GdYiGbFjd0V8Bo0eR6qyZIUBOkAaAP9pLKCc7S91xIZZrFv8lIz/q61eHYOrGknaTPQmhPNYrfEzAa
rZsWiYVsWnLpbLGw7RbJ/3jAqgkS1ARlAOhX/1837xQLCs45nFgzfNql9Dd5l3SmVW1uMH9WwOHYWvH7
AX7MQHuLWMZuaTJwU6BIVjIv7+dWVZAgJigDgFf/5h2Mr1LJVJ349/gxN1pPiCXtJN4FwFj1PbgrFrFb
IoWTxNK2W7Rk+i+sqiBBTBAGwNO+bnWCW/8a96Trlvj3GI3O3qhY0k7jyoAYi9TF42IRuyVWOk0sbLvF
S6futaqCBDFBGAD3Os6KBQXn6KP6pb/Fh9jYkCeWtNPutp8Vvx/gXTr2rheL2C3x+bPEwrZbtHhKk1UV
JIjx+wDo6I0MvxUtlRSccaX10PAxF9Lf40Nsj8wXC9ppG7LDoy/TIX5PwEiD6R7VsqpQLGK3JBZ/Lha2
3SIFH7+wqoIEMX4eAPoc87Mc+GeUvsris/4e8e/xIfSA2BddJha0Cfp0ROn7Akbqb6gTS9hNyfK5YmE7
IVE867+16oIELX4eAPc7LoolBWecbN6SfeXcLv4tPlR3Oj7839zcVCgWtAk1HZfF7w34vt6rX4sl7Lbs
q3OxsO2WKJteaNUFCVr8OgD01eV4698cfXvlrmxpS3+LsajqvDD839WXCF5XP0csaKfpjwIymTbx+wPe
6DiwRSxgt0WLp4iFbbdo8dTrVl2QoMWPA+B5X0qdTnLFP1MOJVar5tRj8W8xFvp+DUfia//6v787ulgs
aBMOxFaK3yMwrC+tWtYUiwXsNlMHAkYKJ/VadUGCFj8OgHsd535QUHBWQ/c98e8wFnq8XWjZ+9bX2NpU
JBa0CffazonfK/A0Wi+WrxeYOhCwad44Fc3L+zWrMkiQ4rcB0Jp68lZ5wDnVHRfFv8NY3Ww/IX6divgK
tb5+rljQTlvfMFf1pBPi94twS9+8KJavJywzdyBgrGz6X1iVQYIUPw0AffT5yeQWsUBgP31nPztO93uj
uuOS+HXe2BNdki3k2W8VtAlfRZeJ3zPCzSs3AHoXUwcCxounfWVVBglS/DQAqjq+O3AMztOn++m366W/
w1jojxGkrzPSlkb3Pgqobrf33Q74XVq1rF8gFq9XREvMXBEwUjw5alUGCVL8MgC607Hhg9Gk0oC9TiW3
qn4bL5TTmqrP/u3WiF9rpIq4e2cFbGzIz/7cXeLPgPB53hwVS9dLjB0IWDCBCwIFMX4YAPpt6AstX4mF
AXsdS2xQPemk+HcYC32+/9HEevFrvcvOyAKxoE04mdgq/hwIn/Sdy2Lpekli8RdiYTshOn/GP7ZqgwQl
fhgA0Z5qsSi86GLLPvWw65qKp2pVrKdWPe66qa60HvbFNQv0q/TW3nrxbzAW+qJB+uJB0td6vxVqfcM8
saCdpu8Y2JH6sNsbI5i8/vn/sPJ52XIe91ZZOyFWMm21VRskKPHDAPi6eZdQEt6iL0msL04kff9aKtOs
LrVUiP9br2jqrhK/97HQxw/o4wikrzMau6ILxYI24Uh8g/gzIUT60qp1XZlcuh5j7NbAxZMfWbVBghKv
D4BYT41YEF5yqbVCPev78evj648y9F30pP+G22o77bssrv45r7UeFb/O6Ln4LkDDHNXVGxN/NoSDl8//
HyleNkMsbNtxHEDw4vUBcLbF26/+TyQ3q/6+TvF7fxd9H30vfSRwo+24+H2OlV0jZ2fEvXcBjsU3ij8b
wqH3+nmxbL0osegzubAd0Fjw2R9Y1UGCEC8PAH2rX6kYvGSsb5vr/50XzmrQH0vouypK3+NYjPZ0v1GJ
rVBrXTojQF8caKDfvt8L/KVj/2axbD3J5AWBSqavsKqDBCFeHgBefbv8DX10+0Bfr/i9j0Zz6tEProlv
2pnm7R/87sX7JFMPbX9nw93rAlwSf04E22A6pVpWF8ll61GRwoliYdstVjylzqoOEoR4eQCcad4hloJX
XGk9JH7fH6Ij3aSOJzaK/30n6a/Zm2kWv6ex0J+ZOzFmOBgQpj2trxNL1stipYYuCFQw4VurOkgQ4tUB
oF+ZSoXgJXfaz4jf+4fSd8c7ndwmfg0nHE6sUW3vOWPhQ/Vl2oaPhZC+Vq4q4uViOZug332Qfl4EW+qb
k2LJelli4S/FwnZCS+mM/96qD+L3eHUA6KvHSYXgJbfaT4rf+1joc+ZNHfAY7akRv4ex0Gc/OPt9r1Dr
XLo/wNqG2dmf0b57IcAfOvasE0vWy5LL5ohl7YRo6fRlVn0Qv8erA6Cxu1IoA28517Jb/N7H6mlft7rU
ul/8Wnap67oufu2xGOzvVZfbDolfx04bGvPEgjahM83pgGEymOpWLSsLxJL1ukj+BLGw7RYtmvzAqg/i
93h1AOhT5aQy8Jp0plX8/sdKH5GvT8uTvlau7PrI4o177V+LX8duGxvzxXI2QR/YKP3sCKb+ukqxXP0g
WjJVLGzb5XMcQGDCAMiN3aX6xv2Oi+LXGyt9sSI7T/d71HlD/DpOYADAlJ4zB8Ry9YPEwk/lwnZAM/cF
CEa8OgD0efJSGXiNPu0tkXog/gy5eth1XfyaH+rr5p3DHy9IX2Ms4j21Ri9ktKHRnSsCat3phPg7QDC1
bl4slqsfJJfOFsvaCbGSqZutCiF+jmcPAuz1/kGAbxxOrFXNqcfiz5GrXC8YdDy5SaXT9n1MoU9b1GcR
SF/LGfpiQG4dBDgn+zNzEGBYPE9GxGL1k0jBx2Jh2y1SODluVQjxc7w6APxwGuD3HYyvHr4KnvSz5Kol
Oy6OZEeG9HXfRw+T9mxhS//NsdDHOxzLDgrpazllX2yZWM4mbGksEX8PCKa0jy7/+y7GrgeQP25I5eX9
zKoR4td4dQBo+q1rqRS8rLbziviz5EpfFvlYcvQXDNJv0eu36qX/1ljojxDcuCvjLhfvB3CUCwGFSkfF
JrFU/cTkfQHixTP+0qoR4td4eQDYfSCcKfc6zg3fEU/6mXLxIRcMetx1U/xvjIW+3PE3rQfEr+O0LU3u
XQq4xsY7JMLbBnt7VMuqQrFUfUXfFyBvnFjYdouWTD1t1Qjxa7w8ALrTMbEU/OB629Hhe+JLP1cu9AWD
9PUHpK/5xl2bz0zQ/z3p6zhtv74ZUIM7n//rWxFzM6Dw6K+7JxeqD5m6L0C0cFLKqhHi13h5AGjnW/aI
5eAH+qI+dh59/8az/h51ufWg+DX1hXn0BXqk/91YPOi6Kn4dE3ZGFojlbMKJxBbx94Fg8vPpfyPFymaI
hW2/cao9b9ZvWlVC/BivDwB9ip1UDn6hPzfX18qXfrZcSBcM0u8M6HEg/f8fC33J4O//981aMXxLXqmc
nabfdeD0v3Dx8+l/IyUWfy6UtTMipdPmWFVC/BivDwDtx97y9rpTya0qlUmKP1uu3hwncTy5WWVsHBpt
vQ2GT/f7oZ0uHvx3LL5R/J0gmJ4F4PS/HyifZ+44gOLJ96wqIX6MHwaAPppdKgk/0Ufwd/ZGxZ8vV/qq
fPp2vNL/21ikMs3qWGKD+HOYsD+2cvgzeKmcncar//BJ3/D/6X8jZYtZLGy7RQsmDFhVQvwYPwwATV/K
VioLP9H3y2/u8falZfX1F04nt4vfvylufvZ/OrlD/L0guDoqNool6mex+bPEwnZCY8Fnf2DVCfFb/DIA
utPxnK6I5xVOXjAoV/q4AreHVkV8uVpbP0csZ6dtaihQzzL2H7QJ7xro7lDNPr373/uYvSzwtO1WnRC/
xS8DQKv26XUBJE5dMCgXt9pPit+rSVsaC8Vydt7s7OPrG/H3guDK3L8pFmgQGLs9cOHENqtOiN/ipwGg
z6s/NcoL4fhBZcd5Ry4YNBY1nd+I36NJe6KLhWI2oyK6Qvy9INi6ju4SyzMIYqXTxcK2W2PeOBVdOu03
rEohfoqfBoDW1tto9E50TnPqgkEforGnUvzeTKqIr1DrGtx561+fbqgPfJR+NwiuwXRKtawpFsszCExe
FjhWNv0Lq1KIn+K3AaBVdQbnowDNqQsGjYa+6+IhF0/3e2Oza5f8na2qOs6LvxsEW/+jarE4A8Pg6YCx
ksn3rUohfoofB4A+WM2NG9M4yakLBr1PTzqhjibWi9+PSbsj7r31fzC+RvzdIPiCdPW/d4kWmTkdsCl/
wkurUoif4scBoOlz6oNwVsD3OXnBoJG+O93P/eMpKmLL1TqXjvrf0JCn0n3t4u8HH6ivR73srlcv2+6o
V82X1KvE1+p17FTWCc/6tnKb+vbulkAbvLNRDdxcZ8Sruh0NQw277w7V77o3VL+zaujxttqhhxvrVd2q
5qGaxZmh+wueOe119aL+oerFPUPVS6Kvasovq5rlhap21W9bdUdGxq8DQKvtvCyWip/pC/C09zaKP69d
nmefrC+0fCV+fdM2u3bU/5eePBPDb152N2TL/rwaatyrsk/+wLs93qSGasvVUFWxGqo063X14nb1YHm+
UuqnVvURHT8PAH3TGz/fLOhdnL5g0M0R9xBwC/f6968XPdHsq+jj8hM98D5PtqmhmqViUTvu/oLnqm7l
FKv+iJ8HgKYvgasvriMVjJ85dcEgrxxAqS/449pb/4356mmmU/z94Ef09aqXLdflJ3bgQzxany3lkrdL
2oTqpbWqaimnLvp9AGhVnRfEkgkCO9+mbui+K34NN2xpdOuo/y9Vdfsl8feDH5Hpzr7qPyU/mQNjod8N
uD9fLmmnVS/sV1Xlv2tVYTgThAGgz6M/mdwiFk0Q2HHBoObUI8+8U7I3tiRbxLPfKmYTvoouE38/+BF9
2fKPHpOfxIFcPNnu3gi4v2Aw1CMgCANAi7l673rn5XLBIH0fhaOJdeJ/1zS37/Rn510TQ6OvV72On5af
vAE76HcC3Po44P7CPlW36tetSgxXgjIAtLPNO8XSCYqxXDCoL9OuTjZ7592RXS7e6Y8D/8bmZest+Ukb
sNPwMQFCQRvwumbpPasSw5UgDYCgvwugnWvZrfqzpS79/CPpc/3Ptnjpgkkr3Hv1X8+r/7F4kUpkn5z3
vP1kDTjBrbMDslR1+V9ZtRieBGkA6M/Jvw74uwCafkWv74kg/Q7e0GV3pnmH+L93i5un/R2KrRV/T3i/
1/Ez8hM14AT9UYAL1wkYdn9RxqrF8CRIA0B71HldLJ+g0TdEutZ2RMV7aoff5tfjR78zkOx5OHxbXy+e
GrmxsUAsZxOaeu6Ljxe824tUTH6SBpxUu0wuaAPUg+XTrGoMR4I2ADKZNrF84C593r9bR/7rqw1KjxW8
36vmK/ITNOAkfcVAoZxNeF2zOGJVYzgStAGgXfTIZW7xKztdPPjvVHK7+DjBe/Sl1VDjPvkJGnBaVZlY
0I6rKh0K1RkBQRwAjzpviCUE92xsyBfL2YRYd634OMG7vUjF5SdmwIQaNz8GWPGxVY/BTxAHgL5ToFRC
cMf++IpsEbvz9v/6hrniYwTv97KjVn5iBkyoWyOWswnqwfIKqx6DnyAOAH1AnFcufIOVak/Uvfv9740u
FR8jeL+XrTflJ2bAhEcbxHI2ombpfaseg58gDgDtctshsYxg3vZIqVjOJlxo2Sc+PvB+HAAIVz1y8UDA
+0uiVj0GP0EdAHVd18QygnmbXDz9r7GrUnx84P1eNV+Sn5gBEx5vFsvZhNfVi1qsegx+gjoA9M1vpDKC
eesa3Lntr77637PMh106Gd951XxVfmIGTHDzHYDqxY1WPQY/QR0A+jK4UhnBrIp4uVjOJuhbDkuPDfy4
l6235SdmwISH7t0XYKh26S2rHoOfoA4A7URys1hKMGd3xL0DAA/EVomPC/y4l50P5SdmwIS6VXI5G6Bq
yrda9Rj8BHkAXG09IpYSzNneVCaWswmXmveLjwv8uBfpVvmJGTChZolYziaoB6v+xKrH4CfIA6C284pY
SjBHX4ZXKmcT6rvuiI8LjM7ryGH5yRlw1E41VFUilrPzyl4ppX5q1WPwE+QBkEzViaUEc9Y1zBXL2Xmz
1dNMp/i4wOhwHABc4eLn/6/C9Pm/TpAHgL5LnlRKMOO7GwBJ5ey8zRwAmLMX6Q411LhXfpIGnFK9SCxn
55UoVbvmf7OqMRwJ8gDQOBDQPXuii8RyNuFAbKX4eMCH4YJAMOrRRqGYDaldUm/VYngS9AFwo+24WE5w
3ramErGcTbjSelh8POADZbrUUGOF/GQN2GqXGqpaIJez06rKhtSjdf/QqsXwJOgDoL7rtlhOcN7Gxjyx
nE1oTT0RHw/4cC+7nghP1oDNHqyUy9kAVV2+xqrEcCXoA6ArHRfLCQ6LuXcHwA0N88THAsbuZest+Ukb
sMMj9w78e12z9J5Vh+FL0AeAvjPg8eQmuaTgmN0u3gFwP5//O4LjAeCIx/pzf3dO+9OX/VUq72dWHYYv
QR8A2r2Oc2JJwTn6MrxSOZtwv+Oi+DhA7l62cWogbPRwXbaI3Sn/VzVLboTqnH8pYRgAbb0NYknBGfvj
K9TaenduAKRvPPS8r0d8HMAeL7sb1OvIQfkJHRiN+p1qqLZcLGanva4qe63qVhRZFRjuhGEA6I8BOB3Q
HDdP/6uIrRAfA7BZdmQNHxfQuE9+ggdEu7Kv+tfqo+7FcnZUVenQ0IOlN1Xtqt+26o+EYQBoDzqvimUF
+21uLBDL2QQu/2tYX7d61VGjXsdPc9EgyOqzHm/JvuJf6ULxl6ih+4uyBbC8QtUu/x2r9sibhGUA6NsD
H4mvFQsL9vkqujRbxO4c/b+9ab74t4f9BjO96nlzTPXXVar0jQsqdfm06rlwVPWc2qN6Tm5XqRNbVM/x
zVmb8A7dRze4oufo+pdduxdWOaVz98L7nbsX1HbtLnvUs6esqWtPUVvXzoKuzu353R2b5vS2rv6sL7ls
xvPkUvs1L53+rHnJ9P7k4um9iQVT26KlU+5Hi6d+Ey2ZdiRaNrU0VjLjn9/Ny/tbVv2RsAwAjXcBnLfJ
xVf/T3j175iBVJfqf1ipes4fVe07V6qWlQWqeXkeMDbl81Ry6WwVX/CpipZMVZH8Capp3kdGRLSCjwei
RZOz42BGSaRo4n9p1WH4EqYBoA8OO9O8Qywu5G63m5f+jXLvf7sNplPZ0q9SXUd3UfhwXGLJFypWMk1F
8saJxe2kaOGknmjp9HXtebN+06rGcCRMA0Dr7I2qQ4k1YoFh7PbFlg8fgS+Vs9M2Nearvj7u/GeXgfaW
4Vf6rWtLxSdqwFHl84bfGci+ShfL2kmR/HFD+p2BptKp/6NVkcFO2AaAFu2pUQfjq8Qiw4fbH18+fPU9
qZydpkdHPPVA/Dvjwwy0NaueMwdUy6pC+YkZMEkPgYW/VFEXhkDTvHEqWjz5Ubxs5j+1qjKYCeMA0Bp7
KtWhxGqx0DB6+2Mr1MbsK3CpnJ22Pjs6Grsrxb8vRk8f0Je+dUm1rC6Wn4gBFyWz4vNnqUjeeKGoHZb3
UXYITLkUXTrtN6zKDFbCOgC0ltRjLhOcg69iy4ZLWCpnp21tKlHtvY3i3xWj97TxoWrbVi4+8QJeklw2
R5exXNQOi+RP+DY6f8Y0qzaDkzAPAE2fHni7/RQfCXwAfaW/7ZFStdaF0/30FQa/TuxUA/0p8e+J0Up/
96qfg/vgM/GFn2ZfmZs/UFCLFU+5ofLy/oZVn/5P2AfAG/rgwOttRxkC7xNboXZG5mdf9c8Vy9lJ67LF
fzS+QXWmY+LfD6M30NWuOvZvFp9cAT9ILvnS6KmD3xctnJSKL5r5e1aF+jsMgB9Kp1vVo87r6nzzXrkE
Q2eF2hNdrLY0Fg+XsFTOTtHvMOxqWqSutR5V6b528e+FD6MP9OMtfwTCsrkqUjBRLGnH5U942TR/yh9Z
NerfMADeLZ1pVU+6bqvrbcdCdazAvlh59pX+QrWlKVv6Rk/tmz18ISF9O9/rrcdUb/b3L/1dMDbPk1HV
ummR/GQK+FF5dgQUTpJL2ml5418nSqf+K6tK/RkGwOj1pJOqqbtq+PbCF1v2qSMJ/19auCK2fPgV/o6m
MrW5sTBb+Obe3tcfJeyMLFDHE5vUnfYzqisdF3/vyN3z5mz5r58vP4kCflY+T78tL5e00/R1A+bP/DOr
Tv0XBsDY6bsM9qQTKtJ9X1V1XlCXWis8PQoq4svVbl32ke/K3uRn+fpr7Y4sVicT29S99nOqozci/k5h
P31hn9bNi+UnTyAIXPw4IJI/4ZVvrxfAALDXYH/vcLk96rqhrrYecfUGRLrwd0UXqq1NxcZP19MXBqqI
LleXWw+p5tQj8XcF5w30dKr27SvkJ00gQPRpgpECdw4MbMqf8G2icLL/7jbIAHDW876USqTq1K32k0bG
QEV8hdoVWWDdktfsaXr644OvosvU/Y6Lw0NI+n3ArK4jO8UnSyCI9NkB+ip+Ykk7LFI4sUPl/eSnVrX6
IwwAc572danazsvqaGK9WN652BdbNvxK341z8/WVAK+0HlYD/T3izw13pG99Iz5JAkEWmz9LLGgTosXT
DlvV6o8wAMz7bghcseV4gYpYebb4i7JFbL74N2SL/3rr0Wzx82rfa57Fm7imP8JJHxRYNFksaOeNU7Gy
6X9h1av3wwBwT1+mffijAanYf4w+VU4fQe/GK349NvRFefoz3IHPm9KqY886+ckRCIHk0tmuXS0wUvDx
M99cLZAB4D59jMDJ5i1i0Uu+ii7NvvrOE4rZeduayrj7nsel710VnxSBMInPnykWtAnR0mm7rYr1dhgA
3vC0r1vdbT8jFv4b+lX/9kiZWMxO0+80nE7u4O1+jxtIdXG+P6CVz3PtcsH6+gC+OCuAAeAt+pS5E8nN
b5W/vvPexgZ3XvVvaSxR8Z5a8fuFt/RePSs/GQIhFF/wqVzQBkRLpl60ata7YQB4jz5I8PvvBrj1Wf+v
XvVz5z0/GOzt4dU/8H0uvwsQK/7it6yq9WYYAN4V7alWWxv1Ef5yQTtJXylQX/ZY+r7gTfr2vuKTIBBi
8QWfyAVtQKx42nGrar0ZBoC3dfXG1FeRZWJJO0G/6j+V3KaeZTin32/ad6wUnwCBUCuf6+YZAS88fXEg
BoA/6KvrOX3k/47IfBXvqRO/PrztabRefvIDkH0lPkUsaBNipdP+yqpb74UB4B/9mS51JrHD9pv4bGoo
ULfbTolfE/7Qc+6I+MQHIE8lFn0mlrMJkaIptVbdei8MAP/J9LWp08ntal19bvfq1/fev9Z6jFP7AoD7
/APvUT7PtY8BmvLGv/bsxwAMAP9KZ9rVpZYDaltTabbQR3eWwNqGOWpPdIm613aO4g+I5y0x+UkPwF9z
7/LAH6l4ySf/t1W53goDIBi60wl1s+2kOh7fOHzPf33Fvi2NRWp703z1Vax8+HS+6vZv1FMu3xs46btc
+Q/4MW7eJChWMnWfVbneCgMA8Leu43vEJzwAv5JY8oVYziZEiyY1W5XrrTAAAH/j9D9gFPTpgEI5G5E/
4Vurcr0VBgDgY31p1bK6SH7CA/ADrl0VMO8jlZw+/W9ateudMAAA/xpoS4pPdADeFimcJBe0AfH5M/+Z
VbveCQMA8K+nDXXiEx2At8VKporlbEK8bPpnVu16JwwAwL/6H1aKT3QA3hYrnS6WswnZr73Aql3vhAEA
+Fem+pb4RAfgbbGyGWI5mxArnbbBql3vhAEA+BfXAABGL+7mtQCKp1VYteudMAAA/0rf+kZ8ogPwNjcH
QKR4qvduDcwAAPyLAQCMHgNgRBgAgH8xAIDRYwCMCAMA8C8GADB6DIARYQAA/sUAAEaPATAiDADAvxgA
wOgxAEaEAQD4FwMAGD0GwIgwAAD/YgAAo8cAGBEGAOBfDABg9BgAI8IAAPyLAQCMHgNgRBgAgH8xAIDR
YwCMCAMA8C8GADB6DIARYQAA/sUAAEaPATAiDADAvxgAwOgxAEaEAQD4FwMAGD0GwIgwAAD/YgAAo8cA
GBEGAOBfDABg9BgAI8IAAPwrffeK+EQH4G1uDoBoydQDVu16JwwAwL/66+6JT3QA3hYrnS6Wswmx0qlL
rNr1ThgAgH89izWKT3QA3hYrniKWswmJkum/sGrXO2EAAD7Wl1atGxeKT3YAvqd8norkjRPL2WmR/HFD
DcuX/0dW7XonDADA37rPHpKf8AD8tcSiz8RyNiFSPPmRVbneCgMA8LeBjhbVsrpIfNIDkJV99R8tnCSW
s/PGqciCT/5nq3K9FQYA4H+9187JT3wAVHzBp0IxmxErnnrBqlvvhQEABEFadR3bLT75AWGWWPx5tojd
+ew/WjipVeXl/cyqW++FAQAERKaX4wGA7xn+3D9/vFjOTosWTYol8/J+blWtN8MAAIIlU3VTtW5aJD4h
AmGQXDbXtXP+owXjX8VKp22wKtbbYQAAwTPY26MylTdU15GdqnUDpwki+JLL5gy/3Z8tX+Ov+iP5419H
Cye3xkqmbmxdNPPvWPXq/expjB+eW/VIAQiuvMqHqvhODTzilzer1P/09TVX/JvLt1/HV5f+J0GSWJH3
d2OFs/6+G+ryPv51q079l531seOf3KtTAAAzPrpdo37v3E1X/POrla+tp38S9jAAAMAsBgDxRBgAAGAW
A4B4IgwAADCLAUA8EQYAAJjFACCeCAMAAMxiABBPhAEAAGYxAIgnwgAAALMYAMQTYQAAgFkMAOKJMAAA
wCwGAPFEGAAAYBYDgHgiDAAAMIsBQDwRBgAAmMUAIJ4IAwAAzGIAEE+EAQAAZjEAiCfCAAAAsxgAxBNh
AACAWQwA4okwAADALAYA8UQYAABgFgOAeCIMAAAwiwFAPBEGAACYxQAgnggDAADMYgAQT4QBAABmMQCI
J8IAAACzGADEE2EAAIBZDADiiTAAAMAsBgDxRBgAAGAWA4B4IgwAADCLAUA8EQYAAJjFACCeCAMAAMxi
ABBPhAEAAGYxAIgnwgAAALMYAMQTYQAAgFkMAOKJMAAAwCwGAPFEGAAAYBYDgHgiDAAAMIsBQDwRBgAA
mMUAIJ7IjvroUekBCgBwhpsD4F9cvccAIN9lb0Nso/QABQA44/+7WS2Wswl/fr3qhfX0T8Keiqbo59ID
FADgjP/n+n2xnE34d7eq+6ynfxL2nItE/rPPK+UHKQDAfn98+Z5YziaUVD8+ZT39E/KTn6x81NAhPUgB
APaaefeB+u/O3xLL2Wm/f+GW2heN/ufWUz8hP/nJ4froLz4VHqgAAHv9y2tVYjmbMPFObaf1tE/Ir7L2
UWOT9GAFANhj8p1a9fsuvfr/x5fuqM318f/Keson5Fc5ncz8fNGDJ0+lBy0AIDcz7j1Q/+TiHbGcnaY/
clj+sL7Qeron5O2cbEj8zrK6hh7pwQsAGJupdx+of5p9BS6Vs9P+4MJttaju8RrraZ6Qd+diNPprO+pj
J+ZUPRqSHsgAgNH7Nzeq1f9wwfzb/v9N1r++fn9w/aPo/2E9vRMyupyJxf7+nobI9hUPG9tLap684FRB
AHi/WfceDH/O/1e3atSfXatSf3jxtljOTtCF/4+yr/b/6PLdoY9v13atfVg/1Xo6J4HKT37y/wPGDXhO
6T0WmQAAAABJRU5ErkJggg==
</value>
</data>
<data name="DeveloperToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripMenuItemDeveloper.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAFTSSURBVHhe7b0J
@@ -1483,7 +1481,7 @@
RK5CYII=
</value>
</data>
<data name="ChekUpdatesToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripMenuItemCheckUpdates.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
FQAACxUBgJnYgwAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAGmYSURBVHhe7Z0J
@@ -1940,7 +1938,7 @@
p7cfS38KAAAAAAAAAAAAAADoBZL0/wHTEjxkYZAD5wAAAABJRU5ErkJggg==
</value>
</data>
<data name="QuitToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripMenuItemQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAR9JREFUOE+Nkj1uwkAQRn0JcpSkDCJBLkKkeEXNBWjsg4WSDjrEGaBwkBDESmmS
@@ -1949,272 +1947,6 @@
57P9Wi7tx3TqLD7xCF4DnxTWTgp8V1VTiPjbIA3hOuk6IDoqiMWPujpd3ZkmEVxfvWcOLBrb7fnP02ZU
1oh1wHLacs/cG4mIItgwkf/Qb+6Zl8KLEWeji/+ofWF8tICv2AU4db7tpoCMIspFa1EN4C0+8V6bP0p+
AY7pF0Fg9EWkAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolsToolStripMenuTools.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAADywSURBVHhe7Z0L
fFxVnfi3oLzVFZ88fILvx/pchNW1Autu3S1LMgxJ02TSJDWu5R9AUEARiVbdVkEWdYHSNrW1IlQXRBAV
FRWQlyjP0vSBhT6GtIACglBoO//fac/A9PQkuTNzH+ec+/1+Pt9PUWhy783M+f7uzdyZvwMAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcJW+vr59p02b9g5xotja3d3d39PT81nxLHGOdqH8
uyXay2r+WblA/F9xlniqOENslb9zSG9v7/6Dg4O76G8FAAAAaVIqlQ6QIP+r+GmJ87cl8lfIn3eLj4mV
JJXv9Yy4Vv75d6IaGM6R7ejs7+9/qd48AAAAaJIJEtg3iwp1Vv5b8c+iNc4Z+4QMBqdwhQAAAKBOisXi
bhJSden+DPEn4sOiLbYue47eHQAAABiN3t7e16vf00s41eX0R2pC6q2lUukjevcAAABAM0G9oE6i/3WJ
5b1mPAPxJ3pfAQAAcs0EOSs+VKL/DYnj/UYsg1P280G93wAAAPmjs7NzPwniaeKK2kDmwE2y+xO2HwUA
AIAcMDg4+Dw5Az5KIvhj+fMZI4x58V59OAAAAMKmt7f3BRK+E8TVNSHMq7P0YQEAAAgT9Sp+Cd7/iIm/
CY8nblS/+tCHBwAAICwkdG/u7u6+SP7cUhO/vPuUHJMj9CECAAAIh66urtf19PTMkdhtNuKXdzeJk/Vh
AgAACAOJ22vFRSLh39mnxI/pQwUAAOA/csa/t8RtUHxSxw53lDN/AAAIB/WhNt3d3SWJ2wM1scMdJf4A
ABAO6l37JGx31IQOd5bL/gAAEAb6cv8skd/zjy1n/gAAEAbd3d3/LlEL/n36Y5D4AwCA//T19e0rQbu4
JnA4ulz2BwAA/+np6TlczvzXGpFDu5z5AwCA3wwMDOwuMVO/6+dd/KJJ/AEAwG8kZG8W79Rhw/Hlsj8A
APhN9/aP6X2kJm44tpz5AwCAvxSLxV0lZOqS/1YdNhxf4g8AAP7S1dX1cgnZr2vChuPLZX8AAPCX7u7u
t0nI7qsJG44vZ/4QnQceeOBt4gzx1HK53PXggw/up/8VAEAmSPyPkJD9pSZsOL7EH6Kxdu3aAyT6PxUr
hptGRkYuEF+u/1MAgNToESRkT9eEDceX+EM0Nm7ceLCEfo0RftNHxM+sXLlyd/3XAAASRc78Zxphw/Hl
d/4QDYn/G+Tsfp0R+7G8Xyzpvw4AkAQTJGLn1EQNo8mZP0SjgfjX+ut169a9S38pAIBY0Lf5za+JGkaT
+EM0mox/1S3iIvlar9RfFgCgYQYHB58nEVtUEzWMJvGHaMQU/1ofFwdXr169h/4WAAB1IWf+u/X09Fxu
hA3Hl9/5QzQSiH+t6oWEpUqlMkF/OwCAcdGX/b9fEzWMJmf+EI2E41/rjfJ9PqC/LQDAWEzo7u6ea4QN
x5f4QzRSjH9VXh8AAOMi8f+GETYcX+IP0cgg/rXy+gAAsNLT0zPbCBuOL7/zh2hkHP9aeX0AADyLROzj
NVHDaHLmD9FwKP613sTrAwDyTalUmtTd3f2METccW+IP0XA0/lW3iov4oCGA/NHX1/d2CdkjNWHD8SX+
EA3H418rrw8AyBG9vb37S8jW1IQNx5f4QzQk/gd7Ev9aeX0AQOAMDAzs3t3d/Xsjbji2vOAPoqHiLyFd
WxNW37xpw4YNh+rdAYCAkJBdWBM2HF/O/CEaAcS/qnp9wJJyufxqvWsA4Dk9PT2dRtxwbIk/RCOg+Ne6
7fUBa9eu3VPvJgB4SKlUeqfE7ImauOHYEn+IRqDxr1XtG68PAPCQ/v7+F0nMVtXEDceW3/lDNHIQ/1pv
5vUBAH4hMeOjfaPLmT9EI2fxr8rrAwA8oVQqtRiBw9El/hCNnMa/1idEXh8A4CidnZ37SdAeqgkcji7x
h2gQ/x3k9QEA7jFBgnZlTeBwdIk/RIP4j6p6fcBh+jABQIZI0PiQn2jygj+IBvEf1+rrA16jDxkApMz0
6dNfIVH7c03k0C5n/hAN4l+X6vUBs+SY7aMPHwCkRHd390VG6HBniT9Eg/g3pv48BF4fAJASEv+PGqHD
nSX+EI0NGza8XiJG/JuwXC7/Tv58vz6kAJAAxWJxTwkbb/gztsQfoqFucZNwLauNGTasen3AIjmmB+jD
CwAxImE7syZ0uLO84A+iI2euJxkRw+ZVny9whhzbvfRhBoAm0Z/x/3hN7HBHOfOH+pBQ3VwTLozXNSMj
I1N4fQBA80jc5tfEDneU+EP9SKT+bEQL4/cG8R/1IQeAOtGf9Le5Jnj4nMQfGkPCpLBFC+N168jIyHfX
rVt3oD70ABARCdzPa4KHz0n8oXEkTFcaocJkVa8POJPXBwBEo7u7+5+M6OF2iT80h5yVHmUECtNRvT6g
g9cHAIyNRO5XNdHD7RJ/aB4VIInRdUacMD1vlEHgEP3jAIAaSqXSoUb4kPhDnJTL5fdJiLYYYcL03CJD
wEwZxnbRPxIAECR0V9eED4k/JIFEaIERJUzfL+ofB0DukdB9oCZ8SPwhKR588MH9JUB/NYKE6bpFfSaD
/pEA5BqJ3WU18cu7xB+SpVwun26JEqboyMjIl/WPAyC39PX1vUaCx33/2yX+kDyrV6/eQyK02owSpqcM
YT/SPw6A3NLT03OWEcE8u0gfFoBkkTPQNluYMDWv0z8KgFzS39+/l0TvYSOCuba7u/sL+vAAJItE6Foj
SpieDACQayR2x9kimHcZAiAV1q9f/24JEbcFZiMDAOQaid2dZvzwWc/QhwkgOSRE3zHChOnIAAC5Rc5y
32uJHtbIlQBInA0bNrxCYvSYESdMXgYAyC0SuG+bwcOdZQiAxJEYnWHECZOXAQBySbFY3E3C9qAteLiz
DAGQKGvXrt1TgnSfEShMVgYAyCUStaIZORxbhgBIlJGRkSmWSGFyMgBALunp6bncFjkcWzlun9eHECBe
9KcFcltgejIAQO6YMWPGPhKzJ824YTS5EgCJUS6X3yNh4rbAdGQAgNwhZ7FttrBhdBkCIDEkTAuNUGEy
MgBA7pAB4BJb1LA+GQIgEdauXXuAxOlxI1YYvwwAkCskXHuIj9WGDBuXIQASQeL0BSNWGL8MAJAr5Oz/
P2whw8blhYEQO9wWmIoMAJArJFjfNAOGzcuVAIidkZGRDku0MD4ZACBXSKyWmfHCeGQIgFjRtwVeZ0QL
45MBAHLD9OnTD7SFC+OTIQBipVwuv1dCxW2BycgAALlBAtVrBgvjlyEAYmVkZOS7lnhh8zIAQG6QMF1k
CxbGLy8MhNjgtsDEZACA3CBhWmOGCpOTKwEQGxKrM414YfMyAEAu6Ozs3M8WKUxWhgCIBW4LTEQGAMgF
EqNWM06YjgwBEAvlcnmqJWLYuAwAkAt6enpm2+KE6cgQAE2jbgscGRm53hIybEwGAMgFEqHfmFHCdGUI
gKaRAeAQCddWI2TYmAwAkAcmSIAeNYOE6cvdAeEhg93b1BU28XKl/O+ZfX19B+t/HT8yBCy2xAzrlwEA
gqdUKr3aFiPMRoaAMOjv73++/CzPkp/pVvNnLEPAM+JX5T+bsP2/jhFuC4xNBgAIHhkAJpkLFGYrQ4Df
FIvF3eTn+CPz52rxa/qvxIvEa9CIGdYvAwAEjyxCnzEWJXRAhgA/qSP+ys0ygL9b/9X40LcF3m8EDeuT
AQCCRxah7xiLEjoiLwz0C3XZX35ul5k/x3E8W//1eCmXy52WqGF0GQAgeGQBusVYkNAhuRLgB3We+T+r
DHm/118iXrgtsGnX6kMJECyyCG00FyV0S64EuE2DZ/5VN+ovEz8yAHxAQsZtgY07Wx9KgOCQs5Y9ZQHa
6VXK6J4MAW7SZPy3KV9jL/3l4qdcLn/PEjaMLkMABElvb++bbAsSuilDgFvEEX9lqVR6o/6S8bN+/fpX
ScSeMKKG9ckQAMEhQfmobUFCd2UIcIO44q+Un+kR+ssmgwTsi0bQsH4ZAiAoenp6ptsWJHRbXhiYLY2+
4G805efZo790MoyMjOwtrrNEDeuTIQCCQRafz5mLEfohQ0A2xB1/ZSpXdcrlcpclaFi/DAEQBLL4nG0u
RuiP/DogXeK87G/4Tf0tkkPdFijxutmIGTYmQwB4jyw8C4yFCD2TISAdEoy/8jv62yQLtwXGKkMAeI0s
PD82FiL0UIaAZEk4/srL9LdKnnK5fJElZtiYDAHgLbLwXG8sROipDAHJkEL8lb/S3y551q1bd6CEi9sC
45MhALxEFp47jYUIPZYXBsZLEi/4G8Vb9bdMB4nWl4yIYXMyBIB3yMKzwliI0HO5EhAPKZ35V12hv206
lMvlvSRaa4yIYXMyBIBXyMKz2liIMAC5EtAcKZ75V31Af+v0kGB1GwHD5mUIAG+QhadsLEQYiFwJaIyU
z/yrjuhvnx7cFpiYDAHgBbLwPGQsRBiQDAH1kVH8lekPAIoNGzYcKsHitsD4ZQgA55GF51FjIcLA5NcB
0cjgsn+t6f8KoIrE6vtGvDAeGQLAaWTh+YuxEGGAciVgbDI8869a1puSPtwWmKgMAeAssvBsMBYiDFSG
ADsOxF+Z3QCgGBkZmWmJF8YjQwA4iURhrWUxwkBlCNgRR+KvXK83KRs2bty4j4RqvREujE+GAHAOWXju
NRYiDFxeE7CdjH/nb3qf3qzskEhNM6KF8fpFfagBnEAWnmXGQoQ5MO9XAhw68696m9607KhUKrtIpG4x
ooXxyhAAziALzx+MhQhzYl6vBDh25l/1t3rzsoXbAlORIQCcQM4Ef2FZjDAn5u1KgINn/lV/pDcxeyRQ
lxjBwvhlCIDMkbPASyyLEebIvAwBDsdfXY1ZqDcze9avX/8qCRS3BSYvQwBkiiw+55uLEebP0IcAl+Ov
lAHgXL2pbjAyMvJlS7AwfhkCIDNk8fmKuRhhPg31NQGO/s5/B2UAm6k31w24LTBVGQIgE2TxOclcjDC/
hjYE+BB/7X/pTXYHCVPRCBUmJ0MApI4s+G2WxQhzbCi/DnD9sn+tpVJpkt5st+BXAanKEACpIovPB8zF
CNH3IcCn+CtlEH+r3nT3KJfLR0ucbjVihcnIOwZCavT29u5vW5AQfR0CfIu/Up6HL9Cb7y4bNmx4hXiY
eGTaShjPM0IZsgwBkAqDg4O7yAL0lLkgISp9GwJ8jL/4sN58GItyuXyiJZahyhAAqSAL0CpjQUJ8Vl+G
AE/jry7//1HvAowHQwBAvMgi9DNzUUKs1fW7Azx6tb/NH+rdgCgwBADEhyxAZxsLEuJOunolwNcz/6q+
v+AyExgCAOJBFqFec1FCtOlarHyPv7JUKrXo3YF6YAgAaJ6enp5DbAsTok1XhoAQ4q+U43mQ3iWoF4YA
gOaYMWPGPrIQbTUXJsTRzHoICCX+4uPqThy9W9AIDAEAzSEL0b3GwoQ4plm9MNDzF/yZ3qR3C5qBIQCg
cWQh+r6xMCGOa9pDQGDxV1dS5updg2ZhCABoDFmMTjQXJ8QopvXrgIAu+9faq3cP4oAhAKB+SqXSoZbF
CTGSSQ8BgcZf+Qa9ixAXDAEA9TEwMLC7LEa8JTA2bFJDQMDxH9G7CHHDEABQH7Ig3WwsUIh1GfdrAkL7
nX+tMjD9QO8mJAFDAEB0ZPGebVuoEOsxrisBAZ/5b1OO0/F6VyEpGAIAotHb23ukbaFCrNdmh4DQ468s
lUrv1rsLScIQADA+sijtIf6tdpFCbNRGfx0Q8mX/qjIgPSj7uaveZUgahgCA8ZHF6efmYoXYqPVeCcjD
mb9ShqOFepchLRgCAMZGFqZP2xYsxEaNOgTkJf7aot5tSBOGAIDRkQHgrZbFCrEpx/t1QB4u+9f4tAw7
L9K7DmnDEAAwOrJY32NZtBCbcrQrATk781f+Uu86ZAVDAIAdWajPtSxaiE1rDgE5jL/yRL37kCUMAQA7
UiwWX9fW1rbGsmghxmL11wE5u+xfdasMQQdte7JB9jAEAGxHFuS3HnPMMetEdaZmW7wQ4/JMMW/xV8PP
DfrpBq7AEAB5p7W19f0S/odU/JVTp061LmCI2LgyAHxSP+XAJRgCIK/Imf/hEv3HqvFXHnvssdYFDBEb
dlOpVHqJftqBazAEQN6Q2BfFTbXxr9rV1WVbxBCxAeXs/1L9tANXYQiAvCCRL4nP1Ea/1ilTplgXMkSs
Xzn7b9FPPXAZhgAInWKxeIJEfqsZfVPbQoaIdfvQwMDA7vrpB67DEACBMkHCPmiGfjQ7Ozttixki1ucs
/fwDX2AIgJCQs/5dC4XCHFvoR7Otrc22mCFidDeLr9VPQ/AJhgAIAfWmKxL0JWbgo1gqlWyLGiJGsLu7
+wf6aQg+whAAPjN58uS9JOQ/NcMe1fb2duvChojjKwPAP+unIvgKQwD4yNFHH/33cvZ/vS3s9cg7AyLW
rzxv7tJPRfAdhgDwiSlTprxC4n2bGfNG7OjosC5wiDimvfrpCCHAEAA+0N7e/loJ9woz5I1aLBa5CoBY
n/er197opySEAkMAuEyhUHibRHu9GfFm5SoAYl1+XD8lITQYAsBFJP7vk1g/aMY7DrkKgBhZzv5DhyEA
XEIiPVHc4UN94parAIiR5Ow/DzAEgAvI2cZREugnzWDHLVcBEMd1dX9///P1UxNChyEAskSi3CVxHvVD
feKWqwCIoysDcp9+akJeYAiALJAgnyyO+6E+cctVAESrt8tAvqt+ekKeYAiANJEQn2qGOS15d0DEne3t
7T1SPz0hjzAEQAqoT/Q7x4xy2nZ1dVkXQcSc+n/6+Ql5hiEAkmLixInPk/h+x4xxFvJJgYjP+lR3d/dB
+mkKeYchAOJGf6jPVWaIs3Tq1Km2xRAxb/J5/7AjDAEQF+pDfSS415kBzlpuC0SctkYG4RfqpyrAczAE
QLPE+aE+SSjbZ1sUEXOhDMBH6acqwM4wBECjtLa2vqZQKCy3hdcleUEg5tGenp6F+qkKMDoMAVAvEv43
i2tswXVNfhWAOfSBvr6+ffXTFWBsGALyw4UXXvjGoaGh/xCPXLhw4Uv0/x0ZOfN/v4Q1kQ/1SUp+FYB5
Ugbegn66AkSDISBsJPiHz58//3axUuNm8RIZBA7Q/9mYyNn0hyWoj5qB9UF+FYA5cYl+ugLUB0NAmMyb
N+8TOva18a+1vGDBgnfo/9xKoVCYLCH9mxlWX+RXARi68vheWyqV6r6qB/AsDAFhIXH/uLilJvajuXHu
3Lnv1H9tBySgU8Wna4Pqo7xNMIaqxP8Z8Z/0UxagcRgCwkCiHjX+VXcaAuTM+QSJZ+of6pOUvEEQBupp
+ikL0DwMAX4jMa83/lWfHQIkmJl9qE+S8noADMmenp5rZFDnk/4gXhgC/EQi3mj8q2785Cc/ucgWzxDk
9QAYkCOdnZ376ac+QLwwBPiFxLvZ+G/z/PPPV2cW1oCGIB8YhAG4SfyQfuoDJANDgB9IuGOJf9XQh4CO
jg7boorohfLc7NFPfYBkYQhwGwl2rPGvGvoQ0NnZaV1cER33a/qpD5AODAFuIqFOJP5VQx8CeFEg+qQ8
F6/iRX+QCQwBbiGBTjT+VRkCEJ1waX9//4v00x8gfRgC3EDCnEr8q4Y8BBx77LHcGYCuu6ZUKr1aP/0B
soMhIFskyKnGvypDAGImbuzq6nqLfvoDZA9DQDZIiDOJf9WQhwB1eyBDADrmI/J8e49++gO4A0NAukiA
M41/1dCHAMsijJiFT4jc6w/uwhCQDhJeJ+JflSsBiIm6qVQqTdJPfwB3YQhIFgmuU/GvGvIQoD49kCEA
M/Jv4sf00x/AfRgCkkFC62T8q3IlADFWH+/t7T1SP/0B/IEhIF4ksE7HvypDAGIs/qVUKh2qn/4A/sEQ
EA8SVi/iX5UhALEpN8iZ/z/opz+AvzAENIcE1av4Vw15COB9AjAp5XG1Us7836if/gD+wxDQGBJSL+Nf
NeQhoFgs8rbBGLe/k+fLy/TTHyAcGALqQwLqdfyrhj4ETJ061baQI9brEnEP/fQHCA+GgGhIOIOIf9WQ
hwBlR0eHbUFHjOJWcVCe9hO2P/sBAoYhYGwkmEHFv2roQwAvDsQGfFQeMwX91AfIBwwBdoaGhj4psdxq
xjMU1RCgFj5bQENQ/UqgVCqZizyizWV8qA/kFoaAHQk9/lW//e1vb3tnPVtAQ1ANAZ2dnbYFH7Hq9yT+
e+unPkA+YQjYTl7iX/XUU0+1xjMkp0yZYlv4Mcd2d3f/taenZ7p+2gNA3oeAvMVfec4551ijGZrq/QL4
lQBqb+H+fgALeR0C8hh/5YUXXmgNZoiqXwlwl0Cu3SzOksfBbvppDwAmeRsC8hp/pXoxoC2WIavuEuBq
QO68W37mvJ8/QBTyMgTccsstFRkAchl/5axZs6yRzIPqagC3Cwbv0+KsgYGB3fXSBgBRCH0IuPnmm61R
zJMzZsywxjEvqtcG8DbCwXott/cBNEGoQwDxn1+ZOXOmNYp5VN0OydWAYFwndsnyxTv6ATRLaEOAvuxv
jWJenD179razX1sM8ywvEvTaJ8RZvb29L9BLFwDEgQwBJ9li6pvEn/iPpzo2vIGQV6r38Fcf4PNavVwB
QNz4PgQQf+JfjwwC7tvd3f0L8b16iQKAJPF1CCD+xL9RGQTcU4W/t7f3fXpZAoC08G0IIP7EPw7V8eOO
gUxVb+SzpKen5z16KQKALPBlCCD+xD9uq+8oyF0DqfmYRH8Ob98L4BCuDwHEn/gnqRoE1AcNMQgkoxzX
lfLnSVOnTn2hXnIAwCVcHQKIP/FPU/X2wrxOIBafFJf09vYeKcsL9/EDuI5rQwDxJ/5ZWb0qwGsF6nKL
eH1PT88n+vv7X6SXFQDwBVeGAOJP/F1Rv1Zgk8TtTh05W/zy6rboiyeUSqUD9DICAL4iQ0Cm7xhI/Im/
Yz4tTlLPjenTpx/Y3d19nATvSvFx0RbFoJX9/6uc5V8ufrKzs3O/bYsGAIRDVkMA8Sf+jrmlWCy26afF
Dsj/v5uc9X5EojhLYvhH+TPUqwObJfq/lz+/Ivv54f7+/ufrQwAAoZL2EED8ib9rSuRP0E+HcZkxY8Y+
vb29H5RQnirBvEL+fEgH1DcfE9Vl/Vni5I6OjhfrXQSAPJHWEED8ib+Dfl4/DRpicHBwFxkI3iRnzcdI
SM+UoeAH8ucy+fMZ+dMW3lRV2yHbdo/88xL55y+IBfnnN8im86p9ANhO0kMA8Sf+Dvpt/fCPnYGBgd3V
m+FIbP9FAjxdwjtT/nmR+GtRvdBwvahuo7OGO6Lq76uP071Dvsc18qf6+l+S79Wnbs2Tf36D+hWG3iQA
gNFJaggg/sTfQRers3f90M+Mrq6uvSXer+rr6ztYwv1e7T+pgFeVf39Y9d+p/0799/39/XvpLwEAEA9x
DwHEn/g76BUTJ058nn7IAwBAlbiGAOJP/B30BnXWrR/qAABg0uwQQPyJv4PeyavdAQAi0OgQQPyJv2sW
CoVVxWLxlfqhDQAA41HvEED851fOOuusSnt7uzVEmInrJf6v0w9pAACIStQhgPjPr1x66aWVe5Ytqwwv
X1754223Va67/vrKz6++unLpZZdVFi9eXLngggsqZ599dmXmzJmVz372s5WBgYFKX18fA0NyPiLxf5d+
KAMAQL2MNwQQ/x3j34h3L11a+f2tt1auve66ypU/+Unl4ksuqSxYsKBy3vnnbxsaBgcHKyeffHJlxnHH
VXp6erZ9gI0lePicT8gx+qB+CAMAQKOMNgQQ/+bj34i1A4O6ynD55Zdvu8pQHRi+8pWvVE477bRnB4ac
vSbh2Q/3AQCAGDCHAOKfTfwb9fY77thhYFBXGS6cO/fZgeHzZ5xROf74430fGLaI7fohCwAAcVEdAoi/
X/FvxNrXMSz+3vcqX/7yl30YDE7UD1UAAIibq6+++hLiH3b8R/OGG26onHTSSbbwuuAZ+iEKAABxI/H7
uLilNoZ5M6/xr3rXXXdVTjnlFFuAs/R/9UMUAADiRuJH/HMe/6ouDQGFQuF7Lny4DwBAkEj8iD/x30FH
hoCri3zsLQBAMkj8iD/xt5rlECDhv5EP9wEASAiJH/En/mOa0RDAh/sAACSFxI/4E/9IpjkEqA/3aW1t
3U8/TAEAIE4kfsSf+NdlSkPAhra2tjfqhykAAMSJxI/4E/+GTHgI4MN9AACSQuJH/Il/UyY0BPxN/JB+
mAIAQJxI/Ig/8Y/FmIeApwuFwsf0wxQAAOJE4kf8iX+sxjQEbJX4d+uHKQAAxInEj/gT/0SMYQjgw30A
AJJA4kf8iX+iNjEEnKkfpgAAECcSP+JP/FOxgSGAD/cBAEgCiR/xJ/6pWscQcBEf7gMAkAASP+JP/DMx
whBw9aRJk3bXD1UAAIgLiR/xJ/6ZOtoQwIf7AAAkhMSP+BN/JzSHAIn/XeK++qEKAABxIfEj/sTfKWuG
gHv5cB8AgASQ+BF/4u+kd99999YrrriipB+qAAAQFxI/4k/83XZ4+AnxcP2QBQCAZpH4EX/i74cMAQAA
8SDxI/7E3y8ZAgAAmkPiR/yJv5/KELBs2bKJ+qEMAABRkfgRf+LvtwwBAAD1IfGbJm6tjWHevOyyy4h/
AP7pT396avXq1Z/SD20AABiNBQsWvFkCuMkMYp4k/mEo8a888MAD21yzZs1J+iEOAAA2hoaGpIH2MOZB
4h+G1fiPjIxsU/3zfffd92n9MAcAABOJ4BozinmR+IehGf/aIYArAQAAoyAhfMoMYx4k/mE4WvyrciUA
AGAUJIZrzTiGLvEPw/HiX5UhAADAYOLEic+bPXv2clskQ5X4h2HU+FdlCAAA0BSLxX2OOeaYq6ZNm1aZ
N2+eNZahSfzDsN74V2UIAIDc097evr/E/4/Vz1T/1Kc+ZQ1mSBL/MGw0/lUZAgAgt7S0tLxdon9/Nf5V
P/3pTwd7JYB3+AvDZuNflSEAAHJHsVg8XGL/iBn/qiEOAcQ/DOOKf1WGAADIDRL4kripNvg2QxoCiH8Y
xh3/qgwBABA8cuZ/gsR9qxn70QxhCCD+YZhU/KsyBABAkKjb/CToF5iBj6LPQwDxD8Ok41+VIQAAgkLd
5if+xBb3qPo4BBD/MEwr/lUZAgAgCFpbW/eT+P/BFvV69WkIWLBgAfEPwLTjX5UhAAC8plAovE3CvdNt
fs3owxAwe/bsygUXXGANCvpjVvGvyhAAAF6ib/P7ixnwOHR5CFDxP/bYYytnn322NSroh1nHvypDAAB4
hUS6KD5ZG+24dXEIqMZfbd+XZs60hgXd15X4V2UIAAAvqPc2v2Z0aQiojb/y1NNOs8YF3da1+FdlCAAA
Z9G3+c2tBjAtXRgCzPgrBwYGrIFBd3U1/lUZAgDAOdRtfhK9K2sDmKYnn3xyZkOALf7K3t5ea2TQTV2P
f1WGAABwBnWbnwTvVjOAaas+RTDtIWC0+Cvb2toqy4aHrbFBt/Ql/lUZAgAgc+TM/60Su/vM+GVlmkPA
WPGvesedd1qDg+7oW/yrMgQAQGbImf9HJHKJ3ObXjGkMAVHir7zhxhut0UE39DX+VRkCACB1JG6J3+bX
jEkOAVHjr/zFL35hDQ9mr+/xr8oQAACpoW/z22LGzjWTGALqib/yRz/6kTU+mK2hxL8qQwAAJIqEf9dC
oXCeLXSuGucQUG/8lRdddJE1QJidocW/KkMAACRCV1fX3hK0K8zA+WAcQ0Aj8VfOle9rixBmY6jxr8oQ
AACxImf+r5SYZX6bXzM2MwQ0Gn/l/5x7rjVEmL6hx78qQwAAxIJrt/k1YyNDQDPxV37lq1+1xgjTNS/x
r8oQAABNIQE7THywNmi+W88Q0Gz8laeffro1SJieeYt/VYYAAGgIOfOXfrl7m18zRnnb4FmzZjUdf+WJ
J55ojRKmY17jX5UhAADqwpfb/Jrx+OOPr1xwwQU7hV8NBmeccUZFjoH179Xr9OnTrWHC5M17/KsyBADA
uEj0dpVo/a8ZsVBtb2/fdoZ+5plnVr70pS9VTjnllEp3d7f1v23UKVOmWOOEyUr8d5QhAABGRd3mJwPA
j20Rw+a86+67rZHCZCT+dtUxWbNmzcn6KQ8A8Oxtfr83w4XxePMtt1hDhfFL/MeWIQAAnkXif7BEaoUZ
LYzPa665xhorjFfiH02GAABQ8T9UAhXUbX4uesWVV1qDhfFJ/OuTIQAgxxQEidPfzFhh/F58ySXWaGE8
Ev/GZAgAyCFy5h/8bX4uOX9oyBoubF7i35wMAQA5QcKvbvP7thkoTNZvfutb1nhhcxL/eGQIAAgc/Wl+
l5txwuRV7ypoCxg2LvGPV4YAgEBpaWl5iYTod2aYMB3VOwvaIoaNSfyTkSEAIDDa2toOkghxm1+Gqs8e
sIUM65f4JytDAEAgtLa2fkACtNEMEqbrJz7xCWvMsD6JfzoyBAB4joSnVeQ2Pwfs7Oy0Bg2jS/zTlSEA
wFO4zc8t5edRuWfZMmvYcHyJfzYyBAB4hLrNr1AofMsWIczWW//wB2vccGyJf7YyBAB4wLRp0/aQ0Fxi
hgfd8LfXXmsNHI4u8XdDhgAAh1G3+cnZ//W28KAbXvXTn1ojh3aJv1syBAA4iLrNr1AoLLdFB93xBz/8
oTV0uLPE300ZAgAcgtv8/HHhwoXW2OGOEn+3ZQgAcIBisdgiYeE2P08877zzrMHD5yT+fsgQAJAh3Obn
n1//+tet0cPtEn+/ZAgASJ8JEpPZZlzQfQcHB63hQ+LvqwwBACkxadKk3SUk3ObnqZ/5zGes8cu7xN9v
GQIAEqZYLO4rEbnOjAr644zjjrMGMM8S/zBkCABIiEKh8HoJyLAZFPTLadOmWSOYV4l/WDIEAMSMxP8Q
iccGMybon8cee2xl2fCwNYZ5k/iHKUMAQExI/I+WcDxhhgT99Y+33WYNYp4k/mHLEADQJNzmF6bXXX+9
NYp5kfjnQ4YAgMZQt/kNmuHAMPzZz39uDWMeJP75kiEAoA70bX7fN6OB4XjpZZdZ4xi6xD+fMgQAREDf
5netGQwMy8WLF1sDGbLEP98yBACMAbf55cc5c+ZYIxmqxB+VDAEAFuTM/x8lDNzmlxPPPvtsayhDlPhj
rQwBADVwm1/+/NLMmdZYhibxR5sMAQCCxP94CcJmMxAYtqeedpo1mCFJ/HEsGQIgz3CbX44dGBiwRjMU
iT9GUQ8Bn9JrIkD4cJsfTunoqNy9dKk1nr5L/DGq6nGyatWqJ5ctWzZRL48A4aJu8xN/a4sC5sslS5ZY
A+qzxB+jqh4nK1et2v7YGR5+giEAgkbC/zpZ+JeZIcB82jd9elCfCUD8Mao7xL8qQwCESmtr6/tl0R8x
I4D59sQTT6zcfscdOy6EHkr8MarW+FdlCIDQkIX+P0Vu80Orx59wQuW222+3L4geSPwxqmPGv6oMAeLh
evkE8BdZ4KeLz9Qu+Iimvg4BxB+jGin+VRkCwHO4zQ/r0rchgPhjVOuKf1WGAPARfZvfReYCjzievgwB
xB+j2lD8qzIEgE90dHS8mNv8sBldHwKIP0a1qfhXZQgAH+A2P4xLV4cA4o9RjSX+VRkCwGUKhcL7ZOHm
Nj+MTdeGAOKPUY01/lUZAsBFWltbPyIL9qPmAo7YrK4MAcQfo5pI/KsyBIBLFItFWaePeap20UaM06zf
LIj4Y1QTjX9VGQKWrVz5Yb0EA2RDQZAFmnv8MXGzuhJA/DGqqcT/OR9duXLlu/VSDJAu0v6jZWF+2lyo
EZMy7SsBxB+jmnL8q5bvueee/fSSDJAOshgfIW6qXZwR0zCtKwHEH6OaUfy3Ozz8m0qlsqtemgGSpVgs
vkMW4kfMhRkxLZO+EkD8MaqZxl+7bPnyk/XyDJAc7e3t+8sCvNZckBHTNqkrAcQfo+pC/LWPDQ8P76+X
aYD46e/vf76c/V9vW4wRszDuKwHEH6PqUPyrztVLNUD8FAqFb9kWYcQsjetKAPHHqDoYf+XTq1atepVe
rgHiQ9/rb12AEbO22SsBxB+j6mj8t7ls+fL/1ks2QDy0trYeKIvsw+aiG4BlGWyukT8vEE8W2+V/H1Uo
FI6UP98r/3ui/PPH5M+i/Hmc/HmO/P8/kT9XiltF29fEjGz0SgDxx6i6HH/tmkqlMkEv3QBNoz7T/1fm
YuupD0rIF0nE+9ra2g7S+9cQ8jVeJl9LoX4togYC2/fDlK33SgDxx6h6EP9tLlu27DC9TAE0hwTu47aF
1iP/JvtwsThZvYhR71bsyNc/RL7XN8UNNd8bMzDqlQDij1H1Jf7bHB4+Qy9LAI0zZcqUV8iC+mdzgfXE
hyXKX5R9eKnenVSYNGnS7vK9p4srarYFU3a8KwHEH6PqVfy3+0u9HAE0jiyk3zUXVg9Un0h4SrFY3Efv
RibI999VbJNtubdm2zBFR7sSQPwxqh7GX7lBL0MAjSFnz++WRXSLuag67hXt7e1O3QYjQ8Cesl2D4pM1
24kpaQ4BxB+j6mn8t3nvvfe+SC9BAPUji+e15mLqsOsktE5/PrZ60aFs442WbceErf46gPhjVH2Ov3LF
ihVv0UsPQH1IqP7dtpA66lWyvS/Tm+406kWIhULha7LN3EKYsp855ZRKuVy2LvaItfoef+Xy5cvfr5cd
gPqQBfNmcwF10K0S/tNlc72751WGAPXeAo8Z+4PJeqfwCVnct9oWfURlCPFXygDwIb3cAERHovpvlsXT
NTdLRD+uN9lL5DirNxrilsF0XC/H+9XquN+3dm0HQwDaDCX+yntWrnzPtoUGoB5ksXT9TX/Uff2T9eZ6
jezHG2R//mTsH8bro3Kc36kP+Tbuv//+LoYArDWk+CuXrlp1sH64A0RDFsq3yYLp8u+nN4utenODQM5M
Xyf7VK7ZR4zPp8WP6kO9A1wJwKqhxV/csnr16j30Qx0gGrJYXlizeLqm+p3/NL2pQdHS0vIPsn+PGPuL
zTnu44UrARhg/JX36Yc4QDRksdxHFs2/GouoS35Ob2qQtLa2fkT28Rljn7Fxz9SHdky4EpBfA41/ZXjF
ih/ohzdANAqFQrdlEXXFq2QTg/+EK9nPzxr7jQ0oj+XvyeGM/HhhCMifwcZfXLZ8+f/TD22AaBS3fyyu
dUHN2HVpv59/VgwODu4iP4efWY4BRvfnjXzoE78OyI8hx195zz33vEE/rAHGR3/oj4tv+7tVXRrXm5kL
WlpaXi77/aBxHDCCMjzdPnXq1BfqQ1k3XAkI39DjL96iH84A0ZCFs9+2oGZtoVBYpDcxV7j683Dc9XF8
DgRXAsI1B/FXbwB0nH4oA0RDFs+fGoupCz4qC/r+ehNzhfpVgOz/TcbxwNF9VN1JoQ9f03AlIDzzEH/x
oTvuuGNv/TAGGJ9p06btIQuoi59U92m9ibmkUCgcYjkmuLObxCP0YYsNrgSEY07ir17891n98AWIRrFY
PNxYUF3wYdmuTD/P3wXkOFxtHBfc0UTfG4IrAf6bl/jfceedT1988cUH6YcuQDTkTPPLloU1U2VR/4Le
vFyj3xvAeoxwm2foQ5UYXAnw17zEX3nppZdW5s+fv3Lu3LkH6ocuwPhIbH9rWViz9HHZpn315uUeOR68
FsCiDK7z9CFKHK4E+Gee4n/Nr3+t4l915cKFCw/QD12A0ZHQ7iqLqWvv/vddvXkgyM+IOwIM5ZhcI+6m
D1EqcCXAH/MU/1t+//vK0NBQ7QCgXMEQAOMii+g7bAtslso2/ZvePBA6OjpeLMflKfM45VV5fNwlvkgf
nlThSoD75in+f7zttoqE3ox/VYYAGBtZUEvmApuxIxMnTnye3jzQSPAusxyr3FkoFNZkfWsoVwLcNU/x
v/322yuLFy+2hb9WhgAYHVlUv2oushk7X28a1CDh67Ucq7y50+f6ZwVXAtwzT/G/4847o8S/KkMA2JFF
9VJjkc3akt40qEHC93rLscqTTxeLxX/Rh8MJGALckfiPK0MA7IwsrEuNhTZTW1tbX6M3DQzk+NxnHq+c
qO7179KHwSkYArKX+EeWIQB2RBbXx4zFNkvv15sFFuT4LDaOVy6U+J+uD4GTMARkp4r/KuJfj8tkCHiJ
fuhCnlGvpLYtuFkp2/MzvWlgQY7R581jFrpp3uvfDAwB6Uv8G/amJUuW7KkfupBX2tra3mJbdLNSFvtv
6U0DC3KMiuYxC9yrfLojhCEgPYl/087RD1vIK7LAfshYcLN2QG8aWCgWi++yHLNQvVNdodK77g0MAclL
/ONx3rx5Rf2whTwiC+y/WxbezJTtOUZvGlhoaWl5ue24Bei61tZWb9/PnCEgOYl/rD4wZ84c74ZsiAkJ
bodl8c1M2R7eAXAM5PjsaTtugenMvf7NwBAQv8Q/foeGhmbphyzkDVlspxuLb6ZK4D6oNw1GQY7TM+Zx
C0j1uf4T9a56D0NAfBL/xHycuwJyiiy2n6hZfDNXzvzerTcNRkGO06PmcQvEreJUvZvBwBDQvMQ/cT+n
H66QJ2TBnVGzAGdua2vrB/SmwSjIcVJnydbj57mf1bsYHAwBjUv8U3GFfqhCnpAz7uMsC3FmyvYcqTcN
LBSLxd1sx8135ece/C1JDAH1S/zTc2ho6D36oQp5QRZf134FcLTeNLAgA8C+tuPmuV7d698MDAHRJf7p
KgPAKfphCnlBguLUXQDidL1pYKGtre2NlmPms7fKY3AfvXu5gCFgfIl/Jl6lH6KQF9QZt2VRzkzZnv/W
mwYWJJZOvW9Dk671+V7/ZmAIGF3in5lr9cMT8oIE5XDLwpyll+pNAwtyfE40jpev/lm9DbXerVzCELCz
xD9Tty5atGhv/fCEPNDS0vJ2y+KcpXfrTQMLhULhPMsx882nZPD8sN6lXMMQ8JzEP3vnzZt3sH5oQh6Y
MmXKSy0LdJZuPvroo/9ebx4YyPH5o3G8fNPZz/XPCoYA4u+KCxYseJd+WEJOmCCLsmv3lf+H3jaoQQ1G
cmw2G8fKN0/VuwM15HkIIP7uOHfuXN6HJW/IovwnY5HO2rP0pkENclz+0zhOvnm+3hWwkMchgPi75bx5
896uH46QF4rF4s8si3VmyvbcpTcNavD89/9XyM91V70rMAp5GgKIv3vOmTPn1fqhCHlBFudvGot15krs
vP80uDhRb5Qjx2WDeZw8MXf3+jdDHoYA4u+kmwYHB3PxhlxQg8TWqbcDVso2fU1vHggSUF/v///TlClT
XqF3AyIS8hBA/J11WD/8IE9IXD5oWbizdm1e3h42CjIQXWw5Rq77sGz3m/UuQJ2EOAQQf6ddpB96kCcm
T568lyzWLr66PLiPhm0EGdBeJ8fiGePYuO4m2e7D9S5Ag4Q0BBB/5+3TDzvIG7JgLzUWcBdcOjg4uIve
xNwiZ9G+vfhvq2xzp958aJIQhgDi77ybxf31Qw7yhizaQ8Yi7oQSksl6E3NJa2vrfnIcnjSPi8vKmf9n
9OZDTPg8BBB/L/ylfqhBHpHQdtsWcwdcMWnSpN31ZuYO+bkssBwTZ5XtDf5z/bPCxyGA+PvhvHnz2vXD
DPJIe3v7q2wLuiPm8nOqZb8PE7fWHAfXvZIXbiaLT0MA8ffGe7n9D1RwVhoLuiv+NW8fG6vv+/fmff+L
xeItXV1dfJJYCvgwBBB/fxwaGuL1OuDmGwLV+BuJTG7eSU72d6ax/y7Lvf4p4/IQQPy98vpKpTJBP6wg
z8hCfoSxsLvmmXpTg6a1tfUjsq++fOjPwzKYvUlvOqSIi0MA8ffKx+fOnfsW/XCCvNPf3/98WdD/bCzw
LrlZxVFvbpDoV/0/YOy3qz4p8f+g3nTIAJeGAOLvl0NDQz36YQSwHVnUFxqLvGv+uaWlJchPrJo6deoL
Zf9uM/bXVbeIRb3pkCEuDAHE3y8l/t/SDx+A55Azun8xFnoXXd/e3v5avclBIMd9N9mvq439dNmT9aaD
A2Q5BBB/v5w3b953+b0/WFEvtJPFfZ2x2LvocCh3Bqj3OZD9+T9j/5y1UChw9uAgWQwBxN87L+GWPxgT
WeRnm4u+o97f1tbm9YtY9GX/Xxn75bI/UkOi3nxwjDSHAOLvncQfxkeiepAs9Op3vLYAuOZDra2tH9Cb
7hX6BX/e3Osv3qQ+OEpvPjhKGkMA8fdO4g/RkcX+SmPxd9mnxVNls735vZa6m0G2eX3NPrgu9/p7RJJD
APH3TuIP9SEL/iQjAD54ebFY3FfvgpPo11gMir7c5698SLabe/09I4khgPh7J/GHhpggi/5dlhi4blmc
qrZ/+264gxzPQ8U/GNvrun8TD9O7AJ4R5xBA/L2T+EPjFAqFKUYMvFFC+1vZ/nfqXckUdelctmm+6NMH
+yi3yHE8Ru8GeEocQwDx907iD80hi7+6XD1sRMEnVXCvyOpFgnL8Xi3f/1zxCb09XikD1Kf0roDnNDME
EH/vJP4QDxKxLlscfFP24xq1L+I+etcSQb7+rhLOf5XvuVhUL060bo8Hnqt3CQKhkSGA+Hsn8Yf4kAfT
LhIDX96eNorqbPwi9esNdRue3s2mOOqoo14gX+9j8nXV2f6I/j4+e6n6uevdg4CoZwgg/t5J/CF+JG5H
WiIRisvEueLJcvZ+lPimjo6OF+td3wEVehkaXqOPxwxRBf8m8RnR9rW9U/b/RnFPvcsQIFGGAOLvncQf
kkOi8BNbMAL3cVF9OuJfav6/kF0pP+eX6R85BMxYQwDx907iD8miznwlECqItnCg/z7U1tb2Rv3jhhxg
GwKIv3cSf0gHicTnjWhgGD4pcq9/DqkdAoi/dxJ/SI/i9o+sXVoTDvRf9ZkPrfpHDDlEDQHlcnkL8fdK
4g/pUygU3i3B2FQTEPRYGepO0D9ayDFLV6w4ROL4sBnL0CT+AE0i4TjDDAl66Tf0jxTg7+5ZufI9Eslg
hwDiDxADEydOfJ7E4wYjJuiRcub/Q1lIuNcfdiDUIYD4A8RIe3v7qyQkG82woBfezOf6w2iENgQQf4AE
kJAcIfr0sba5t1AorGppaXm5/hECWAllCAgk/hctWbJkV/2jAXCHYrF4ui006KQb29raDtI/OoAx8X0I
IP4AyTNBzioXWWKDbsnn+kPd+DoEEH+AlOjv739+sVi8xggOuiP3+kPD+DYEEH+AlGlpaXmJRObumuig
Ow7oHxNAQ/gyBBB/gIxQLy6T2Awb8cFsPUv/eACawvUhgPgDZEx7e/trC4XCGkuIMH2XcK8/xImrQwDx
B3AE/cmBK40YYbr+ctKkSbvrHwlAbLg2BBB/AMcoFouvFO+yhAmT9yY59vvoHwVA7CxfvvwfJb6ZDwG3
3X478QdwEf2agJuNOGGy3tzR0fFi/SMASIwVK1a8ZXh4+H5bmNPw1j/8obJo0SJbUH2Sd/iDcJk2bdoe
EqXvG5HCBJSz/uunTp36Qn3oARJHBoD9xd/YAp2k1157bWXBd75jC6pPEn8IH/VCNAnULHFrbbAwVn/e
1dW1tz7kAKlRqVR2Xb58+RckzE+aoY7bu5curfz4xz+2xdQ3iT/kCzlDPUpC9RcjXNi8Q+rNmPRhBsiE
patWHTy8YsXlEuqtZrhj8Oml99wzf9GiRbdbYuqbxB/yiQwBb5Jg3WkEDBtzixzP0/ShBXCCFStWvGv5
8uUXSbSfMiLeiH8ZHh4+d+m9975afe3zzjvvxUNDQ7daouqLxB/yjX5dgPqVgHqLWlvYcHwfkvj/mz6k
AM6xevXqv5d498kw8H8S8geNsI/lffJ3viO2rFy5cqdbWT0eAog/QBWJ2BG8aVBD3qzea0EfRgDnqVQq
E9SvCCTqk4ZXrDhePF2ctc3h4VPF/5J/d4R4gP4rY+LhEED8AUwmT568lwRNXQ3YXBM4tPuMOEvO/HfT
hw8gt3g0BBB/gLEoFArvk7DdYgQPn/MOdYz04QIAwYMhgPgDRGSChK4ooVttxC/PPiEOctYPYMfhIYD4
A9SL/rXAKeJGHcE8ukUGoUXt7e2v0ocFAEbBwSGA+AM0g5z17iMhPFXM2yBwVUtLyz/owwAAEZgzZ85L
Jbx3GCHOQt7bHyAu1KfaSRRLMhCE/OFC6l0Sr5Cz/kP0bgNAnagrARLg64wgp+kQZ/4AyTBBAnmkeLHE
8qmaePrsI7I/32pra3uL3kcAaII5c+bsJSH+oRHmpN0sfk5vAgAkSbFY3FfiOSD+TvTtDYXUO/j9Vuzj
/fsBkkGCfJz4pA50kq4TP6K/LQCkiYT0ADmLPl7C+kvR1SsDm2U7r5c/T25tbT1QbzoAJMjcuXMPlDgv
qol1nD4jnrt48WI+gRPABdQdBDIMfExCe454s/i0aAty4sp2LJc/54vt6oqF3kQASBkJ9QfFK8Wtoi3m
9fiUeP7Q0NDr9ZcHABeR8O4pZ9z/rK8QXCj/+0b58xEV6BhV79C3Qr72D+XPM+V7HT1lypRX6E0AAEeY
O3fu6yTcp+tbBtXv7W2Bt/mE+Avx4+qFhvrLAYCPdHR0vFgGg/eoWEu4PymeLvH+hvzvOaJ6keES8VL9
p3KheL78uy+Ln5J/LokT29vbXztx4kRe9QvgGXPmzHmRBP2j4oB4rrhQ/KEMB0vE+fPmzZstf04XD1uy
ZAlvxAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7xd3/3/wHbKpk+maAobAAAAABJ
RU5ErkJggg==
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

184
RPST GUI/RPST/FormMain.vb Normal file
View File

@@ -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

59
RPST GUI/RPST/FormPosts.Designer.vb generated Normal file
View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="utf-16"?>
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>StartForm</MainForm>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>

View File

@@ -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

33
RPST GUI/RPST/README.md Normal file
View File

@@ -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😊

View File

@@ -3,24 +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.2.0.1</AssemblyVersion>
<FileVersion>1.2.0.1</FileVersion>
<AssemblyVersion>1.6.1.0</AssemblyVersion>
<FileVersion>1.6.1.0</FileVersion>
<PackageLicenseFile>LICENSE</PackageLicenseFile>
<PackageRequireLicenseAcceptance>True</PackageRequireLicenseAcceptance>
<Version>1.2.0</Version>
<Version>1.6.1</Version>
<PackageTags>reddit;scraper;reddit-scraper;osint</PackageTags>
<PackageReleaseNotes>Deploys to new PyPI
Minor improvements</PackageReleaseNotes>
<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>

View File

@@ -1,13 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup>
<Compile Update="DeveloperForm.vb">
<Compile Update="AboutBox.vb">
<SubType>Form</SubType>
</Compile>
<Compile Update="PostsForm.vb">
<Compile Update="DeveloperBox.vb">
<SubType>Form</SubType>
</Compile>
<Compile Update="StartForm.vb">
<Compile Update="FormMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Update="FormPosts.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>

206
RPST GUI/RPST/Settings.vb Normal file
View File

@@ -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

175
RPST GUI/RPST/Utilities.vb Normal file
View File

@@ -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

View File

Before

Width:  |  Height:  |  Size: 16 KiB

After

Width:  |  Height:  |  Size: 16 KiB

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -1,3 +0,0 @@
Public Class PostsForm
End Class

View File

@@ -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😊

View File

@@ -1,321 +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()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(StartForm))
Me.KeywordTextBox = New System.Windows.Forms.TextBox()
Me.SubredditTextBox = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.TimeframeComboBox = New System.Windows.Forms.ComboBox()
Me.ListingComboBox = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SaveResultsJSONToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.JSONToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FileMenuStrip = New System.Windows.Forms.MenuStrip()
Me.ToolsToolStripMenuTools = New System.Windows.Forms.ToolStripMenuItem()
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LicensceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeveloperToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ChekUpdatesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.QuitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LimitNumericUpDown = New System.Windows.Forms.NumericUpDown()
Me.ContextMenuStrip1.SuspendLayout()
Me.FileMenuStrip.SuspendLayout()
CType(Me.LimitNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'KeywordTextBox
'
Me.KeywordTextBox.BackColor = System.Drawing.SystemColors.Window
Me.KeywordTextBox.ForeColor = System.Drawing.SystemColors.WindowText
Me.KeywordTextBox.Location = New System.Drawing.Point(89, 60)
Me.KeywordTextBox.Name = "KeywordTextBox"
Me.KeywordTextBox.PlaceholderText = "Keyword"
Me.KeywordTextBox.Size = New System.Drawing.Size(100, 23)
Me.KeywordTextBox.TabIndex = 0
'
'SubredditTextBox
'
Me.SubredditTextBox.Location = New System.Drawing.Point(89, 92)
Me.SubredditTextBox.Name = "SubredditTextBox"
Me.SubredditTextBox.PlaceholderText = "Subreddit"
Me.SubredditTextBox.Size = New System.Drawing.Size(100, 23)
Me.SubredditTextBox.TabIndex = 4
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(257, 191)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(76, 28)
Me.Button1.TabIndex = 6
Me.Button1.Text = "Scrape"
Me.Button1.UseVisualStyleBackColor = True
'
'TimeframeComboBox
'
Me.TimeframeComboBox.FormattingEnabled = True
Me.TimeframeComboBox.Items.AddRange(New Object() {"Hour", "Day", "Week", "Month", "Year"})
Me.TimeframeComboBox.Location = New System.Drawing.Point(89, 191)
Me.TimeframeComboBox.Name = "TimeframeComboBox"
Me.TimeframeComboBox.Size = New System.Drawing.Size(100, 23)
Me.TimeframeComboBox.TabIndex = 8
Me.TimeframeComboBox.Text = "All"
'
'ListingComboBox
'
Me.ListingComboBox.FormattingEnabled = True
Me.ListingComboBox.Items.AddRange(New Object() {"Controversial", "Hot", "Best", "New", "Rising"})
Me.ListingComboBox.Location = New System.Drawing.Point(89, 157)
Me.ListingComboBox.Name = "ListingComboBox"
Me.ListingComboBox.Size = New System.Drawing.Size(100, 23)
Me.ListingComboBox.TabIndex = 9
Me.ListingComboBox.Text = "Top"
'
'Label1
'
Me.Label1.AutoEllipsis = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point)
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(12, 60)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 23)
Me.Label1.TabIndex = 10
Me.Label1.Text = "Keyword"
'
'Label2
'
Me.Label2.AutoEllipsis = True
Me.Label2.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point)
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(12, 92)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(63, 23)
Me.Label2.TabIndex = 11
Me.Label2.Text = "Subreddit"
'
'Label3
'
Me.Label3.AutoEllipsis = True
Me.Label3.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point)
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(12, 125)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 23)
Me.Label3.TabIndex = 12
Me.Label3.Text = "Limit"
'
'Label4
'
Me.Label4.AutoEllipsis = True
Me.Label4.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point)
Me.Label4.ForeColor = System.Drawing.Color.Black
Me.Label4.Location = New System.Drawing.Point(12, 157)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(56, 23)
Me.Label4.TabIndex = 13
Me.Label4.Text = "Listing"
'
'Label5
'
Me.Label5.AutoEllipsis = True
Me.Label5.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point)
Me.Label5.ForeColor = System.Drawing.Color.Black
Me.Label5.Location = New System.Drawing.Point(12, 191)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(71, 23)
Me.Label5.TabIndex = 14
Me.Label5.Text = "Timeframe"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SaveResultsJSONToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(144, 26)
'
'SaveResultsJSONToolStripMenuItem
'
Me.SaveResultsJSONToolStripMenuItem.AutoToolTip = True
Me.SaveResultsJSONToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.JSONToolStripMenuItem, Me.CSVToolStripMenuItem})
Me.SaveResultsJSONToolStripMenuItem.Image = CType(resources.GetObject("SaveResultsJSONToolStripMenuItem.Image"), System.Drawing.Image)
Me.SaveResultsJSONToolStripMenuItem.Name = "SaveResultsJSONToolStripMenuItem"
Me.SaveResultsJSONToolStripMenuItem.Size = New System.Drawing.Size(143, 22)
Me.SaveResultsJSONToolStripMenuItem.Text = "Save posts to"
Me.SaveResultsJSONToolStripMenuItem.ToolTipText = "Save results to a JSON file"
'
'JSONToolStripMenuItem
'
Me.JSONToolStripMenuItem.AutoToolTip = True
Me.JSONToolStripMenuItem.CheckOnClick = True
Me.JSONToolStripMenuItem.Image = CType(resources.GetObject("JSONToolStripMenuItem.Image"), System.Drawing.Image)
Me.JSONToolStripMenuItem.Name = "JSONToolStripMenuItem"
Me.JSONToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
Me.JSONToolStripMenuItem.Text = "JSON"
'
'CSVToolStripMenuItem
'
Me.CSVToolStripMenuItem.AutoToolTip = True
Me.CSVToolStripMenuItem.Enabled = False
Me.CSVToolStripMenuItem.Image = CType(resources.GetObject("CSVToolStripMenuItem.Image"), System.Drawing.Image)
Me.CSVToolStripMenuItem.Name = "CSVToolStripMenuItem"
Me.CSVToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
Me.CSVToolStripMenuItem.Text = "CSV (coming soon...)"
'
'FileMenuStrip
'
Me.FileMenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolsToolStripMenuTools})
Me.FileMenuStrip.Location = New System.Drawing.Point(0, 0)
Me.FileMenuStrip.Name = "FileMenuStrip"
Me.FileMenuStrip.Size = New System.Drawing.Size(355, 24)
Me.FileMenuStrip.TabIndex = 0
Me.FileMenuStrip.Text = "MenuStrip1"
'
'ToolsToolStripMenuTools
'
Me.ToolsToolStripMenuTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AboutToolStripMenuItem, Me.LicensceToolStripMenuItem, Me.DeveloperToolStripMenuItem, Me.ChekUpdatesToolStripMenuItem, Me.ToolStripSeparator2, Me.QuitToolStripMenuItem})
Me.ToolsToolStripMenuTools.Image = CType(resources.GetObject("ToolsToolStripMenuTools.Image"), System.Drawing.Image)
Me.ToolsToolStripMenuTools.Name = "ToolsToolStripMenuTools"
Me.ToolsToolStripMenuTools.Size = New System.Drawing.Size(53, 20)
Me.ToolsToolStripMenuTools.Text = "File"
'
'AboutToolStripMenuItem
'
Me.AboutToolStripMenuItem.AutoToolTip = True
Me.AboutToolStripMenuItem.Image = CType(resources.GetObject("AboutToolStripMenuItem.Image"), System.Drawing.Image)
Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.AboutToolStripMenuItem.Text = "About"
'
'LicensceToolStripMenuItem
'
Me.LicensceToolStripMenuItem.AutoToolTip = True
Me.LicensceToolStripMenuItem.Image = CType(resources.GetObject("LicensceToolStripMenuItem.Image"), System.Drawing.Image)
Me.LicensceToolStripMenuItem.Name = "LicensceToolStripMenuItem"
Me.LicensceToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.LicensceToolStripMenuItem.Text = "License"
'
'DeveloperToolStripMenuItem
'
Me.DeveloperToolStripMenuItem.AutoToolTip = True
Me.DeveloperToolStripMenuItem.Image = CType(resources.GetObject("DeveloperToolStripMenuItem.Image"), System.Drawing.Image)
Me.DeveloperToolStripMenuItem.Name = "DeveloperToolStripMenuItem"
Me.DeveloperToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.DeveloperToolStripMenuItem.Text = "Developer"
'
'ChekUpdatesToolStripMenuItem
'
Me.ChekUpdatesToolStripMenuItem.AutoToolTip = True
Me.ChekUpdatesToolStripMenuItem.Image = CType(resources.GetObject("ChekUpdatesToolStripMenuItem.Image"), System.Drawing.Image)
Me.ChekUpdatesToolStripMenuItem.Name = "ChekUpdatesToolStripMenuItem"
Me.ChekUpdatesToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.ChekUpdatesToolStripMenuItem.Text = "Check updates"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(149, 6)
'
'QuitToolStripMenuItem
'
Me.QuitToolStripMenuItem.AutoToolTip = True
Me.QuitToolStripMenuItem.Image = CType(resources.GetObject("QuitToolStripMenuItem.Image"), System.Drawing.Image)
Me.QuitToolStripMenuItem.Name = "QuitToolStripMenuItem"
Me.QuitToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.QuitToolStripMenuItem.Text = "Quit"
'
'LimitNumericUpDown
'
Me.LimitNumericUpDown.Location = New System.Drawing.Point(89, 125)
Me.LimitNumericUpDown.Minimum = New Decimal(New Integer() {5, 0, 0, 0})
Me.LimitNumericUpDown.Name = "LimitNumericUpDown"
Me.LimitNumericUpDown.ReadOnly = True
Me.LimitNumericUpDown.Size = New System.Drawing.Size(100, 23)
Me.LimitNumericUpDown.TabIndex = 15
Me.LimitNumericUpDown.Value = New Decimal(New Integer() {5, 0, 0, 0})
'
'StartForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(355, 255)
Me.ContextMenuStrip = Me.ContextMenuStrip1
Me.Controls.Add(Me.LimitNumericUpDown)
Me.Controls.Add(Me.FileMenuStrip)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ListingComboBox)
Me.Controls.Add(Me.TimeframeComboBox)
Me.Controls.Add(Me.SubredditTextBox)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.KeywordTextBox)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.FileMenuStrip
Me.MaximizeBox = False
Me.Name = "StartForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Reddit Post Scraping Tool"
Me.ContextMenuStrip1.ResumeLayout(False)
Me.FileMenuStrip.ResumeLayout(False)
Me.FileMenuStrip.PerformLayout()
CType(Me.LimitNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents KeywordTextBox As TextBox
Friend WithEvents SubredditTextBox As TextBox
Friend WithEvents Button1 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 LicensceToolStripMenuItem As ToolStripMenuItem
Friend WithEvents JSONToolStripMenuItem As ToolStripMenuItem
Friend WithEvents CSVToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LimitNumericUpDown As NumericUpDown
End Class

View File

@@ -1,275 +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
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("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.", "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")
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")
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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.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
Shell("cmd /c start https:github.com/bellingcat/reddit-post-scraping-tool/wiki")
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 LicensceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LicensceToolStripMenuItem.Click
LicenseNotice()
End Sub
End Class

View File

@@ -1,30 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.Reflection
<Assembly: System.Reflection.AssemblyCompanyAttribute("Richard Mwewa"), _
Assembly: System.Reflection.AssemblyConfigurationAttribute("Debug"), _
Assembly: System.Reflection.AssemblyCopyrightAttribute("Copyright (c) 2023 Richard Mwewa. All rights reserved."), _
Assembly: System.Reflection.AssemblyDescriptionAttribute("Given a subreddit name and a keyword, this program returns all top (by default) p"& _
"osts that contain the specified keyword. "), _
Assembly: System.Reflection.AssemblyFileVersionAttribute("1.2.0.1"), _
Assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.2.0"), _
Assembly: System.Reflection.AssemblyProductAttribute("Reddit Post Scraping Tool"), _
Assembly: System.Reflection.AssemblyTitleAttribute("Reddit Post Scraping Tool"), _
Assembly: System.Reflection.AssemblyVersionAttribute("1.2.0.1"), _
Assembly: System.Reflection.AssemblyMetadataAttribute("RepositoryUrl", "https://github.com/bellingcat/reddit-post-scraping-tool"), _
Assembly: System.Runtime.Versioning.TargetPlatformAttribute("Windows7.0"), _
Assembly: System.Runtime.Versioning.SupportedOSPlatformAttribute("Windows7.0")>
'Generated by the MSBuild WriteCodeFragment class.

View File

@@ -1,17 +0,0 @@
is_global = true
build_property.ApplicationManifest =
build_property.StartupObject = Reddit_Post_Scraping_Tool.My.MyApplication
build_property.ApplicationDefaultFont =
build_property.ApplicationHighDpiMode =
build_property.ApplicationUseCompatibleTextRendering =
build_property.ApplicationVisualStyles =
build_property.TargetFramework = net6.0-windows
build_property.TargetPlatformMinVersion = 7.0
build_property.UsingMicrosoftNETSdkWeb =
build_property.ProjectTypeGuids =
build_property.InvariantGlobalization =
build_property.PlatformNeutralAssembly =
build_property.EnforceExtendedAnalyzerRules =
build_property._SupportedPlatformList = Linux,macOS,Windows
build_property.RootNamespace = Reddit_Post_Scraping_Tool
build_property.ProjectDir = C:\Users\rly0nheart\Documents\Visual Studio 2022\VB.Net Projects\Reddit Post Scraping Tool\Reddit Post Scraping Tool\

38
pyproject.toml Normal file
View File

@@ -0,0 +1,38 @@
[build-system]
requires = ["setuptools", "setuptools-scm"]
build-backend = "setuptools.build_meta"
[tool.setuptools]
packages = ["rpst"]
[project]
name = "reddit-post-scraping-tool"
version = "1.6.1.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"}
keywords = ["osint", "reddit-crawler", "reddit-scraping", "reddit"]
authors = [{name = "Richard Mwewa", email = "rly0nheart@duck.com"}]
classifiers = [
"Development Status :: 5 - Production/Stable",
"Programming Language :: Python :: 3",
"Programming Language :: Visual Basic",
"Intended Audience :: Information Technology",
"License :: OSI Approved :: MIT License",
"Operating System :: OS Independent",
"Natural Language :: English"
]
dependencies = [
"rich",
"requests",
]
[project.urls]
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]
rpst = "rpst.__main:run"

View File

@@ -1,12 +0,0 @@
from reddit_post_scraping_tool.reddit_post_scraping_tool import *
def main():
try:
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.')

View File

@@ -1,75 +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.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")
# 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()

1
rpst/__init__.py Normal file
View File

@@ -0,0 +1 @@

29
rpst/__main.py Normal file
View File

@@ -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.1.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.')

259
rpst/__rpst.py Normal file
View File

@@ -0,0 +1,259 @@
import os
import json
import logging
import argparse
from datetime import datetime
import requests
from rich.tree import Tree
from rich import print as xprint
from rich.markdown import Markdown
from rich.logging import RichHandler
def convert_timestamp_to_datetime(timestamp: int) -> str:
"""
Converts a Unix timestamp to a formatted datetime string.
:param timestamp: The Unix timestamp to be converted.
:return: A formatted datetime string in the format "dd MMMM yyyy, hh:mm:ssAM/PM".
"""
utc_from_timestamp = datetime.utcfromtimestamp(timestamp)
datetime_object = utc_from_timestamp.strftime("%d %B %Y, %I:%M:%S%p")
return datetime_object
def write_post_data(post_data: dict, filename: str) -> 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.
:returns: A string representation of the file path.
"""
home_directory = os.path.expanduser("~")
file_path = os.path.join(home_directory, f"{filename}.json")
# Write the data to a JSON file
with open(file_path, "a") as file:
file.write(json.dumps(post_data))
file.write("\n") # write a newline to separate posts
return 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 create_post_branch(post: dict, keyword: str, output: bool, tree: Tree) -> Tree:
"""
This function extracts relevant data from a Reddit post and adds it in a tree branch 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.
:param tree: Tree where the post branch will be added.
:returns: The main tree with added post branches.
"""
# 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"],
"Posted on": convert_timestamp_to_datetime(post["data"]["created"]),
"Approved at": post["data"]["approved_at_utc"],
"Approved by": post["data"]["approved_by"],
}
if output:
output_file = write_post_data(filename=keyword, post_data=post_data)
tree.add(
f":page_facing_up: Post data written/appended to "
f"[italic][link file://{output_file}]{output_file}[/]"
)
# Add the post's branch to the main tree.
post_branch = tree.add(f":scroll: {post['data']['title']}")
# Add each piece of extracted data as a branch of the post_branch
for post_key, post_value in post_data.items():
post_branch.add(f"{post_key}: {post_value}", style="dim")
post_branch.add(post["data"]["selftext"], style="italic")
return tree
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.
: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.
"""
keyword = arguments.keyword
subreddit = arguments.subreddit
listing = arguments.listing
timeframe = arguments.timeframe
limit = arguments.limit
json_output = arguments.json
# Create main result tree.
main_tree = Tree(f"[bold]{datetime.now()}[/]", guide_style="bold bright_blue")
# 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_index, post in enumerate(response["data"]["children"], start=1):
# 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"]
):
# Create a branch for found post(s) and show post index and post author as the title
found_tree = main_tree.add(
f":bust_in_silhouette: #{post_index} by [bold]@{post['data']['author']}[/]"
)
found_posts += 1
create_post_branch(
post=post,
keyword=keyword,
output=json_output,
tree=found_tree,
)
# Log the number of posts in which the keyword was found
main_tree.add(
f"Keyword ('{keyword}') was found in {found_posts}/{len(response['data']['children'])} "
f"{listing} posts from r/{subreddit}."
)
xprint(main_tree)
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]", show_level=False)
],
)
log = logging.getLogger("rich")

View File

@@ -1,31 +0,0 @@
import setuptools
with open("README.md", "r", encoding="utf-8") as file:
long_description = file.read()
setuptools.setup(
name="reddit-post-scraping-tool",
version="1.2.0.1",
author="Richard Mwewa",
author_email="rly0nheart@duck.com",
packages=["reddit_post_scraping_tool"],
description="Given a subreddit name and a keyword, this program returns all top (by default) posts that contain the specified word.",
long_description=long_description,
long_description_content_type="text/markdown",
url="https://github.com/bellingcat/reddit-post-scraping-tool",
license="MIT License",
install_requires=["rich", "requests"],
classifiers=[
'Development Status :: 5 - Production/Stable',
'Intended Audience :: Information Technology',
'License :: OSI Approved :: MIT License',
'Operating System :: OS Independent',
'Natural Language :: English',
'Programming Language :: Python :: 3'
],
entry_points={
"console_scripts": [
"reddit_post_scraping_tool=reddit_post_scraping_tool.main:main",
]
},
)