v1.1

Docs/CHANGELOG.md

@@ -1,4 +1,17 @@
-# FHM Crawler - http://freehardmusic.com/ Change Log 📋
+# FHM Crawler (http://freehardmusic.com/) Change Log 📋
 
-## v1.0 *(current)* 🔄
+## v1.1 *(current)* 🆕
+
+#### 🛠️ Fixes:
+ - The program has stopped working due breaking changes on the FHM server. Crawler logic has been updated.
+
+#### 🚀 New Features:
+ - Added a "Browser (Login)" tab to log in to the FHM website. A log-in is required (only once) for the crawler to work.
+
+#### 🌟 Improvements:
+ - Source-code now targets .NET Framework 4.8
+ - Default user-interface font changed to Segoe UI (10pt)
+ - Minor code changes and optimizations.
+
+## v1.0 🔄
 Initial Release.

Readme.md

@@ -28,6 +28,8 @@ winforms
 
 ![screenshot](/Images/FHM%20Crawler%201.png)
 
+![screenshot](/Images/FHM%20Crawler%201.1.png)
+
 ![screenshot](/Images/FHM%20Crawler%202.png)
 
 ![screenshot](/Images/FHM%20Crawler%203.png)

Source/FHM Crawler/App.config

@@ -1,6 +1,6 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
-</configuration>
+</configuration>

Source/FHM Crawler/CookieAwareWebClient.vb

@@ -0,0 +1,16 @@
+Imports System.Net
+
+Public Class CookieAwareWebClient
+    Inherits WebClient
+
+    Public Property Cookies() As New CookieContainer()
+
+    Protected Overrides Function GetWebRequest(address As Uri) As WebRequest
+        Dim request As WebRequest = MyBase.GetWebRequest(address)
+        If TypeOf request Is HttpWebRequest Then
+            Dim httpRequest As HttpWebRequest = DirectCast(request, HttpWebRequest)
+            httpRequest.CookieContainer = Me.Cookies
+        End If
+        Return request
+    End Function
+End Class

Source/FHM Crawler/ElektroKit/Core/Application/ComparerResult.vb → Source/FHM Crawler/DevCase/Core/Application/ComparerResult.vb

@@ -3,31 +3,31 @@
 
 
 
-' THIS OPEN-SOURCE APPLICATION IS POWERED BY ELEKTROKIT FRAMEWORK, CREATED BY ELEKTRO STUDIOS.
+' THIS OPEN-SOURCE APPLICATION IS POWERED BY DevCase 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
+' IF YOU LIKED THIS FREE APPLICATION, THEN PLEASE CONSIDER TO BUY DevCase FRAMEWORK FOR .NET AT:
+' https://codecanyon.net/item/DevCase-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 
+' DevCase 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.
+' UPDATES OF DevCase ARE MAINTAINED AND RELEASED EVERY MONTH.
 
 
 
 
 #Region " Comparer Result "
 
-Namespace ElektroKit.Core.Application.Enums
+Namespace DevCase.Core.Application.Enums
 
     ''' ----------------------------------------------------------------------------------------------------
     ''' <summary>

Source/FHM Crawler/ElektroKit/Core/Application/DateComparer.vb → Source/FHM Crawler/DevCase/Core/Application/DateComparer.vb

@@ -3,37 +3,37 @@
 
 
 
-' THIS OPEN-SOURCE APPLICATION IS POWERED BY ELEKTROKIT FRAMEWORK, CREATED BY ELEKTRO STUDIOS.
+' THIS OPEN-SOURCE APPLICATION IS POWERED BY DevCase 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
+' IF YOU LIKED THIS FREE APPLICATION, THEN PLEASE CONSIDER TO BUY DevCase FRAMEWORK FOR .NET AT:
+' https://codecanyon.net/item/DevCase-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 
+' DevCase 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.
+' UPDATES OF DevCase ARE MAINTAINED AND RELEASED EVERY MONTH.
 
 
 
 
 #Region " Imports "
 
-Imports ElektroKit.Core.Application.Enums
+Imports DevCase.Core.Application.Enums
 
 #End Region
 
 #Region " Date Comparer "
 
-Namespace ElektroKit.Core.Application.Types
+Namespace DevCase.Core.Application.Types
 
     ''' ----------------------------------------------------------------------------------------------------
     ''' <summary>
@@ -85,7 +85,7 @@ Namespace ElektroKit.Core.Application.Types
         ''' </returns>
         ''' ----------------------------------------------------------------------------------------------------
         <DebuggerStepThrough>
-        Public Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare
+        Public Function Compare(a As Object, b As Object) As Integer Implements IComparer.Compare
 
             ' Null parsing.
             If (a Is Nothing) AndAlso (b Is Nothing) Then

Source/FHM Crawler/ElektroKit/Core/Application/NumericComparer.vb → Source/FHM Crawler/DevCase/Core/Application/NumericComparer.vb

@@ -3,37 +3,37 @@
 
 
 
-' THIS OPEN-SOURCE APPLICATION IS POWERED BY ELEKTROKIT FRAMEWORK, CREATED BY ELEKTRO STUDIOS.
+' THIS OPEN-SOURCE APPLICATION IS POWERED BY DevCase 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
+' IF YOU LIKED THIS FREE APPLICATION, THEN PLEASE CONSIDER TO BUY DevCase FRAMEWORK FOR .NET AT:
+' https://codecanyon.net/item/DevCase-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 
+' DevCase 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.
+' UPDATES OF DevCase ARE MAINTAINED AND RELEASED EVERY MONTH.
 
 
 
 
 #Region " Imports "
 
-Imports ElektroKit.Core.Application.Enums
+Imports DevCase.Core.Application.Enums
 
 #End Region
 
 #Region " Numeric Comparer "
 
