Imports HtmlAgilityPack
Module Module1

  Sub Main()
    PrintUserContribs("88833")
    Console.ReadKey()
  End Sub
  Public Sub ConsoleColors(f As ConsoleColor,b As ConsoleColor)
    Console.ForegroundColor=f
    Console.BackgroundColor=b
  End Sub
  Function DownloadInfo(userID As string) As String
    Dim webPage=""
    Dim done=False 
    Dim prev=0
    Console.Write("Downloading [")
    Dim colors={Console.BackgroundColor,Console.ForegroundColor }
    ConsoleColors(colors(0),colors(1))
    Using wc As New Net.WebClient
      Dim up=Sub(s As Object,e as Net.DownloadProgressChangedEventArgs)
               Dim p = e.BytesReceived \ (1024 * 4) '4Kb
               Dim delta=p-prev
               If delta<0 then delta =0
                prev=p
                Console.Write(new String(" ",delta))
             End Sub
      Dim onDone =Sub(s,e)
                    WebPage=e.Result
                    done=True
                  End Sub    
      AddHandler wc.DownloadProgressChanged,up
      AddHandler wc.DownloadStringCompleted,onDone
      wc.DownloadStringAsync( New Uri( String.Format("http://www.dreamincode.net/?p=kudos&kudosmember={0}", userID)))
      Task.Run(Sub()
                 While Not done
                   Task.Delay(250)
                 End While
               End Sub ).Wait
      RemoveHandler wc.DownloadProgressChanged,up
      RemoveHandler wc.DownloadStringCompleted,onDone
    End Using
    ConsoleColors(colors(1),colors(0))

    Console.WriteLine("]")
    Return webPage
  End Function

  Sub PrintUserContribs(ByVal userID As String)
    Dim webpage=DownloadInfo(userID)
    Dim web As New HtmlAgilityPack.HtmlDocument()
    web.LoadHtml(WebPage)
    Dim titles = FindTitles(web)
    Dim MemberName = titles(0).Substring(0, titles(0).IndexOf("'s"))
    Console.WriteLine("Member:- {0}", MemberName)
    'FindTutorials(web)
    'FindSnippets(web)
    FindSnippets2(web)

  End Sub

  Function FindTitles(ByVal web As HtmlAgilityPack.HtmlDocument) As String()
    Return web.DocumentNode.
      DescendantsAndSelf.
      Where(Function(d) d.GetAttributeValue("class", "") = "titles").
      Select(Function(d2) d2.InnerText).ToArray()
  End Function

  Function Find(web As HtmlAgilityPack.HtmlDocument, part1 As String, part2 As String) As IEnumerable(Of HtmlNode)
    Return web.DocumentNode.DescendantsAndSelf.
       Where(Function(d) d.Attributes.AttributesWithName("class").Any AndAlso d.Name = part1).
       Where(Function(d2) d2.GetAttributeValue("class", "") = part2).ToArray()
  End Function

  Sub FindTutorials(ByVal web As HtmlAgilityPack.HtmlDocument)
    Dim divs = Find(web, "div", "tr2")
    Dim Tutorials As New List(Of Tutorial)
    For Each div In divs
      Dim cn = div.DescendantsAndSelf.Where(Function(d) d.Name = "#text").ToArray
      Dim ns As New Tutorial(cn(1).InnerText, cn(3).InnerText)
      Tutorials.Add(ns)
    Next
    Tutorials = Tutorials.Where(Function(s) s.Title.Contains("Deleted:") = False).ToList
    Console.WriteLine("Tutorials")
    PrintGroups(Tutorials)
  End Sub

  Public Sub PrintGroups(Of T As Contribution)(ByVal Contributions As IEnumerable(Of T))
    Dim g = From Contribution In Contributions Order By Contribution.Title Group By Contribution.Section Into Group
    For Each grp In g
      Console.WriteLine(grp.Section)
      For i = 0 To grp.Group.Count - 1
        Console.WriteLine("{0,3} {1}", i + 1, grp.Group(i).Title)
      Next
      Console.WriteLine()
    Next
  End Sub

    Public Sub PrintGroups2(Of T As SnippetWithSubDate)(ByVal Contributions As IEnumerable(Of T))
    Dim g = From Contribution In Contributions
            Order By Contribution.Date 
            Group By Contribution.Section Into Group
    For Each grp In g
      Console.WriteLine(grp.Section)
      For i = 0 To grp.Group.Count - 1
        Console.WriteLine("{0,3} {2} {1}", i + 1, grp.Group(i).Title,grp.Group(i).Date.ToShortDateString)
      Next
      Console.WriteLine()
    Next
  End Sub

  Sub FindSnippets(ByVal web As HtmlAgilityPack.HtmlDocument)
    Dim divs = Find(web, "td", "tr1")
    Dim snippets As New List(Of Snippet)
    For Each div In divs
      Dim cn = div.DescendantsAndSelf.Where(Function(d) d.Name = "#text").ToArray
      Dim ns As New Snippet(cn(2).InnerText, cn(4).InnerText.Substring(4))
      snippets.Add(ns)
    Next
    snippets = snippets.Where(Function(s) s.Title.Contains("Deleted:") = False).ToList
    Console.WriteLine("Snippets")
    PrintGroups(snippets)
  End Sub
    Sub FindSnippets2(ByVal web As HtmlAgilityPack.HtmlDocument)
    Dim divs = Find(web, "td", "tr1")
    Dim snippets As New List(Of SnippetWithSubDate)
    For Each div In divs
      Dim q=div.ParentNode.ParentNode
      Dim q2=q.DescendantsAndSelf.Where(Function(d) d.GetAttributeValue("class","")="snipDate").ToArray()
      Dim ds=q2(0).ChildNodes(1).InnerText
      Dim pd=Date.Parse(ds)

      Dim cn = div.DescendantsAndSelf.Where(Function(d) d.Name = "#text").ToArray
      Dim ns As New SnippetWithSubDate(cn(2).InnerText, cn(4).InnerText.Substring(4),pd)
      snippets.Add(ns)
    Next
    snippets = snippets.Where(Function(s) s.Title.Contains("Deleted:") = False).ToList
    Console.WriteLine("Snippets")
    PrintGroups2(snippets)
  End Sub

  Public MustInherit Class Contribution
    Public ReadOnly Title As String
    Public ReadOnly Section As String
    Friend Sub New(Title As String, Section As String)
      Me.Title = Title
      Me.Section = Section
    End Sub
    Public Overrides Function ToString() As String
      Return String.Format("{0} {1}", Title, Section)
    End Function
  End Class

  Public Class Tutorial
    Inherits Contribution
    Public Sub New(Title As String, Section As String)
      MyBase.New(Title, Section)
    End Sub
  End Class

  Public Class Snippet
    Inherits Contribution
    Public Sub New(Title As String, Section As String)
      MyBase.New(Title, Section)
    End Sub
  End Class

  Public Class SnippetWithSubDate
    Inherits Snippet
    Public ReadOnly [Date] as DateTime 
    Public Sub New(Title As String, Section As String,SubDate As DateTime)
      MyBase.New(Title, Section)
      Me.Date=SubDate
    End Sub

  End Class
End Module