Initial release

ElektroStudios · Apr 2, 2018 · a0cc520 · a0cc520
1 parent 508714e
commit a0cc520
Show file tree

Hide file tree

Showing 59 changed files with 6,162 additions and 0 deletions.
diff --git a/FHM Crawler.sln b/FHM Crawler.sln
@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 15
+VisualStudioVersion = 15.0.27130.2027
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "FHM Crawler", "FHM Crawler\FHM Crawler.vbproj", "{FB7DCE82-0DC6-4286-AB3A-E63006C48997}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{FB7DCE82-0DC6-4286-AB3A-E63006C48997}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{FB7DCE82-0DC6-4286-AB3A-E63006C48997}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{FB7DCE82-0DC6-4286-AB3A-E63006C48997}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{FB7DCE82-0DC6-4286-AB3A-E63006C48997}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {755969CD-387D-41D8-BFF0-37F9E40DB143}
+	EndGlobalSection
+EndGlobal
diff --git a/FHM Crawler/App.config b/FHM Crawler/App.config
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
+    </startup>
+</configuration>
diff --git a/FHM Crawler/ElektroKit/Core/Application/ComparerResult.vb b/FHM Crawler/ElektroKit/Core/Application/ComparerResult.vb
@@ -0,0 +1,58 @@
+
+
+
+
+
+' THIS OPEN-SOURCE APPLICATION IS POWERED BY ELEKTROKIT FRAMEWORK, CREATED BY ELEKTRO STUDIOS.
+
+' WHAT YOU SEE HERE IS FREE CUTTED CONTENT OF THIS FRAMEWORK.
+
+' IF YOU LIKED THIS FREE APPLICATION, THEN PLEASE CONSIDER TO BUY ELEKTROKIT FRAMEWORK FOR .NET AT:
+' https://codecanyon.net/item/elektrokit-class-library-for-net/19260282
+
+' YOU CAN FIND THESE HELPER METHODS AND A MASSIVE AMOUNT MORE!, 
+' +850 EXTENSION METHODS FOR ALL KIND OF TYPES, CUSTOM USER-CONTROLS, 
+' EVERYTHING FOR THE NEWBIE And THE ADVANCED USER, FOR VB.NET AND C#. 
+
+' ElektroKit is a utility framework containing new APIs and extensions to the core .NET Framework 
+' to help complete your developer toolbox.
+' It Is a set of general purpose classes provided as easy to consume packages.
+' These utility classes and components provide productivity in day to day software development 
+' mainly focused To WindowsForms. 
+
+' UPDATES OF ELEKTROKIT ARE MAINTAINED AND RELEASED EVERY MONTH.
+
+
+
+
+#Region " Comparer Result "
+
+Namespace ElektroKit.Core.Application.Enums
+
+    ''' ----------------------------------------------------------------------------------------------------
+    ''' <summary>
+    ''' Specifies a comparison result.
+    ''' </summary>
+    ''' ----------------------------------------------------------------------------------------------------
+    Public Enum ComparerResult As Integer
+
+        ''' <summary>
+        ''' 'A' is equals to 'B'.
+        ''' </summary>
+        Equals = 0
+
+        ''' <summary>
+        ''' 'A' is less than 'B'.
+        ''' </summary>
+        LessThan = -1
+
+        ''' <summary>
+        ''' 'A' is greater than 'B'.
+        ''' </summary>
+        GreaterThan = 1
+
+    End Enum
+
+End Namespace
+
+#End Region
diff --git a/FHM Crawler/ElektroKit/Core/Application/DateComparer.vb b/FHM Crawler/ElektroKit/Core/Application/DateComparer.vb
@@ -0,0 +1,128 @@
+
+
+
+
+
+' THIS OPEN-SOURCE APPLICATION IS POWERED BY ELEKTROKIT FRAMEWORK, CREATED BY ELEKTRO STUDIOS.
+
+' WHAT YOU SEE HERE IS FREE CUTTED CONTENT OF THIS FRAMEWORK.
+
+' IF YOU LIKED THIS FREE APPLICATION, THEN PLEASE CONSIDER TO BUY ELEKTROKIT FRAMEWORK FOR .NET AT:
+' https://codecanyon.net/item/elektrokit-class-library-for-net/19260282
+
+' YOU CAN FIND THESE HELPER METHODS AND A MASSIVE AMOUNT MORE!, 
+' +850 EXTENSION METHODS FOR ALL KIND OF TYPES, CUSTOM USER-CONTROLS, 
+' EVERYTHING FOR THE NEWBIE And THE ADVANCED USER, FOR VB.NET AND C#. 
+
+' ElektroKit is a utility framework containing new APIs and extensions to the core .NET Framework 
+' to help complete your developer toolbox.
+' It Is a set of general purpose classes provided as easy to consume packages.
+' These utility classes and components provide productivity in day to day software development 
+' mainly focused To WindowsForms. 
+
+' UPDATES OF ELEKTROKIT ARE MAINTAINED AND RELEASED EVERY MONTH.
+
+
+
+
+#Region " Imports "
+
+Imports ElektroKit.Core.Application.Enums
+
+#End Region
+
+#Region " Date Comparer "
+
+Namespace ElektroKit.Core.Application.Types
+
+    ''' ----------------------------------------------------------------------------------------------------
+    ''' <summary>
+    ''' Performs a comparison between two <see cref="Date"/> instances.
+    ''' </summary>
+    ''' ----------------------------------------------------------------------------------------------------
+    ''' <remarks>
+    ''' <seealso cref="IComparer"/>
+    ''' </remarks>
+    ''' ----------------------------------------------------------------------------------------------------
+    Public NotInheritable Class DateComparer : Implements IComparer
+
+#Region " Constructors "
+
+        ''' ----------------------------------------------------------------------------------------------------
+        ''' <summary>
+        ''' Initializes a new instance of the <see cref="DateComparer"/> class.
+        ''' </summary>
+        ''' ----------------------------------------------------------------------------------------------------
+        <DebuggerNonUserCode>
+        Public Sub New()
+        End Sub
+
+#End Region
+
+#Region " Public Methods "
+
+        ''' ----------------------------------------------------------------------------------------------------
+        ''' <summary>
+        ''' Compares two objects and returns a value indicating whether one is less than, equal to, or greater than the other.
+        ''' </summary>
+        ''' ----------------------------------------------------------------------------------------------------
+        ''' <param name="a">
+        ''' The first object to compare.
+        ''' </param>
+        ''' 
+        ''' <param name="b">
+        ''' The second object to compare.
+        ''' </param>
+        ''' ----------------------------------------------------------------------------------------------------
+        ''' <returns>
+        ''' A signed integer that indicates the relative values of <paramref name="a"/> and <paramref name="b"/>.
+        ''' <para></para>
+        ''' 0: <paramref name="a"/> equals <paramref name="b"/>. 
+        ''' <para></para>
+        ''' Less than 0: <paramref name="a"/> is less than <paramref name="b"/>. 
+        ''' <para></para>
+        ''' Greater than 0: <paramref name="a"/> is greater than <paramref name="b"/>.
+        ''' </returns>
+        ''' ----------------------------------------------------------------------------------------------------
+        <DebuggerStepThrough>
+        Public Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare
+
+            ' Null parsing.
+            If (a Is Nothing) AndAlso (b Is Nothing) Then
+                Return ComparerResult.Equals ' A is equals to B.
+
+            ElseIf (a Is Nothing) AndAlso (b IsNot Nothing) Then
+                Return ComparerResult.LessThan ' A is less than B.
+
+            ElseIf (a IsNot Nothing) AndAlso (b Is Nothing) Then
+                Return ComparerResult.GreaterThan ' A is greater than B.
+
+            Else
+                Dim dateA As DateTime
+                Dim dateB As DateTime
+
+                If (Date.TryParse(CStr(a), dateA)) AndAlso (Date.TryParse(CStr(b), dateB)) Then ' True And True.
+                    Return DirectCast(dateA.CompareTo(dateB), ComparerResult)
+
+                ElseIf (Date.TryParse(CStr(a), dateA)) AndAlso Not (Date.TryParse(CStr(b), dateB)) Then ' True And False.
+                    Return ComparerResult.LessThan ' A is less than B.
+
+                ElseIf Not (Date.TryParse(CStr(a), dateA)) AndAlso (Date.TryParse(CStr(b), dateB)) Then ' False And True.
+                    Return ComparerResult.GreaterThan ' A is greater than B.
+
+                Else ' False And False.
+                    Return DirectCast(a.ToString().CompareTo(b.ToString()), ComparerResult)
+
+                End If
+
+            End If
+
+        End Function
+
+#End Region
+
+    End Class
+
+End Namespace
+
+#End Region
diff --git a/FHM Crawler/ElektroKit/Core/Application/NumericComparer.vb b/FHM Crawler/ElektroKit/Core/Application/NumericComparer.vb
@@ -0,0 +1,128 @@
+
+
+
+
+
+' THIS OPEN-SOURCE APPLICATION IS POWERED BY ELEKTROKIT FRAMEWORK, CREATED BY ELEKTRO STUDIOS.
+
+' WHAT YOU SEE HERE IS FREE CUTTED CONTENT OF THIS FRAMEWORK.
+
+' IF YOU LIKED THIS FREE APPLICATION, THEN PLEASE CONSIDER TO BUY ELEKTROKIT FRAMEWORK FOR .NET AT:
+' https://codecanyon.net/item/elektrokit-class-library-for-net/19260282
+
+' YOU CAN FIND THESE HELPER METHODS AND A MASSIVE AMOUNT MORE!, 
+' +850 EXTENSION METHODS FOR ALL KIND OF TYPES, CUSTOM USER-CONTROLS, 
+' EVERYTHING FOR THE NEWBIE And THE ADVANCED USER, FOR VB.NET AND C#. 
+
+' ElektroKit is a utility framework containing new APIs and extensions to the core .NET Framework 
+' to help complete your developer toolbox.
+' It Is a set of general purpose classes provided as easy to consume packages.
+' These utility classes and components provide productivity in day to day software development 
+' mainly focused To WindowsForms. 
+
+' UPDATES OF ELEKTROKIT ARE MAINTAINED AND RELEASED EVERY MONTH.
+
+
+
+
+#Region " Imports "
+
+Imports ElektroKit.Core.Application.Enums
+
+#End Region
+
+#Region " Numeric Comparer "
+
+Namespace ElektroKit.Core.Application.Types
+
+    ''' ----------------------------------------------------------------------------------------------------
+    ''' <summary>
+    ''' Performs a comparison between two numeric values.
+    ''' </summary>
+    ''' ----------------------------------------------------------------------------------------------------
+    ''' <remarks>
+    ''' <seealso cref="IComparer"/>
+    ''' </remarks>
+    ''' ----------------------------------------------------------------------------------------------------
+    Public NotInheritable Class NumericComparer : Implements IComparer
+
+#Region " Constructors "
+
+        ''' ----------------------------------------------------------------------------------------------------
+        ''' <summary>
+        ''' Initializes a new instance of the <see cref="NumericComparer"/> class.
+        ''' </summary>
+        ''' ----------------------------------------------------------------------------------------------------
+        <DebuggerNonUserCode>
+        Public Sub New()
+        End Sub
+
+#End Region
+
+#Region " Public Methods "
+
+        ''' ----------------------------------------------------------------------------------------------------
+        ''' <summary>
+        ''' Compares two objects and returns a value indicating whether one is less than, equal to, or greater than the other.
+        ''' </summary>
+        ''' ----------------------------------------------------------------------------------------------------
+        ''' <param name="a">
+        ''' The first object to compare.
+        ''' </param>
+        ''' 
+        ''' <param name="b">
+        ''' The second object to compare.
+        ''' </param>
+        ''' ----------------------------------------------------------------------------------------------------
+        ''' <returns>
+        ''' A signed integer that indicates the relative values of <paramref name="a"/> and <paramref name="b"/>.
+        ''' <para></para>
+        ''' 0: <paramref name="a"/> equals <paramref name="b"/>. 
+        ''' <para></para>
+        ''' Less than 0: <paramref name="a" /> is less than <paramref name="b"/>. 
+        ''' <para></para>
+        ''' Greater than 0: <paramref name="a"/> is greater than <paramref name="b"/>.
+        ''' </returns>
+        ''' ----------------------------------------------------------------------------------------------------
+        <DebuggerStepThrough>
+        Public Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare
+
+            ' Null parsing.
+            If a Is Nothing AndAlso b Is Nothing Then
+                Return ComparerResult.Equals ' A is equals to B.
+
+            ElseIf a Is Nothing AndAlso b IsNot Nothing Then
+                Return ComparerResult.LessThan ' A is less than B.
+
+            ElseIf a IsNot Nothing AndAlso b Is Nothing Then
+                Return ComparerResult.GreaterThan ' A is greater than B.
+
+            Else
+                Dim singleA As Single
+                Dim singleB As Single
+
+                If Single.TryParse(CStr(a), singleA) AndAlso Single.TryParse(CStr(b), singleB) Then ' True And True.
+                    Return DirectCast(singleA.CompareTo(singleB), ComparerResult)
+
+                ElseIf Single.TryParse(CStr(a), singleA) AndAlso Not Single.TryParse(CStr(b), singleB) Then ' True And False.
+                    Return ComparerResult.GreaterThan ' A is greater than B.
+
+                ElseIf Not Single.TryParse(CStr(a), singleA) AndAlso Single.TryParse(CStr(b), singleB) Then ' False And True.
+                    Return ComparerResult.LessThan ' A is less than B.
+
+                Else ' False And False.
+                    Return DirectCast(a.ToString().CompareTo(b.ToString()), ComparerResult)
+
+                End If
+
+            End If
+
+        End Function
+
+#End Region
+
+    End Class
+
+End Namespace
+
+#End Region