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