Crawler Class

Public Class Crawler
	Implements IDisposable

Dim instance As Crawler

public ref class Crawler : IDisposable

type Crawler = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Imports FHM

Public Module Module1

    Private WithEvents FHMCrawler As New Crawler
    Private mre As New ManualResetEvent(initialState:=False)

    Public Sub Main()
        FHMCrawler.SearchQuery.Artist = "Linkin Park"

        Console.WriteLine("Search Params: {0}", FHMCrawler.SearchQuery.ToString())
        Console.WriteLine()
        Console.WriteLine("Absolute Uri: {0}", FHMCrawler.SearchQuery.Uri.AbsoluteUri)
        Console.WriteLine()
        Console.WriteLine("Retrieving Album count...")
        Dim albumCount As Integer = FHMCrawler.GetAlbumCount()
        Console.WriteLine("Album Count: {0}", albumCount)
        Console.WriteLine()
        Console.WriteLine("Begin crawling, please wait...")
        Fetch()
        mre.WaitOne()
        Console.WriteLine("Done!. Press any key to exit...")
        Console.ReadKey()
    End Sub

    Public Async Sub Fetch()
        Dim success As Boolean = Await FHMCrawler.FetchAlbumsAsync()
        mre.Set()
    End Sub

    Private Sub FHMCrawler_PageCrawlBegin(ByVal sender As Object, e As PageCrawlBeginEventArgs) Handles FHMCrawler.PageCrawlBegin
        Console.WriteLine("[+] Begin crawling page with index: {0}", e.SearchPage)
        Console.WriteLine()
    End Sub

    Private Sub FHMCrawler_PageCrawlEnd(ByVal sender As Object, e As PageCrawlEndEventArgs) Handles FHMCrawler.PageCrawlEnd
        For Each albumInfo As AlbumInfo In e.Albums
            Dim sb As New StringBuilder()
            sb.AppendLine(String.Format("Artist Name.....: {0}", albumInfo.Artist))
            sb.AppendLine(String.Format("Album Title.....: {0}", albumInfo.Title))
            sb.AppendLine(String.Format("Album Year......: {0}", albumInfo.Year))
            sb.AppendLine(String.Format("Album Country...: {0}", albumInfo.Country))
            sb.AppendLine(String.Format("Album Genre.....: {0}", albumInfo.Genre))
            sb.AppendLine(String.Format("Album Id........: {0}", albumInfo.Id))
            sb.AppendLine(String.Format("Album Url.......: {0}", albumInfo.Uri.AbsoluteUri))
            sb.AppendLine(String.Format("Download Link(s): {0}", String.Format("{{ {0} }}", String.Join(", ", albumInfo.DownloadLinks))))
            Console.WriteLine(sb.ToString())
        Next albumInfo
        Console.WriteLine("[+] End crawling page with index: {0}", e.SearchPage)
        Console.WriteLine()
    End Sub

End Module

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.