/NfoLibrary/TV/TvShow.Scrapping.vb

# · Visual Basic · 33 lines · 23 code · 10 blank · 0 comment · 0 complexity · 09a94bfc72f2ca6400659acaf1db83b6 MD5 · raw file

  1. Imports Media_Companion
  2. Partial Public Class TvShow
  3. Public Property TvdbData As Media_Companion.Tvdb.ShowData
  4. Public Property FanartData As New FanartScraper.Fanart
  5. Public Sub DownloadFanartData()
  6. Dim Data As String = Utilities.DownloadTextFiles("http://fanart.tv/api/fanart.php?id=" & Me.TvdbId.Value)
  7. FanartData.LoadXml(Data)
  8. FanartData.FolderPath = Me.FolderPath
  9. If FanartData.ClearArts.Count > 0 Then
  10. FanartData.ClearArts.Item(0).DownloadFile()
  11. End If
  12. If FanartData.ClearLogos.Count > 0 Then
  13. FanartData.ClearLogos.Item(0).DownloadFile()
  14. End If
  15. If FanartData.TvThumbs.Count > 0 Then
  16. FanartData.TvThumbs.Item(0).DownloadFile()
  17. End If
  18. End Sub
  19. Public Sub Scrape(Optional ByVal IgnoreCache As Boolean = False)
  20. Dim ScrapeTask As Tasks.ScrapeShowTask = New Tasks.ScrapeShowTask(Me)
  21. Common.Tasks.Add(ScrapeTask)
  22. End Sub
  23. End Class