-Namespace ElektroKit.Core.Application.Types
+Namespace DevCase.Core.Application.Types
 
     ''' ----------------------------------------------------------------------------------------------------
     ''' <summary>
@@ -85,7 +85,7 @@ Namespace ElektroKit.Core.Application.Types
         ''' </returns>
         ''' ----------------------------------------------------------------------------------------------------
         <DebuggerStepThrough>
-        Public Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare
+        Public Function Compare(a As Object, b As Object) As Integer Implements IComparer.Compare
 
             ' Null parsing.
             If a Is Nothing AndAlso b Is Nothing Then

Source/FHM Crawler/ElektroKit/Core/Application/StringLengthComparer.vb → Source/FHM Crawler/DevCase/Core/Application/StringLengthComparer.vb

@@ -3,37 +3,37 @@
 
 
 
-' THIS OPEN-SOURCE APPLICATION IS POWERED BY ELEKTROKIT FRAMEWORK, CREATED BY ELEKTRO STUDIOS.
+' THIS OPEN-SOURCE APPLICATION IS POWERED BY DevCase 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
+' IF YOU LIKED THIS FREE APPLICATION, THEN PLEASE CONSIDER TO BUY DevCase FRAMEWORK FOR .NET AT:
+' https://codecanyon.net/item/DevCase-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 
+' DevCase 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.
+' UPDATES OF DevCase ARE MAINTAINED AND RELEASED EVERY MONTH.
 
 
 
 
 #Region " Imports "
 
-Imports ElektroKit.Core.Application.Enums
+Imports DevCase.Core.Application.Enums
 
 #End Region
 
 #Region " Length Comparer "
 
-Namespace ElektroKit.Core.Application.Types
+Namespace DevCase.Core.Application.Types
 
     ''' ----------------------------------------------------------------------------------------------------
     ''' <summary>
@@ -86,7 +86,7 @@ Namespace ElektroKit.Core.Application.Types
         ''' </returns>
         ''' ----------------------------------------------------------------------------------------------------
         <DebuggerStepThrough>
-        Public Function Compare(ByVal a As String, ByVal b As String) As Integer Implements IComparer(Of String).Compare
+        Public Function Compare(a As String, b As String) As Integer Implements IComparer(Of String).Compare
 
             If (a Is Nothing) AndAlso (b Is Nothing) Then
                 Return ComparerResult.Equals ' Length of A is equals to length of B.

Source/FHM Crawler/ElektroKit/Core/Application/TextComparer.vb → Source/FHM Crawler/DevCase/Core/Application/TextComparer.vb

@@ -3,24 +3,24 @@
 
 
 
-' THIS OPEN-SOURCE APPLICATION IS POWERED BY ELEKTROKIT FRAMEWORK, CREATED BY ELEKTRO STUDIOS.
+' THIS OPEN-SOURCE APPLICATION IS POWERED BY DevCase 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
+' IF YOU LIKED THIS FREE APPLICATION, THEN PLEASE CONSIDER TO BUY DevCase FRAMEWORK FOR .NET AT:
+' https://codecanyon.net/item/DevCase-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 
+' DevCase 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.
+' UPDATES OF DevCase ARE MAINTAINED AND RELEASED EVERY MONTH.
 
 
 
@@ -29,13 +29,13 @@
 
 Imports System.ComponentModel
 
-Imports ElektroKit.Core.Application.Enums
+Imports DevCase.Core.Application.Enums
 
 #End Region
 
 #Region " Text Comparer "
 
-Namespace ElektroKit.Core.Application.Types
+Namespace DevCase.Core.Application.Types
 
     ''' ----------------------------------------------------------------------------------------------------
     ''' <summary>
@@ -83,7 +83,7 @@ Namespace ElektroKit.Core.Application.Types
         ''' </returns>
         ''' ----------------------------------------------------------------------------------------------------
         <DebuggerStepThrough>
-        Public Shadows Function Compare(ByVal a As Object, ByVal b As Object) As Integer
+        Public Shadows Function Compare(a As Object, b As Object) As Integer
 
             ' Null parsing.
             If a Is Nothing AndAlso b Is Nothing Then
@@ -164,7 +164,7 @@ Namespace ElektroKit.Core.Application.Types
         ''' ----------------------------------------------------------------------------------------------------
         <EditorBrowsable(EditorBrowsableState.Never)>
         <DebuggerNonUserCode>
-        Public Shadows Function Equals(ByVal obj As Object) As Boolean
+        Public Shadows Function Equals(obj As Object) As Boolean
             Return MyBase.Equals(obj)
         End Function
 
@@ -190,7 +190,7 @@ Namespace ElektroKit.Core.Application.Types
         ''' ----------------------------------------------------------------------------------------------------
         <EditorBrowsable(EditorBrowsableState.Never)>
         <DebuggerNonUserCode>
-        Public Shared Shadows Function Equals(ByVal objA As Object, ByVal objB As Object) As Boolean
+        Public Shared Shadows Function Equals(objA As Object, objB As Object) As Boolean
             Return Object.Equals(objA, objB)
         End Function
 
@@ -214,7 +214,7 @@ Namespace ElektroKit.Core.Application.Types
         ''' ----------------------------------------------------------------------------------------------------
         <EditorBrowsable(EditorBrowsableState.Never)>
         <DebuggerNonUserCode>
-        Public Shared Shadows Function ReferenceEquals(ByVal objA As Object, ByVal objB As Object) As Boolean
+        Public Shared Shadows Function ReferenceEquals(objA As Object, objB As Object) As Boolean
             Return Object.ReferenceEquals(objA, objB)
         End Function