0 Then
+ debug.print("GetIMDBPoster 1 - {0}", mcIMDB(0).Value)
+ 'Dim sUrl1 As String = sHTTP.DownloadData(mcIMDB(0).Value)
+ mcIMDB = Regex.Matches(HTML, "http://ia.media-imdb.com/images/.{3,80}?.jpg")
+ If mcIMDB.Count > 0 Then
+ 'just use the first one if more are found
+ Debug.Print("GetIMDBPoster 2 - {0}", mcIMDB(0).Value)
+ alPoster.Add(New MediaContainers.Image With {.Description = "cover", .URL = mcIMDB(0).Value})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(2)
+ End If
+
+ Dim aSP As String() = Regex.Split(mcIMDB(0).Value, "._V\d+?_SY\d+?_CR\d+?,\d+?,\d+?,\d+?_")
+ Dim sUrl1 = aSP(0) + aSP(1)
+ Debug.Print("GetIMDBPoster 3 - {0}", sUrl1)
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = sUrl1})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMDBimg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBimg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMDBimg_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBimg.ProgressChanged
+ If Not bwIMDBimg.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMDBimg_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBimg.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.EmberCore.TMDB/Scraper/clsScrapeIMPA.vb b/Addons/scraper.EmberCore.TMDB/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..cfe43a1
--- /dev/null
+++ b/Addons/scraper.EmberCore.TMDB/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,189 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see ") + If W > 0 Then + B = tmpHTML.IndexOf("", W + 16) + FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("
", String.Empty).Replace(vbCrLf, " ").Trim) + End If + End If + End If + + Catch ex As Exception + Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error") + End Try + + Return FullPlot + End Function + + Private Sub GetOFDBDetails() + Dim sURL As String = GetOFDBUrlFromIMDBID() + + Try + If Not String.IsNullOrEmpty(sURL) Then + Dim sHTTP As New HTTP + Dim HTML As String = sHTTP.DownloadData(sURL) + sHTTP = Nothing + + If Not String.IsNullOrEmpty(Html) Then + 'title + If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then + Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, "
([^<]+)
MPAA:
") > 0, HTML.IndexOf("MPAA:
"), 0) D = If(tempD > 0, HTML.IndexOf("", tempD), 0)
@@ -213,7 +213,7 @@ Namespace IMDB
If bwIMDB.CancellationPending Then Return Nothing
- If Options.bCert Then
+ If Options.bCert AndAlso (String.IsNullOrEmpty(IMDBMovie.Certification) OrElse Not Master.eSettings.LockMPAA) Then
'get certifications
D = HTML.IndexOf("Titles")
- If D <= 0 Then GoTo mApprox
- W = HTMLm.IndexOf("", D) + 8
+ D = HTMLm.IndexOf("Titles")
+ If D <= 0 Then GoTo mExact
+ W = HTMLm.IndexOf("", D) + 8
- Table = Regex.Match(HTMLm.Substring(D, W - D), TABLE_PATTERN).ToString
- Dim qpartial = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
- Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("", D) + 8
+ ' 'Now process "Approx Matches" and merge both Partial and Approx matches
+ ' D = HTML.IndexOf("Titles (Approx Matches)")
+ ' If D <= 0 Then GoTo mExact
+ ' W = HTML.IndexOf("", D) + 8
- Table = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+ ' Table = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
- Dim qApprox = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
- Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("Titles")
- If D <= 0 Then GoTo mResult
- W = HTMLe.IndexOf("", D) + 8
+ D = HTMLe.IndexOf("Titles")
+ If D <= 0 Then GoTo mResult
+ W = HTMLe.IndexOf("", D) + 8
- Table = String.Empty
- Table = Regex.Match(HTMLe.Substring(D, W - D), TABLE_PATTERN).ToString
+ Table = String.Empty
+ Table = Regex.Match(HTMLe.Substring(D, W - D), TABLE_PATTERN).ToString
- Dim qExact = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
- Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
Dim PosterURL As String
@@ -129,7 +129,7 @@ Namespace IMPA
Try
Dim sHTTP As New HTTP
- Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", IMDBID, "/posters"))
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
sHTTP = Nothing
Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
diff --git a/Addons/scraper.EmberCore/Scraper/clsScrapeImages.vb b/Addons/scraper.EmberCore/Scraper/clsScrapeImages.vb
index 5fc7e6f..7bdb821 100644
--- a/Addons/scraper.EmberCore/Scraper/clsScrapeImages.vb
+++ b/Addons/scraper.EmberCore/Scraper/clsScrapeImages.vb
@@ -39,16 +39,16 @@ Public Class ScrapeImages
Dim tmpListTMDB As New List(Of MediaContainers.Image)
Dim tmpListIMPA As New List(Of MediaContainers.Image)
Dim tmpListMPDB As New List(Of MediaContainers.Image)
- Dim tmpIMPAX As Image = Nothing
- Dim tmpIMPAL As Image = Nothing
- Dim tmpIMPAM As Image = Nothing
- Dim tmpIMPAS As Image = Nothing
- Dim tmpIMPAW As Image = Nothing
- Dim tmpMPDBX As Image = Nothing
- Dim tmpMPDBL As Image = Nothing
- Dim tmpMPDBM As Image = Nothing
- Dim tmpMPDBS As Image = Nothing
- Dim tmpMPDBW As Image = Nothing
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
@@ -109,8 +109,8 @@ Public Class ScrapeImages
tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
If Not IsNothing(tmdbThumb.WebImage.Image) Then
If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
- Image.Image = tmdbThumb.WebImage.Image
- Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")))
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
End If
Image.Clear()
Next
@@ -128,13 +128,13 @@ Public Class ScrapeImages
For Each iMovie As MediaContainers.Image In tmpListTMDB
If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
- Image.Image = iMovie.WebImage.Image
+ Image = iMovie.WebImage
GoTo foundit
End If
Next
If Not doAsk Then
- Image.Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage.Image
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
End If
End If
Else
@@ -199,23 +199,23 @@ Public Class ScrapeImages
Select Case tmpSize
Case Enums.PosterSize.Xlrg
If IsNothing(tmpIMPAX) Then
- tmpIMPAX = New Bitmap(Image.Image)
+ tmpIMPAX = Image
End If
Case Enums.PosterSize.Lrg
If IsNothing(tmpIMPAL) Then
- tmpIMPAL = New Bitmap(Image.Image)
+ tmpIMPAL = Image
End If
Case Enums.PosterSize.Mid
If IsNothing(tmpIMPAM) Then
- tmpIMPAM = New Bitmap(Image.Image)
+ tmpIMPAM = Image
End If
Case Enums.PosterSize.Small
If IsNothing(tmpIMPAS) Then
- tmpIMPAS = New Bitmap(Image.Image)
+ tmpIMPAS = Image
End If
Case Enums.PosterSize.Wide
If IsNothing(tmpIMPAW) Then
- tmpIMPAW = New Bitmap(Image.Image)
+ tmpIMPAW = Image
End If
End Select
Else
@@ -247,23 +247,23 @@ Public Class ScrapeImages
Select Case tmpSize
Case Enums.PosterSize.Xlrg
If IsNothing(tmpMPDBX) Then
- tmpMPDBX = New Bitmap(Image.Image)
+ tmpMPDBX = Image
End If
Case Enums.PosterSize.Lrg
If IsNothing(tmpMPDBL) Then
- tmpMPDBL = New Bitmap(Image.Image)
+ tmpMPDBL = Image
End If
Case Enums.PosterSize.Mid
If IsNothing(tmpMPDBM) Then
- tmpMPDBM = New Bitmap(Image.Image)
+ tmpMPDBM = Image
End If
Case Enums.PosterSize.Small
If IsNothing(tmpMPDBS) Then
- tmpMPDBS = New Bitmap(Image.Image)
+ tmpMPDBS = Image
End If
Case Enums.PosterSize.Wide
If IsNothing(tmpMPDBW) Then
- tmpMPDBW = New Bitmap(Image.Image)
+ tmpMPDBW = Image
End If
End Select
Else
@@ -314,23 +314,23 @@ Public Class ScrapeImages
If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
If tmpListIMPA.Count > 0 Then
If Not IsNothing(tmpIMPAX) Then
- Image.Image = New Bitmap(tmpIMPAX)
+ Image = tmpIMPAX
GoTo foundIT
End If
If Not IsNothing(tmpIMPAL) Then
- Image.Image = New Bitmap(tmpIMPAL)
+ Image = tmpIMPAL
GoTo foundIT
End If
If Not IsNothing(tmpIMPAM) Then
- Image.Image = New Bitmap(tmpIMPAM)
+ Image = tmpIMPAM
GoTo foundIT
End If
If Not IsNothing(tmpIMPAS) Then
- Image.Image = New Bitmap(tmpIMPAS)
+ Image = tmpIMPAS
GoTo foundIT
End If
If Not IsNothing(tmpIMPAW) Then
- Image.Image = New Bitmap(tmpIMPAW)
+ Image = tmpIMPAW
GoTo foundIT
End If
End If
@@ -341,23 +341,23 @@ Public Class ScrapeImages
If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
If tmpListMPDB.Count > 0 Then
If Not IsNothing(tmpMPDBX) Then
- Image.Image = New Bitmap(tmpMPDBX)
+ Image = tmpMPDBX
GoTo foundIT
End If
If Not IsNothing(tmpMPDBL) Then
- Image.Image = New Bitmap(tmpMPDBL)
+ Image = tmpMPDBL
GoTo foundIT
End If
If Not IsNothing(tmpMPDBM) Then
- Image.Image = New Bitmap(tmpMPDBM)
+ Image = tmpMPDBM
GoTo foundIT
End If
If Not IsNothing(tmpMPDBS) Then
- Image.Image = New Bitmap(tmpMPDBS)
+ Image = tmpMPDBS
GoTo foundIT
End If
If Not IsNothing(tmpMPDBW) Then
- Image.Image = New Bitmap(tmpMPDBW)
+ Image = tmpMPDBW
GoTo foundIT
End If
End If
@@ -436,9 +436,9 @@ Public Class ScrapeImages
For Each miFanart As MediaContainers.Image In tmpListTMDB
miFanart.WebImage.FromWeb(miFanart.URL)
If Not IsNothing(miFanart.WebImage.Image) Then
- Image.Image = miFanart.WebImage.Image
+ Image = miFanart.WebImage
Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
- Image.Save(savePath)
+ Image.Save(savePath, , , False)
If Master.eSettings.AutoET AndAlso doETs Then
Select Case miFanart.Description.ToLower
Case "original"
@@ -489,7 +489,7 @@ Public Class ScrapeImages
For Each iMovie As MediaContainers.Image In tmpListTMDB
If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
- Image.Image = iMovie.WebImage.Image
+ Image = iMovie.WebImage
GoTo foundit
End If
Next
@@ -497,7 +497,7 @@ Public Class ScrapeImages
Image.Clear()
If Not doAsk Then
- Image.Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage.Image
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
End If
End If
@@ -538,9 +538,9 @@ Public Class ScrapeImages
If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
miFanart.WebImage.FromWeb(miFanart.URL)
If Not IsNothing(miFanart.WebImage.Image) Then
- Image.Image = miFanart.WebImage.Image
+ Image = miFanart.WebImage
savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
- Image.Save(savePath)
+ Image.Save(savePath, , , False)
If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
Image.SaveFAasET(savePath, sPath)
End If
@@ -550,9 +550,9 @@ Public Class ScrapeImages
If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
miFanart.WebImage.FromWeb(miFanart.URL)
If Not IsNothing(miFanart.WebImage.Image) Then
- Image.Image = miFanart.WebImage.Image
+ Image = miFanart.WebImage
savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
- Image.Save(savePath)
+ Image.Save(savePath, , , False)
If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
Image.SaveFAasET(savePath, sPath)
End If
@@ -562,9 +562,9 @@ Public Class ScrapeImages
If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
miFanart.WebImage.FromWeb(miFanart.URL)
If Not IsNothing(miFanart.WebImage.Image) Then
- Image.Image = miFanart.WebImage.Image
+ Image = miFanart.WebImage
savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
- Image.Save(savePath)
+ Image.Save(savePath, , , False)
If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
Image.SaveFAasET(savePath, sPath)
End If
@@ -582,7 +582,7 @@ Public Class ScrapeImages
Case Enums.FanartSize.Lrg
If iMovie.Description.ToLower = "original" Then
If Not IsNothing(iMovie.WebImage.Image) Then
- Image.Image = iMovie.WebImage.Image
+ Image = iMovie.WebImage
Else
Image.FromWeb(iMovie.URL)
End If
@@ -591,7 +591,7 @@ Public Class ScrapeImages
Case Enums.FanartSize.Mid
If iMovie.Description.ToLower = "mid" Then
If Not IsNothing(iMovie.WebImage.Image) Then
- Image.Image = iMovie.WebImage.Image
+ Image = iMovie.WebImage
Else
Image.FromWeb(iMovie.URL)
End If
@@ -600,7 +600,7 @@ Public Class ScrapeImages
Case Enums.FanartSize.Small
If iMovie.Description.ToLower = "thumb" Then
If Not IsNothing(iMovie.WebImage.Image) Then
- Image.Image = iMovie.WebImage.Image
+ Image = iMovie.WebImage
Else
Image.FromWeb(iMovie.URL)
End If
@@ -722,7 +722,7 @@ foundIT:
If Not IsNothing(miFanart.WebImage.Image) Then
_Image = miFanart.WebImage.Image
Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
- Save(_Image, savePath)
+ miFanart.WebImage.Save(savePath, , , False)
If Master.eSettings.AutoET Then
Select Case miFanart.Description.ToLower
Case "original"
@@ -768,7 +768,7 @@ foundIT:
If Not IsNothing(miFanart.WebImage.Image) Then
_Image = miFanart.WebImage.Image
savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
- Save(_Image, savePath)
+ miFanart.WebImage.Save(savePath, , , False)
If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
SaveFAasET(savePath, sPath)
End If
@@ -780,7 +780,7 @@ foundIT:
If Not IsNothing(miFanart.WebImage.Image) Then
_Image = miFanart.WebImage.Image
savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
- Save(_Image, savePath)
+ miFanart.WebImage.Save(savePath, , , False)
If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
SaveFAasET(savePath, sPath)
End If
@@ -792,7 +792,7 @@ foundIT:
If Not IsNothing(miFanart.WebImage.Image) Then
_Image = miFanart.WebImage.Image
savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
- Save(_Image, savePath)
+ miFanart.WebImage.Save(savePath, , , False)
If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
SaveFAasET(savePath, sPath)
End If
@@ -845,9 +845,11 @@ foundIT:
If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
- extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
- Else
- extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
End If
iMod = Functions.GetExtraModifier(extraPath)
@@ -860,67 +862,68 @@ foundIT:
FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
End Sub
+ ' Duplicate of clsImage
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0, Optional ByVal sUrl As String = "")
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' If Not sUrl = "" Then
+ ' Dim stroriginalurl As String = sUrl
+
+ ' 'Image Download from tmdb is special, need original size
+ ' If Not sUrl.Contains("impawards") AndAlso Not sUrl.Contains("movieposterdb") Then
+ ' 'Always get original image...
+ ' 'links to images (tmdb) have following structure: 'example: http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w92/x65b4vsFKYuA878pLN1mJiAsgIP.jpg
+ ' Dim stringArray() As String = Split(stroriginalurl, "/")
+ ' If stringArray.Length > 4 Then
+ ' ' stringArray(5) contains values like "w185","original", "w154"...-->size -> we want original!
+ ' stringArray(5) = "original"
+ ' stroriginalurl = Join(stringArray, "/")
+ ' End If
+ ' End If
+ ' Dim webclient As New Net.WebClient
+ ' webclient.DownloadFile(stroriginalurl, sPath)
+ ' Else
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+ ' End If
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
- Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0, Optional ByVal sUrl As String = "")
- Try
- If IsNothing(_image) Then Exit Sub
-
- Dim doesExist As Boolean = File.Exists(sPath)
- Dim fAtt As New FileAttributes
- If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
- If doesExist Then
- 'get the current attributes to set them back after writing
- fAtt = File.GetAttributes(sPath)
- 'set attributes to none for writing
- File.SetAttributes(sPath, FileAttributes.Normal)
- End If
-
- If Not sUrl = "" Then
- Dim stroriginalurl As String = sUrl
-
- 'Image Download from tmdb is special, need original size
- If Not sUrl.Contains("impawards") AndAlso Not sUrl.Contains("movieposterdb") Then
- 'Always get original image...
- 'links to images (tmdb) have following structure: 'example: http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w92/x65b4vsFKYuA878pLN1mJiAsgIP.jpg
- Dim stringArray() As String = Split(stroriginalurl, "/")
- If stringArray.Length > 4 Then
- ' stringArray(5) contains values like "w185","original", "w154"...-->size -> we want original!
- stringArray(5) = "original"
- stroriginalurl = Join(stringArray, "/")
- End If
- End If
- Dim webclient As New Net.WebClient
- webclient.DownloadFile(stroriginalurl, sPath)
- Else
- Using msSave As New MemoryStream
- Dim retSave() As Byte
- Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
- Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
-
- EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
-
- If iQuality > 0 Then
- EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
- End If
-
- _image.Save(msSave, ICI, EncPars)
-
- retSave = msSave.ToArray
-
- Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
- fs.Write(retSave, 0, retSave.Length)
- fs.Flush()
- End Using
- msSave.Flush()
- End Using
- End If
-
- If doesExist Then File.SetAttributes(sPath, fAtt)
- End If
- Catch ex As Exception
- Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
- End Try
- End Sub
Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
diff --git a/Addons/scraper.EmberCore/Scraper/clsScrapeOFDB.vb b/Addons/scraper.EmberCore/Scraper/clsScrapeOFDB.vb
index 2e94cca..a220a06 100644
--- a/Addons/scraper.EmberCore/Scraper/clsScrapeOFDB.vb
+++ b/Addons/scraper.EmberCore/Scraper/clsScrapeOFDB.vb
@@ -119,15 +119,20 @@ Public Class OFDB
Dim HTML As String = sHTTP.DownloadData(sURL)
sHTTP = Nothing
- Dim D, W, B As Integer
+ Dim D, W, Wq, Wqq, B As Integer
Dim tmpHTML As String
- D = Html.IndexOf("Eine Inhaltsangabe von")
+ D = HTML.IndexOf("Eine Inhaltsangabe von")
If D > 0 Then
Dim L As Integer = Html.Length
tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
W = tmpHTML.IndexOf("
") - If W > 0 Then + Wq = tmpHTML.IndexOf("Quelle:") + If Wq > 0 Then + Wqq = tmpHTML.IndexOf("
", Wq) + B = tmpHTML.IndexOf("", Wqq + 8) + FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(Wqq + 8, B - (Wqq + 8)).Replace("
", String.Empty).Replace(vbCrLf, " ").Trim) + ElseIf W > 0 Then B = tmpHTML.IndexOf("", W + 16) FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("
", String.Empty).Replace(vbCrLf, " ").Trim) End If @@ -153,30 +158,60 @@ Public Class OFDB If Not String.IsNullOrEmpty(Html) Then 'title If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then - Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, ".*?)[""'].*?>(?.*?) ")
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), ".*?)[""'].*?>(?.*?) ")
Dim Gen = From M In rGenres _
Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
If Gen.Count > 0 Then
Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
- _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
End If
End If
End If
diff --git a/Addons/scraper.EmberCore/Scraper/clsScrapeTMDB.vb b/Addons/scraper.EmberCore/Scraper/clsScrapeTMDB.vb
index 3fd3402..d40e628 100644
--- a/Addons/scraper.EmberCore/Scraper/clsScrapeTMDB.vb
+++ b/Addons/scraper.EmberCore/Scraper/clsScrapeTMDB.vb
@@ -73,44 +73,44 @@ Namespace TMDB
If bwTMDB.CancellationPending Then Return Nothing
Try
Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
-
- If Not String.IsNullOrEmpty(ApiXML) Then
- Try
- xmlTMDB = XDocument.Parse(ApiXML)
- Catch
- Return alPosters
- End Try
-
- If bwTMDB.WorkerReportsProgress Then
- bwTMDB.ReportProgress(1)
- End If
-
- If bwTMDB.CancellationPending Then Return Nothing
-
- If Not xmlTMDB.......Value = "Nothing found." Then
- If sType = "poster" Then
- Dim tmdbImages = From iNode In xmlTMDB................Elements Select iNode
- If tmdbImages.Count > 0 Then
- For Each tmdbI As XElement In tmdbImages
- Dim parentID As String = tmdbI.Parent.Attribute("id").Value
- If bwTMDB.CancellationPending Then Return Nothing
- Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
- alPosters.Add(tmpPoster)
- Next
- End If
- ElseIf sType = "backdrop" Then
- Dim tmdbImages = From iNode In xmlTMDB................Elements Select iNode
- If tmdbImages.Count > 0 Then
- For Each tmdbI As XElement In tmdbImages
- Dim parentID As String = tmdbI.Parent.Attribute("id").Value
- If bwTMDB.CancellationPending Then Return Nothing
- Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
- alPosters.Add(tmpPoster)
- Next
- End If
- End If
- End If
- End If
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB.......Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB................Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB................Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Debug.Print("{0}/t{1}", tmdbI.@size, tmdbI.@url)
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
If bwTMDB.WorkerReportsProgress Then
bwTMDB.ReportProgress(2)
diff --git a/Addons/scraper.EmberCore/Scraper/clsScrapeTrailers.vb b/Addons/scraper.EmberCore/Scraper/clsScrapeTrailers.vb
index 70d407a..19327b4 100644
--- a/Addons/scraper.EmberCore/Scraper/clsScrapeTrailers.vb
+++ b/Addons/scraper.EmberCore/Scraper/clsScrapeTrailers.vb
@@ -79,6 +79,8 @@ Public Class Trailers
File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
End If
Next
End Sub
diff --git a/Addons/scraper.EmberCore/Scraper/clsScrapeYouTube.vb b/Addons/scraper.EmberCore/Scraper/clsScrapeYouTube.vb
index 68dbcc8..b4603fd 100644
--- a/Addons/scraper.EmberCore/Scraper/clsScrapeYouTube.vb
+++ b/Addons/scraper.EmberCore/Scraper/clsScrapeYouTube.vb
@@ -148,14 +148,14 @@ Namespace YouTube
Dim VideoTitle As String = GetVideoTitle(Html)
VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
- Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map=(.*?)\\u0026amp;", RegexOptions.IgnoreCase)
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
If fmtMatch.Success Then
Dim FormatMap As String = fmtMatch.Groups(1).Value
Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
- Dim FormatArray() As String = Split(decoded, ",")
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
- Dim rurl As New Regex("url=([^&,]+)", RegexOptions.IgnoreCase)
- Dim rsig As New Regex("sig=([^&,]+)", RegexOptions.IgnoreCase)
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
For i As Integer = 0 To FormatArray.Length - 1
diff --git a/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.Designer.vb b/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.Designer.vb
index fe32b41..6d0924e 100644
--- a/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.Designer.vb
+++ b/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.Designer.vb
@@ -22,407 +22,428 @@ Partial Class dlgIMDBSearchResults
'Do not modify it using the code editor.
_
Private Sub InitializeComponent()
- Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgIMDBSearchResults))
- Me.OK_Button = New System.Windows.Forms.Button()
- Me.Cancel_Button = New System.Windows.Forms.Button()
- Me.tvResults = New System.Windows.Forms.TreeView()
- Me.pbPoster = New System.Windows.Forms.PictureBox()
- Me.lblTitle = New System.Windows.Forms.Label()
- Me.lblTagline = New System.Windows.Forms.Label()
- Me.txtOutline = New System.Windows.Forms.TextBox()
- Me.lblYear = New System.Windows.Forms.Label()
- Me.lblDirector = New System.Windows.Forms.Label()
- Me.lblGenre = New System.Windows.Forms.Label()
- Me.txtIMDBID = New System.Windows.Forms.TextBox()
- Me.pnlTop = New System.Windows.Forms.Panel()
- Me.Label2 = New System.Windows.Forms.Label()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.PictureBox1 = New System.Windows.Forms.PictureBox()
- Me.chkManual = New System.Windows.Forms.CheckBox()
- Me.btnVerify = New System.Windows.Forms.Button()
- Me.lblIMDB = New System.Windows.Forms.Label()
- Me.lblYearHeader = New System.Windows.Forms.Label()
- Me.lblDirectorHeader = New System.Windows.Forms.Label()
- Me.lblGenreHeader = New System.Windows.Forms.Label()
- Me.lblIMDBHeader = New System.Windows.Forms.Label()
- Me.lblPlotHeader = New System.Windows.Forms.Label()
- Me.btnSearch = New System.Windows.Forms.Button()
- Me.txtSearch = New System.Windows.Forms.TextBox()
- Me.pnlLoading = New System.Windows.Forms.Panel()
- Me.Label3 = New System.Windows.Forms.Label()
- Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
- Me.pnlPicStatus = New System.Windows.Forms.Panel()
- Me.Label4 = New System.Windows.Forms.Label()
- CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.pnlTop.SuspendLayout()
- CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.pnlLoading.SuspendLayout()
- Me.pnlPicStatus.SuspendLayout()
- Me.SuspendLayout()
- '
- 'OK_Button
- '
- Me.OK_Button.Enabled = False
- Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.OK_Button.Location = New System.Drawing.Point(497, 401)
- Me.OK_Button.Name = "OK_Button"
- Me.OK_Button.Size = New System.Drawing.Size(67, 22)
- Me.OK_Button.TabIndex = 0
- Me.OK_Button.Text = "OK"
- '
- 'Cancel_Button
- '
- Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
- Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Cancel_Button.Location = New System.Drawing.Point(570, 401)
- Me.Cancel_Button.Name = "Cancel_Button"
- Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
- Me.Cancel_Button.TabIndex = 1
- Me.Cancel_Button.Text = "Cancel"
- '
- 'tvResults
- '
- Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.tvResults.HideSelection = False
- Me.tvResults.Location = New System.Drawing.Point(4, 96)
- Me.tvResults.Name = "tvResults"
- Me.tvResults.Size = New System.Drawing.Size(281, 299)
- Me.tvResults.TabIndex = 5
- '
- 'pbPoster
- '
- Me.pbPoster.Location = New System.Drawing.Point(294, 130)
- Me.pbPoster.Name = "pbPoster"
- Me.pbPoster.Size = New System.Drawing.Size(110, 130)
- Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
- Me.pbPoster.TabIndex = 2
- Me.pbPoster.TabStop = False
- Me.pbPoster.Visible = False
- '
- 'lblTitle
- '
- Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lblTitle.Location = New System.Drawing.Point(291, 70)
- Me.lblTitle.Name = "lblTitle"
- Me.lblTitle.Size = New System.Drawing.Size(346, 19)
- Me.lblTitle.TabIndex = 9
- Me.lblTitle.Text = "Title"
- Me.lblTitle.Visible = False
- '
- 'lblTagline
- '
- Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lblTagline.Location = New System.Drawing.Point(291, 89)
- Me.lblTagline.Name = "lblTagline"
- Me.lblTagline.Size = New System.Drawing.Size(346, 16)
- Me.lblTagline.TabIndex = 10
- Me.lblTagline.Text = "Tagline"
- Me.lblTagline.Visible = False
- '
- 'txtOutline
- '
- Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtOutline.Location = New System.Drawing.Point(294, 295)
- Me.txtOutline.Multiline = True
- Me.txtOutline.Name = "txtOutline"
- Me.txtOutline.Size = New System.Drawing.Size(343, 100)
- Me.txtOutline.TabIndex = 22
- Me.txtOutline.TabStop = False
- Me.txtOutline.Visible = False
- '
- 'lblYear
- '
- Me.lblYear.AutoSize = True
- Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblYear.Location = New System.Drawing.Point(472, 130)
- Me.lblYear.Name = "lblYear"
- Me.lblYear.Size = New System.Drawing.Size(31, 13)
- Me.lblYear.TabIndex = 13
- Me.lblYear.Text = "0000"
- Me.lblYear.Visible = False
- '
- 'lblDirector
- '
- Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblDirector.Location = New System.Drawing.Point(472, 156)
- Me.lblDirector.Name = "lblDirector"
- Me.lblDirector.Size = New System.Drawing.Size(165, 16)
- Me.lblDirector.TabIndex = 15
- Me.lblDirector.Text = "Director"
- Me.lblDirector.Visible = False
- '
- 'lblGenre
- '
- Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblGenre.Location = New System.Drawing.Point(472, 183)
- Me.lblGenre.Name = "lblGenre"
- Me.lblGenre.Size = New System.Drawing.Size(165, 52)
- Me.lblGenre.TabIndex = 17
- Me.lblGenre.Text = "Genre"
- Me.lblGenre.Visible = False
- '
- 'txtIMDBID
- '
- Me.txtIMDBID.Enabled = False
- Me.txtIMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtIMDBID.Location = New System.Drawing.Point(139, 399)
- Me.txtIMDBID.Name = "txtIMDBID"
- Me.txtIMDBID.Size = New System.Drawing.Size(100, 22)
- Me.txtIMDBID.TabIndex = 7
- '
- 'pnlTop
- '
- Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
- Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.pnlTop.Controls.Add(Me.Label2)
- Me.pnlTop.Controls.Add(Me.Label1)
- Me.pnlTop.Controls.Add(Me.PictureBox1)
- Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
- Me.pnlTop.Location = New System.Drawing.Point(0, 0)
- Me.pnlTop.Name = "pnlTop"
- Me.pnlTop.Size = New System.Drawing.Size(643, 64)
- Me.pnlTop.TabIndex = 2
- '
- 'Label2
- '
- Me.Label2.AutoSize = True
- Me.Label2.BackColor = System.Drawing.Color.Transparent
- Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.Label2.ForeColor = System.Drawing.Color.White
- Me.Label2.Location = New System.Drawing.Point(61, 38)
- Me.Label2.Name = "Label2"
- Me.Label2.Size = New System.Drawing.Size(276, 13)
- Me.Label2.TabIndex = 1
- Me.Label2.Text = "View details of each result to find the proper movie."
- '
- 'Label1
- '
- Me.Label1.AutoSize = True
- Me.Label1.BackColor = System.Drawing.Color.Transparent
- Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.Label1.ForeColor = System.Drawing.Color.White
- Me.Label1.Location = New System.Drawing.Point(58, 3)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(257, 32)
- Me.Label1.TabIndex = 0
- Me.Label1.Text = "Movie Search Results"
- '
- 'PictureBox1
- '
- Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
- Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
- Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
- Me.PictureBox1.Name = "PictureBox1"
- Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
- Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
- Me.PictureBox1.TabIndex = 0
- Me.PictureBox1.TabStop = False
- '
- 'chkManual
- '
- Me.chkManual.AutoSize = True
- Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkManual.Location = New System.Drawing.Point(4, 403)
- Me.chkManual.Name = "chkManual"
- Me.chkManual.Size = New System.Drawing.Size(128, 17)
- Me.chkManual.TabIndex = 6
- Me.chkManual.Text = "Manual IMDB Entry:"
- Me.chkManual.UseVisualStyleBackColor = True
- '
- 'btnVerify
- '
- Me.btnVerify.Enabled = False
- Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.btnVerify.Location = New System.Drawing.Point(245, 399)
- Me.btnVerify.Name = "btnVerify"
- Me.btnVerify.Size = New System.Drawing.Size(75, 22)
- Me.btnVerify.TabIndex = 8
- Me.btnVerify.Text = "Verify"
- Me.btnVerify.UseVisualStyleBackColor = True
- '
- 'lblIMDB
- '
- Me.lblIMDB.AutoSize = True
- Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblIMDB.Location = New System.Drawing.Point(472, 247)
- Me.lblIMDB.Name = "lblIMDB"
- Me.lblIMDB.Size = New System.Drawing.Size(35, 13)
- Me.lblIMDB.TabIndex = 19
- Me.lblIMDB.Text = "IMDB"
- Me.lblIMDB.Visible = False
- '
- 'lblYearHeader
- '
- Me.lblYearHeader.AutoSize = True
- Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lblYearHeader.Location = New System.Drawing.Point(410, 130)
- Me.lblYearHeader.Name = "lblYearHeader"
- Me.lblYearHeader.Size = New System.Drawing.Size(33, 13)
- Me.lblYearHeader.TabIndex = 12
- Me.lblYearHeader.Text = "Year:"
- Me.lblYearHeader.Visible = False
- '
- 'lblDirectorHeader
- '
- Me.lblDirectorHeader.AutoSize = True
- Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lblDirectorHeader.Location = New System.Drawing.Point(410, 156)
- Me.lblDirectorHeader.Name = "lblDirectorHeader"
- Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
- Me.lblDirectorHeader.TabIndex = 14
- Me.lblDirectorHeader.Text = "Director:"
- Me.lblDirectorHeader.Visible = False
- '
- 'lblGenreHeader
- '
- Me.lblGenreHeader.AutoSize = True
- Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lblGenreHeader.Location = New System.Drawing.Point(410, 183)
- Me.lblGenreHeader.Name = "lblGenreHeader"
- Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
- Me.lblGenreHeader.TabIndex = 16
- Me.lblGenreHeader.Text = "Genre(s):"
- Me.lblGenreHeader.Visible = False
- '
- 'lblIMDBHeader
- '
- Me.lblIMDBHeader.AutoSize = True
- Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lblIMDBHeader.Location = New System.Drawing.Point(410, 247)
- Me.lblIMDBHeader.Name = "lblIMDBHeader"
- Me.lblIMDBHeader.Size = New System.Drawing.Size(53, 13)
- Me.lblIMDBHeader.TabIndex = 18
- Me.lblIMDBHeader.Text = "IMDB ID:"
- Me.lblIMDBHeader.Visible = False
- '
- 'lblPlotHeader
- '
- Me.lblPlotHeader.AutoSize = True
- Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lblPlotHeader.Location = New System.Drawing.Point(291, 279)
- Me.lblPlotHeader.Name = "lblPlotHeader"
- Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
- Me.lblPlotHeader.TabIndex = 21
- Me.lblPlotHeader.Text = "Plot Summary:"
- Me.lblPlotHeader.Visible = False
- '
- 'btnSearch
- '
- Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
- Me.btnSearch.Location = New System.Drawing.Point(262, 70)
- Me.btnSearch.Name = "btnSearch"
- Me.btnSearch.Size = New System.Drawing.Size(23, 23)
- Me.btnSearch.TabIndex = 4
- Me.btnSearch.UseVisualStyleBackColor = True
- '
- 'txtSearch
- '
- Me.txtSearch.Location = New System.Drawing.Point(4, 71)
- Me.txtSearch.Name = "txtSearch"
- Me.txtSearch.Size = New System.Drawing.Size(252, 22)
- Me.txtSearch.TabIndex = 3
- '
- 'pnlLoading
- '
- Me.pnlLoading.BackColor = System.Drawing.Color.White
- Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.pnlLoading.Controls.Add(Me.Label3)
- Me.pnlLoading.Controls.Add(Me.ProgressBar1)
- Me.pnlLoading.Location = New System.Drawing.Point(364, 183)
- Me.pnlLoading.Name = "pnlLoading"
- Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
- Me.pnlLoading.TabIndex = 20
- '
- 'Label3
- '
- Me.Label3.AutoSize = True
- Me.Label3.Location = New System.Drawing.Point(3, 10)
- Me.Label3.Name = "Label3"
- Me.Label3.Size = New System.Drawing.Size(98, 13)
- Me.Label3.TabIndex = 0
- Me.Label3.Text = "Searching IMDB..."
- Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
- '
- 'ProgressBar1
- '
- Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
- Me.ProgressBar1.MarqueeAnimationSpeed = 25
- Me.ProgressBar1.Name = "ProgressBar1"
- Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
- Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
- Me.ProgressBar1.TabIndex = 1
- '
- 'pnlPicStatus
- '
- Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
- Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.pnlPicStatus.Controls.Add(Me.Label4)
- Me.pnlPicStatus.Location = New System.Drawing.Point(308, 155)
- Me.pnlPicStatus.Name = "pnlPicStatus"
- Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
- Me.pnlPicStatus.TabIndex = 11
- '
- 'Label4
- '
- Me.Label4.Location = New System.Drawing.Point(5, 5)
- Me.Label4.Name = "Label4"
- Me.Label4.Size = New System.Drawing.Size(70, 33)
- Me.Label4.TabIndex = 0
- Me.Label4.Text = "Fetching Poster..."
- Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
- '
- 'dlgIMDBSearchResults
- '
- Me.AcceptButton = Me.OK_Button
- Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
- Me.CancelButton = Me.Cancel_Button
- Me.ClientSize = New System.Drawing.Size(643, 454)
- Me.ControlBox = False
- Me.Controls.Add(Me.pnlLoading)
- Me.Controls.Add(Me.pnlPicStatus)
- Me.Controls.Add(Me.Cancel_Button)
- Me.Controls.Add(Me.OK_Button)
- Me.Controls.Add(Me.btnSearch)
- Me.Controls.Add(Me.txtSearch)
- Me.Controls.Add(Me.lblPlotHeader)
- Me.Controls.Add(Me.lblIMDBHeader)
- Me.Controls.Add(Me.lblGenreHeader)
- Me.Controls.Add(Me.lblDirectorHeader)
- Me.Controls.Add(Me.lblYearHeader)
- Me.Controls.Add(Me.lblIMDB)
- Me.Controls.Add(Me.btnVerify)
- Me.Controls.Add(Me.chkManual)
- Me.Controls.Add(Me.pnlTop)
- Me.Controls.Add(Me.txtIMDBID)
- Me.Controls.Add(Me.lblGenre)
- Me.Controls.Add(Me.lblDirector)
- Me.Controls.Add(Me.lblYear)
- Me.Controls.Add(Me.txtOutline)
- Me.Controls.Add(Me.lblTagline)
- Me.Controls.Add(Me.lblTitle)
- Me.Controls.Add(Me.pbPoster)
- Me.Controls.Add(Me.tvResults)
- Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
- Me.MaximizeBox = False
- Me.MinimizeBox = False
- Me.MinimumSize = New System.Drawing.Size(649, 460)
- Me.Name = "dlgIMDBSearchResults"
- Me.ShowIcon = False
- Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
- Me.Text = "Search Results"
- CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
- Me.pnlTop.ResumeLayout(False)
- Me.pnlTop.PerformLayout()
- CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
- Me.pnlLoading.ResumeLayout(False)
- Me.pnlLoading.PerformLayout()
- Me.pnlPicStatus.ResumeLayout(False)
- Me.ResumeLayout(False)
- Me.PerformLayout()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgIMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtIMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.txtFileName = New System.Windows.Forms.TextBox()
+ Me.btnOpenFolder = New System.Windows.Forms.Button()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(501, 431)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(574, 431)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(8, 126)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 5
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(298, 160)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(295, 100)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(295, 119)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(298, 325)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(476, 160)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(476, 186)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(476, 213)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtIMDBID
+ '
+ Me.txtIMDBID.Enabled = False
+ Me.txtIMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBID.Location = New System.Drawing.Point(143, 429)
+ Me.txtIMDBID.Name = "txtIMDBID"
+ Me.txtIMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtIMDBID.TabIndex = 7
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(647, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(256, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(8, 433)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(128, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual IMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(249, 429)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(476, 277)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(35, 13)
+ Me.lblIMDB.TabIndex = 19
+ Me.lblIMDB.Text = "IMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(414, 160)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(32, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(414, 186)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(414, 213)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(414, 277)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(53, 13)
+ Me.lblIMDBHeader.TabIndex = 18
+ Me.lblIMDBHeader.Text = "IMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(295, 309)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(266, 100)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(8, 101)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(368, 213)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 20
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching IMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(312, 185)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtFileName
+ '
+ Me.txtFileName.Enabled = False
+ Me.txtFileName.Location = New System.Drawing.Point(8, 73)
+ Me.txtFileName.Name = "txtFileName"
+ Me.txtFileName.Size = New System.Drawing.Size(598, 22)
+ Me.txtFileName.TabIndex = 3
+ '
+ 'btnOpenFolder
+ '
+ Me.btnOpenFolder.Location = New System.Drawing.Point(612, 73)
+ Me.btnOpenFolder.Name = "btnOpenFolder"
+ Me.btnOpenFolder.Size = New System.Drawing.Size(29, 23)
+ Me.btnOpenFolder.TabIndex = 23
+ Me.btnOpenFolder.Text = "..."
+ Me.btnOpenFolder.UseVisualStyleBackColor = True
+ '
+ 'dlgIMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(647, 492)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnOpenFolder)
+ Me.Controls.Add(Me.txtFileName)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtIMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgIMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
- End Sub
+ End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents tvResults As System.Windows.Forms.TreeView
@@ -453,5 +474,7 @@ Partial Class dlgIMDBSearchResults
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
Friend WithEvents Label4 As System.Windows.Forms.Label
+ Friend WithEvents txtFileName As System.Windows.Forms.TextBox
+ Friend WithEvents btnOpenFolder As System.Windows.Forms.Button
End Class
diff --git a/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.resx b/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.resx
index 09fbdab..fc0d614 100644
--- a/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.resx
+++ b/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.resx
@@ -120,72 +120,71 @@
- iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK+gAA
- CvoBGdj/dAAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
- xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
- +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
- IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
- r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
- +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
- jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
- UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
- rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
- 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
- FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
- o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
- RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
- CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
- 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
- BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
- LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
- aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
- GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
- A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
- qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
- z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
- hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
- CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
- aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
- C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
- u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
- G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
- iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
- cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
- 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
- +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
- Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
- dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
- 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
- 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
- XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
- niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
- 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
- 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
- RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
- DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
- E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
- VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
- iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
- O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
- t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
- T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
- gg==
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr5AAAK+QG0Yd4ZAAALEUlE
+ QVRoQ+1YCVCU5xle5Qa55JDTRA4XWMIpKsgRLgFRVOQGAbl21+VabuWSS0A0chiPIB5RquKRkIR4VI1N
+ SMxMjW1sik2maWOSydFOkknTZprD/+n7/i4Gcrad1CYzvDPP/N/u/v/3v+fzvt9KZmRGZmRGZmRGZmRG
+ fgZi7+CoWf2ExN5xvmb1lXh6eRsFh4TMc5fJQpycnXvs7OxbLa2s7zeznDdLc8v/X76u+KKAALeNKlW6
+ UqnsycrKurQiPv6jZcuWwd3dHXZ2dphrYfHmPBubATs7h04bW9t6Xz+/Cnom38PD8z7NFpLszCyJmflc
+ zSeJxNTMXLP6kWWq8mXl6tbevv7Xe/v6PtizZ89nnZ2dKCkpQXJyMoKDg7Fq1SohISFBWJeYiFUJCVjg
+ 5CRC6uYmkIFfBAYFfbg0MGjU1s5+iWbLaWLn4Oi2UOoeovkoMTA00qz+TVm7dq0OKaGXlpFhVFJWZqbc
+ qLLKy8uz9fPzX5Cdk/P86OgoJiYmcOvWLeHRI0fQ0NCA4uJiJCUlITQ0VMTixYtFg/Lz8rBx40ZwZHx9
+ fREVFSWUlpYK6enpoKghMTFxYllwSGpo2IPOUdHR+0NCQz+IioqGXKHA8uXL37W0tvYilb47DcMjIjUr
+ iU5waFjgvn37Snp7e49WVFScpk0u7d69+8aOHQ+9U1VV9UVOTg7i4uIgk8kEPz8/HDt2DNevX0dfXx8y
+ MjJYGaTTNTc3V7zGxMYibsUKqCsqRCPYMDYkLS0d5eXloD1RUVmJuro6lJWV31bRPRQ5NlSwsrIWvLy9
+ 4eLi8q6ugYEL6adFmG5IWHiEeI2IiMpvbGx8p7u7++OGxobbtEZ9fT02bNgA9lR/fz86OjqgIK9weixa
+ tEjMcUtLS5w/fx5nz55FkVyO+PiVpEgZUlNTERERgRWkfHh4OBLXraMoNVKalUKlKhYNZIOy1q9HS1sb
+ 2js6hO09PfydQPuDnWNrawsDAwPBxs7uS30Dg0pS04AwW1R4qjwYEZnd2dWF/Px8gdJEKKaX7HjkGIrV
+ VWCPR0ZGghVmg6hY2QDxs6OjI7S1tcUc55Q6fPgwVq5KAO2BNWvWiNHgFOFn2AiKLI5QuvG7mrdsQUtL
+ C65du4YrV65gbGwM1TU1KCoqEvdnA9hBurq60NLShomp6VZSlSudjeBI3BXt9vaOtwoLC8XQcR7nFynR
+ 99Tv0f/0BJQV9Yh4MExkFR8fH8jJy1MN0NfXF6Nw8OBBMUpsZExsHDIzM0VlONe5PlauXCkcOnQIZ86c
+ wdGjR8nYRzE+Po6LFy+K0WMHnDhxQiQCuneaAbNmzYKxsfFL2jo6HqSvDcGY9WblJcTb3vTijzgt2ACV
+ SoXcfDlaj19D44lXUHfoKhJTsyjnPWBtbY3o6GjR0KkG0OboIq+2USrU1tYiOSUF/vQ7O4PTLicnF8xS
+ rOjQ0JBY9M899xwuXbqEkZERMroB+QUFFLl8bNq8GfFkgL+//10DSE3MnTsX7h6yEVo7aGBCkEiSklOW
+ dG/b9jHnKnuWc1OuLIaq5wkU9b2A7O3jSK/sxwNeXrCwsICrqyvlefykAQIbYGVlhda2NqG6upojJGRk
+ ZAruHh4g/v+bk5NTF73GxcfXt6qxqeldVp4N6aNoNVCdscOUSgXWUY2EhoZg4UIpqFdA5uk51QDB3Nyc
+ i/8WrZnLFxDuNAsPT0+3vXv3fhAbGytw6Ni7lcQK8fJu+KmehHPOKSxSnIRPQJBoAG9E1IaAgADBwcEB
+ hkZGYg3UavKXi5d/d3Zx/a25hUUavcKMYFtTU1PZPzAwwWmmVqvBJNHc3IwtVAtcI2xAWFgYKS7DPIq0
+ Gb2HGt/dCJiZmcHBwbGa1gsJbMQcwh0hA96mohM4Cozk5CSszSmBVDUKF9UYnBVnkZBeKCqvo6MjphFH
+ YP78+f8wmmMsd3FxTSGPtS0NDHxy8ZIlv3Z2dunS09cPoK2N6HtPYqeXqA4+37SpDupytVBHaca1xEqz
+ 04g8vjJAJhPZZzI1J2vA0NDoMhUz7+lOmEfQvdtZK6uq+tgTpJjA1McezM1MQ2T5ALzbn4dr7RVkV3fD
+ zNRU0NLSEtgAKui/EDMU0eNLCbzxIoIfwZvAXjINj4xcV0DkwIXd3t4ubOvbgz3DT6ByczOyczdg9erV
+ YtdmZ3Dkpxqgp6cHYxMTmJqaYfbs2Z/MMZ6TS3v6EFwJHNVpTGT28MMP/5OZgyhTiImJAXViZGdSY2ob
+ gu9DL6Gs8xGYmpgIpqam/MIblDrZ9ByPAaws05slgRmCvTM7KDg4lfsBpyM5R9jc2IzDl1/Fo+Nv4+Cz
+ b6H35DiKqxsRFLgEUqkUzs7OYt+YaoCunp7gRuxH0TxMe7LyDC5gfcIdCQkJE68KpTJlcHBQbELc/tk7
+ 2dnZ2Ersse3gadQ2biFvmMLGxuamiYlJKj3CHVBGYF6eFO6SjDklpaVvMCNR4xMaKAJbHhrE3su30Df2
+ KnY8fhPdZyaw9eQNVLX2QeYuFYmAa2qygZEBAr2HZif3P9F+ywhBBH4fO2ua9yVSD6ZXiRaND7uGh4dF
+ TifOFmhMEI4fP44LF86DZpTblPPvU1uvoXvjCJwyd6jsaxIeFbWcCvTv3Fu421aoy9C273F0nb6JluGX
+ UX/oOlT9VxGqHsOCrBHEpijIMfNgRITg5ubGBjC7CTTJvmZgaJhMW4YSfAnTvf8tor1r1676Xxw79uG5
+ c+fwzDPPiOjq7n6Dcn6QPMR5GE/g4YlT5VslNS0tp6W19XOejbhYKyvUqOkZRt3QdZQOXEVk9VncT4rb
+ p52AY/oJBCuOwk3mJRasvb0906dAxnyiq6ObRdvxuzhVuWANCd8cJViIDTQriaS+ocGWxuWMpqbmThrG
+ aol9Mulr9sRaQjDBnjA9jFMkMzNrPTWwz1Kooa2nWaeROnFheTNyd7wIT8UoFuQ9BqfCxwmjcCp4DPfl
+ jSJNXkfFOoupWuAUouI9RVst1+ABAhfutyv/A8IhcyOwFzgHOW2+94QVExMbsX379k8oAgLTI0+aeUUq
+ +CpH4Kx8Eq6lT0OqPgdpxXksLKdoKMeQ2z2GOYYGAvO9rZ3dp7TNasIaAkfAmfC9qfNDwgrrEr7T618T
+ Y5qv3iNCEJjNuLmVl6sRnL0F0qoL8Ki/DK+WZ+HdNg7Ppitwrb6I6NZLWOzvIxIF5X4v7bGOMBlxZrc7
+ s8+9kpTU1J27Bga4QQnU5cVGxR03qHoYQbtfRszwHxB3/DWED/0OPltfQFTnrxAZHsIG/NHQ0LCAtsgg
+ cBSYOn8w6v8Lmd3U1PRRNR1YeEzhQxCfLeQFeUjb/RTyr/4Vit98jMwr7yH80E1BfuCqEBy09DbR6RA9
+ m0NYT1hB4IOMHuHeiYtUKl5J6bCdO3d+ygMbD4o8NnCzVBQVoHbXIDrGb6DixTeRePpVYe+pc3ByWnCB
+ mIi7O0eAGYiblNgYCfdWVCUl4jUxKSlz//79wgClE43bQg+duni9f/8gjlDPOXrytDDyxBgKFYpX6HYF
+ QUlgAzh9uEH9h6f5H1EAHiQlkvucnKJofH6HGuOXBw4cEE9u3CD5AHPy1Cls29bzPvH+Jrq1lKAiMG3z
+ fPXNrnuv5cCRI5qVxLyoSF5FB59f7uzt/TOl1vvUIF/Pzd1wkc67rfR7BUFN4BSKIfDfeTqEn5RwLtsQ
+ zwfS6S6V5h05fWaPFxM4dXhA5MbFvM9d9ycrzOncWe8nME0uJvgTJmd9blr3nDb/W+Ec5ybJYMN+NorP
+ yIzMyIz8rEUi+Re4NXpfio4DrwAAAABJRU5ErkJggg==
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
- CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
- uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
- LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
- StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
- EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
- TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
- OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
- 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
- yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAAB9ElE
+ QVQ4T6XSTWgTQRQH8E0LaZPaD9oaxULRi0igJSroqYLoxaa3gpfSFrx4sGp7Kj31pDYnPQpG8dzgQcSg
+ 1orQZJPd2exWSYOxiXhKQz5oEjQxpubvm6WN2zUe1IXf7OzMe2/fLCsA+C9NF//GbwtPfD67wti5SES5
+ +GZ19ZB532zfg8Lkq+uallFVFZymqRUqdNcYY9aYMFma1igpFoshl80in88jsbkJvhZRlAfGJCN9eOH3
+ WxWF5TaiUezs1FCv13X8SiYSoD2IwaCTx5rpA20OS5KEVCqFWu07KpWyrlr9hkJhG4wxSOHwdXMypw+B
+ tTVXOBRCOr1FSVWUSkVSQrn8FcViEUyW8VkTr5iTOX14vbLSTgUK0d0j8C54IaCOZDIBRt1d9gYXjIl7
+ GhM6xjWZAvl3yGQy9BFziMfj+Phegcf3FsLMc7TdfHbPmMztexBFcZ7O+oXwM+NdRP5xf/nVJ9uEF9aJ
+ h2ifeoyOyUcve+eedjUtwNHP0x8MBMaoo/EPauioIAgW+6jH233pFrpG76DTvYRu99LGwNhtW9MCf+IY
+ WbjRf3YOfWdm0Uf3gQuLh/m60EqvID3kGDlBhoiLnCKnd52ksCO9g+dnHM4p6eDxcY/VIvzqgAJaSRux
+ kQ5ygHSa7XXDtVBOo8C/g/ATj6yxruTRIKcAAAAASUVORK5CYII=
\ No newline at end of file
diff --git a/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.vb b/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.vb
index f6ab164..6eddfac 100644
--- a/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.vb
+++ b/Addons/scraper.EmberCore/Scraper/dlgIMDBSearchResults.vb
@@ -19,6 +19,7 @@
' ################################################################################
Imports System.Text.RegularExpressions
+Imports System.IO
Imports EmberAPI
Public Class dlgIMDBSearchResults
@@ -48,16 +49,17 @@ Public Class dlgIMDBSearchResults
#Region "Methods"
- Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions, ByVal sFilename As String) As Windows.Forms.DialogResult
Me.tmrWait.Enabled = False
Me.tmrWait.Interval = 250
Me.tmrLoad.Enabled = False
Me.tmrLoad.Interval = 100
- _filterOptions = filterOptions
+ _filterOptions = filterOptions
- Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results - "), sMovieTitle)
- Me.txtSearch.Text = sMovieTitle
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ Me.txtFileName.Text = sFilename
chkManual.Enabled = False
IMDB.IMDBURL = IMDBURL
IMDB.SearchMovieAsync(sMovieTitle, _filterOptions)
@@ -65,14 +67,15 @@ Public Class dlgIMDBSearchResults
Return MyBase.ShowDialog()
End Function
- Public Overloads Function ShowDialog(ByVal Res As IMDB.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Public Overloads Function ShowDialog(ByVal Res As IMDB.MovieSearchResults, ByVal sMovieTitle As String, ByVal sFilename As String) As Windows.Forms.DialogResult
Me.tmrWait.Enabled = False
Me.tmrWait.Interval = 250
Me.tmrLoad.Enabled = False
Me.tmrLoad.Interval = 100
- Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results - "), sMovieTitle)
- Me.txtSearch.Text = sMovieTitle
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ Me.txtFileName.Text = sFilename
SearchResultsDownloaded(Res)
Return MyBase.ShowDialog()
@@ -142,6 +145,14 @@ Public Class dlgIMDBSearchResults
Me.Close()
End Sub
+ Private Sub btnOpenFolder_Click(sender As Object, e As EventArgs) Handles btnOpenFolder.Click
+ Dim fPath As String = Directory.GetParent(Me.txtFileName.Text).FullName
+
+ If Not String.IsNullOrEmpty(fPath) Then
+ Shell("Explorer.exe " & fPath, vbNormalFocus)
+ End If
+ End Sub
+
Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
Me.ClearInfo()
Me.OK_Button.Enabled = False
@@ -353,11 +364,11 @@ Public Class dlgIMDBSearchResults
'determine if we automatically start downloading info for selected node
If M.ExactMatches.Count > 0 Then
- 'If M.ExactMatches.Count = 1 Then
Me.tvResults.SelectedNode = selNode
- 'Else
- 'Me.tvResults.SelectedNode = Nothing
- 'End If
+ ElseIf M.PopularTitles.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PartialMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
Else
Me.tvResults.SelectedNode = Nothing
End If
@@ -506,4 +517,5 @@ Public Class dlgIMDBSearchResults
End Structure
#End Region 'Nested Types
+
End Class
\ No newline at end of file
diff --git a/Addons/scraper.EmberCore/Scraper/dlgImgSelect.vb b/Addons/scraper.EmberCore/Scraper/dlgImgSelect.vb
index 8b467fd..7e37076 100644
--- a/Addons/scraper.EmberCore/Scraper/dlgImgSelect.vb
+++ b/Addons/scraper.EmberCore/Scraper/dlgImgSelect.vb
@@ -57,7 +57,7 @@ Public Class dlgImgSelect
Private TMDB As New TMDB.Scraper
Private TMDBPosters As New List(Of MediaContainers.Image)
Private tMovie As New Structures.DBMovie
- Private tmpImage As New Images
+ Private tmpImage As New MediaContainers.Image
Private _impaDone As Boolean = True
Private _mpdbDone As Boolean = True
Private _tmdbDone As Boolean = True
@@ -589,7 +589,7 @@ Public Class dlgImgSelect
Me.rbSmall.Checked = False
Me.OK_Button.Enabled = True
Me.OK_Button.Focus()
- Me.tmpImage.Image = Me.pbImage(iIndex).Image
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
End If
Catch ex As Exception
@@ -897,75 +897,77 @@ Public Class dlgImgSelect
tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
End If
- If Not IsNothing(Me.tmpImage.Image) Then
- If isEdit Then
- Me.tmpImage.Save(tmpPathPlus, 100, selURL)
- Results.ImagePath = tmpPathPlus
- Else
- If Me.DLType = Enums.ImageType.Fanart Then
- Results.ImagePath = Me.tmpImage.SaveAsFanart(tMovie)
- Else
- Results.ImagePath = Me.tmpImage.SaveAsPoster(tMovie)
- End If
- End If
- Else
- Me.pnlBG.Visible = False
- Me.pnlSinglePic.Visible = True
- Me.Refresh()
- Application.DoEvents()
- Select Case True
- Case Me.rbXLarge.Checked
- If Master.eSettings.UseImgCache Then
- tmpImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
- Else
- If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
- Me.tmpImage.Image = Me.pbImage(selIndex).Image
- Else
- Me.tmpImage.FromWeb(Me.rbXLarge.Tag.ToString)
- End If
- End If
- Case Me.rbLarge.Checked
- If Master.eSettings.UseImgCache Then
- Me.tmpImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
- Else
- If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
- Me.tmpImage.Image = Me.pbImage(selIndex).Image
- Else
- Me.tmpImage.FromWeb(Me.rbLarge.Tag.ToString)
- End If
- End If
- Case Me.rbMedium.Checked
- If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
- Me.tmpImage.Image = Me.pbImage(selIndex).Image
- Else
- Me.tmpImage.FromWeb(Me.rbMedium.Tag.ToString)
- End If
- Case Me.rbSmall.Checked
- If Master.eSettings.UseImgCache Then
- Me.tmpImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
- Else
- If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
- Me.tmpImage.Image = Me.pbImage(selIndex).Image
- Else
- Me.tmpImage.FromWeb(Me.rbSmall.Tag.ToString)
- End If
- End If
- End Select
-
- If Not IsNothing(Me.tmpImage.Image) Then
- If isEdit Then
- Me.tmpImage.Save(tmpPathPlus, 100, selURL)
- Results.ImagePath = tmpPathPlus
- Else
- If Me.DLType = Enums.ImageType.Fanart Then
- Results.ImagePath = Me.tmpImage.SaveAsFanart(Me.tMovie)
- Else
- Results.ImagePath = Me.tmpImage.SaveAsPoster(Me.tMovie)
- End If
- End If
- End If
- Me.pnlSinglePic.Visible = False
- End If
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
If Me.DLType = Enums.ImageType.Fanart Then
Dim iMod As Integer = 0
@@ -1121,9 +1123,9 @@ Public Class dlgImgSelect
Functions.PNLDoubleBuffer(Me.pnlBG)
If Me.DLType = Enums.ImageType.Posters Then
- Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster - "), If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
Else
- Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart - "), If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
Me.pnlDLStatus.Height = 75
Me.pnlDLStatus.Top = 207
diff --git a/Addons/scraper.EmberCore/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.EmberCore/Scraper/dlgTrailer.Designer.vb
index 1865dbc..2871b29 100644
--- a/Addons/scraper.EmberCore/Scraper/dlgTrailer.Designer.vb
+++ b/Addons/scraper.EmberCore/Scraper/dlgTrailer.Designer.vb
@@ -22,241 +22,253 @@ Partial Class dlgTrailer
'Do not modify it using the code editor.
_
Private Sub InitializeComponent()
- Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
- Me.OK_Button = New System.Windows.Forms.Button()
- Me.Cancel_Button = New System.Windows.Forms.Button()
- Me.lbTrailers = New System.Windows.Forms.ListBox()
- Me.GroupBox1 = New System.Windows.Forms.GroupBox()
- Me.pnlStatus = New System.Windows.Forms.Panel()
- Me.lblStatus = New System.Windows.Forms.Label()
- Me.pbStatus = New System.Windows.Forms.ProgressBar()
- Me.btnGetTrailers = New System.Windows.Forms.Button()
- Me.GroupBox2 = New System.Windows.Forms.GroupBox()
- Me.btnBrowse = New System.Windows.Forms.Button()
- Me.txtManual = New System.Windows.Forms.TextBox()
- Me.Label2 = New System.Windows.Forms.Label()
- Me.txtYouTube = New System.Windows.Forms.TextBox()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.btnPlayTrailer = New System.Windows.Forms.Button()
- Me.btnSetNfo = New System.Windows.Forms.Button()
- Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
- Me.Panel1 = New System.Windows.Forms.Panel()
- Me.GroupBox1.SuspendLayout()
- Me.pnlStatus.SuspendLayout()
- Me.GroupBox2.SuspendLayout()
- Me.Panel1.SuspendLayout()
- Me.SuspendLayout()
- '
- 'OK_Button
- '
- Me.OK_Button.Enabled = False
- Me.OK_Button.Location = New System.Drawing.Point(290, 339)
- Me.OK_Button.Name = "OK_Button"
- Me.OK_Button.Size = New System.Drawing.Size(74, 23)
- Me.OK_Button.TabIndex = 0
- Me.OK_Button.Text = "Download"
- '
- 'Cancel_Button
- '
- Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
- Me.Cancel_Button.Location = New System.Drawing.Point(369, 339)
- Me.Cancel_Button.Name = "Cancel_Button"
- Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
- Me.Cancel_Button.TabIndex = 1
- Me.Cancel_Button.Text = "Cancel"
- '
- 'lbTrailers
- '
- Me.lbTrailers.Enabled = False
- Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lbTrailers.FormattingEnabled = True
- Me.lbTrailers.HorizontalScrollbar = True
- Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
- Me.lbTrailers.Name = "lbTrailers"
- Me.lbTrailers.Size = New System.Drawing.Size(411, 173)
- Me.lbTrailers.TabIndex = 0
- '
- 'GroupBox1
- '
- Me.GroupBox1.Controls.Add(Me.pnlStatus)
- Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
- Me.GroupBox1.Controls.Add(Me.GroupBox2)
- Me.GroupBox1.Controls.Add(Me.lbTrailers)
- Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
- Me.GroupBox1.Name = "GroupBox1"
- Me.GroupBox1.Size = New System.Drawing.Size(424, 319)
- Me.GroupBox1.TabIndex = 0
- Me.GroupBox1.TabStop = False
- Me.GroupBox1.Text = "Select Trailer to Scrape"
- '
- 'pnlStatus
- '
- Me.pnlStatus.BackColor = System.Drawing.Color.White
- Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.pnlStatus.Controls.Add(Me.lblStatus)
- Me.pnlStatus.Controls.Add(Me.pbStatus)
- Me.pnlStatus.Location = New System.Drawing.Point(112, 82)
- Me.pnlStatus.Name = "pnlStatus"
- Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
- Me.pnlStatus.TabIndex = 1
- Me.pnlStatus.Visible = False
- '
- 'lblStatus
- '
- Me.lblStatus.AutoSize = True
- Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblStatus.Location = New System.Drawing.Point(3, 10)
- Me.lblStatus.Name = "lblStatus"
- Me.lblStatus.Size = New System.Drawing.Size(121, 13)
- Me.lblStatus.TabIndex = 0
- Me.lblStatus.Text = "Compiling trailer list..."
- Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
- '
- 'pbStatus
- '
- Me.pbStatus.Location = New System.Drawing.Point(3, 32)
- Me.pbStatus.MarqueeAnimationSpeed = 25
- Me.pbStatus.Name = "pbStatus"
- Me.pbStatus.Size = New System.Drawing.Size(192, 17)
- Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
- Me.pbStatus.TabIndex = 1
- '
- 'btnGetTrailers
- '
- Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
- Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.btnGetTrailers.Location = New System.Drawing.Point(120, 82)
- Me.btnGetTrailers.Name = "btnGetTrailers"
- Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
- Me.btnGetTrailers.TabIndex = 2
- Me.btnGetTrailers.Text = "Download Trailer List"
- Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
- Me.btnGetTrailers.UseVisualStyleBackColor = True
- '
- 'GroupBox2
- '
- Me.GroupBox2.Controls.Add(Me.btnBrowse)
- Me.GroupBox2.Controls.Add(Me.txtManual)
- Me.GroupBox2.Controls.Add(Me.Label2)
- Me.GroupBox2.Controls.Add(Me.txtYouTube)
- Me.GroupBox2.Controls.Add(Me.Label1)
- Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
- Me.GroupBox2.Name = "GroupBox2"
- Me.GroupBox2.Size = New System.Drawing.Size(411, 111)
- Me.GroupBox2.TabIndex = 3
- Me.GroupBox2.TabStop = False
- Me.GroupBox2.Text = "Manual Trailer Entry"
- '
- 'btnBrowse
- '
- Me.btnBrowse.Location = New System.Drawing.Point(376, 82)
- Me.btnBrowse.Name = "btnBrowse"
- Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
- Me.btnBrowse.TabIndex = 4
- Me.btnBrowse.Text = "..."
- Me.btnBrowse.UseVisualStyleBackColor = True
- '
- 'txtManual
- '
- Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtManual.Location = New System.Drawing.Point(9, 82)
- Me.txtManual.Name = "txtManual"
- Me.txtManual.Size = New System.Drawing.Size(365, 22)
- Me.txtManual.TabIndex = 3
- '
- 'Label2
- '
- Me.Label2.AutoSize = True
- Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label2.Location = New System.Drawing.Point(6, 68)
- Me.Label2.Name = "Label2"
- Me.Label2.Size = New System.Drawing.Size(72, 13)
- Me.Label2.TabIndex = 2
- Me.Label2.Text = "Local Trailer:"
- '
- 'txtYouTube
- '
- Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
- Me.txtYouTube.Name = "txtYouTube"
- Me.txtYouTube.Size = New System.Drawing.Size(392, 22)
- Me.txtYouTube.TabIndex = 1
- '
- 'Label1
- '
- Me.Label1.AutoSize = True
- Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label1.Location = New System.Drawing.Point(6, 14)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(153, 13)
- Me.Label1.TabIndex = 0
- Me.Label1.Text = "Direct Link or YouTube URL:"
- '
- 'btnPlayTrailer
- '
- Me.btnPlayTrailer.Enabled = False
- Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
- Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 339)
- Me.btnPlayTrailer.Name = "btnPlayTrailer"
- Me.btnPlayTrailer.Size = New System.Drawing.Size(106, 23)
- Me.btnPlayTrailer.TabIndex = 3
- Me.btnPlayTrailer.Text = "Preview Trailer"
- Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
- Me.btnPlayTrailer.UseVisualStyleBackColor = True
- '
- 'btnSetNfo
- '
- Me.btnSetNfo.Enabled = False
- Me.btnSetNfo.Location = New System.Drawing.Point(207, 339)
- Me.btnSetNfo.Name = "btnSetNfo"
- Me.btnSetNfo.Size = New System.Drawing.Size(77, 23)
- Me.btnSetNfo.TabIndex = 4
- Me.btnSetNfo.Text = "Set To Nfo"
- '
- 'Panel1
- '
- Me.Panel1.BackColor = System.Drawing.Color.White
- Me.Panel1.Controls.Add(Me.GroupBox1)
- Me.Panel1.Location = New System.Drawing.Point(3, 3)
- Me.Panel1.Name = "Panel1"
- Me.Panel1.Size = New System.Drawing.Size(444, 331)
- Me.Panel1.TabIndex = 2
- '
- 'dlgTrailer
- '
- Me.AcceptButton = Me.OK_Button
- Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
- Me.CancelButton = Me.Cancel_Button
- Me.ClientSize = New System.Drawing.Size(450, 366)
- Me.ControlBox = False
- Me.Controls.Add(Me.Panel1)
- Me.Controls.Add(Me.btnSetNfo)
- Me.Controls.Add(Me.Cancel_Button)
- Me.Controls.Add(Me.OK_Button)
- Me.Controls.Add(Me.btnPlayTrailer)
- Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
- Me.MaximizeBox = False
- Me.MinimizeBox = False
- Me.Name = "dlgTrailer"
- Me.ShowIcon = False
- Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
- Me.Text = "Select Trailer"
- Me.GroupBox1.ResumeLayout(False)
- Me.pnlStatus.ResumeLayout(False)
- Me.pnlStatus.PerformLayout()
- Me.GroupBox2.ResumeLayout(False)
- Me.GroupBox2.PerformLayout()
- Me.Panel1.ResumeLayout(False)
- Me.ResumeLayout(False)
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.btnPlayBrowser = New System.Windows.Forms.Button()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(350, 340)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(120, 23)
+ Me.OK_Button.TabIndex = 6
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(350, 369)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(120, 23)
+ Me.Cancel_Button.TabIndex = 7
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(445, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(458, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(122, 60)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(130, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(445, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(410, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(395, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(71, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(426, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(151, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 369)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(224, 340)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(120, 23)
+ Me.btnSetNfo.TabIndex = 5
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(478, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'btnPlayBrowser
+ '
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnPlayBrowser.Location = New System.Drawing.Point(12, 340)
+ Me.btnPlayBrowser.Name = "btnPlayBrowser"
+ Me.btnPlayBrowser.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayBrowser.TabIndex = 4
+ Me.btnPlayBrowser.Text = "Open In Browser"
+ Me.btnPlayBrowser.UseVisualStyleBackColor = True
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(484, 398)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Controls.Add(Me.btnPlayBrowser)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
- End Sub
+ End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
@@ -275,5 +287,6 @@ Partial Class dlgTrailer
Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents btnPlayBrowser As System.Windows.Forms.Button
End Class
diff --git a/Addons/scraper.EmberCore/Scraper/dlgTrailer.resx b/Addons/scraper.EmberCore/Scraper/dlgTrailer.resx
index 2be3cac..f08e020 100644
--- a/Addons/scraper.EmberCore/Scraper/dlgTrailer.resx
+++ b/Addons/scraper.EmberCore/Scraper/dlgTrailer.resx
@@ -120,33 +120,33 @@
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
- HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
- ZSBGaXJld29ya3NPsx9OAAAB80lEQVQ4T6XTTWsTQRgH8EGr9GDFm19AseDBgzc9eba0FJqvIOTiRase
- RAIKtRo9LbbxpYmtggXR2KRFqGLfDio9tDGbdUMrbvc1+57sioiVv7NDLE3MXnTgz8DsPr95dpglAMj/
- pKVY17QuyzLP2raVoBlybHvIc92EUKmcidukBTBrtasUAC0GLWYJggaWl5dw9056uBPSAtDi8aiYAY4N
- 13HwLQyxuLiAW6OjyIyPXW5H2gFuZ/cm4HseNFVFsTCD2WIRHz+8P7cb6Qjs7iDqIkLCMEC97kedZWMB
- egasA8s24TsBQm8bob8N3w3YZzUzFgsYus6ZZo0WhPisvMackGQR5Dm2xnDLjAdUVeF0XUPD/Yl31eu4
- sURY3orXaDe/EOGGoccDsrzFKYoMz/yON0IaqYVDLPPCTdTtH6D3BKqixANfNjc5SZJga3XMlm5jeP4w
- S6E0AsdoQJFlbElSPMCXy/ekDQUTK1eQzB/B+cJxlmT+KB6sXID61UBVFDOxh7i+tjbCf+KxXl7FpZeD
- SOR6WS6+6EepsgpREFHh+XRHYC8hB/r7+k7kshOZ/PSrZ7mn2cnTqd7qqdSxjUdPHk7NPC9OT00+vj84
- MHByDyEH/yA7F4kC+wgh3dGDaDTnHkK6etrWuum7+/8C/vWX/g1N2vpUAmZdeAAAAABJRU5ErkJggg==
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAK
+ 6QAACukB/XXO0wAAABh0RVh0U29mdHdhcmUAQWRvYmUgRmlyZXdvcmtzT7MfTgAAAfdJREFUOE+lkk1r
+ E1EUhi9apQsr7vwDigUXLtzpyrWlpdD8BSEbN1p1IRJQqNXoarCNH03aKlgQjU1ahCr2a6HSRRszGSe0
+ 4nQ+M9/JjIhYeb25JGVGmo0OPMw5h/M+9zIMAfBfxBpd07osyzxv21aCMuTY9pDnugmhUjkX3YsSa8xa
+ 7ToVgIZBw4wgaGBlZRn376WHo7ttYg0NjzfDTODYcB0H38MQS0uLuDM6isz42NXofpNYQwXc7uktge95
+ 0FQVxcIs5opFfPr44UI0s6cgeoO2JAwD1Ot+c56NZmIC+g2YwLJN+E6A0NtB6O/AdwMmbTEWzcQEhq5z
+ plmjgRBflDeYF5IMQZ5nMya3zM4CVVU4XdfQcH/hffUmbi0TxjvxBr3NbzTlhqF3FsjyNqcoMjzzB94K
+ aaQWjzAWhNuo2z9B/xOoitJZ8HVri5MkCbZWx1zpLoYXjjIKpRE4RgOKLGNbkjoL+HL5gbSpYGL1GpL5
+ Y7hYOMlI5o/j0eolqN8MVEUxE83EBBvr6yP8Zx4b5TVceTWIRK6XcfllP0qVNYiCiArPp6OZ3WI/IYf6
+ +/pO5bITmfzM6+e5Z9mps6ne6pnUic0nTx9Pz74ozkxPTT4cHBg4vY+Qw3sJDhBCutmQPq13DyFdPX/N
+ uunuwWbN+nbxb4D8AU3a+lQSEAyqAAAAAElFTkSuQmCC
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQfZBBoSIQHX+6QX
- AAACOElEQVQ4T7WSTWvaQRCHozlYNQSiVXwBNSSKKAhqKogo2hx8OeUQpPVY9OBFId+g0IufoQnegslF
- EEG8qAgeiij4hohoDjkphJAIGg/udGepfyLV3rowLDu788zs/GZv73+st7e35NPT069KpfJaLpdnj4+P
- nel0+p3mOvhnvoeHh0+j0WieTCbB6XSSYDAIoVAIXC4Xicfj0Ov1IJ/Pf9kKweBisQharZbY7XbweDxg
- sVjg7OwM8Ix2enpK7u/v4e7u7ttfEJp5QZ3k8PAQ1Go1hMNhyGazIJFIQKVSMd/R0RHgm2azCQqFQsNB
- FovFFZZLHZz5fD7AlU6nmY/H43F3NpsNWq3WLQeYz+d1JL8H4BfW6+bmZgOO77rd7isHqNfrM3Ty+XzY
- 399n5vV6WfxqtWL79fX1RiWlUgnPHxlkDRAKhSASiUAsFoPf72eBhBAGeXl5AZlMBgKBgIGoxLirGOD5
- +blL/0iwSVKpFORyOVxcXHAV0HtUhzUUm4yATqezpPsHBphMJj8uLy9BqVSCRqOB4+NjiEQiDICZUU6d
- TseUQLjb7YZqtVp6L+UBlREBxGg0soBoNArL5RJQDavVCmazGecAKyTtdhtOTk68G7OQy+W+1mo1MJlM
- hE4hA2BV5+fnLKPD4QC9Xk8KhQKkUqmfW6cxk8nE6ERCIpFgkxgIBFgzERCLxWAwGOwOXhPpPzWNRuN2
- PB7P+v0+oA2HwyWVrWIwGD5vzbzDyaN++R+phLsCfwMUR2eb8uMbUAAAAABJRU5ErkJggg==
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
+ DAAACwwBP0AiyAAAAAd0SU1FB9kEGhIhAdf7pBcAAAJDSURBVDhPtVJLa5pBFPWxsGoQNI2oAY1ogigI
+ GitIULQufKxcBGmzLLpwo9B/UOgmv6GKuxDdCCKIGyOBLIpE8IWIaBauFEQSwcfCuZ07PkIogW564HDn
+ m7nnzHxzhvNfsFwuE5PJ5HelUnm5u7ubDYfD5ng8/kGXDjYd7+Dp6elTv9+fJxIJcDgcJBAIQDAYhIuL
+ CxKLxaDdbkOhUPiybX8LFJdKJdBoNOT8/BxcLheYzWaw2WyA30i9Xk+y2SxkMplvW9kr6M4LWohEIoHj
+ 42MIh8OQy+VAJpOBSqVic1KpFLCnVquBQqFQMyFisVh8x+PS4Z4ejwcQ6XSafXO53P2a1WqFer1+Q8cb
+ zOfzKi2Ect+Ev7BDKpXaz+/YarVeaN2gWq3OaAEejwd8Pp/R7XYz8Xq9ZjWZTDLh7iTlchnrR8pXA6FQ
+ CCKRCMRiMfh8PiYkhDCT5+dnODo6AoFAwAxoxFhVqOdMp9MWdSZ4SYeHhyCXyyEUCjEDFNN1TIddKF4y
+ GjSbzRWtH5jBaDT6eXl5CUqlEtRqNWi1Wri6umIGuDPGeXJywpJAc6fTCff392Um3uKAxogGxGAwMEEk
+ EoHVasXSsFgsYDKZ8B3gCUmj0QCdTufeajfI5/NfHx4ewGg0EvoKmQGeyuv1sh3tdjucnp6SYrEI19fX
+ v7ayt7i9vY3SFwnxeJzF6Pf72WWiQTQahW63+754B/qf6sfHx5vBYDDrdDqA7PV6Kxpb5ezs7PO27Z/A
+ pZRTYlRCnPgbHM4fFEdnm0hssg4AAAAASUVORK5CYII=
diff --git a/Addons/scraper.EmberCore/Scraper/dlgTrailer.vb b/Addons/scraper.EmberCore/Scraper/dlgTrailer.vb
index 7e3454f..67c25ca 100644
--- a/Addons/scraper.EmberCore/Scraper/dlgTrailer.vb
+++ b/Addons/scraper.EmberCore/Scraper/dlgTrailer.vb
@@ -68,6 +68,7 @@ Public Class dlgTrailer
Me.OK_Button.Enabled = False
Me.btnSetNfo.Enabled = False
Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
Me.lbTrailers.Enabled = False
Me.txtYouTube.Enabled = False
Me.txtManual.Enabled = False
@@ -95,7 +96,15 @@ Public Class dlgTrailer
Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
If CloseDialog Then
- Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
Me.DialogResult = System.Windows.Forms.DialogResult.OK
@@ -178,6 +187,7 @@ Public Class dlgTrailer
Me.OK_Button.Enabled = False
Me.btnSetNfo.Enabled = False
Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
Me.lbTrailers.Enabled = False
Me.txtYouTube.Enabled = False
Me.txtManual.Enabled = False
@@ -203,6 +213,30 @@ Public Class dlgTrailer
End Try
End Sub
+ Private Sub btnPlayBrowser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayBrowser.Click
+ If Not String.IsNullOrEmpty(Me.txtYouTube.Text) Then
+ If Master.isWindows Then
+ Process.Start(Me.txtYouTube.Text)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.txtYouTube.Text
+ Explorer.Start()
+ End Using
+ End If
+ Else
+ If Master.isWindows Then
+ Process.Start(Me.lbTrailers.SelectedItem.ToString)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.lbTrailers.SelectedItem.ToString
+ Explorer.Start()
+ End Using
+ End If
+ End If
+ End Sub
+
Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
@@ -210,6 +244,7 @@ Public Class dlgTrailer
Me.OK_Button.Enabled = False
Me.btnSetNfo.Enabled = False
Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
Me.lbTrailers.Enabled = False
Me.txtYouTube.Enabled = False
Me.txtManual.Enabled = False
@@ -220,7 +255,14 @@ Public Class dlgTrailer
Me.pnlStatus.Visible = True
Application.DoEvents()
- Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
File.Move(Me.txtManual.Text, Me.tURL)
Me.DialogResult = System.Windows.Forms.DialogResult.OK
@@ -374,6 +416,11 @@ Public Class dlgTrailer
Me.OK_Button.Enabled = True
Me.btnSetNfo.Enabled = True
Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.btnPlayBrowser.Enabled = False
+ Else
+ Me.btnPlayBrowser.Enabled = True
+ End If
If Me.txtManual.Text.Length > 0 Then
Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
@@ -385,6 +432,7 @@ Public Class dlgTrailer
Me.OK_Button.Enabled = False
Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
Me.btnSetNfo.Enabled = False
Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
End If
@@ -399,6 +447,7 @@ Public Class dlgTrailer
Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnPlayBrowser.Text = Master.eLang.GetString(114, "Open In Browser")
Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
End Sub
diff --git a/Addons/scraper.EmberCore/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.EmberCore/Scraper/dlgTrailerFormat.Designer.vb
index aa7ae6a..8d135fa 100644
--- a/Addons/scraper.EmberCore/Scraper/dlgTrailerFormat.Designer.vb
+++ b/Addons/scraper.EmberCore/Scraper/dlgTrailerFormat.Designer.vb
@@ -22,127 +22,127 @@ Partial Class dlgTrailerFormat
'Do not modify it using the code editor.
_
Private Sub InitializeComponent()
- Me.OK_Button = New System.Windows.Forms.Button()
- Me.Cancel_Button = New System.Windows.Forms.Button()
- Me.lstFormats = New System.Windows.Forms.ListBox()
- Me.GroupBox1 = New System.Windows.Forms.GroupBox()
- Me.pnlStatus = New System.Windows.Forms.Panel()
- Me.lblStatus = New System.Windows.Forms.Label()
- Me.pbStatus = New System.Windows.Forms.ProgressBar()
- Me.Panel1 = New System.Windows.Forms.Panel()
- Me.GroupBox1.SuspendLayout()
- Me.pnlStatus.SuspendLayout()
- Me.Panel1.SuspendLayout()
- Me.SuspendLayout()
- '
- 'OK_Button
- '
- Me.OK_Button.Enabled = False
- Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.OK_Button.Location = New System.Drawing.Point(84, 117)
- Me.OK_Button.Name = "OK_Button"
- Me.OK_Button.Size = New System.Drawing.Size(67, 23)
- Me.OK_Button.TabIndex = 0
- Me.OK_Button.Text = "OK"
- '
- 'Cancel_Button
- '
- Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
- Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.Cancel_Button.Location = New System.Drawing.Point(154, 117)
- Me.Cancel_Button.Name = "Cancel_Button"
- Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
- Me.Cancel_Button.TabIndex = 1
- Me.Cancel_Button.Text = "Cancel"
- '
- 'lstFormats
- '
- Me.lstFormats.Enabled = False
- Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lstFormats.FormattingEnabled = True
- Me.lstFormats.Location = New System.Drawing.Point(6, 19)
- Me.lstFormats.Name = "lstFormats"
- Me.lstFormats.Size = New System.Drawing.Size(177, 69)
- Me.lstFormats.TabIndex = 0
- '
- 'GroupBox1
- '
- Me.GroupBox1.Controls.Add(Me.lstFormats)
- Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.GroupBox1.Location = New System.Drawing.Point(17, 2)
- Me.GroupBox1.Name = "GroupBox1"
- Me.GroupBox1.Size = New System.Drawing.Size(189, 100)
- Me.GroupBox1.TabIndex = 0
- Me.GroupBox1.TabStop = False
- Me.GroupBox1.Text = "Available Formats"
- '
- 'pnlStatus
- '
- Me.pnlStatus.BackColor = System.Drawing.Color.White
- Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.pnlStatus.Controls.Add(Me.lblStatus)
- Me.pnlStatus.Controls.Add(Me.pbStatus)
- Me.pnlStatus.Location = New System.Drawing.Point(10, 29)
- Me.pnlStatus.Name = "pnlStatus"
- Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
- Me.pnlStatus.TabIndex = 1
- '
- 'lblStatus
- '
- Me.lblStatus.AutoSize = True
- Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.lblStatus.Location = New System.Drawing.Point(3, 10)
- Me.lblStatus.Name = "lblStatus"
- Me.lblStatus.Size = New System.Drawing.Size(147, 13)
- Me.lblStatus.TabIndex = 0
- Me.lblStatus.Text = "Getting available formats..."
- Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
- '
- 'pbStatus
- '
- Me.pbStatus.Location = New System.Drawing.Point(3, 29)
- Me.pbStatus.MarqueeAnimationSpeed = 25
- Me.pbStatus.Name = "pbStatus"
- Me.pbStatus.Size = New System.Drawing.Size(192, 17)
- Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
- Me.pbStatus.TabIndex = 1
- '
- 'Panel1
- '
- Me.Panel1.BackColor = System.Drawing.Color.White
- Me.Panel1.Controls.Add(Me.pnlStatus)
- Me.Panel1.Controls.Add(Me.GroupBox1)
- Me.Panel1.Location = New System.Drawing.Point(2, 4)
- Me.Panel1.Name = "Panel1"
- Me.Panel1.Size = New System.Drawing.Size(220, 111)
- Me.Panel1.TabIndex = 2
- '
- 'dlgTrailerFormat
- '
- Me.AcceptButton = Me.OK_Button
- Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
- Me.CancelButton = Me.Cancel_Button
- Me.ClientSize = New System.Drawing.Size(224, 143)
- Me.Controls.Add(Me.Panel1)
- Me.Controls.Add(Me.Cancel_Button)
- Me.Controls.Add(Me.OK_Button)
- Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
- Me.MaximizeBox = False
- Me.MinimizeBox = False
- Me.Name = "dlgTrailerFormat"
- Me.ShowIcon = False
- Me.ShowInTaskbar = False
- Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
- Me.Text = "Select Format"
- Me.GroupBox1.ResumeLayout(False)
- Me.pnlStatus.ResumeLayout(False)
- Me.pnlStatus.PerformLayout()
- Me.Panel1.ResumeLayout(False)
- Me.ResumeLayout(False)
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(72, 187)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(145, 187)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(4, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(170, 121)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(10, 8)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(180, 151)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(12, 75)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(12, 12)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(200, 169)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 217)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
- End Sub
+ End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents lstFormats As System.Windows.Forms.ListBox
diff --git a/Addons/scraper.EmberCore/Scraper/scraper.EmberCore.German_(de_DE)-Help.xml b/Addons/scraper.EmberCore/Scraper/scraper.EmberCore.German_(de_DE)-Help.xml
deleted file mode 100644
index b613dee..0000000
--- a/Addons/scraper.EmberCore/Scraper/scraper.EmberCore.German_(de_DE)-Help.xml
+++ /dev/null
@@ -1,47 +0,0 @@
-
-
- Aktiviert dieses Modul.
- Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)
- Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)
- Gib den Mirror ein über den Ember mit der IMDB kommunizieren soll.
- Wenn aktiviert versucht Ember den Titel von der deutschen Seite OFDB.DE zu scrapen.
- Wenn aktiviert versucht Ember die Kurzebschreibung von der deutschen Seite OFDB.DE zu scrapen.
- Wenn aktiviert versucht Ember die Inhaltsangabe von der deutschen Seite OFDB.DE zu scrapen.
- Wenn aktiviert versucht Ember die Genres von der deutschen Seite OFDB.DE zu scrapen.
- Aktiviert das scrapen der Altersbeschränkung (=Certification) mit diesem Modul.
- Aktiviert das scrapen der IMDB Top250 mit diesem Modul.
- Die Anzahl der gescrapten Genres limitieren.
- Die Anzahl der gescrapten Schauspieler limitieren.
- Aktiviert das scrapen der Sonstigen Crew mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)
- Aktiviert das scrapen der Musiker mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)
- Aktiviert das scrapen der Produzenten mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)
- Aktiviert das scrapen der Autoren mit diesem Modul.
- Aktiviert das scrapen des Studios mit diesem Modul.
- Aktiviert das scrapen der Spielzeit mit diesem Modul.
- Aktiviert das scrapen des Inhalts (=Plot)) mit diesem Modul.
- Aktiviert das scrapen der Kurzbeschreibung mit diesem Modul.
- Aktiviert das scrapen von Genre mit diesem Modul.
- Aktiviert das scrapen des Regisseurs mit diesem Modul.
- Aktiviert das scrapen der Tagline mit diesem Modul.
- Aktiviert das scrapen der Schauspieler mit diesem Modul.
- Aktiviert das scrapen der Anzahl Bewertungen (=Stimmen) mit diesem Modul.
- Aktiviert das scrapen von Trailern mit diesem Modul.
- Aktiviert das scrapen der Bewertung mit diesem Modul.
- Aktiviert das scrapen des Premiere Datums mit diesem Modul.
- Aktiviert das scrapen der MPAA Bewertung mit diesem Modul.
- Aktiviert das scrapen des Jahres mit diesem Modul.
- Aktiviert das scrapen des Titels mit diesem Modul.
- Aktiviert dieses Modul.
- Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)
- Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)
- Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration!)
- Aktiviert das Laden von Fanart mit diesem Modul. (Schau auch in die Globale Konfiguration!)
- Aktiviert das Laden von Bildern von TheMovieDB.org.
- Aktiviert das Laden von Bildern von IMPA
- Aktiviert das Laden von Bildern von MoviePosterDB.com.
- Automatische Frame extraktion mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)
- Trailer laden mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)
- Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Zeite in dieser Zeit nicht geantwortet hat wird sie übersprungen)
- Wähle die Seite von der Trailer URLS/Dateien geladen werden sollen.
-
-
diff --git "a/Addons/scraper.EmberCore/Scraper/scraper.EmberCore.Portugu\303\252s_(pt-BR).xml" "b/Addons/scraper.EmberCore/Scraper/scraper.EmberCore.Portugu\303\252s_(pt-BR).xml"
deleted file mode 100644
index a91dc2d..0000000
--- "a/Addons/scraper.EmberCore/Scraper/scraper.EmberCore.Portugu\303\252s_(pt-BR).xml"
+++ /dev/null
@@ -1,3 +0,0 @@
-
-
-
\ No newline at end of file
diff --git a/Addons/scraper.EmberCore/TVScraper/clsScrapeTVDB.vb b/Addons/scraper.EmberCore/TVScraper/clsScrapeTVDB.vb
index 4459f88..b0f8531 100644
--- a/Addons/scraper.EmberCore/TVScraper/clsScrapeTVDB.vb
+++ b/Addons/scraper.EmberCore/TVScraper/clsScrapeTVDB.vb
@@ -94,9 +94,9 @@ Public Class Scraper
Return sObject.GetSingleEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
End Function
- Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Image) As Image
- Return sObject.GetSingleImage(New Structures.ScrapeInfo With {.ShowTitle = Title, .ShowID = ShowID, .TVDBID = TVDBID, .ImageType = Type, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .CurrentImage = CurrentImage})
- End Function
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images) As Images
+ Return sObject.GetSingleImage(New Structures.ScrapeInfo With {.ShowTitle = Title, .ShowID = ShowID, .TVDBID = TVDBID, .ImageType = Type, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .CurrentImage = CurrentImage})
+ End Function
Public Sub InnerEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
RaiseEvent ScraperEvent(eType, iProgress, Parameter)
@@ -424,105 +424,105 @@ Public Class Scraper
Return New MediaContainers.EpisodeDetails
End Function
- Public Function GetSingleImage(ByVal sInfo As Structures.ScrapeInfo) As Image
- tmpTVDBShow = New TVDBShow
-
- If sInfo.ImageType = Enums.TVImageType.EpisodePoster Then
-
- If String.IsNullOrEmpty(sInfo.TVDBID) Then
- Using dTVDBSearch As New dlgTVDBSearchResults
- sInfo = dTVDBSearch.ShowDialog(sInfo, True)
- If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
- Master.currShow.TVShow.ID = sInfo.TVDBID
-
- Using tImage As New Images
- Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
- If Not IsNothing(tmpEp) Then
-
- If File.Exists(tmpEp.LocalFile) Then
- tImage.FromFile(tmpEp.LocalFile)
- Else
- tImage.FromWeb(tmpEp.PosterURL)
- If Not IsNothing(tImage.Image) Then
- Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
- tImage.Save(tmpEp.LocalFile)
- End If
- End If
-
- If Not IsNothing(tImage.Image) Then
- Using dPosterConfirm As New dlgTVEpisodePoster
- If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
- Return tImage.Image
- Else
- Return Nothing
- End If
- End Using
- Else
- MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
- Return Nothing
- End If
- Else
- Return Nothing
- End If
- End Using
- Else
- Return Nothing
- End If
- End Using
- Else
- Using tImage As New Images
- Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
- If Not IsNothing(tmpEp) Then
-
- If File.Exists(tmpEp.LocalFile) Then
- tImage.FromFile(tmpEp.LocalFile)
- Else
- tImage.FromWeb(tmpEp.PosterURL)
- If Not IsNothing(tImage.Image) Then
- Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
- tImage.Save(tmpEp.LocalFile)
- End If
- End If
-
- If Not IsNothing(tImage.Image) Then
- Using dPosterConfirm As New dlgTVEpisodePoster
- If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
- Return tImage.Image
- Else
- Return Nothing
- End If
- End Using
- Else
- MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
- Return Nothing
- End If
- Else
- Return Nothing
- End If
- End Using
- End If
- Else
- If String.IsNullOrEmpty(sInfo.TVDBID) Then
- Using dTVDBSearch As New dlgTVDBSearchResults
- sInfo = dTVDBSearch.ShowDialog(sInfo, True)
- If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
- Master.currShow.TVShow.ID = sInfo.TVDBID
- Me.DownloadSeries(sInfo, True)
- Using dImageSelect As New dlgTVImageSelect
- Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
- End Using
- Else
- Return Nothing
- End If
- End Using
- Else
- Me.DownloadSeries(sInfo, True)
- Using dImageSelect As New dlgTVImageSelect
- Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
- End Using
- End If
- End If
- End Function
+ Public Function GetSingleImage(ByVal sInfo As Structures.ScrapeInfo) As Images
+ tmpTVDBShow = New TVDBShow
+
+ If sInfo.ImageType = Enums.TVImageType.EpisodePoster Then
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ End If
+ Else
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ End If
+ End If
+ End Function
Public Function IsBusy() As Boolean
Return bwTVDB.IsBusy
@@ -848,17 +848,17 @@ Public Class Scraper
If Me.bwTVDB.CancellationPending Then Return
If Episode.TVEp.Season > -1 AndAlso Episode.TVEp.Episode > -1 AndAlso Not Episode.IsLockEp Then
- If Not IsNothing(Episode.TVEp.Poster.Image) Then Episode.EpPosterPath = Episode.TVEp.Poster.SaveAsEpPoster(Episode)
+ If Not IsNothing(Episode.TVEp.Poster.Image) Then Episode.EpPosterPath = Episode.TVEp.Poster.SaveAsEpPoster(Episode, Episode.TVEp.PosterURL)
If Me.bwTVDB.CancellationPending Then Return
- If Master.eSettings.EpisodeFanartEnabled AndAlso Not IsNothing(Episode.TVEp.Fanart.Image) Then Episode.EpFanartPath = Episode.TVEp.Fanart.SaveAsEpFanart(Episode)
+ If Master.eSettings.EpisodeFanartEnabled AndAlso Not IsNothing(Episode.TVEp.Fanart.Image) Then Episode.EpFanartPath = Episode.TVEp.Fanart.SaveAsEpFanart(Episode, )
If Me.bwTVDB.CancellationPending Then Return
Dim cSea = From cSeason As TVDBSeasonImage In TVDBImages.SeasonImageList Where cSeason.Season = iSea Take 1
If cSea.Count > 0 Then
- If Not IsNothing(cSea(0).Poster.Image) Then Episode.SeasonPosterPath = cSea(0).Poster.SaveAsSeasonPoster(Episode)
+ If Not IsNothing(cSea(0).Poster.Image) Then Episode.SeasonPosterPath = cSea(0).Poster.SaveAsSeasonPoster(Episode)
If Me.bwTVDB.CancellationPending Then Return
@@ -871,7 +871,7 @@ Public Class Scraper
cSea(0).Fanart.Image.FromWeb(cSea(0).Fanart.URL)
If Not IsNothing(cSea(0).Fanart.Image.Image) Then
Directory.CreateDirectory(Directory.GetParent(cSea(0).Fanart.LocalFile).FullName)
- cSea(0).Fanart.Image.Save(cSea(0).Fanart.LocalFile)
+ cSea(0).Fanart.Image.Save(cSea(0).Fanart.LocalFile, , , False)
Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
End If
End If
@@ -934,24 +934,14 @@ Public Class Scraper
End Sub
Private Sub SaveToCache(ByVal sID As String, ByVal sURL As String, ByVal sPath As String)
- Dim sHTTP As New HTTP
Dim sImage As New Images
- sHTTP.StartDownloadImage(sURL)
-
- While sHTTP.IsDownloading
- Application.DoEvents()
- Threading.Thread.Sleep(50)
- End While
-
- sImage.Image = sHTTP.Image
+ sImage.FromWeb(sURL)
If Not IsNothing(sImage.Image) Then
- sImage.Save(Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, sPath.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ sImage.Save(Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, sPath.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), , , True)
End If
-
- sImage = Nothing
- sHTTP = Nothing
+ sImage = Nothing
End Sub
Private Function SearchSeries(ByVal sInfo As Structures.ScrapeInfo) As List(Of TVSearchResults)
diff --git a/Addons/scraper.EmberCore/TVScraper/dlgTVImageSelect.vb b/Addons/scraper.EmberCore/TVScraper/dlgTVImageSelect.vb
index 12e7038..288414e 100644
--- a/Addons/scraper.EmberCore/TVScraper/dlgTVImageSelect.vb
+++ b/Addons/scraper.EmberCore/TVScraper/dlgTVImageSelect.vb
@@ -80,22 +80,22 @@ Public Class dlgTVImageSelect
'no preferred size, just get any one of them
If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
- If Not IsNothing(tSP) Then
- Scraper.TVDBImages.ShowPoster.Image.Image = tSP.Image.Image
- Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
- Scraper.TVDBImages.ShowPoster.URL = tSP.URL
- Else
- 'still nothing? try to get from generic posters
- Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) p.Language = Master.eSettings.TVDBLanguage AndAlso Not IsNothing(p.Image.Image))
-
- If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
-
- If Not IsNothing(tSPg) Then
- Scraper.TVDBImages.ShowPoster.Image.Image = tSPg.Image.Image
- Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
- Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
- End If
- End If
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) p.Language = Master.eSettings.TVDBLanguage AndAlso Not IsNothing(p.Image.Image))
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ End If
+ End If
Else
Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
@@ -109,7 +109,7 @@ Public Class dlgTVImageSelect
If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
If Not IsNothing(tSPg) Then
- Scraper.TVDBImages.ShowPoster.Image.Image = tSPg.Image.Image
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
Else
@@ -118,7 +118,7 @@ Public Class dlgTVImageSelect
If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
If Not IsNothing(tSP) Then
- Scraper.TVDBImages.ShowPoster.Image.Image = tSP.Image.Image
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
Scraper.TVDBImages.ShowPoster.URL = tSP.URL
End If
@@ -148,7 +148,7 @@ Public Class dlgTVImageSelect
Scraper.TVDBImages.ShowFanart.Image.FromWeb(tSF.URL)
If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
Directory.CreateDirectory(Directory.GetParent(tSF.LocalFile).FullName)
- Scraper.TVDBImages.ShowFanart.Image.Save(tSF.LocalFile)
+ Scraper.TVDBImages.ShowFanart.Image.Save(tSF.LocalFile, , , False)
Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
Scraper.TVDBImages.ShowFanart.URL = tSF.URL
End If
@@ -171,7 +171,7 @@ Public Class dlgTVImageSelect
If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
If Not IsNothing(tSP) Then
- Scraper.TVDBImages.AllSeasonPoster.Image.Image = tSP.Image.Image
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
Else
@@ -181,7 +181,7 @@ Public Class dlgTVImageSelect
If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
If Not IsNothing(tSPg) Then
- Scraper.TVDBImages.AllSeasonPoster.Image.Image = tSPg.Image.Image
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
End If
@@ -195,7 +195,7 @@ Public Class dlgTVImageSelect
If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
If Not IsNothing(tSPg) Then
- Scraper.TVDBImages.AllSeasonPoster.Image.Image = tSPg.Image.Image
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
Else
@@ -204,7 +204,7 @@ Public Class dlgTVImageSelect
If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
If Not IsNothing(tSP) Then
- Scraper.TVDBImages.AllSeasonPoster.Image.Image = tSP.Image.Image
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
End If
@@ -225,9 +225,9 @@ Public Class dlgTVImageSelect
tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize)
If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason)
- If Not IsNothing(tSea) Then cSeason.Poster.Image = tSea.Image.Image
+ If Not IsNothing(tSea) Then cSeason.Poster = tSea.Image
End If
- If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonFanart) AndAlso Master.eSettings.SeasonFanartEnabled AndAlso IsNothing(cSeason.Fanart.Image.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then cSeason.Fanart.Image.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonFanart) AndAlso Master.eSettings.SeasonFanartEnabled AndAlso IsNothing(cSeason.Fanart.Image.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then cSeason.Fanart.Image = Scraper.TVDBImages.ShowFanart.Image
If Me.bwLoadImages.CancellationPending Then
Return True
@@ -253,7 +253,7 @@ Public Class dlgTVImageSelect
If Not String.IsNullOrEmpty(Episode.EpFanartPath) Then
Episode.TVEp.Fanart.FromFile(Episode.EpFanartPath)
ElseIf Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
- Episode.TVEp.Fanart.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Episode.TVEp.Fanart = Scraper.TVDBImages.ShowFanart.Image
End If
End If
@@ -284,77 +284,78 @@ Public Class dlgTVImageSelect
Return MyBase.ShowDialog
End Function
- Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal CurrentImage As Image) As Image
- Me._id = ShowID
- Me._type = Type
- Me._season = Season
- Me.pbCurrent.Image = CurrentImage
-
- If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
- Return Me.pbCurrent.Image
- Else
- Return Nothing
- End If
- End Function
-
- Private Sub AddImage(ByVal iImage As Image, ByVal sDescription As String, ByVal iIndex As Integer, ByVal fTag As ImageTag)
- Try
- ReDim Preserve Me.pnlImage(iIndex)
- ReDim Preserve Me.pbImage(iIndex)
- ReDim Preserve Me.lblImage(iIndex)
- Me.pnlImage(iIndex) = New Panel()
- Me.pbImage(iIndex) = New PictureBox()
- Me.lblImage(iIndex) = New Label()
- Me.pbImage(iIndex).Name = iIndex.ToString
- Me.pnlImage(iIndex).Name = iIndex.ToString
- Me.lblImage(iIndex).Name = iIndex.ToString
- Me.pnlImage(iIndex).Size = New Size(187, 187)
- Me.pbImage(iIndex).Size = New Size(181, 151)
- Me.lblImage(iIndex).Size = New Size(181, 30)
- Me.pnlImage(iIndex).BackColor = Color.White
- Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
- Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
- Me.lblImage(iIndex).AutoSize = False
- Me.lblImage(iIndex).BackColor = Color.White
- Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
- Me.lblImage(iIndex).Text = sDescription
- Me.pbImage(iIndex).Image = iImage
- Me.pnlImage(iIndex).Left = iLeft
- Me.pbImage(iIndex).Left = 3
- Me.lblImage(iIndex).Left = 0
- Me.pnlImage(iIndex).Top = iTop
- Me.pbImage(iIndex).Top = 3
- Me.lblImage(iIndex).Top = 151
- Me.pnlImage(iIndex).Tag = fTag
- Me.pbImage(iIndex).Tag = fTag
- Me.lblImage(iIndex).Tag = fTag
- Me.pnlImages.Controls.Add(Me.pnlImage(iIndex))
- Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
- Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
- Me.pnlImage(iIndex).BringToFront()
- AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
- AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
- AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
- AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
-
- AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
- AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
- AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
-
- Catch ex As Exception
- Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
- End Try
-
- Me.iCounter += 1
-
- If Me.iCounter = 3 Then
- Me.iCounter = 0
- Me.iLeft = 5
- Me.iTop += 192
- Else
- Me.iLeft += 192
- End If
- End Sub
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal CurrentImage As Images) As Images
+ Me._id = ShowID
+ Me._type = Type
+ Me._season = Season
+ Me.pbCurrent.Image = CurrentImage.Image
+ Me.pbCurrent.Tag = CurrentImage
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return CType(Me.pbCurrent.Tag, Images)
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal fTag As ImageTag)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.lblImage(iIndex) = New Label()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(187, 187)
+ Me.pbImage(iIndex).Size = New Size(181, 151)
+ Me.lblImage(iIndex).Size = New Size(181, 30)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblImage(iIndex).Text = sDescription
+ Me.pbImage(iIndex).Image = fTag.ImageObj.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.lblImage(iIndex).Left = 0
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.lblImage(iIndex).Top = 151
+ Me.pnlImage(iIndex).Tag = fTag
+ Me.pbImage(iIndex).Tag = fTag
+ Me.lblImage(iIndex).Tag = fTag
+ Me.pnlImages.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 192
+ Else
+ Me.iLeft += 192
+ End If
+ End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
If Me.bwLoadData.IsBusy Then Me.bwLoadData.CancelAsync()
@@ -387,7 +388,7 @@ Public Class dlgTVImageSelect
Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
- Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
End If
End If
@@ -398,32 +399,36 @@ Public Class dlgTVImageSelect
Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
Me.pbStatus.Style = ProgressBarStyle.Marquee
Me.pnlStatus.Visible = True
- If Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
- Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromFile(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile)
- Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
- ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
- Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Clear()
- Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromWeb(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL)
- If Not IsNothing(Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image) Then
- Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile).FullName)
- Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Save(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile)
- Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
- End If
- End If
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromFile(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Clear()
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromWeb(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile).FullName)
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Save(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ End If
+ End If
ElseIf (Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso Me._fanartchanged Then
Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
Me.pbStatus.Style = ProgressBarStyle.Marquee
Me.pnlStatus.Visible = True
If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
- Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
Scraper.TVDBImages.ShowFanart.Image.Clear()
Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
- Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile)
- Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
End If
End If
End If
@@ -453,21 +458,21 @@ Public Class dlgTVImageSelect
Select Case Me._type
Case Enums.TVImageType.AllSeasonPoster
- Scraper.TVDBImages.AllSeasonPoster.Image.Image = Me.pbCurrent.Image
+ Scraper.TVDBImages.AllSeasonPoster.Image = CType(Me.pbCurrent.Tag, Images)
Case Enums.TVImageType.SeasonFanart
cSI = New Scraper.TVDBSeasonImage
cSI.Season = Me._season
- cSI.Fanart.Image.Image = Me.pbCurrent.Image
+ cSI.Fanart.Image = CType(Me.pbCurrent.Tag, Images)
Scraper.TVDBImages.SeasonImageList.Add(cSI)
Case Enums.TVImageType.SeasonPoster
cSI = New Scraper.TVDBSeasonImage
cSI.Season = Me._season
- cSI.Poster.Image = Me.pbCurrent.Image
+ cSI.Poster = CType(Me.pbCurrent.Tag, Images)
Scraper.TVDBImages.SeasonImageList.Add(cSI)
Case Enums.TVImageType.ShowFanart, Enums.TVImageType.EpisodeFanart
- Scraper.TVDBImages.ShowFanart.Image.Image = Me.pbCurrent.Image
+ Scraper.TVDBImages.ShowFanart.Image = CType(Me.pbCurrent.Tag, Images)
Case Enums.TVImageType.ShowPoster
- Scraper.TVDBImages.ShowPoster.Image.Image = Me.pbCurrent.Image
+ Scraper.TVDBImages.ShowPoster.Image = CType(Me.pbCurrent.Tag, Images)
Case Enums.TVImageType.All
If _withcurrent Then
@@ -652,7 +657,8 @@ Public Class dlgTVImageSelect
Me.iCounter = 0
Me.iLeft = 5
Me.iTop = 5
- Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
If Me.pnlImages.Controls.Count > 0 Then
For i As Integer = UBound(Me.pnlImage) To 0 Step -1
@@ -684,25 +690,25 @@ Public Class dlgTVImageSelect
Me.bwLoadData.RunWorkerAsync()
End Sub
- Private Sub DoSelect(ByVal iIndex As Integer, ByVal SelImage As Image, ByVal SelTag As ImageTag)
- Try
- For i As Integer = 0 To UBound(Me.pnlImage)
- Me.pnlImage(i).BackColor = Color.White
- Me.lblImage(i).BackColor = Color.White
- Me.lblImage(i).ForeColor = Color.Black
- Next
+ Private Sub DoSelect(ByVal iIndex As Integer, ByVal SelTag As ImageTag)
+ Try
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ Next
- Me.pnlImage(iIndex).BackColor = Color.Blue
- Me.lblImage(iIndex).BackColor = Color.Blue
- Me.lblImage(iIndex).ForeColor = Color.White
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
- SetImage(SelImage, SelTag)
+ SetImage(SelTag)
- Me.CheckCurrentImage()
- Catch ex As Exception
- Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
- End Try
- End Sub
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
Private Function DownloadAllImages() As Boolean
Dim iProgress As Integer = 1
@@ -745,7 +751,7 @@ Public Class dlgTVImageSelect
Seas.Image.FromWeb(Seas.URL)
If Not IsNothing(Seas.Image.Image) Then
Directory.CreateDirectory(Directory.GetParent(Seas.LocalFile).FullName)
- Seas.Image.Save(Seas.LocalFile)
+ Seas.Image.Save(Seas.LocalFile, , , False)
SeasonList.Add(Seas)
End If
End If
@@ -774,12 +780,12 @@ Public Class dlgTVImageSelect
SPost.Image.FromWeb(SPost.URL)
If Not IsNothing(SPost.Image.Image) Then
Directory.CreateDirectory(Directory.GetParent(SPost.LocalFile).FullName)
- SPost.Image.Save(SPost.LocalFile)
+ SPost.Image.Save(SPost.LocalFile, , , False)
ShowPosterList.Add(SPost)
End If
End If
Else
- SPost.Image.FromFile(SPost.LocalFile)
+ SPost.Image.FromFile(SPost.LocalFile)
ShowPosterList.Add(SPost)
End If
@@ -803,7 +809,7 @@ Public Class dlgTVImageSelect
SFan.Image.FromWeb(SFan.ThumbnailURL)
If Not IsNothing(SFan.Image.Image) Then
Directory.CreateDirectory(Directory.GetParent(SFan.LocalThumb).FullName)
- SFan.Image.Image.Save(SFan.LocalThumb)
+ SFan.Image.Save(SFan.LocalThumb, , , False)
FanartList.Add(SFan)
End If
End If
@@ -833,7 +839,7 @@ Public Class dlgTVImageSelect
Post.Image.FromWeb(Post.URL)
If Not IsNothing(Post.Image.Image) Then
Directory.CreateDirectory(Directory.GetParent(Post.LocalFile).FullName)
- Post.Image.Save(Post.LocalFile)
+ Post.Image.Save(Post.LocalFile, , , False)
GenericPosterList.Add(Post)
End If
End If
@@ -877,7 +883,7 @@ Public Class dlgTVImageSelect
tImage.FromWeb(iTag.URL)
If Not IsNothing(tImage.Image) Then
Directory.CreateDirectory(Directory.GetParent(iTag.Path).FullName)
- tImage.Save(iTag.Path)
+ tImage.Save(iTag.Path, , , False)
End If
sHTTP = Nothing
@@ -955,7 +961,7 @@ Public Class dlgTVImageSelect
Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim iindex As Integer = Convert.ToInt32(DirectCast(sender, Label).Name)
- Me.DoSelect(iindex, Me.pbImage(iindex).Image, DirectCast(DirectCast(sender, Label).Tag, ImageTag))
+ Me.DoSelect(iindex, DirectCast(DirectCast(sender, Label).Tag, ImageTag))
End Sub
Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
@@ -975,12 +981,13 @@ Public Class dlgTVImageSelect
End Sub
Private Sub pbDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbDelete.Click
- Me.pbCurrent.Image = Nothing
- Me.SetImage(Nothing, New ImageTag)
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+ Me.SetImage(New ImageTag)
End Sub
Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
- Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(sender, PictureBox).Image, DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag))
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag))
End Sub
Private Sub pbImage_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
@@ -998,74 +1005,80 @@ Public Class dlgTVImageSelect
Private Sub pbUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUndo.Click
If Me.SelSeason = -999 Then
If Me.SelIsPoster Then
- Scraper.TVDBImages.ShowPoster.Image.Image = DefaultImages.ShowPoster.Image.Image
+ Scraper.TVDBImages.ShowPoster.Image = DefaultImages.ShowPoster.Image
Scraper.TVDBImages.ShowPoster.LocalFile = DefaultImages.ShowPoster.LocalFile
Scraper.TVDBImages.ShowPoster.URL = DefaultImages.ShowPoster.URL
- Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowPoster.Image
Else
- Scraper.TVDBImages.ShowFanart.Image.Image = DefaultImages.ShowFanart.Image.Image
+ Scraper.TVDBImages.ShowFanart.Image = DefaultImages.ShowFanart.Image
Scraper.TVDBImages.ShowFanart.LocalFile = DefaultImages.ShowFanart.LocalFile
Scraper.TVDBImages.ShowFanart.URL = DefaultImages.ShowFanart.URL
- Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
End If
ElseIf Me.SelSeason = 999 Then
- Scraper.TVDBImages.AllSeasonPoster.Image.Image = DefaultImages.AllSeasonPoster.Image.Image
+ Scraper.TVDBImages.AllSeasonPoster.Image = DefaultImages.AllSeasonPoster.Image
Scraper.TVDBImages.AllSeasonPoster.LocalFile = DefaultImages.AllSeasonPoster.LocalFile
Scraper.TVDBImages.AllSeasonPoster.URL = DefaultImages.AllSeasonPoster.URL
- Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.AllSeasonPoster.Image
Else
If Me.SelIsPoster Then
- Dim dSPost As Image = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster.Image
- Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster.Image = dSPost
- Me.pbCurrent.Image = dSPost
+ Dim dSPost As Images = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = dSPost
+ Me.pbCurrent.Image = dSPost.Image
+ Me.pbCurrent.Tag = dSPost
Else
Dim dSFan As Scraper.TVDBFanart = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
Dim tSFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
- tSFan.Image.Image = dSFan.Image.Image
+ tSFan.Image = dSFan.Image
tSFan.LocalFile = dSFan.LocalFile
tSFan.URL = dSFan.URL
- Me.pbCurrent.Image = dSFan.Image.Image
+ Me.pbCurrent.Image = dSFan.Image.Image
+ Me.pbCurrent.Tag = dSFan.Image
End If
End If
End Sub
Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim iIndex As Integer = Convert.ToInt32(DirectCast(sender, Panel).Name)
- Me.DoSelect(iIndex, Me.pbImage(iIndex).Image, DirectCast(DirectCast(sender, Panel).Tag, ImageTag))
+ Me.DoSelect(iIndex, DirectCast(DirectCast(sender, Panel).Tag, ImageTag))
End Sub
- Private Sub SetImage(ByVal SelImage As Image, ByVal SelTag As ImageTag)
- Me.pbCurrent.Image = SelImage
-
- Me._fanartchanged = True
-
- If Me.SelSeason = -999 Then
- If Me.SelIsPoster Then
- Scraper.TVDBImages.ShowPoster.Image.Image = SelImage
- Scraper.TVDBImages.ShowPoster.LocalFile = SelTag.Path
- Scraper.TVDBImages.ShowPoster.URL = SelTag.URL
- Else
- Scraper.TVDBImages.ShowFanart.Image.Image = SelImage
- Scraper.TVDBImages.ShowFanart.LocalFile = SelTag.Path
- Scraper.TVDBImages.ShowFanart.URL = SelTag.URL
- End If
- ElseIf Me.SelSeason = 999 Then
- Scraper.TVDBImages.AllSeasonPoster.Image.Image = SelImage
- Scraper.TVDBImages.AllSeasonPoster.LocalFile = SelTag.Path
- Scraper.TVDBImages.AllSeasonPoster.URL = SelTag.URL
- Else
- If Me.SelIsPoster Then
- Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster.Image = SelImage
- Else
- Dim tFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
- If Not IsNothing(tFan) Then
- tFan.Image.Image = SelImage
- tFan.LocalFile = SelTag.Path
- tFan.URL = SelTag.URL
- End If
- End If
- End If
- End Sub
+ Private Sub SetImage(ByVal SelTag As ImageTag)
+ Me.pbCurrent.Image = SelTag.ImageObj.Image
+ Me.pbCurrent.Tag = SelTag.ImageObj
+
+ Me._fanartchanged = True
+
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowPoster.URL = SelTag.URL
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowFanart.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowFanart.URL = SelTag.URL
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.AllSeasonPoster.URL = SelTag.URL
+ Else
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = SelTag.ImageObj
+ Else
+ Dim tFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ If Not IsNothing(tFan) Then
+ tFan.Image = SelTag.ImageObj
+ tFan.LocalFile = SelTag.Path
+ tFan.URL = SelTag.URL
+ End If
+ End If
+ End If
+ End Sub
Private Sub SetUp()
Me.Text = Master.eLang.GetString(99, "TV Image Selection")
@@ -1094,13 +1107,13 @@ Public Class dlgTVImageSelect
iCount = ShowPosterList.Count
For i = 0 To iCount - 1
If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
- Me.AddImage(ShowPosterList(i).Image.Image, String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False})
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
End If
Next
For i = 0 To GenericPosterList.Count - 1
If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
- Me.AddImage(GenericPosterList(i).Image.Image, String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False})
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
End If
Next
@@ -1116,7 +1129,7 @@ Public Class dlgTVImageSelect
For i = 0 To FanartList.Count - 1
If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
- Me.AddImage(FanartList(i).Image.Image, String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True})
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
End If
Next
@@ -1132,13 +1145,13 @@ Public Class dlgTVImageSelect
iCount = GenericPosterList.Count
For i = 0 To iCount - 1
If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
- Me.AddImage(GenericPosterList(i).Image.Image, String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False})
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
End If
Next
For i = 0 To ShowPosterList.Count - 1
If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
- Me.AddImage(ShowPosterList(i).Image.Image, String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False})
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
End If
Next
Else
@@ -1155,7 +1168,7 @@ Public Class dlgTVImageSelect
End If
For i = 0 To FanartList.Count - 1
If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
- Me.AddImage(FanartList(i).Image.Image, String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True})
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
End If
Next
ElseIf tMatch.Groups("type").Value = "p" Then
@@ -1170,7 +1183,7 @@ Public Class dlgTVImageSelect
iCount = 0
For Each SImage As Scraper.TVDBSeasonPoster In SeasonList.Where(Function(s) s.Season = Convert.ToInt32(tMatch.Groups("num").Value))
If Not IsNothing(SImage.Image) AndAlso Not IsNothing(SImage.Image.Image) Then
- Me.AddImage(SImage.Image.Image, String.Format("{0}x{1}", SImage.Image.Image.Width, SImage.Image.Image.Height), iCount, New ImageTag With {.URL = SImage.URL, .Path = SImage.LocalFile, .isFanart = False})
+ Me.AddImage(String.Format("{0}x{1}", SImage.Image.Image.Width, SImage.Image.Image.Height), iCount, New ImageTag With {.URL = SImage.URL, .Path = SImage.LocalFile, .isFanart = False, .ImageObj = SImage.Image})
End If
iCount += 1
Next
@@ -1199,7 +1212,8 @@ Public Class dlgTVImageSelect
Dim isFanart As Boolean
Dim Path As String
- Dim URL As String
+ Dim URL As String
+ Dim ImageObj As Images
#End Region 'Fields
diff --git a/Addons/scraper.EmberCore/frmInfoSettingsHolder.Designer.vb b/Addons/scraper.EmberCore/frmInfoSettingsHolder.Designer.vb
index fa997c4..c3675d6 100644
--- a/Addons/scraper.EmberCore/frmInfoSettingsHolder.Designer.vb
+++ b/Addons/scraper.EmberCore/frmInfoSettingsHolder.Designer.vb
@@ -22,570 +22,570 @@ Partial Class frmInfoSettingsHolder
'Do not modify it using the code editor.
_
Private Sub InitializeComponent()
- Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfoSettingsHolder))
- Me.lblVersion = New System.Windows.Forms.Label()
- Me.GroupBox30 = New System.Windows.Forms.GroupBox()
- Me.Label18 = New System.Windows.Forms.Label()
- Me.txtIMDBURL = New System.Windows.Forms.TextBox()
- Me.GroupBox15 = New System.Windows.Forms.GroupBox()
- Me.chkOFDBGenre = New System.Windows.Forms.CheckBox()
- Me.chkOFDBPlot = New System.Windows.Forms.CheckBox()
- Me.chkOFDBOutline = New System.Windows.Forms.CheckBox()
- Me.chkOFDBTitle = New System.Windows.Forms.CheckBox()
- Me.cbEnabled = New System.Windows.Forms.CheckBox()
- Me.Panel1 = New System.Windows.Forms.Panel()
- Me.Label2 = New System.Windows.Forms.Label()
- Me.btnDown = New System.Windows.Forms.Button()
- Me.btnUp = New System.Windows.Forms.Button()
- Me.pnlSettings = New System.Windows.Forms.Panel()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.PictureBox1 = New System.Windows.Forms.PictureBox()
- Me.gbOptions = New System.Windows.Forms.GroupBox()
- Me.chkCertification = New System.Windows.Forms.CheckBox()
- Me.chkCountry = New System.Windows.Forms.CheckBox()
- Me.chkTop250 = New System.Windows.Forms.CheckBox()
- Me.chkCrew = New System.Windows.Forms.CheckBox()
- Me.chkMusicBy = New System.Windows.Forms.CheckBox()
- Me.chkProducers = New System.Windows.Forms.CheckBox()
- Me.chkFullCast = New System.Windows.Forms.CheckBox()
- Me.chkWriters = New System.Windows.Forms.CheckBox()
- Me.chkStudio = New System.Windows.Forms.CheckBox()
- Me.chkRuntime = New System.Windows.Forms.CheckBox()
- Me.chkFullCrew = New System.Windows.Forms.CheckBox()
- Me.chkPlot = New System.Windows.Forms.CheckBox()
- Me.chkOutline = New System.Windows.Forms.CheckBox()
- Me.chkGenre = New System.Windows.Forms.CheckBox()
- Me.chkDirector = New System.Windows.Forms.CheckBox()
- Me.chkTagline = New System.Windows.Forms.CheckBox()
- Me.chkCast = New System.Windows.Forms.CheckBox()
- Me.chkVotes = New System.Windows.Forms.CheckBox()
- Me.chkTrailer = New System.Windows.Forms.CheckBox()
- Me.chkRating = New System.Windows.Forms.CheckBox()
- Me.chkRelease = New System.Windows.Forms.CheckBox()
- Me.chkMPAA = New System.Windows.Forms.CheckBox()
- Me.chkYear = New System.Windows.Forms.CheckBox()
- Me.chkTitle = New System.Windows.Forms.CheckBox()
- Me.GroupBox30.SuspendLayout()
- Me.GroupBox15.SuspendLayout()
- Me.Panel1.SuspendLayout()
- Me.pnlSettings.SuspendLayout()
- CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.gbOptions.SuspendLayout()
- Me.SuspendLayout()
- '
- 'lblVersion
- '
- Me.lblVersion.Location = New System.Drawing.Point(286, 393)
- Me.lblVersion.Name = "lblVersion"
- Me.lblVersion.Size = New System.Drawing.Size(90, 16)
- Me.lblVersion.TabIndex = 74
- Me.lblVersion.Text = "Version:"
- '
- 'GroupBox30
- '
- Me.GroupBox30.Controls.Add(Me.Label18)
- Me.GroupBox30.Controls.Add(Me.txtIMDBURL)
- Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
- Me.GroupBox30.Name = "GroupBox30"
- Me.GroupBox30.Size = New System.Drawing.Size(213, 69)
- Me.GroupBox30.TabIndex = 1
- Me.GroupBox30.TabStop = False
- Me.GroupBox30.Text = "IMDB"
- '
- 'Label18
- '
- Me.Label18.AutoSize = True
- Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label18.Location = New System.Drawing.Point(6, 18)
- Me.Label18.Name = "Label18"
- Me.Label18.Size = New System.Drawing.Size(73, 13)
- Me.Label18.TabIndex = 0
- Me.Label18.Text = "IMDB Mirror:"
- '
- 'txtIMDBURL
- '
- Me.txtIMDBURL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtIMDBURL.Location = New System.Drawing.Point(8, 32)
- Me.txtIMDBURL.Name = "txtIMDBURL"
- Me.txtIMDBURL.Size = New System.Drawing.Size(192, 22)
- Me.txtIMDBURL.TabIndex = 1
- '
- 'GroupBox15
- '
- Me.GroupBox15.Controls.Add(Me.chkOFDBGenre)
- Me.GroupBox15.Controls.Add(Me.chkOFDBPlot)
- Me.GroupBox15.Controls.Add(Me.chkOFDBOutline)
- Me.GroupBox15.Controls.Add(Me.chkOFDBTitle)
- Me.GroupBox15.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.GroupBox15.Location = New System.Drawing.Point(8, 114)
- Me.GroupBox15.Name = "GroupBox15"
- Me.GroupBox15.Size = New System.Drawing.Size(213, 87)
- Me.GroupBox15.TabIndex = 2
- Me.GroupBox15.TabStop = False
- Me.GroupBox15.Text = "OFDB (German)"
- '
- 'chkOFDBGenre
- '
- Me.chkOFDBGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkOFDBGenre.Location = New System.Drawing.Point(6, 65)
- Me.chkOFDBGenre.Name = "chkOFDBGenre"
- Me.chkOFDBGenre.Size = New System.Drawing.Size(168, 17)
- Me.chkOFDBGenre.TabIndex = 3
- Me.chkOFDBGenre.Text = "Use OFDB Genre"
- Me.chkOFDBGenre.UseVisualStyleBackColor = True
- '
- 'chkOFDBPlot
- '
- Me.chkOFDBPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkOFDBPlot.Location = New System.Drawing.Point(6, 49)
- Me.chkOFDBPlot.Name = "chkOFDBPlot"
- Me.chkOFDBPlot.Size = New System.Drawing.Size(168, 17)
- Me.chkOFDBPlot.TabIndex = 2
- Me.chkOFDBPlot.Text = "Use OFDB Plot"
- Me.chkOFDBPlot.UseVisualStyleBackColor = True
- '
- 'chkOFDBOutline
- '
- Me.chkOFDBOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkOFDBOutline.Location = New System.Drawing.Point(6, 33)
- Me.chkOFDBOutline.Name = "chkOFDBOutline"
- Me.chkOFDBOutline.Size = New System.Drawing.Size(168, 17)
- Me.chkOFDBOutline.TabIndex = 1
- Me.chkOFDBOutline.Text = "Use OFDB Outline"
- Me.chkOFDBOutline.UseVisualStyleBackColor = True
- '
- 'chkOFDBTitle
- '
- Me.chkOFDBTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkOFDBTitle.Location = New System.Drawing.Point(6, 17)
- Me.chkOFDBTitle.Name = "chkOFDBTitle"
- Me.chkOFDBTitle.Size = New System.Drawing.Size(168, 17)
- Me.chkOFDBTitle.TabIndex = 0
- Me.chkOFDBTitle.Text = "Use OFDB Title"
- Me.chkOFDBTitle.UseVisualStyleBackColor = True
- '
- 'cbEnabled
- '
- Me.cbEnabled.AutoSize = True
- Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
- Me.cbEnabled.Name = "cbEnabled"
- Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
- Me.cbEnabled.TabIndex = 0
- Me.cbEnabled.Text = "Enabled"
- Me.cbEnabled.UseVisualStyleBackColor = True
- '
- 'Panel1
- '
- Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
- Me.Panel1.Controls.Add(Me.Label2)
- Me.Panel1.Controls.Add(Me.btnDown)
- Me.Panel1.Controls.Add(Me.cbEnabled)
- Me.Panel1.Controls.Add(Me.btnUp)
- Me.Panel1.Location = New System.Drawing.Point(0, 0)
- Me.Panel1.Name = "Panel1"
- Me.Panel1.Size = New System.Drawing.Size(1125, 25)
- Me.Panel1.TabIndex = 0
- '
- 'Label2
- '
- Me.Label2.AutoSize = True
- Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label2.Location = New System.Drawing.Point(500, 7)
- Me.Label2.Name = "Label2"
- Me.Label2.Size = New System.Drawing.Size(58, 12)
- Me.Label2.TabIndex = 1
- Me.Label2.Text = "Scraper order"
- '
- 'btnDown
- '
- Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
- Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
- Me.btnDown.Location = New System.Drawing.Point(591, 1)
- Me.btnDown.Name = "btnDown"
- Me.btnDown.Size = New System.Drawing.Size(23, 23)
- Me.btnDown.TabIndex = 3
- Me.btnDown.UseVisualStyleBackColor = True
- '
- 'btnUp
- '
- Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
- Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
- Me.btnUp.Location = New System.Drawing.Point(566, 1)
- Me.btnUp.Name = "btnUp"
- Me.btnUp.Size = New System.Drawing.Size(23, 23)
- Me.btnUp.TabIndex = 2
- Me.btnUp.UseVisualStyleBackColor = True
- '
- 'pnlSettings
- '
- Me.pnlSettings.Controls.Add(Me.Label1)
- Me.pnlSettings.Controls.Add(Me.PictureBox1)
- Me.pnlSettings.Controls.Add(Me.Panel1)
- Me.pnlSettings.Controls.Add(Me.GroupBox30)
- Me.pnlSettings.Controls.Add(Me.GroupBox15)
- Me.pnlSettings.Controls.Add(Me.gbOptions)
- Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
- Me.pnlSettings.Name = "pnlSettings"
- Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
- Me.pnlSettings.TabIndex = 0
- '
- 'Label1
- '
- Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
- Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.Label1.ForeColor = System.Drawing.Color.Blue
- Me.Label1.Location = New System.Drawing.Point(37, 337)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(225, 31)
- Me.Label1.TabIndex = 4
- Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
- "for more options."
- Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
- '
- 'PictureBox1
- '
- Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
- Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
- Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
- Me.PictureBox1.Name = "PictureBox1"
- Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
- Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
- Me.PictureBox1.TabIndex = 96
- Me.PictureBox1.TabStop = False
- '
- 'gbOptions
- '
- Me.gbOptions.Controls.Add(Me.chkCertification)
- Me.gbOptions.Controls.Add(Me.chkCountry)
- Me.gbOptions.Controls.Add(Me.chkTop250)
- Me.gbOptions.Controls.Add(Me.chkCrew)
- Me.gbOptions.Controls.Add(Me.chkMusicBy)
- Me.gbOptions.Controls.Add(Me.chkProducers)
- Me.gbOptions.Controls.Add(Me.chkFullCast)
- Me.gbOptions.Controls.Add(Me.chkWriters)
- Me.gbOptions.Controls.Add(Me.chkStudio)
- Me.gbOptions.Controls.Add(Me.chkRuntime)
- Me.gbOptions.Controls.Add(Me.chkFullCrew)
- Me.gbOptions.Controls.Add(Me.chkPlot)
- Me.gbOptions.Controls.Add(Me.chkOutline)
- Me.gbOptions.Controls.Add(Me.chkGenre)
- Me.gbOptions.Controls.Add(Me.chkDirector)
- Me.gbOptions.Controls.Add(Me.chkTagline)
- Me.gbOptions.Controls.Add(Me.chkCast)
- Me.gbOptions.Controls.Add(Me.chkVotes)
- Me.gbOptions.Controls.Add(Me.chkTrailer)
- Me.gbOptions.Controls.Add(Me.chkRating)
- Me.gbOptions.Controls.Add(Me.chkRelease)
- Me.gbOptions.Controls.Add(Me.chkMPAA)
- Me.gbOptions.Controls.Add(Me.chkYear)
- Me.gbOptions.Controls.Add(Me.chkTitle)
- Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.gbOptions.Location = New System.Drawing.Point(227, 40)
- Me.gbOptions.Name = "gbOptions"
- Me.gbOptions.Size = New System.Drawing.Size(387, 161)
- Me.gbOptions.TabIndex = 3
- Me.gbOptions.TabStop = False
- Me.gbOptions.Text = "Scraper Fields"
- '
- 'chkCertification
- '
- Me.chkCertification.AutoSize = True
- Me.chkCertification.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkCertification.Location = New System.Drawing.Point(6, 70)
- Me.chkCertification.Name = "chkCertification"
- Me.chkCertification.Size = New System.Drawing.Size(89, 17)
- Me.chkCertification.TabIndex = 3
- Me.chkCertification.Text = "Certification"
- Me.chkCertification.UseVisualStyleBackColor = True
- '
- 'chkCountry
- '
- Me.chkCountry.AutoSize = True
- Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkCountry.Location = New System.Drawing.Point(237, 53)
- Me.chkCountry.Name = "chkCountry"
- Me.chkCountry.Size = New System.Drawing.Size(67, 17)
- Me.chkCountry.TabIndex = 18
- Me.chkCountry.Text = "Country"
- Me.chkCountry.UseVisualStyleBackColor = True
- '
- 'chkTop250
- '
- Me.chkTop250.AutoSize = True
- Me.chkTop250.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkTop250.Location = New System.Drawing.Point(237, 19)
- Me.chkTop250.Name = "chkTop250"
- Me.chkTop250.Size = New System.Drawing.Size(66, 17)
- Me.chkTop250.TabIndex = 16
- Me.chkTop250.Text = "Top 250"
- Me.chkTop250.UseVisualStyleBackColor = True
- '
- 'chkCrew
- '
- Me.chkCrew.AutoSize = True
- Me.chkCrew.Enabled = False
- Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkCrew.Location = New System.Drawing.Point(246, 104)
- Me.chkCrew.Name = "chkCrew"
- Me.chkCrew.Size = New System.Drawing.Size(85, 17)
- Me.chkCrew.TabIndex = 21
- Me.chkCrew.Text = "Other Crew"
- Me.chkCrew.UseVisualStyleBackColor = True
- '
- 'chkMusicBy
- '
- Me.chkMusicBy.AutoSize = True
- Me.chkMusicBy.Enabled = False
- Me.chkMusicBy.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkMusicBy.Location = New System.Drawing.Point(246, 121)
- Me.chkMusicBy.Name = "chkMusicBy"
- Me.chkMusicBy.Size = New System.Drawing.Size(71, 17)
- Me.chkMusicBy.TabIndex = 22
- Me.chkMusicBy.Text = "Music By"
- Me.chkMusicBy.UseVisualStyleBackColor = True
- '
- 'chkProducers
- '
- Me.chkProducers.AutoSize = True
- Me.chkProducers.Enabled = False
- Me.chkProducers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkProducers.Location = New System.Drawing.Point(246, 138)
- Me.chkProducers.Name = "chkProducers"
- Me.chkProducers.Size = New System.Drawing.Size(77, 17)
- Me.chkProducers.TabIndex = 23
- Me.chkProducers.Text = "Producers"
- Me.chkProducers.UseVisualStyleBackColor = True
- '
- 'chkFullCast
- '
- Me.chkFullCast.AutoSize = True
- Me.chkFullCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkFullCast.Location = New System.Drawing.Point(237, 70)
- Me.chkFullCast.Name = "chkFullCast"
- Me.chkFullCast.Size = New System.Drawing.Size(107, 17)
- Me.chkFullCast.TabIndex = 19
- Me.chkFullCast.Text = "Scrape Full Cast"
- Me.chkFullCast.UseVisualStyleBackColor = True
- '
- 'chkWriters
- '
- Me.chkWriters.AutoSize = True
- Me.chkWriters.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkWriters.Location = New System.Drawing.Point(131, 121)
- Me.chkWriters.Name = "chkWriters"
- Me.chkWriters.Size = New System.Drawing.Size(63, 17)
- Me.chkWriters.TabIndex = 14
- Me.chkWriters.Text = "Writers"
- Me.chkWriters.UseVisualStyleBackColor = True
- '
- 'chkStudio
- '
- Me.chkStudio.AutoSize = True
- Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkStudio.Location = New System.Drawing.Point(131, 19)
- Me.chkStudio.Name = "chkStudio"
- Me.chkStudio.Size = New System.Drawing.Size(60, 17)
- Me.chkStudio.TabIndex = 8
- Me.chkStudio.Text = "Studio"
- Me.chkStudio.UseVisualStyleBackColor = True
- '
- 'chkRuntime
- '
- Me.chkRuntime.AutoSize = True
- Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkRuntime.Location = New System.Drawing.Point(6, 104)
- Me.chkRuntime.Name = "chkRuntime"
- Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
- Me.chkRuntime.TabIndex = 5
- Me.chkRuntime.Text = "Runtime"
- Me.chkRuntime.UseVisualStyleBackColor = True
- '
- 'chkFullCrew
- '
- Me.chkFullCrew.AutoSize = True
- Me.chkFullCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkFullCrew.Location = New System.Drawing.Point(237, 87)
- Me.chkFullCrew.Name = "chkFullCrew"
- Me.chkFullCrew.Size = New System.Drawing.Size(111, 17)
- Me.chkFullCrew.TabIndex = 20
- Me.chkFullCrew.Text = "Scrape Full Crew"
- Me.chkFullCrew.UseVisualStyleBackColor = True
- '
- 'chkPlot
- '
- Me.chkPlot.AutoSize = True
- Me.chkPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkPlot.Location = New System.Drawing.Point(131, 70)
- Me.chkPlot.Name = "chkPlot"
- Me.chkPlot.Size = New System.Drawing.Size(46, 17)
- Me.chkPlot.TabIndex = 11
- Me.chkPlot.Text = "Plot"
- Me.chkPlot.UseVisualStyleBackColor = True
- '
- 'chkOutline
- '
- Me.chkOutline.AutoSize = True
- Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkOutline.Location = New System.Drawing.Point(131, 53)
- Me.chkOutline.Name = "chkOutline"
- Me.chkOutline.Size = New System.Drawing.Size(65, 17)
- Me.chkOutline.TabIndex = 10
- Me.chkOutline.Text = "Outline"
- Me.chkOutline.UseVisualStyleBackColor = True
- '
- 'chkGenre
- '
- Me.chkGenre.AutoSize = True
- Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkGenre.Location = New System.Drawing.Point(131, 138)
- Me.chkGenre.Name = "chkGenre"
- Me.chkGenre.Size = New System.Drawing.Size(57, 17)
- Me.chkGenre.TabIndex = 15
- Me.chkGenre.Text = "Genre"
- Me.chkGenre.UseVisualStyleBackColor = True
- '
- 'chkDirector
- '
- Me.chkDirector.AutoSize = True
- Me.chkDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkDirector.Location = New System.Drawing.Point(131, 104)
- Me.chkDirector.Name = "chkDirector"
- Me.chkDirector.Size = New System.Drawing.Size(67, 17)
- Me.chkDirector.TabIndex = 13
- Me.chkDirector.Text = "Director"
- Me.chkDirector.UseVisualStyleBackColor = True
- '
- 'chkTagline
- '
- Me.chkTagline.AutoSize = True
- Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkTagline.Location = New System.Drawing.Point(131, 36)
- Me.chkTagline.Name = "chkTagline"
- Me.chkTagline.Size = New System.Drawing.Size(63, 17)
- Me.chkTagline.TabIndex = 9
- Me.chkTagline.Text = "Tagline"
- Me.chkTagline.UseVisualStyleBackColor = True
- '
- 'chkCast
- '
- Me.chkCast.AutoSize = True
- Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkCast.Location = New System.Drawing.Point(131, 87)
- Me.chkCast.Name = "chkCast"
- Me.chkCast.Size = New System.Drawing.Size(48, 17)
- Me.chkCast.TabIndex = 12
- Me.chkCast.Text = "Cast"
- Me.chkCast.UseVisualStyleBackColor = True
- '
- 'chkVotes
- '
- Me.chkVotes.AutoSize = True
- Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkVotes.Location = New System.Drawing.Point(6, 138)
- Me.chkVotes.Name = "chkVotes"
- Me.chkVotes.Size = New System.Drawing.Size(55, 17)
- Me.chkVotes.TabIndex = 7
- Me.chkVotes.Text = "Votes"
- Me.chkVotes.UseVisualStyleBackColor = True
- '
- 'chkTrailer
- '
- Me.chkTrailer.AutoSize = True
- Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkTrailer.Location = New System.Drawing.Point(237, 36)
- Me.chkTrailer.Name = "chkTrailer"
- Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
- Me.chkTrailer.TabIndex = 17
- Me.chkTrailer.Text = "Trailer"
- Me.chkTrailer.UseVisualStyleBackColor = True
- '
- 'chkRating
- '
- Me.chkRating.AutoSize = True
- Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkRating.Location = New System.Drawing.Point(6, 121)
- Me.chkRating.Name = "chkRating"
- Me.chkRating.Size = New System.Drawing.Size(60, 17)
- Me.chkRating.TabIndex = 6
- Me.chkRating.Text = "Rating"
- Me.chkRating.UseVisualStyleBackColor = True
- '
- 'chkRelease
- '
- Me.chkRelease.AutoSize = True
- Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkRelease.Location = New System.Drawing.Point(6, 87)
- Me.chkRelease.Name = "chkRelease"
- Me.chkRelease.Size = New System.Drawing.Size(92, 17)
- Me.chkRelease.TabIndex = 4
- Me.chkRelease.Text = "Release Date"
- Me.chkRelease.UseVisualStyleBackColor = True
- '
- 'chkMPAA
- '
- Me.chkMPAA.AutoSize = True
- Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
- Me.chkMPAA.Name = "chkMPAA"
- Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
- Me.chkMPAA.TabIndex = 2
- Me.chkMPAA.Text = "MPAA"
- Me.chkMPAA.UseVisualStyleBackColor = True
- '
- 'chkYear
- '
- Me.chkYear.AutoSize = True
- Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkYear.Location = New System.Drawing.Point(6, 36)
- Me.chkYear.Name = "chkYear"
- Me.chkYear.Size = New System.Drawing.Size(47, 17)
- Me.chkYear.TabIndex = 1
- Me.chkYear.Text = "Year"
- Me.chkYear.UseVisualStyleBackColor = True
- '
- 'chkTitle
- '
- Me.chkTitle.AutoSize = True
- Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkTitle.Location = New System.Drawing.Point(6, 19)
- Me.chkTitle.Name = "chkTitle"
- Me.chkTitle.Size = New System.Drawing.Size(47, 17)
- Me.chkTitle.TabIndex = 0
- Me.chkTitle.Text = "Title"
- Me.chkTitle.UseVisualStyleBackColor = True
- '
- 'frmInfoSettingsHolder
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
- Me.BackColor = System.Drawing.Color.White
- Me.ClientSize = New System.Drawing.Size(652, 388)
- Me.Controls.Add(Me.pnlSettings)
- Me.Controls.Add(Me.lblVersion)
- Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
- Me.MaximizeBox = False
- Me.MinimizeBox = False
- Me.Name = "frmInfoSettingsHolder"
- Me.ShowInTaskbar = False
- Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
- Me.Text = "Scraper Setup"
- Me.GroupBox30.ResumeLayout(False)
- Me.GroupBox30.PerformLayout()
- Me.GroupBox15.ResumeLayout(False)
- Me.Panel1.ResumeLayout(False)
- Me.Panel1.PerformLayout()
- Me.pnlSettings.ResumeLayout(False)
- CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
- Me.gbOptions.ResumeLayout(False)
- Me.gbOptions.PerformLayout()
- Me.ResumeLayout(False)
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtIMDBURL = New System.Windows.Forms.TextBox()
+ Me.GroupBox15 = New System.Windows.Forms.GroupBox()
+ Me.chkOFDBGenre = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBOutline = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBTitle = New System.Windows.Forms.CheckBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCertification = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkTop250 = New System.Windows.Forms.CheckBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkMusicBy = New System.Windows.Forms.CheckBox()
+ Me.chkProducers = New System.Windows.Forms.CheckBox()
+ Me.chkFullCast = New System.Windows.Forms.CheckBox()
+ Me.chkWriters = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkFullCrew = New System.Windows.Forms.CheckBox()
+ Me.chkPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkDirector = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.GroupBox15.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtIMDBURL)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(213, 69)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "IMDB"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(73, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "IMDB Mirror:"
+ '
+ 'txtIMDBURL
+ '
+ Me.txtIMDBURL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBURL.Location = New System.Drawing.Point(8, 32)
+ Me.txtIMDBURL.Name = "txtIMDBURL"
+ Me.txtIMDBURL.Size = New System.Drawing.Size(192, 22)
+ Me.txtIMDBURL.TabIndex = 1
+ '
+ 'GroupBox15
+ '
+ Me.GroupBox15.Controls.Add(Me.chkOFDBGenre)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBPlot)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBOutline)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBTitle)
+ Me.GroupBox15.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox15.Location = New System.Drawing.Point(8, 114)
+ Me.GroupBox15.Name = "GroupBox15"
+ Me.GroupBox15.Size = New System.Drawing.Size(213, 87)
+ Me.GroupBox15.TabIndex = 2
+ Me.GroupBox15.TabStop = False
+ Me.GroupBox15.Text = "OFDB (German)"
+ '
+ 'chkOFDBGenre
+ '
+ Me.chkOFDBGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBGenre.Location = New System.Drawing.Point(6, 65)
+ Me.chkOFDBGenre.Name = "chkOFDBGenre"
+ Me.chkOFDBGenre.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBGenre.TabIndex = 3
+ Me.chkOFDBGenre.Text = "Use OFDB Genre"
+ Me.chkOFDBGenre.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBPlot
+ '
+ Me.chkOFDBPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBPlot.Location = New System.Drawing.Point(6, 49)
+ Me.chkOFDBPlot.Name = "chkOFDBPlot"
+ Me.chkOFDBPlot.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBPlot.TabIndex = 2
+ Me.chkOFDBPlot.Text = "Use OFDB Plot"
+ Me.chkOFDBPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBOutline
+ '
+ Me.chkOFDBOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBOutline.Location = New System.Drawing.Point(6, 33)
+ Me.chkOFDBOutline.Name = "chkOFDBOutline"
+ Me.chkOFDBOutline.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBOutline.TabIndex = 1
+ Me.chkOFDBOutline.Text = "Use OFDB Outline"
+ Me.chkOFDBOutline.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBTitle
+ '
+ Me.chkOFDBTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBTitle.Location = New System.Drawing.Point(6, 17)
+ Me.chkOFDBTitle.Name = "chkOFDBTitle"
+ Me.chkOFDBTitle.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBTitle.TabIndex = 0
+ Me.chkOFDBTitle.Text = "Use OFDB Title"
+ Me.chkOFDBTitle.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.GroupBox15)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCertification)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkTop250)
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkMusicBy)
+ Me.gbOptions.Controls.Add(Me.chkProducers)
+ Me.gbOptions.Controls.Add(Me.chkFullCast)
+ Me.gbOptions.Controls.Add(Me.chkWriters)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkFullCrew)
+ Me.gbOptions.Controls.Add(Me.chkPlot)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkDirector)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(227, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(387, 161)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCertification
+ '
+ Me.chkCertification.AutoSize = True
+ Me.chkCertification.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCertification.Location = New System.Drawing.Point(6, 70)
+ Me.chkCertification.Name = "chkCertification"
+ Me.chkCertification.Size = New System.Drawing.Size(89, 17)
+ Me.chkCertification.TabIndex = 3
+ Me.chkCertification.Text = "Certification"
+ Me.chkCertification.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(237, 53)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkTop250
+ '
+ Me.chkTop250.AutoSize = True
+ Me.chkTop250.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTop250.Location = New System.Drawing.Point(237, 19)
+ Me.chkTop250.Name = "chkTop250"
+ Me.chkTop250.Size = New System.Drawing.Size(66, 17)
+ Me.chkTop250.TabIndex = 16
+ Me.chkTop250.Text = "Top 250"
+ Me.chkTop250.UseVisualStyleBackColor = True
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Enabled = False
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(246, 104)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(85, 17)
+ Me.chkCrew.TabIndex = 21
+ Me.chkCrew.Text = "Other Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkMusicBy
+ '
+ Me.chkMusicBy.AutoSize = True
+ Me.chkMusicBy.Enabled = False
+ Me.chkMusicBy.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMusicBy.Location = New System.Drawing.Point(246, 121)
+ Me.chkMusicBy.Name = "chkMusicBy"
+ Me.chkMusicBy.Size = New System.Drawing.Size(71, 17)
+ Me.chkMusicBy.TabIndex = 22
+ Me.chkMusicBy.Text = "Music By"
+ Me.chkMusicBy.UseVisualStyleBackColor = True
+ '
+ 'chkProducers
+ '
+ Me.chkProducers.AutoSize = True
+ Me.chkProducers.Enabled = False
+ Me.chkProducers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkProducers.Location = New System.Drawing.Point(246, 138)
+ Me.chkProducers.Name = "chkProducers"
+ Me.chkProducers.Size = New System.Drawing.Size(77, 17)
+ Me.chkProducers.TabIndex = 23
+ Me.chkProducers.Text = "Producers"
+ Me.chkProducers.UseVisualStyleBackColor = True
+ '
+ 'chkFullCast
+ '
+ Me.chkFullCast.AutoSize = True
+ Me.chkFullCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCast.Location = New System.Drawing.Point(237, 70)
+ Me.chkFullCast.Name = "chkFullCast"
+ Me.chkFullCast.Size = New System.Drawing.Size(107, 17)
+ Me.chkFullCast.TabIndex = 19
+ Me.chkFullCast.Text = "Scrape Full Cast"
+ Me.chkFullCast.UseVisualStyleBackColor = True
+ '
+ 'chkWriters
+ '
+ Me.chkWriters.AutoSize = True
+ Me.chkWriters.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkWriters.Location = New System.Drawing.Point(131, 121)
+ Me.chkWriters.Name = "chkWriters"
+ Me.chkWriters.Size = New System.Drawing.Size(63, 17)
+ Me.chkWriters.TabIndex = 14
+ Me.chkWriters.Text = "Writers"
+ Me.chkWriters.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 104)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkFullCrew
+ '
+ Me.chkFullCrew.AutoSize = True
+ Me.chkFullCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCrew.Location = New System.Drawing.Point(237, 87)
+ Me.chkFullCrew.Name = "chkFullCrew"
+ Me.chkFullCrew.Size = New System.Drawing.Size(111, 17)
+ Me.chkFullCrew.TabIndex = 20
+ Me.chkFullCrew.Text = "Scrape Full Crew"
+ Me.chkFullCrew.UseVisualStyleBackColor = True
+ '
+ 'chkPlot
+ '
+ Me.chkPlot.AutoSize = True
+ Me.chkPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkPlot.Location = New System.Drawing.Point(131, 70)
+ Me.chkPlot.Name = "chkPlot"
+ Me.chkPlot.Size = New System.Drawing.Size(46, 17)
+ Me.chkPlot.TabIndex = 11
+ Me.chkPlot.Text = "Plot"
+ Me.chkPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 138)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkDirector
+ '
+ Me.chkDirector.AutoSize = True
+ Me.chkDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDirector.Location = New System.Drawing.Point(131, 104)
+ Me.chkDirector.Name = "chkDirector"
+ Me.chkDirector.Size = New System.Drawing.Size(67, 17)
+ Me.chkDirector.TabIndex = 13
+ Me.chkDirector.Text = "Director"
+ Me.chkDirector.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 87)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 138)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(237, 36)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 121)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 87)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'frmInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.GroupBox15.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ Me.ResumeLayout(False)
- End Sub
+ End Sub
Friend WithEvents lblVersion As System.Windows.Forms.Label
Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
Friend WithEvents Label18 As System.Windows.Forms.Label
diff --git a/Addons/scraper.EmberCore/frmInfoSettingsHolder.resx b/Addons/scraper.EmberCore/frmInfoSettingsHolder.resx
index c37233a..1a3b6b2 100644
--- a/Addons/scraper.EmberCore/frmInfoSettingsHolder.resx
+++ b/Addons/scraper.EmberCore/frmInfoSettingsHolder.resx
@@ -120,76 +120,74 @@
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
- CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
- Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
- A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
- QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
- zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
- K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
- KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
- //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
- JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
- COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
- 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
- IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
- CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
- ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
- PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
- m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
- jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
- /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
- uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
- g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
- uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
- IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
- GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
- ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
- iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALCQAA
- CwkBEvpHPgAABypJREFUWEftlntQlccZxrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj
- 24wlxabt1PSShFhJEFEuKhxUBAFNRSFq7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7
- z77v7rufAqBGkhGdXBb+fwH/GxG41NenPr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7Pk
- ZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2ms
- e+DyZ5+p/itXRMTopUWL6+gIedmZSIiJQk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGek
- o7AgH+vYlzU/DakpydomL+ufPnKzMiA+VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB
- +vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xqQhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQX
- pv/PSojDRtP6zN+/uU399je/fihg9szpKnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2
- lL1eipSkROyrr4eloQEMNcpKS3H8zx/gxSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpx
- eryaHhtdIquODA3WK1yQnYVshlrCWrAwD4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOW
- yxSmpszWPiNCggRzREigEqwCZPKkGQkSAZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4Cbt
- btwY0G3hNvvb244gKiwEYUFGc0RwkBKGRCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D5
- 57jY26tTEGL0N4cHG5kC40MB7FCShpjIcFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr
- 1IcfgilGcICfOSwoQAnWCLBDzYiLUdHhoSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx
- 44iPjkSQv6851GhQglUAcy8bUDFHJtksrYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbE
- RYYj0M/HzCgowSogPipSJURHqciQYFMEN+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD
- 6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+ytr8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no
- 660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJoYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJ
- VgFUJvlXnNzETYL3KnbA0mjBflbE4SBCN71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfm
- P0gFGXxNAb7eKGfprKutxZ7du4eFiJT8L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUH
- GSUvJoYG28vL/ysBMulG0wa8qAU0DBEti6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/
- pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrurq1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5
- LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wGjVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F
- 5yOngBuQTpSv57QSUVmzu5qVbRsm2dmgZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQ
- eK3zwglAU2OjLkwO45/FNhapvXW1oH84T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN
- +toa/TExLzmJV22mbldWVIgjXL9+Xd90srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x
- 1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4e
- L9np2kbGOTP00WHBvIiieBH5N0xzdR0tc8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5
- usvJYaLQPdH22W7HiXbdzo6TujlG4zx5UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7B
- An7Alw5U50wms+3Cge7Ek3gTX+JH/ImBBAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm
- 3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/xKb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVO
- RK5CYII=
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsIAAALCAHAvaXaAAAHHElE
+ QVRYR8WWeVAUVBzHX5mpZcekIAoKCYLLvQe7XLucHiCoIDcqJHgmeaaLW2bHGIZZTXYqmigiCosKi4og
+ oCUKeTVehViToo2hljrO5Djz7fd71WJCE/1DzHzYt+/33u993+/33u+tAPC/0mVnT9JlZ0/SZWdP0mVn
+ TyL/XWxtFd9fvChaW1rExg0FfebNnZMzflxU2YSY6KoJ46It1LYkJ8RbUpMSLEmT4i2TU1Ms0zKmWjIm
+ p1sy0tNkm/uSJsVZUhMT5NgJNIfnso/x0WPN06dlLqg7UNuX17v3228Sq4BLP/4o2i5fZhG9Z2ZPM5Mj
+ pKckITLUgNSkRMydPRNx42ORFB+HRQvmYfoLmUhOmIRF8+dj8cIFSElMQFZmBhaTLXlSPOJiY+Sc9OQ/
+ fKQlJ4J9zs+Za6F1+vx09aq40tbWIaBkW7Ewl+4Qa1a/EzsmPAz3799HW1sbgnR+qKmupiHASy/OwbKl
+ S2R7b1UV4knQL7/cxN27d5EQNxG7dpZL24rlr2JmdpZsHzrYgACtBrQx+X1sZDiWGZckffLRWvHhB+93
+ CBg3ZpSIGTtakNrcCFJcsWsXCr/YiAA/NVatXIkDtTUyIlmZU9FQX4f8VXmIjY7CrvJyWCoqQKFGfl4e
+ Dn/1JWZNz6LoxONATQ1oQ9LHhvXrUGWpxJiIMPquWk4bE4xVACkTUaMixKiwkFzetT5AJ3c4OSUZKRRq
+ DmvmlHRMmzoFU9JSkZUxFbNnTAflXsI7ZhFjIyPknIzJaUikqCRSytIohXGx46TPYH8tYwr29xOMVQAv
+ Hj06kiNgZAG1+6tx584d3Lxx49+5eQO3b93Ce++uxtLFi3C9vR03qP/69XbZZm6Rvb7uAAyB/gjUakzB
+ Oq1gOkUg3BBsJHD+3Dm008SrV650i1u//orioi0U8tW4fft2J3v7zz/jQkuLTIG/RmkK0mkoBZoOAWSQ
+ IkL1QcYwfSCOHmmUB+fCd9+h5V/gMZcvXULBus+x8q03ZfvhMezr2Ndfg1IMndrXFKhVC8YqgAxidHio
+ CAkKMBJ0eg/i2/Pnceb06W7ReqEVn378Ed5Y8RqopnSynydfRw4fRkSIHlqljylAoxKMVUBkqEGKoBwZ
+ +bDU7t+Pb06dwvFjx7rF2TNnQNcKr72yDOfOnu1kP3XyJN2eeoTrg+Dn622iKAjGKiDCoBeRIQah99cZ
+ g+kQ7rFY0NzUhEZS3R1OHD+ONfn5sk6cOH6ik73p6FFU79uHUIqu2sfT5Kf0EYxVQJg+iA8g300j5QY7
+ y8348tAhOrl13aKxsVHWi5cXLcQRaj9s55RW7t4tr6LKy8Ok8fESjFUA5V2EBgcKKhpGf7USJdu2oZYK
+ yb69e7tFfV093np9BRbMy0FDQ4Pc7YOwL3Npqaysvh4KE4kQjFUAKeP8C1rcSIcEmws3wVJpwW6qiN2B
+ RSx/xYScObNRTaW7gnb7IFWU0uKtW2VV9HZ3M/l6KgRjFUB5p/xrhVblY1T7eKGASqe5rAw7tm/vFiyC
+ 8z97RrZcsHTHjr9RbjZjE5V2ncoXnm4jTN4KN8FYBQT6qUWQVsN5MVJosLGg4D8J4EWXGZdilhRQ0cnO
+ vgo3bQIdPLiPcDaRCMFYBVB1ovyrBJ1Qo7vLcFlQeOLWoqJ/pPiBTx6bTU80vx/FW4v/tG2xjt1eUoK8
+ t1fS7l2gGDHc5O7qLBirALqbdC28hdLLPdf1eUe4ODrwdZGnVqdSQuPrDQO19VTLOYx8mLhk+2tUEq6e
+ niNdwXM5z4YAf1A0ueiAUguVtydchjnAbbgj3JydTPQp6LNDQAgdQHIifDxG5rLK0u0lVNnWYqidDXKX
+ vEx1oRJcIbmW791TRT885mOE01D5ZBcXbSbHTlhIN6Cmeh/oWacHR42qykpZmBwGDcRaKlI7zWUg/3Ae
+ Zr/cW+EqPB6MgP1gO0G/fMSKV00xalJ77949/PD9RQyxeQ7lZaU0BJgYE01PbZJsFxUWsiNcu3ZNvnS8
+ s/WffyZt2S9kSKH8t6eqEnYDnqVSfE5+54jkzJmZGE2/PZ595ukOAfz3CKFwc+ul9PIoHRVmQGhwgEwF
+ HVDERo2GF4XYl3YwISaKUqCBwuV5ev/DQK8o51WOm0g2ul580uUcHudMoQ8J1NFDZKCHSFkx0tW1N6/F
+ f1YBvWh94knqG/Rkv34u9oNs8xzsbBsc7Qc3OQyyaRps81yTk8MQpnmI7cBmxyF2zc6OQ5tpjMR52NBm
+ GittPIbHDrYZ0GRPc53Yh53tQfKZ/3T//q60hu2jtBav+bCApwgHUudMDKO2Cw1UEB6EF+FD+BJKQkWo
+ H4L72MZjeCzPcScU7It9EsN5DaI/8TcBf8FCHiV6EY8RvYnHiT5EX6LfnzzxD/xl57E8h+eyD/bFPtk3
+ ryHXswr4P+mysyfpsrPngPgd1z91K2zEiQAAAAAASUVORK5CYII=
\ No newline at end of file
diff --git a/Addons/scraper.EmberCore/frmInfoSettingsHolder.vb b/Addons/scraper.EmberCore/frmInfoSettingsHolder.vb
index 21a3d0b..0a2f1c0 100644
--- a/Addons/scraper.EmberCore/frmInfoSettingsHolder.vb
+++ b/Addons/scraper.EmberCore/frmInfoSettingsHolder.vb
@@ -34,23 +34,25 @@ Public Class frmInfoSettingsHolder
#Region "Methods"
Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
- Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
- If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
- ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
- ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
- RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
- orderChanged()
- End If
+ Dim order As Integer = ModulesManager.Instance.externalDataScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+
+ 'If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ' ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ' ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ ' RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ ' orderChanged()
+ 'End If
End Sub
Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
- Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
- If order > 0 Then
- ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
- ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
- RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
- orderChanged()
- End If
+ Dim order As Integer = ModulesManager.Instance.externalDataScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ 'Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ ' If order > 0 Then
+ ' ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ' ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ ' RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ ' orderChanged()
+ ' End If
End Sub
Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
diff --git a/Addons/scraper.EmberCore/frmMediaSettingsHolder.Designer.vb b/Addons/scraper.EmberCore/frmMediaSettingsHolder.Designer.vb
index b5e621a..2c09e78 100644
--- a/Addons/scraper.EmberCore/frmMediaSettingsHolder.Designer.vb
+++ b/Addons/scraper.EmberCore/frmMediaSettingsHolder.Designer.vb
@@ -22,445 +22,471 @@ Partial Class frmMediaSettingsHolder
'Do not modify it using the code editor.
_
Private Sub InitializeComponent()
- Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMediaSettingsHolder))
- Me.pnlSettings = New System.Windows.Forms.Panel()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.PictureBox1 = New System.Windows.Forms.PictureBox()
- Me.GroupBox3 = New System.Windows.Forms.GroupBox()
- Me.GroupBox4 = New System.Windows.Forms.GroupBox()
- Me.cbManualETSize = New System.Windows.Forms.ComboBox()
- Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
- Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
- Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
- Me.GroupBox9 = New System.Windows.Forms.GroupBox()
- Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
- Me.chkUseTMDB = New System.Windows.Forms.CheckBox()
- Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
- Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
- Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
- Me.GroupBox1 = New System.Windows.Forms.GroupBox()
- Me.GroupBox5 = New System.Windows.Forms.GroupBox()
- Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
- Me.Label2 = New System.Windows.Forms.Label()
- Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
- Me.Label23 = New System.Windows.Forms.Label()
- Me.txtTimeout = New System.Windows.Forms.TextBox()
- Me.GroupBox2 = New System.Windows.Forms.GroupBox()
- Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
- Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
- Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
- Me.Panel2 = New System.Windows.Forms.Panel()
- Me.Label3 = New System.Windows.Forms.Label()
- Me.btnDown = New System.Windows.Forms.Button()
- Me.btnUp = New System.Windows.Forms.Button()
- Me.cbEnabled = New System.Windows.Forms.CheckBox()
- Me.pnlSettings.SuspendLayout()
- CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.GroupBox3.SuspendLayout()
- Me.GroupBox4.SuspendLayout()
- Me.grpSaveFanart.SuspendLayout()
- Me.GroupBox9.SuspendLayout()
- Me.GroupBox1.SuspendLayout()
- Me.GroupBox5.SuspendLayout()
- Me.GroupBox2.SuspendLayout()
- Me.Panel2.SuspendLayout()
- Me.SuspendLayout()
- '
- 'pnlSettings
- '
- Me.pnlSettings.Controls.Add(Me.Label1)
- Me.pnlSettings.Controls.Add(Me.PictureBox1)
- Me.pnlSettings.Controls.Add(Me.GroupBox3)
- Me.pnlSettings.Controls.Add(Me.GroupBox1)
- Me.pnlSettings.Controls.Add(Me.Panel2)
- Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
- Me.pnlSettings.Name = "pnlSettings"
- Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
- Me.pnlSettings.TabIndex = 0
- '
- 'Label1
- '
- Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
- Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
- Me.Label1.ForeColor = System.Drawing.Color.Blue
- Me.Label1.Location = New System.Drawing.Point(37, 337)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(225, 31)
- Me.Label1.TabIndex = 3
- Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
- "for more options."
- Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
- '
- 'PictureBox1
- '
- Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
- Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
- Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
- Me.PictureBox1.Name = "PictureBox1"
- Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
- Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
- Me.PictureBox1.TabIndex = 94
- Me.PictureBox1.TabStop = False
- '
- 'GroupBox3
- '
- Me.GroupBox3.Controls.Add(Me.GroupBox4)
- Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
- Me.GroupBox3.Controls.Add(Me.GroupBox9)
- Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
- Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
- Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
- Me.GroupBox3.Name = "GroupBox3"
- Me.GroupBox3.Size = New System.Drawing.Size(587, 131)
- Me.GroupBox3.TabIndex = 1
- Me.GroupBox3.TabStop = False
- Me.GroupBox3.Text = "Images"
- '
- 'GroupBox4
- '
- Me.GroupBox4.Controls.Add(Me.cbManualETSize)
- Me.GroupBox4.Location = New System.Drawing.Point(374, 11)
- Me.GroupBox4.Name = "GroupBox4"
- Me.GroupBox4.Size = New System.Drawing.Size(160, 80)
- Me.GroupBox4.TabIndex = 4
- Me.GroupBox4.TabStop = False
- Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
- '
- 'cbManualETSize
- '
- Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
- Me.cbManualETSize.Enabled = False
- Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.cbManualETSize.FormattingEnabled = True
- Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
- Me.cbManualETSize.Location = New System.Drawing.Point(21, 35)
- Me.cbManualETSize.Name = "cbManualETSize"
- Me.cbManualETSize.Size = New System.Drawing.Size(121, 21)
- Me.cbManualETSize.TabIndex = 0
- '
- 'grpSaveFanart
- '
- Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
- Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
- Me.grpSaveFanart.Enabled = False
- Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
- Me.grpSaveFanart.Name = "grpSaveFanart"
- Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
- Me.grpSaveFanart.TabIndex = 2
- Me.grpSaveFanart.TabStop = False
- Me.grpSaveFanart.Text = "Save Fanart In:"
- '
- 'optFanartFolderExtraFanart
- '
- Me.optFanartFolderExtraFanart.AutoSize = True
- Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
- Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
- Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
- Me.optFanartFolderExtraFanart.TabIndex = 1
- Me.optFanartFolderExtraFanart.TabStop = True
- Me.optFanartFolderExtraFanart.Text = "\extrafanart"
- Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
- '
- 'optFanartFolderExtraThumbs
- '
- Me.optFanartFolderExtraThumbs.AutoSize = True
- Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
- Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
- Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
- Me.optFanartFolderExtraThumbs.TabIndex = 0
- Me.optFanartFolderExtraThumbs.TabStop = True
- Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
- Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
- '
- 'GroupBox9
- '
- Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
- Me.GroupBox9.Controls.Add(Me.chkUseTMDB)
- Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
- Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.GroupBox9.Location = New System.Drawing.Point(165, 11)
- Me.GroupBox9.Name = "GroupBox9"
- Me.GroupBox9.Size = New System.Drawing.Size(160, 80)
- Me.GroupBox9.TabIndex = 3
- Me.GroupBox9.TabStop = False
- Me.GroupBox9.Text = "Get Images From:"
- '
- 'chkUseMPDB
- '
- Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
- Me.chkUseMPDB.Name = "chkUseMPDB"
- Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
- Me.chkUseMPDB.TabIndex = 2
- Me.chkUseMPDB.Text = "MoviePosterDB.com"
- Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkUseMPDB.UseVisualStyleBackColor = True
- '
- 'chkUseTMDB
- '
- Me.chkUseTMDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkUseTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkUseTMDB.Location = New System.Drawing.Point(6, 18)
- Me.chkUseTMDB.Name = "chkUseTMDB"
- Me.chkUseTMDB.Size = New System.Drawing.Size(149, 19)
- Me.chkUseTMDB.TabIndex = 0
- Me.chkUseTMDB.Text = "themoviedb.org"
- Me.chkUseTMDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkUseTMDB.UseVisualStyleBackColor = True
- '
- 'chkUseIMPA
- '
- Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
- Me.chkUseIMPA.Name = "chkUseIMPA"
- Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
- Me.chkUseIMPA.TabIndex = 1
- Me.chkUseIMPA.Text = "IMPAwards.com"
- Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkUseIMPA.UseVisualStyleBackColor = True
- '
- 'chkScrapePoster
- '
- Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
- Me.chkScrapePoster.Name = "chkScrapePoster"
- Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
- Me.chkScrapePoster.TabIndex = 0
- Me.chkScrapePoster.Text = "Get Posters"
- Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkScrapePoster.UseVisualStyleBackColor = True
- '
- 'chkScrapeFanart
- '
- Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
- Me.chkScrapeFanart.Name = "chkScrapeFanart"
- Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
- Me.chkScrapeFanart.TabIndex = 1
- Me.chkScrapeFanart.Text = "Get Fanart"
- Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
- Me.chkScrapeFanart.UseVisualStyleBackColor = True
- '
- 'GroupBox1
- '
- Me.GroupBox1.Controls.Add(Me.GroupBox5)
- Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
- Me.GroupBox1.Controls.Add(Me.Label23)
- Me.GroupBox1.Controls.Add(Me.txtTimeout)
- Me.GroupBox1.Controls.Add(Me.GroupBox2)
- Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.GroupBox1.Location = New System.Drawing.Point(15, 168)
- Me.GroupBox1.Name = "GroupBox1"
- Me.GroupBox1.Size = New System.Drawing.Size(587, 112)
- Me.GroupBox1.TabIndex = 2
- Me.GroupBox1.TabStop = False
- Me.GroupBox1.Text = "Trailers"
- Me.GroupBox1.UseCompatibleTextRendering = True
- '
- 'GroupBox5
- '
- Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
- Me.GroupBox5.Controls.Add(Me.Label2)
- Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
- Me.GroupBox5.Location = New System.Drawing.Point(374, 12)
- Me.GroupBox5.Name = "GroupBox5"
- Me.GroupBox5.Size = New System.Drawing.Size(161, 94)
- Me.GroupBox5.TabIndex = 4
- Me.GroupBox5.TabStop = False
- Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
- '
- 'cbTrailerTMDBPref
- '
- Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
- Me.cbTrailerTMDBPref.Enabled = False
- Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
- Me.cbTrailerTMDBPref.FormattingEnabled = True
- Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
- Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
- Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
- Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
- Me.cbTrailerTMDBPref.TabIndex = 1
- '
- 'Label2
- '
- Me.Label2.AutoSize = True
- Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
- Me.Label2.Location = New System.Drawing.Point(26, 26)
- Me.Label2.Name = "Label2"
- Me.Label2.Size = New System.Drawing.Size(111, 13)
- Me.Label2.TabIndex = 0
- Me.Label2.Text = "Preferred Language:"
- '
- 'chkDownloadTrailer
- '
- Me.chkDownloadTrailer.AutoSize = True
- Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
- Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
- Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
- Me.chkDownloadTrailer.TabIndex = 0
- Me.chkDownloadTrailer.Text = "Enable Trailer Support"
- Me.chkDownloadTrailer.UseVisualStyleBackColor = True
- '
- 'Label23
- '
- Me.Label23.AutoSize = True
- Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label23.Location = New System.Drawing.Point(21, 43)
- Me.Label23.Name = "Label23"
- Me.Label23.Size = New System.Drawing.Size(51, 13)
- Me.Label23.TabIndex = 1
- Me.Label23.Text = "Timeout:"
- '
- 'txtTimeout
- '
- Me.txtTimeout.Enabled = False
- Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
- Me.txtTimeout.Name = "txtTimeout"
- Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
- Me.txtTimeout.TabIndex = 2
- '
- 'GroupBox2
- '
- Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
- Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
- Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
- Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
- Me.GroupBox2.Name = "GroupBox2"
- Me.GroupBox2.Size = New System.Drawing.Size(161, 94)
- Me.GroupBox2.TabIndex = 3
- Me.GroupBox2.TabStop = False
- Me.GroupBox2.Text = "Supported Sites:"
- '
- 'chkTrailerTMDBXBMC
- '
- Me.chkTrailerTMDBXBMC.AutoSize = True
- Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
- Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
- Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
- Me.chkTrailerTMDBXBMC.TabIndex = 1
- Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
- Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
- '
- 'chkTrailerIMDB
- '
- Me.chkTrailerIMDB.AutoSize = True
- Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
- Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
- Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
- Me.chkTrailerIMDB.TabIndex = 2
- Me.chkTrailerIMDB.Text = "IMDB"
- Me.chkTrailerIMDB.UseVisualStyleBackColor = True
- '
- 'chkTrailerTMDB
- '
- Me.chkTrailerTMDB.AutoSize = True
- Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
- Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
- Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
- Me.chkTrailerTMDB.TabIndex = 0
- Me.chkTrailerTMDB.Text = "Youtube/TMDB"
- Me.chkTrailerTMDB.UseVisualStyleBackColor = True
- '
- 'Panel2
- '
- Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
- Me.Panel2.Controls.Add(Me.Label3)
- Me.Panel2.Controls.Add(Me.btnDown)
- Me.Panel2.Controls.Add(Me.btnUp)
- Me.Panel2.Controls.Add(Me.cbEnabled)
- Me.Panel2.Location = New System.Drawing.Point(0, 0)
- Me.Panel2.Name = "Panel2"
- Me.Panel2.Size = New System.Drawing.Size(1125, 25)
- Me.Panel2.TabIndex = 0
- '
- 'Label3
- '
- Me.Label3.AutoSize = True
- Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label3.Location = New System.Drawing.Point(500, 7)
- Me.Label3.Name = "Label3"
- Me.Label3.Size = New System.Drawing.Size(58, 12)
- Me.Label3.TabIndex = 1
- Me.Label3.Text = "Scraper order"
- '
- 'btnDown
- '
- Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
- Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
- Me.btnDown.Location = New System.Drawing.Point(591, 1)
- Me.btnDown.Name = "btnDown"
- Me.btnDown.Size = New System.Drawing.Size(23, 23)
- Me.btnDown.TabIndex = 3
- Me.btnDown.UseVisualStyleBackColor = True
- '
- 'btnUp
- '
- Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
- Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
- Me.btnUp.Location = New System.Drawing.Point(566, 1)
- Me.btnUp.Name = "btnUp"
- Me.btnUp.Size = New System.Drawing.Size(23, 23)
- Me.btnUp.TabIndex = 2
- Me.btnUp.UseVisualStyleBackColor = True
- '
- 'cbEnabled
- '
- Me.cbEnabled.AutoSize = True
- Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
- Me.cbEnabled.Name = "cbEnabled"
- Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
- Me.cbEnabled.TabIndex = 0
- Me.cbEnabled.Text = "Enabled"
- Me.cbEnabled.UseVisualStyleBackColor = True
- '
- 'frmMediaSettingsHolder
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
- Me.BackColor = System.Drawing.Color.White
- Me.ClientSize = New System.Drawing.Size(652, 388)
- Me.Controls.Add(Me.pnlSettings)
- Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
- Me.MaximizeBox = False
- Me.MinimizeBox = False
- Me.Name = "frmMediaSettingsHolder"
- Me.ShowInTaskbar = False
- Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
- Me.Text = "Scraper Setup"
- Me.pnlSettings.ResumeLayout(False)
- CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
- Me.GroupBox3.ResumeLayout(False)
- Me.GroupBox4.ResumeLayout(False)
- Me.grpSaveFanart.ResumeLayout(False)
- Me.grpSaveFanart.PerformLayout()
- Me.GroupBox9.ResumeLayout(False)
- Me.GroupBox1.ResumeLayout(False)
- Me.GroupBox1.PerformLayout()
- Me.GroupBox5.ResumeLayout(False)
- Me.GroupBox5.PerformLayout()
- Me.GroupBox2.ResumeLayout(False)
- Me.GroupBox2.PerformLayout()
- Me.Panel2.ResumeLayout(False)
- Me.Panel2.PerformLayout()
- Me.ResumeLayout(False)
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.cbActorThumbsSize = New System.Windows.Forms.ComboBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseTMDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(587, 177)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.cbActorThumbsSize)
+ Me.GroupBox6.Location = New System.Drawing.Point(374, 98)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 73)
+ Me.GroupBox6.TabIndex = 5
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Actor Thumbs Size:"
+ '
+ 'cbActorThumbsSize
+ '
+ Me.cbActorThumbsSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbActorThumbsSize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbActorThumbsSize.FormattingEnabled = True
+ Me.cbActorThumbsSize.Items.AddRange(New Object() {"SY275_SX400", "SY720_SX1080", "SY1080_SX1920"})
+ Me.cbActorThumbsSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbActorThumbsSize.Name = "cbActorThumbsSize"
+ Me.cbActorThumbsSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbActorThumbsSize.TabIndex = 0
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(374, 11)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Enabled = False
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseTMDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 11)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox9.TabIndex = 3
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Images From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseTMDB
+ '
+ Me.chkUseTMDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseTMDB.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseTMDB.Name = "chkUseTMDB"
+ Me.chkUseTMDB.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseTMDB.TabIndex = 0
+ Me.chkUseTMDB.Text = "themoviedb.org"
+ Me.chkUseTMDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.GroupBox5)
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 214)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(587, 112)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(374, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 2
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
- End Sub
+ End Sub
Friend WithEvents pnlSettings As System.Windows.Forms.Panel
Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
@@ -492,5 +518,7 @@ Partial Class frmMediaSettingsHolder
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbActorThumbsSize As System.Windows.Forms.ComboBox
End Class
\ No newline at end of file
diff --git a/Addons/scraper.EmberCore/frmMediaSettingsHolder.resx b/Addons/scraper.EmberCore/frmMediaSettingsHolder.resx
index 3c46229..023cf14 100644
--- a/Addons/scraper.EmberCore/frmMediaSettingsHolder.resx
+++ b/Addons/scraper.EmberCore/frmMediaSettingsHolder.resx
@@ -165,74 +165,73 @@
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
- 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABypJREFUWEftlntQlccZ
- xrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj24wlxabt1PSShFhJEFEuKhxUBAFNRSFq
- 7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7z77v7rufAqBGkhGdXBb+fwH/GxG41Nen
- Pr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7PkZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2
- vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2mse+DyZ5+p/itXRMTopUWL6+gIedmZSIiJ
- Qk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGeko7AgH+vYlzU/DakpydomL+ufPnKzMiA+
- VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB+vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xq
- QhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQXpv/PSojDRtP6zN+/uU399je/fihg9szp
- KnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2lL1eipSkROyrr4eloQEMNcpKS3H8zx/g
- xSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpxeryaHhtdIquODA3WK1yQnYVshlrCWrAw
- D4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOWyxSmpszWPiNCggRzREigEqwCZPKkGQkS
- AZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4CbtbtwY0G3hNvvb244gKiwEYUFGc0RwkBKG
- RCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D557jY26tTEGL0N4cHG5kC40MB7FCShpjI
- cFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr1IcfgilGcICfOSwoQAnWCLBDzYiLUdHh
- oSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx44iPjkSQv6851GhQglUAcy8bUDFHJtks
- rYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbERYYj0M/HzCgowSogPipSJURHqciQYFME
- N+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+yt
- r8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJ
- oYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJVgFUJvlXnNzETYL3KnbA0mjBflbE4SBC
- N71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfmP0gFGXxNAb7eKGfprKutxZ7du4eFiJT8
- L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUHGSUvJoYG28vL/ysBMulG0wa8qAU0DBEt
- i6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrur
- q1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wG
- jVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F5yOngBuQTpSv57QSUVmzu5qVbRsm2dmg
- ZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQeK3zwglAU2OjLkwO45/FNhapvXW1oH84
- T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN+toa/TExLzmJV22mbldWVIgjXL9+Xd90
- srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI
- 1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4eL9np2kbGOTP00WHBvIiieBH5N0xzdR0t
- c8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5usvJYaLQPdH22W7HiXbdzo6TujlG4zx5
- UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7BAn7Alw5U50wms+3Cge7Ek3gTX+JH/ImB
- BAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/x
- Kb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVORK5CYII=
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABxxJREFUWEfFlnlQFFQc
+ x1+ZqWXHpCAKCgmCy70Hu1y7nB4gqCA3KiR4Jnmmi1tmxxiGWU12KpooIgqLCouKIKAlCnk1XoVYk6KN
+ oZY6zuQ48+33e9ViQhP9Q8x82Lfv997vfd/v997vrQDwv9JlZ0/SZWdP0mVnT9JlZ08i/11sbRXfX7wo
+ WltaxMYNBX3mzZ2TM35cVNmEmOiqCeOiLdS2JCfEW1KTEixJk+Itk1NTLNMyployJqdbMtLTZJv7kibF
+ WVITE+TYCTSH57KP8dFjzdOnZS6oO1Dbl9e799tvEquASz/+KNouX2YRvWdmTzOTI6SnJCEy1IDUpETM
+ nT0TceNjkRQfh0UL5mH6C5lITpiERfPnY/HCBUhJTEBWZgYWky15UjziYmPknPTkP3ykJSeCfc7PmWuh
+ dfr8dPWquNLW1iGgZFuxMJfuEGtWvxM7JjwM9+/fR1tbG4J0fqiprqYhwEsvzsGypUtke29VFeJJ0C+/
+ 3MTdu3eREDcRu3aWS9uK5a9iZnaWbB862IAArQa0Mfl9bGQ4lhmXJH3y0Vrx4QfvdwgYN2aUiBk7WpDa
+ 3AhSXLFrFwq/2IgAPzVWrVyJA7U1MiJZmVPRUF+H/FV5iI2Owq7yclgqKkChRn5eHg5/9SVmTc+i6MTj
+ QE0NaEPSx4b161BlqcSYiDD6rlpOGxOMVQApE1GjIsSosJBc3rU+QCd3ODklGSkUag5r5pR0TJs6BVPS
+ UpGVMRWzZ0wH5V7CO2YRYyMj5JyMyWlIpKgkUsrSKIVxseOkz2B/LWMK9vcTjFUALx49OpIjYGQBtfur
+ cefOHdy8cePfuXkDt2/dwnvvrsbSxYtwvb0dN6j/+vV22WZukb2+7gAMgf4I1GpMwTqtYDpFINwQbCRw
+ /tw5tNPEq1eudItbv/6K4qItFPLVuH37did7+88/40JLi0yBv0ZpCtJpKAWaDgFkkCJC9UHGMH0gjh5p
+ lAfnwnffoeVf4DGXL11CwbrPsfKtN2X74THs69jXX4NSDJ3a1xSoVQvGKoAMYnR4qAgJCjASdHoP4tvz
+ 53Hm9Olu0XqhFZ9+/BHeWPEaqKZ0sp8nX0cOH0ZEiB5apY8pQKMSjFVAZKhBiqAcGfmw1O7fj29OncLx
+ Y8e6xdkzZ0DXCq+9sgznzp7tZD918iTdnnqE64Pg5+ttoigIxiogwqAXkSEGoffXGYPpEO6xWNDc1IRG
+ Ut0dThw/jjX5+bJOnDh+opO96ehRVO/bh1CKrtrH0+Sn9BGMVUCYPogPIN9NI+UGO8vN+PLQITq5dd2i
+ sbFR1ouXFy3EEWo/bOeUVu7eLa+iysvDpPHxEoxVAOVdhAYHCioaRn+1EiXbtqGWCsm+vXu7RX1dPd56
+ fQUWzMtBQ0OD3O2DsC9zaamsrL4eChOJEIxVACnj/Ata3EiHBJsLN8FSacFuqojdgUUsf8WEnDmzUU2l
+ u4J2+yBVlNLirVtlVfR2dzP5eioEYxVAeaf8a4VW5WNU+3ihgEqnuawMO7Zv7xYsgvM/e0a2XLB0x46/
+ UW42YxOVdp3KF55uI0zeCjfBWAUE+qlFkFbDeTFSaLCxoOA/CeBFlxmXYpYUUNHJzr4KN20CHTy4j3A2
+ kQjBWAVQdaL8qwSdUKO7y3BZUHji1qKif6T4gU8em01PNL8fxVuL/7RtsY7dXlKCvLdX0u5doBgx3OTu
+ 6iwYqwC6m3QtvIXSyz3X9XlHuDg68HWRp1anUkLj6w0DtfVUyzmMfJi4ZPtrVBKunp4jXcFzOc+GAH9Q
+ NLnogFILlbcnXIY5wG24I9ycnUz0KeizQ0AIHUByInw8RuayytLtJVTZ1mKonQ1yl7xMdaESXCG5lu/d
+ U0U/POZjhNNQ+WQXF20mx05YSDegpnof6FmnB0eNqspKWZgcBg3EWipSO81lIP9wHma/3FvhKjwejID9
+ YDtBv3zEildNMWpSe+/ePfzw/UUMsXkO5WWlNASYGBNNT22SbBcVFrIjXLt2Tb50vLP1n38mbdkvZEih
+ /LenqhJ2A56lUnxOfueI5MyZmRhNvz2efebpDgH89wihcHPrpfTyKB0VZkBocIBMBR1QxEaNhheF2Jd2
+ MCEmilKggcLleXr/w0CvKOdVjptINrpefNLlHB7nTKEPCdTRQ2Sgh0hZMdLVtTevxX9WAb1ofeJJ6hv0
+ ZL9+LvaDbPMc7GwbHO0HNzkMsmkabPNck5PDEKZ5iO3AZschds3OjkObaYzEedjQZhorbTyGxw62GdBk
+ T3Od2Ied7UHymf90//6utIbto7QWr/mwgKcIB1LnTAyjtgsNVBAehBfhQ/gSSkJFqB+C+9jGY3gsz3En
+ FOyLfRLDeQ2iP/E3AX/BQh4lehGPEb2Jx4k+RF+i35888Q/8ZeexPIfnsg/2xT7ZN68h17MK+D/psrMn
+ 6bKz54D4Hdc/dStsxIkAAAAAAElFTkSuQmCC
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
- CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
- Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
- A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
- QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
- zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
- K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
- KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
- //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
- JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
- COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
- 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
- IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
- CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
- ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
- PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
- m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
- jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
- /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
- uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
- g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
- uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
- IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
- GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
- ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
\ No newline at end of file
diff --git a/Addons/scraper.EmberCore/frmMediaSettingsHolder.vb b/Addons/scraper.EmberCore/frmMediaSettingsHolder.vb
index eb04560..401240a 100644
--- a/Addons/scraper.EmberCore/frmMediaSettingsHolder.vb
+++ b/Addons/scraper.EmberCore/frmMediaSettingsHolder.vb
@@ -133,14 +133,14 @@ Public Class frmMediaSettingsHolder
Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
- Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
- Me.GroupBox3.Text = Master.eLang.GetString(467, "Images", True)
- Me.GroupBox4.Text = Master.eLang.GetString(108, "TMDB Extrathumbs Size:")
- Me.GroupBox1.Text = Master.eLang.GetString(109, "Trailers")
- Me.GroupBox5.Text = Master.eLang.GetString(110, "Youtube/TMDB Trailer:")
- Me.chkTrailerTMDBXBMC.Text = Master.eLang.GetString(111, "XBMC Format")
- Me.Label2.Text = Master.eLang.GetString(112, "Preferred language")
- Me.grpSaveFanart.Text = Master.eLang.GetString(113, "Save Fanart In:")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.GroupBox3.Text = Master.eLang.GetString(497, "Images", True)
+ Me.GroupBox4.Text = Master.eLang.GetString(108, "TMDB Extrathumbs Size:")
+ Me.GroupBox1.Text = Master.eLang.GetString(109, "Trailers")
+ Me.GroupBox5.Text = Master.eLang.GetString(110, "Youtube/TMDB Trailer:")
+ Me.chkTrailerTMDBXBMC.Text = Master.eLang.GetString(111, "XBMC Format")
+ Me.Label2.Text = Master.eLang.GetString(112, "Preferred language")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(113, "Save Fanart In:")
End Sub
Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
@@ -159,6 +159,10 @@ Public Class frmMediaSettingsHolder
RaiseEvent ModuleSettingsChanged()
End Sub
+ Private Sub cbActorThumbsSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbActorThumbsSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
RaiseEvent ModuleSettingsChanged()
End Sub
diff --git a/Addons/scraper.EmberCore/scraper.EmberCore.vbproj b/Addons/scraper.EmberCore/scraper.EmberCore.vbproj
index 675af3e..58452a4 100644
--- a/Addons/scraper.EmberCore/scraper.EmberCore.vbproj
+++ b/Addons/scraper.EmberCore/scraper.EmberCore.vbproj
@@ -298,15 +298,27 @@
+
+ PreserveNewest
+
PreserveNewest
PreserveNewest
-
+ PreserveNewest
+
+
+ PreserveNewest
+
+
+ PreserveNewest
+
+
+ PreserveNewest
+
Always
diff --git a/Addons/scraper.EmberCore/scraperMovieNativeModule.vb b/Addons/scraper.EmberCore/scraperMovieNativeModule.vb
index 8385e57..358521f 100644
--- a/Addons/scraper.EmberCore/scraperMovieNativeModule.vb
+++ b/Addons/scraper.EmberCore/scraperMovieNativeModule.vb
@@ -61,7 +61,9 @@ Public Class EmberNativeScraperModule
Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
- Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
#End Region 'Events
@@ -181,6 +183,7 @@ Public Class EmberNativeScraperModule
_setupPost.chkUseIMPA.Checked = MySettings.UseIMPA
_setupPost.chkUseMPDB.Checked = MySettings.UseMPDB
_setupPost.cbManualETSize.Text = MySettings.ManualETSize
+ _setupPost.cbActorThumbsSize.Text = MySettings.ActorThumbsSize
_setupPost.txtTimeout.Text = MySettings.TrailerTimeout.ToString
_setupPost.chkDownloadTrailer.Checked = MySettings.DownloadTrailers
_setupPost.CheckTrailer()
@@ -292,6 +295,7 @@ Public Class EmberNativeScraperModule
MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ MySettings.ActorThumbsSize = Convert.ToString(AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400"))
MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
ConfigScrapeModifier.DoSearch = True
@@ -410,11 +414,13 @@ Public Class EmberNativeScraperModule
End Try
End If
End If
- If Master.GlobalScrapeMod.Actors AndAlso AdvancedSettings.GetBooleanSetting("ScrapeActorsThumbs", False) Then
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
For Each act As MediaContainers.Person In DBMovie.Movie.Actors
Dim img As New Images
img.FromWeb(act.Thumb)
- img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
Next
End If
Master.GlobalScrapeMod = saveModifier
@@ -465,6 +471,7 @@ Public Class EmberNativeScraperModule
AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", MySettings.UseTMDBTrailerXBMC)
AdvancedSettings.SetSetting("ManualETSize", MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("ActorThumbsSize", MySettings.ActorThumbsSize.ToString)
AdvancedSettings.SetSetting("UseTMDBTrailerPref", MySettings.UseTMDBTrailerPref.ToString)
AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
@@ -482,6 +489,7 @@ Public Class EmberNativeScraperModule
MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ MySettings.ActorThumbsSize = _setupPost.cbActorThumbsSize.Text
MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
@@ -587,7 +595,7 @@ Public Class EmberNativeScraperModule
End If
End If
Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
- If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If dSearch.ShowDialog(tmpTitle, filterOptions, DBMovie.Filename) = Windows.Forms.DialogResult.OK Then
If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
End If
@@ -683,6 +691,7 @@ Public Class EmberNativeScraperModule
Dim UseIMDBTrailer As Boolean
Dim UseTMDBTrailerXBMC As Boolean
Dim ManualETSize As String
+ Dim ActorThumbsSize As String
Dim UseTMDBTrailerPref As String
#End Region 'Fields
diff --git a/Addons/scraper.EmberCore/scraperTVNativeModule.vb b/Addons/scraper.EmberCore/scraperTVNativeModule.vb
index 028ed1d..450e6d6 100644
--- a/Addons/scraper.EmberCore/scraperTVNativeModule.vb
+++ b/Addons/scraper.EmberCore/scraperTVNativeModule.vb
@@ -124,10 +124,10 @@ Public Class EmberNativeTVScraperModule
Return New Interfaces.ModuleResult With {.breakChain = False}
End Function
- Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Image, ByRef Image As Image) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleImage
- Image = TVScraper.GetSingleImage(Title, ShowID, TVDBID, Type, Season, Episode, Lang, Ordering, CurrentImage)
- Return New Interfaces.ModuleResult With {.breakChain = True}
- End Function
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images, ByRef Image As Images) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleImage
+ Image = TVScraper.GetSingleImage(Title, ShowID, TVDBID, Type, Season, Episode, Lang, Ordering, CurrentImage)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
Public Sub Handler_ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
RaiseEvent TVScraperEvent(eType, iProgress, Parameter)
diff --git a/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
new file mode 100644
index 0000000..cb66cd5
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+
+ tmdb1
+ tmdb2
+ tmdb3
+ tmdb4
+ tmdb5
+ tmdb6
+ tmdb7
+ tmdb8
+ tmdb9
+ tmdb10
+ tmdb11
+ tmdb12
+ tmdb13
+ tmdb14
+ tmdb15
+ tmdb16
+ tmdb17
+ tmdb18
+ tmdb19
+ tmdb20
+ tmdb21
+ tmdb22
+ tmdb23
+ tmdb24
+ tmdb25
+ tmdb26
+ tmdb27
+ tmdb28
+ tmdb29
+ tmdb30
+ tmdb31
+ tmdb32
+ tmdb33
+ tmdb34
+ tmdb35
+ tmdb36
+ tmdb37
+ tmdb38
+ tmdb39
+ tmdb40
+ tmdb41
+ tmdb42
+ tmdb43
+ tmdb44
+ tmdb45
+ tmdb46
+ tmdb47
+ tmdb48
+ tmdb49
+ tmdb50
+ tmdb51
+ tmdb52
+ tmdb53
+ tmdb54
+ tmdb55
+ tmdb56
+ tmdb57
+ tmdb58
+ tmdb59
+ tmdb60
+ tmdb61
+ tmdb62
+ tmdb63
+ tmdb64
+ tmdb65
+ tmdb66
+ tmdb67
+ tmdb68
+ tmdb69
+ tmdb70
+ tmdb71
+ tmdb72
+ tmdb73
+ tmdb74
+ tmdb75
+ tmdb76
+ tmdb77
+ tmdb78
+ tmdb79
+ tmdb80
+ tmdb81
+ tmdb82
+ tmdb83
+ tmdb84
+ tmdb85
+ tmdb86
+ tmdb87
+ tmdb88
+ tmdb89
+ tmdb90
+ tmdb91
+ tmdb92
+ tmdb93
+ tmdb94
+ tmdb95
+ tmdb96
+ tmdb97
+ tmdb98
+ tmdb99
+ tmdb100
+ tmdb101
+ tmdb102
+ tmdb103
+ tmdb104
+ tmdb105
+ tmdb106
+ tmdb107
+ tmdb108
+ tmdb109
+ tmdb110
+ tmdb111
+ tmdb112
+ tmdb113
+ tmdb114
+ tmdb115
+ tmdb116
+ tmdb117
+ tmdb118
+ tmdb119
+ tmdb120
+ tmdb121
+ tmdb122
+ tmdb123
+ tmdb124
+ tmdb125
+ tmdb126
+ tmdb127
+ tmdb128
+ tmdb129
+ tmdb130
+ tmdb131
+ tmdb132
+ tmdb133
+ tmdb134
+ tmdb135
+ tmdb136
+ tmdb137
+ tmdb138
+ tmdb139
+ tmdb140
+ tmdb141
+ tmdb142
+ tmdb143
+ tmdb144
+ tmdb145
+ tmdb146
+ tmdb147
+ tmdb148
+ tmdb149
+ tmdb150
+ tmdb151
+ tmdb152
+ tmdb153
+ tmdb154
+ tmdb155
+ tmdb156
+ tmdb157
+ tmdb158
+ tmdb159
+ tmdb160
+ tmdb161
+ tmdb162
+ tmdb163
+ tmdb164
+ tmdb165
+ tmdb166
+ tmdb167
+ tmdb168
+ tmdb169
+ tmdb170
+ tmdb171
+ tmdb172
+ tmdb173
+ tmdb174
+ tmdb175
+ tmdb176
+ tmdb177
+ tmdb178
+ tmdb179
+ tmdb180
+ tmdb181
+ tmdb182
+ tmdb183
+ tmdb184
+ tmdb185
+ tmdb186
+ tmdb187
+ tmdb188
+ tmdb189
+ tmdb190
+ tmdb191
+ tmdb192
+ tmdb193
+ tmdb194
+ tmdb195
+ tmdb196
+ tmdb197
+ tmdb198
+ tmdb199
+ tmdb200
+ tmdb201
+ tmdb202
+ tmdb203
+ tmdb204
+ tmdb205
+ tmdb206
+ tmdb207
+ tmdb208
+ tmdb209
+ tmdb210
+ tmdb211
+ tmdb212
+ tmdb213
+ tmdb214
+ tmdb215
+ tmdb216
+ tmdb217
+ tmdb218
+ tmdb219
+ tmdb220
+ tmdb221
+ tmdb222
+ tmdb223
+ tmdb224
+ tmdb225
+ tmdb226
+ tmdb227
+ tmdb228
+ tmdb229
+ tmdb230
+ tmdb231
+ tmdb232
+ tmdb233
+ tmdb234
+ tmdb235
+ tmdb236
+ tmdb237
+ tmdb238
+ tmdb239
+ tmdb240
+ tmdb241
+ tmdb242
+ tmdb243
+ tmdb244
+ tmdb245
+ tmdb246
+ tmdb247
+ tmdb248
+ tmdb249
+ tmdb250
+ tmdb251
+ tmdb252
+ tmdb253
+ tmdb254
+ tmdb255
+ tmdb256
+ tmdb257
+ tmdb258
+ tmdb259
+ tmdb260
+ tmdb261
+ tmdb262
+ tmdb263
+ tmdb264
+ tmdb265
+ tmdb266
+ tmdb267
+ tmdb268
+ tmdb269
+ tmdb270
+ tmdb271
+ tmdb272
+ tmdb273
+ tmdb274
+ tmdb275
+ tmdb276
+ tmdb277
+ tmdb278
+ tmdb279
+ tmdb280
+ tmdb281
+ tmdb282
+ tmdb283
+ tmdb284
+ tmdb285
+ tmdb286
+ tmdb287
+ tmdb288
+ tmdb289
+ tmdb290
+ tmdb291
+ tmdb292
+ tmdb293
+ tmdb294
+ tmdb295
+ tmdb296
+ tmdb297
+ tmdb298
+ tmdb299
+ tmdb300
+ tmdb301
+ tmdb302
+ tmdb303
+ tmdb304
+ tmdb305
+ tmdb306
+ tmdb307
+ tmdb308
+ tmdb309
+ tmdb310
+ tmdb311
+ tmdb312
+ tmdb313
+ tmdb314
+ tmdb315
+ tmdb316
+ tmdb317
+ tmdb318
+ tmdb319
+ tmdb320
+ tmdb321
+ tmdb322
+ tmdb323
+ tmdb324
+ tmdb325
+ tmdb326
+ tmdb327
+ tmdb328
+ tmdb329
+ tmdb330
+ tmdb331
+ tmdb332
+ tmdb333
+ tmdb334
+ tmdb335
+ tmdb336
+ tmdb337
+ tmdb338
+ tmdb339
+ tmdb340
+ tmdb341
+ tmdb342
+ tmdb343
+ tmdb344
+ tmdb345
+ tmdb346
+ tmdb347
+ tmdb348
+ tmdb349
+ tmdb350
+ tmdb351
+ tmdb352
+ tmdb353
+ tmdb354
+ tmdb355
+ tmdb356
+ tmdb357
+ tmdb358
+ tmdb359
+ tmdb360
+ tmdb361
+ tmdb362
+ tmdb363
+ tmdb364
+ tmdb365
+ tmdb366
+ tmdb367
+ tmdb368
+ tmdb369
+ tmdb370
+ tmdb371
+ tmdb372
+ tmdb373
+ tmdb374
+ tmdb375
+ tmdb376
+ tmdb377
+ tmdb378
+ tmdb379
+ tmdb380
+ tmdb381
+ tmdb382
+ tmdb383
+ tmdb384
+ tmdb385
+ tmdb386
+ tmdb387
+ tmdb388
+ tmdb389
+ tmdb390
+ tmdb391
+ tmdb392
+ tmdb393
+ tmdb394
+ tmdb395
+ tmdb396
+ tmdb397
+ tmdb398
+ tmdb399
+ tmdb400
+ tmdb401
+ tmdb402
+ tmdb403
+ tmdb404
+ tmdb405
+ tmdb406
+ tmdb407
+ tmdb408
+ tmdb409
+ tmdb410
+ tmdb411
+ tmdb412
+ tmdb413
+ tmdb414
+ tmdb415
+ tmdb416
+ tmdb417
+ tmdb418
+ tmdb419
+ tmdb420
+ tmdb421
+ tmdb422
+ tmdb423
+ tmdb424
+ tmdb425
+ tmdb426
+ tmdb427
+ tmdb428
+ tmdb429
+ tmdb430
+ tmdb431
+ tmdb432
+ tmdb433
+ tmdb434
+ tmdb435
+ tmdb436
+ tmdb437
+ tmdb438
+ tmdb439
+ tmdb440
+ tmdb441
+ tmdb442
+ tmdb443
+ tmdb444
+ tmdb445
+ tmdb446
+ tmdb447
+ tmdb448
+ tmdb449
+ tmdb450
+ tmdb451
+ tmdb452
+ tmdb453
+ tmdb454
+ tmdb455
+ tmdb456
+ tmdb457
+ tmdb458
+ tmdb459
+ tmdb460
+ tmdb461
+ tmdb462
+ tmdb463
+ tmdb464
+ tmdb465
+ tmdb466
+ tmdb467
+ tmdb468
+ tmdb469
+ tmdb470
+ tmdb471
+ tmdb472
+ tmdb473
+ tmdb474
+ tmdb475
+ tmdb476
+ tmdb477
+ tmdb478
+ tmdb479
+ tmdb480
+ tmdb481
+ tmdb482
+ tmdb483
+ tmdb484
+ tmdb485
+ tmdb486
+ tmdb487
+ tmdb488
+ tmdb489
+ tmdb490
+ tmdb491
+ tmdb492
+ tmdb493
+ tmdb494
+ tmdb495
+ tmdb496
+ tmdb497
+ tmdb498
+ tmdb499
+ tmdb500
+ tmdb501
+ tmdb502
+ tmdb503
+ tmdb504
+ tmdb505
+ tmdb506
+ tmdb507
+ tmdb508
+ tmdb509
+ tmdb510
+ tmdb511
+ tmdb512
+ tmdb513
+ tmdb514
+ tmdb515
+ tmdb516
+ tmdb517
+ tmdb518
+ tmdb519
+ tmdb520
+ tmdb521
+ tmdb522
+ tmdb523
+ tmdb524
+ tmdb525
+ tmdb526
+ tmdb527
+ tmdb528
+ tmdb529
+ tmdb530
+ tmdb531
+ tmdb532
+ tmdb533
+ tmdb534
+ tmdb535
+ tmdb536
+ tmdb537
+ tmdb538
+ tmdb539
+ tmdb540
+ tmdb541
+ tmdb542
+ tmdb543
+ tmdb544
+ tmdb545
+ tmdb546
+ tmdb547
+ tmdb548
+ tmdb549
+ tmdb550
+ tmdb551
+ tmdb552
+ tmdb553
+ tmdb554
+ tmdb555
+ tmdb556
+ tmdb557
+ tmdb558
+ tmdb559
+ tmdb560
+ tmdb561
+ tmdb562
+ tmdb563
+ tmdb564
+ tmdb565
+ tmdb566
+ tmdb567
+ tmdb568
+ tmdb569
+ tmdb570
+ tmdb571
+ tmdb572
+ tmdb573
+ tmdb574
+ tmdb575
+ tmdb576
+ tmdb577
+ tmdb578
+ tmdb579
+ tmdb580
+ tmdb581
+ tmdb582
+ tmdb583
+ tmdb584
+ tmdb585
+ tmdb586
+ tmdb587
+ tmdb588
+ tmdb589
+ tmdb590
+ tmdb591
+ tmdb592
+ tmdb593
+ tmdb594
+ tmdb595
+ tmdb596
+ tmdb597
+ tmdb598
+ tmdb599
+ tmdb600
+ tmdb601
+ tmdb602
+ tmdb603
+ tmdb604
+ tmdb605
+ tmdb606
+ tmdb607
+ tmdb608
+ tmdb609
+ tmdb610
+ tmdb611
+ tmdb612
+ tmdb613
+ tmdb614
+ tmdb615
+ tmdb616
+ tmdb617
+ tmdb618
+ tmdb619
+ tmdb620
+ tmdb621
+ tmdb622
+ tmdb623
+ tmdb624
+ tmdb625
+ tmdb626
+ tmdb627
+ tmdb628
+ tmdb629
+ tmdb630
+ tmdb631
+ tmdb632
+ tmdb633
+ tmdb634
+ tmdb635
+ tmdb636
+ tmdb637
+ tmdb638
+ tmdb639
+ tmdb640
+ tmdb641
+ tmdb642
+ tmdb643
+ tmdb644
+ tmdb645
+ tmdb646
+ tmdb647
+ tmdb648
+ tmdb649
+ tmdb650
+ tmdb651
+ tmdb652
+ tmdb653
+ tmdb654
+ tmdb655
+ tmdb656
+ tmdb657
+ tmdb658
+ tmdb659
+ tmdb660
+ tmdb661
+ tmdb662
+ tmdb663
+ tmdb664
+ tmdb665
+ tmdb666
+ tmdb667
+ tmdb668
+ tmdb669
+ tmdb670
+ tmdb671
+ tmdb672
+ tmdb673
+ tmdb674
+ tmdb675
+ tmdb676
+ tmdb677
+ tmdb678
+ tmdb679
+ tmdb680
+ tmdb681
+ tmdb682
+ tmdb683
+ tmdb684
+ tmdb685
+ tmdb686
+ tmdb687
+ tmdb688
+ tmdb689
+ tmdb690
+ tmdb691
+ tmdb692
+ tmdb693
+ tmdb694
+ tmdb695
+ tmdb696
+ tmdb697
+ tmdb698
+ tmdb699
+ tmdb700
+ tmdb701
+ tmdb702
+ tmdb703
+ tmdb704
+ tmdb705
+ tmdb706
+ tmdb707
+ tmdb708
+ tmdb709
+ tmdb710
+ tmdb711
+ tmdb712
+ tmdb713
+ tmdb714
+ tmdb715
+ tmdb716
+ tmdb717
+ tmdb718
+ tmdb719
+ tmdb720
+ tmdb721
+ tmdb722
+ tmdb723
+ tmdb724
+ tmdb725
+ tmdb726
+ tmdb727
+ tmdb728
+ tmdb729
+ tmdb730
+ tmdb731
+ tmdb732
+ tmdb733
+ tmdb734
+ tmdb735
+ tmdb736
+ tmdb737
+ tmdb738
+ tmdb739
+ tmdb740
+ tmdb741
+ tmdb742
+ tmdb743
+ tmdb744
+ tmdb745
+ tmdb746
+ tmdb747
+ tmdb748
+ tmdb749
+ tmdb750
+ tmdb751
+ tmdb752
+ tmdb753
+ tmdb754
+ tmdb755
+ tmdb756
+ tmdb757
+ tmdb758
+ tmdb759
+ tmdb760
+ tmdb761
+ tmdb762
+ tmdb763
+ tmdb764
+ tmdb765
+ tmdb766
+ tmdb767
+ tmdb768
+ tmdb769
+ tmdb770
+ tmdb771
+ tmdb772
+ tmdb773
+ tmdb774
+ tmdb775
+ tmdb776
+ tmdb777
+ tmdb778
+ tmdb779
+ tmdb780
+ tmdb781
+ tmdb782
+ tmdb783
+ tmdb784
+ tmdb785
+ tmdb786
+ tmdb787
+ tmdb788
+ tmdb789
+ tmdb790
+ tmdb791
+ tmdb792
+ tmdb793
+ tmdb794
+ tmdb795
+ tmdb796
+ tmdb797
+ tmdb798
+ tmdb799
+ tmdb800
+ tmdb801
+ tmdb802
+ tmdb803
+ tmdb804
+ tmdb805
+ tmdb806
+ tmdb807
+ tmdb808
+ tmdb809
+ tmdb810
+ tmdb811
+ tmdb812
+ tmdb813
+ tmdb814
+ tmdb815
+ tmdb816
+ tmdb817
+ tmdb818
+ tmdb819
+ tmdb820
+ tmdb821
+ tmdb822
+ tmdb823
+ tmdb824
+ tmdb825
+ tmdb826
+ tmdb827
+ tmdb828
+ tmdb829
+ tmdb830
+ tmdb831
+ tmdb832
+ tmdb833
+ tmdb834
+ tmdb835
+ tmdb836
+ tmdb837
+ tmdb838
+ tmdb839
+ tmdb840
+ tmdb841
+ tmdb842
+ tmdb843
+ tmdb844
+ tmdb845
+ tmdb846
+ tmdb847
+ tmdb848
+ tmdb849
+ tmdb850
+ tmdb851
+ tmdb852
+ tmdb853
+ tmdb854
+ tmdb855
+ tmdb856
+ tmdb857
+ tmdb858
+ tmdb859
+ tmdb860
+ tmdb861
+ tmdb862
+ tmdb863
+ tmdb864
+ tmdb865
+ tmdb866
+ tmdb867
+ tmdb868
+ tmdb869
+ tmdb870
+ tmdb871
+ tmdb872
+ tmdb873
+ tmdb874
+ tmdb875
+ tmdb876
+ tmdb877
+ tmdb878
+ tmdb879
+ tmdb880
+ tmdb881
+ tmdb882
+ tmdb883
+ tmdb884
+ tmdb885
+ tmdb886
+ tmdb887
+ tmdb888
+ tmdb889
+ tmdb890
+ tmdb891
+ tmdb892
+ tmdb893
+ tmdb894
+ tmdb895
+ tmdb896
+ tmdb897
+ tmdb898
+ tmdb899
+ tmdb900
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
new file mode 100644
index 0000000..5e87256
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
@@ -0,0 +1,31 @@
+
+ Enable or disable this module.
+ Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)
+ Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)
+ API Key from the TMDB site. Sharing the API key is forbidden.
+ Enable scraping movie certification.
+ Selected language for TMDB searches
+ If no record is available for selected language try English
+ Enable scraping movie other crew. (Scrape Full Crew must be enabled)
+ Enable scraping movie studio.
+ Enable scraping movie runtime.
+ Enable scraping movie plot.
+ Enable scraping movie outline.
+ Enable scraping movie genre.
+ Enable scraping movie tagline.
+ Enable scraping movie cast.
+ Enable scraping movie votes.
+ Enable scraping movie rating.
+ Enable scraping movie release date.
+ Enable scraping movie MPAA.
+ Enable scraping movie year.
+ Enable scraping movie title.
+ Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)
+ Enable or disable this module.
+ Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)
+ Enable scraping posters from this module. (Refer to global poster settings for more options)
+ Enable scraping fanart from this module. (Refer to global fanart settings for more options)
+ Enable trailer downloading from this module. (Refer to global trailer settings for more options)
+ Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)
+ Select the sites from which you would like to retrieve trailer URLs and/or files.
+
diff --git a/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
new file mode 100644
index 0000000..cf68bc8
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
@@ -0,0 +1,126 @@
+
+ Ember Native TV Scrapers
+ Use OFDB Genre
+ Use OFDB Plot
+ Use OFDB Outline
+ Use OFDB Title
+ TMDB Mirror:
+ Scraper Fields - Scraper specific
+ Timeout:
+ Supported Sites:
+ Get Images From:
+ Search Results
+ Searching TMDB...
+ The ID you entered is not a valid IMDB ID.
+ You have manually entered an IMDB ID but have not verified it is correct.
+ Continue without verification?
+ Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.
+ Verification Failed
+ No Matches Found
+ View details of each result to find the proper movie.
+ Movie Search Results
+ Manual IMDB Entry:
+ Verify
+ Searching TMDB...
+ Downloading details...
+ Downloading {0}
+ No Fanart found for this movie.
+ No Fanart Found
+ No Posters found for this movie.
+ No Posters Found
+ Retrieving data from TheMovieDB.com...
+ TheMovieDB.com is not enabled
+ Retrieving data from IMPAwards.com...
+ IMPAwards.com is not enabled
+ Retrieving data from MoviePosterDB.com...
+ MoviePostersDB.com is not enabled
+ Preparing images...
+ Select Poster
+ Select Fanart
+ Check All Thumb
+ Check All Mid
+ Check All Original
+ Selected item will be set as fanart. All checked items will be saved to \extrathumbs.
+ Performing Preliminary Tasks...
+ Downloading Selected Image...
+ Original
+ Cover
+ Medium
+ Small
+ Original ({0}x{1})
+ Cover ({0}x{1})
+ Small ({0}x{1})
+ Medium ({0}x{1})
+ Multiple
+ Downloading selected trailer...
+ Copying specified file to trailer...
+ The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.
+ Error Playing Trailer
+ Move
+ Copy
+ Moving specified file to trailer...
+ Set To Nfo
+ Select Trailer
+ Select Trailer to Download
+ Manual Trailer Entry
+ Direct Link or YouTube URL:
+ Compiling trailer list...
+ Preview Trailer
+ Local Trailer:
+ The video format links could not be retrieved.
+ Error Retrieving Video Format Links
+ Select Format
+ Getting available formats...
+ Available Formats
+ A poster of your preferred size could not be found. Please choose another.
+ No Preferred Size
+ Fanart of your preferred size could not be found. Please choose another.
+ There are no known episodes for this show. Scrape the show, season, or episode and try again.
+ No Known Episodes
+ There is no poster available for this episode.
+ Guest Star
+ The ID you entered is not a valid TVDB ID.
+ Downloading show info...
+ TV Search Results
+ View details of each result to find the proper TV show.
+ Downloading Fullsize Fanart Image...
+ Loading Current Images...
+ (Down)Loading New Images...
+ Setting Defaults...
+ Show Poster
+ Episode Fanart
+ Show Fanart
+ All Seasons Poster
+ Season Posters
+ Season Fanart
+ Season {0} Posters
+ Season {0} Fanart
+ TV Image Selection
+ Current Image:
+ Get Posters
+ Get Fanart
+ These settings are specific to this module.{0}Please refer to the global settings for more options.
+ Ember TMDB Movie Scrapers
+ IMDB
+ OFDB (German)
+ TMDB Extrathumbs Size:
+ Trailers
+ Youtube/TMDB Trailer:
+ XBMC Format
+ Preferred language
+ Save Fanart In:
+ Fall back on english
+ Preferred Language:
+ TMDBid:
+ Retrieving data from IMDB.com...
+ IMDB.com is not enabled
+ TheMovieDB API is missing or not valid
+ Retrieving data from Fanart.tv...
+ Fanart.tv is not enabled
+ Get your API Key from www.themoviedb.org
+ Get your API Key from fanart.tv
+
diff --git a/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..d2a3801
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
@@ -0,0 +1,31 @@
+
+ Aktiviert oder deaktiviert dieses Modul.
+ Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)
+ Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)
+ API-Key von der TMDB-Website. Gemeinsame Nutzung des API-Schlüssels ist verboten.
+ Das Scrapen von Altersbeschränkungen einschalten.
+ Wähle die Sprache in der auf TMDB gesucht werden soll
+ Wenn kein Datensatz für die gewählte Sprache verfügbar ist versuche englischen zu nehmen.
+ Das Scrapen von der restlichen Crew einschalten. ("Gesamte Crew Scrapen" muss eingeschaltet sein)
+ Das Scrapen von Studios einschalten.
+ Das Scrapen von Spielzeiten einschalten.
+ Das Scrapen von Inhaltsangaben einschalten.
+ Das Scrapen von Kurzbeschreibungen einschalten.
+ Das Scrapen von Genres einschalten.
+ Das Scrapen von Taglines einschalten.
+ Das Scrapen von Schauspielern einschalten.
+ Das Scrapen von Anzahl Bewertungen einschalten.
+ Das Scrapen von Bewertungen einschalten.
+ Das Scrapen von Premiere-Daten einschalten.
+ Das Scrapen von MPAA-Informationen einschalten.
+ Das Scrapen von Filmjahren einschalten.
+ Das Scrapen von Filmtiteln einschalten.
+ Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)
+ Aktiviert oder deaktiviert dieses Modul.
+ Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)
+ Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration)
+ Aktiviert das Laden von Fanarts mit diesem Modul. (Schau auch in die Globale Konfiguration)
+ Aktiviert das Laden von Trailern mit diesem Modul. (Schau auch in die Globale Konfiguration)
+ Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Seite in dieser Zeit nicht geantwortet hat wird sie übersprungen)
+ Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.
+
diff --git a/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
new file mode 100644
index 0000000..9b8e52e
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
@@ -0,0 +1,126 @@
+
+ Ember Nativer TV Scraper
+ OFDB Genre benutzen
+ OFDB Handlung benutzen
+ OFDB Kurzbeschr. benutzen
+ OFDB Titel benutzen
+ TMDB Mirror:
+ Scraper Felder - Scraper spezifisch
+ Timeout:
+ Unterstützte Seiten:
+ Bilder holen von:
+ Suchergebnis
+ Suche in der TMDB...
+ Die eingegebene ID ist keine gültige IMDB ID.
+ Die IMDB ID ist noch nicht geprüft.
+ Ohne Prüfung fortfahren?
+ Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.
+ Prüfung fehlgeschlagen
+ Keine Treffer
+ Schaue dir die Details an um den richtigen Film zu finden.
+ Film Suchergebnis
+ Man. IMDB ID:
+ Prüfen
+ Suche in der TMDB...
+ Lade Details...
+ Lade {0} herunter
+ Kein Fanart für diesen Film gefunden.
+ Kein Fanart gefunden
+ Kein Poster für diesen Film gefunden.
+ Kein Poster gefunden
+ Lade Daten von TheMovieDB.com...
+ TheMovieDB.com ist nicht aktiviert
+ Lade Daten von IMPAwards.com...
+ IMPAwards.com ist nicht aktiviert
+ Lade Daten von MoviePosterDB.com...
+ MoviePostersDB.com ist nicht aktiviert
+ Bereite Bilder vor...
+ Wähle Poster
+ Wähle Fanart
+ Wähle alle Thumb
+ Wähle alle Mittl.
+ Wähle alle Original
+ Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.
+ Vorarbeit läuft...
+ Lade gewähltes Bild...
+ Original
+ Cover
+ Medium
+ Klein
+ Original ({0}x{1})
+ Cover ({0}x{1})
+ Klein ({0}x{1})
+ Mittel ({0}x{1})
+ Mehrfach
+ Lade gewählten Trailer...
+ Kopiere gewählten Trailer...
+ Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.
+ Fehler beim Abspielen des Trailers
+ Verschieben
+ Kopieren
+ Verschiebe gewählten Treiler...
+ In NFO speichern
+ Trailer wählen
+ Trailer zum laden wählen
+ Manueller Trailer
+ Direkter Link oder YouTube URL:
+ Stelle Trailerliste zusammen...
+ Trailer Vorschau
+ Loakler trailer:
+ Fehler beim generieren der Videoformat Linkliste.
+ Fehler beim Generieren der Videoformat Links.
+ Wähle Format
+ Hole verfügbare Formate...
+ Verfügbare Formate
+ Es konnte kein Poster in der bevorzugten Größe gefunden werden. Wähle ein anderes.
+ Keine bevorzugte Größe
+ Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.
+ Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.
+ Keine Episoden verfügbar
+ Kein Poster für diese Episode vorhanden.
+ Gaststar
+ Die eingegebene ID ist keine gültige TMDB ID.
+ Lade Serien Informationen...
+ Serien Suchergebnis
+ Betrachte die Details um die richtige TV-Serie zu erkennen.
+ Lade Fanart in Originalgröße...
+ Lade aktuelle Bilder...
+ Lade neue Bilder...
+ Setze Standardwerte...
+ Serien Poster
+ Episoden Fanart
+ Serien Fanart
+ Alle-Staffeln Poster
+ Staffel Poster
+ Staffel Fanart
+ Staffel {0} Poster
+ Staffel {0} Fanart
+ Bilderwahl TV-Serien
+ Aktuelles Bild:
+ Poster laden
+ Fanart laden
+ Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen Blick in die Globalen Einstellungen für noch mehr Optionen.
+ Ember TMDB Movie Scrapers
+ IMDB
+ OFDB (German)
+ TMDB Extrathumbs Grösse:
+ Trailer
+ Youtube/TMDB Trailer:
+ XBMC Format
+ Bevorzugte Sprache
+ Speichere Fanart in:
+ Verwende Englisch wenn nichts verfügbar
+ Bevorzugte Sprache:
+ TMDBid:
+ Lade Daten von IMDB.com...
+ IMDB.com ist nicht aktiviert.
+ Die TheMovieDB API ist nicht vorhanden oder ungültig
+ Lade Daten von Fanart.tv...
+ Fanart.tv ist nicht aktiviert
+ Get your API Key from www.themoviedb.org
+ Get your API Key from fanart.tv
+
diff --git a/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..54809c6
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,31 @@
+
+ Slå denne modulen på eller av.
+ Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)
+ Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)
+ API-nøkkel fra TMDB-siden. Deling av denne nøkkelen er forbudt.
+ Slå på detaljhenting av filmsertifisering.
+ Valgt språk for TMDB-søk.
+ Hvis valgt språk ikke blir funnet, prøv engelsk.
+ Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)
+ Slå på detaljhenting av filmstudio.
+ Slå på detaljhenting av filmlengde.
+ Slå på detaljhenting av filmens historie.
+ Slå på detaljhenting av filmens beskrivelse.
+ Slå på detaljhenting av filmens sjanger.
+ Slå på detaljhetning av filmens undertittel.
+ Slå på detaljhetning av filmens skuespillerbeholdning.
+ Slå på detaljhetning av filmens poeng.
+ Slå på detaljhetning av filmens aldersgrense.
+ Slå på detaljhetning av filmens premieredato.
+ Slå på detaljhetning av filmens MPAA-markering.
+ Slå på detaljhetning av filmens år.
+ Slå på detaljhetning av filmens tittel.
+ Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)
+ Slå denne modulen på eller av.
+ Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)
+ Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)
+ Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)
+ Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)
+ Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)
+ Velg sidene du vil bruke til trailer URL og/eller filer.
+
diff --git a/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..3ee8a25
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
@@ -0,0 +1,126 @@
+
+ EMM TV-detaljhentere
+ Bruk OFDB-sjangere
+ Bruk OFDB-filmhistorie
+ Bruk OFDB-beskrivelse
+ Bruk OFDB-tittel
+ TMDB-speilserver:
+ Detaljhenterområder - Detaljhenterspesifikk
+ Tidsavbrudd:
+ Støttede sider:
+ Hent bilder fra:
+ Søkeresultater
+ Søker TMDB...
+ IDen du førte inn er ikke en riktig IMDB-ID.
+ Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.
+ Fortsette uten verifisering?
+ Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.
+ Verifisering feilet
+ Ingen funnet
+ Se detaljer fra hvert treff for å finne riktig film.
+ Filmsøkresultater
+ Manuell IMDB innføring:
+ Verifiser
+ Søker TMDB...
+ Laster ned detaljer...
+ Laster ned {0}
+ Ingen fankunst funnet for denne filmen.
+ Ingen fankunst funnet
+ Ingen plakater funnet for denne filmen.
+ Ingen plakater funnet
+ Henter data fra TheMovieDB.com...
+ TheMovieDB.com er ikke påslått
+ Henter data fra IMPAwards.com...
+ IMPAwards.com er ikke påslått
+ Henter data fra MoviePosterDB.com...
+ MoviePostersDB.com er ikke påslått
+ Forbereder bilder...
+ Velg plakat
+ Velg fankunst
+ Huk av alle tommelbilder
+ Huk av alle Mid
+ Huk av alle originale
+ Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.
+ Utfører forberedende oppgaver...
+ Laster ned valgte bilde...
+ Original
+ Cover
+ Medium
+ Liten
+ Original ({0}x{1})
+ Cover ({0}x{1})
+ Liten ({0}x{1})
+ Medium ({0}x{1})
+ Flere
+ Laster ned valgt trailer...
+ Kopierer valgt fil til trailer...
+ Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.
+ Kan ikke spille av trailer
+ Flytt
+ Kopiér
+ Flytter valgt fil til trailer...
+ Sett i nfo
+ Velg trailer
+ Velg trailer til å laste ned
+ Manuell trailerinnføring
+ Direkte link eller YouTube URL:
+ Kompilerer trailerliste...
+ Sniktitt på trailer
+ Lokal trailer:
+ Videoformatlenkene kunne ikke hentes
+ Kunne ikke hente videoformatlenker
+ Velg format
+ Henter tilgjengelige formater...
+ Tilgjengelige formater
+ En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.
+ Ingen foretrukket størrelse
+ Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.
+ Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.
+ Ingen kjente episoder
+ Det er ingen plakater for denne episoden.
+ Gjesteskuespiller
+ IDen du innførte er ikke en gyldig TVDB ID.
+ Laster ned serieinfo...
+ TVsøk-resultater
+ Se detaljer fra hvert resultat for å finne riktig serie.
+ Laster ned fankunst i full størrelse...
+ Laster inn nåværende bilder...
+ Laster (ned) nye bilder...
+ Setter standarder...
+ Serieplakat
+ Episode-fankunst
+ Seriefankunst
+ Alle sesonger-plakat
+ Sesongplakat
+ Sesongfankunst
+ Sesong {0}-plakater
+ Sesong {0}-fankunst
+ TV-bilde valg
+ Nåværende bilde:
+ Hent plakater
+ Hent fankunst
+ Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.
+ EMM TMDB film-detaljhentere
+ IMDB
+ OFDB (Tysk)
+ TMDB Ekstrakunst-størrelse:
+ Trailere
+ Youtube/TMDB Trailer:
+ XBMC-format
+ Foretrukket språk
+ Lagre fankunst i:
+ Fall tilbake til engelsk
+ Foretrukket språk:
+ TIMDB-ID:
+ Henter data fra IMDB.com...
+ IMDB.com er ikke påslått
+ TheMovieDB API mangler eller er ikke gyldig
+ Henter data fra Fanart.tv...
+ Fanart.tv er ikke påslått
+ Hent din API-nøkkel fra www.themoviedb.org
+ Hent din API-nøkkel fra fanart.tv
+
diff --git a/Addons/scraper.FanartTV.Poster/My Project/Application.Designer.vb b/Addons/scraper.FanartTV.Poster/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.FanartTV.Poster/My Project/Application.myapp b/Addons/scraper.FanartTV.Poster/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/My Project/Application.myapp
@@ -0,0 +1,10 @@
+
+
+ false
+ false
+ 0
+ true
+ 0
+ 1
+ true
+
diff --git a/Addons/scraper.FanartTV.Poster/My Project/AssemblyInfo.vb b/Addons/scraper.FanartTV.Poster/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..714e53f
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+
+
+
+
+
+
+
+
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+'
+
+
+
diff --git a/Addons/scraper.FanartTV.Poster/My Project/Resources.Designer.vb b/Addons/scraper.FanartTV.Poster/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''
+ _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''
+ _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''
+ _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.FanartTV.Poster/My Project/Resources.resx b/Addons/scraper.FanartTV.Poster/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/My Project/Resources.resx
@@ -0,0 +1,117 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/My Project/Settings.Designer.vb b/Addons/scraper.FanartTV.Poster/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ _
+ Friend Module MySettingsProperty
+
+ _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.FanartTV.Poster/My Project/Settings.settings b/Addons/scraper.FanartTV.Poster/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/My Project/Settings.settings
@@ -0,0 +1,7 @@
+
+
+
+
+
diff --git a/Addons/scraper.FanartTV.Poster/Resources/Logo.png b/Addons/scraper.FanartTV.Poster/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.FanartTV.Poster/Resources/Logo.png differ
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeFANARTTV.vb b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeFANARTTV.vb
new file mode 100644
index 0000000..13c1748
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeFANARTTV.vb
@@ -0,0 +1,173 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see -poster.jpg/png and -banner.jpg/png or poster.jpg/png and banner.jpg/png)
+' # Movie Thumbs -> landscape.png
+' # Special note - the Logos and ClearArts are language-specific and should be tagged with the appropriate language. Will want to have a setting allowing users to specify a language so as not to get a bunch of foreign-language artwork.
+' # 1) Logo.png - to be added at a later stage, today is not possible to save
+' # 2) Clearart.png - to be added at a later stage, today is not possible to save
+' # 3) Disc.png - to be added at a later stage, today is not possible to save
+' # 4) Landscape.png - to be added at a later stage, today is not possible to save
+' # language is in image properties
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports FanartTVAPI
+
+Namespace FANARTTVs
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _FanartTV As FanartTV.V1.FanartTV
+ Friend WithEvents bwFANARTTV As New System.ComponentModel.BackgroundWorker
+ Private _APIInvalid As Boolean = False
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _FanartTV = New FanartTV.V1.FanartTV(_MySettings.FANARTTVApiKey)
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest("1", "JSON", "all", 1, 1))
+ If IsNothing(Result) Then
+ If Not IsNothing(_FanartTV.Error) Then
+ Master.eLog.WriteToErrorLog(_FanartTV.Error, "", "Error")
+ _APIInvalid = True
+ End If
+ End If
+ End Sub
+
+ Public Sub Cancel()
+ If Me.bwFANARTTV.IsBusy Then Me.bwFANARTTV.CancelAsync()
+
+ While Me.bwFANARTTV.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwFANARTTV.IsBusy Then
+ bwFANARTTV.WorkerSupportsCancellation = True
+ bwFANARTTV.WorkerReportsProgress = True
+ bwFANARTTV.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetFANARTTVImages(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ If _APIInvalid Then
+ Return Nothing
+ End If
+ Try
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest(imdbID, "JSON", "all", 1, 2))
+ If bwFANARTTV.CancellationPending Then Return Nothing
+ If IsNothing(Result) Then Return alPoster
+ If IsNothing(Result.movieinfo.moviebackground) Then Return alPoster
+ For Each image In Result.movieinfo.moviebackground
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = image.url})
+ alPoster.Add(New MediaContainers.Image With {.Description = "thumb", .URL = image.url & "/preview"})
+ Next
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwFANARTTVA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTV.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetFANARTTVImages(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTV_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTV.ProgressChanged
+ If Not bwFANARTTV.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwFANARTTV_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTV.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeIMDB.vb b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..ec6d1be
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,174 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see
") + If W > 0 Then + B = tmpHTML.IndexOf(" ", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("
", String.Empty).Replace(vbCrLf, " ").Trim) + End If + End If + End If + + Catch ex As Exception + Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error") + End Try + + Return FullPlot + End Function + + Private Sub GetOFDBDetails() + Dim sURL As String = GetOFDBUrlFromIMDBID() + + Try + If Not String.IsNullOrEmpty(sURL) Then + Dim sHTTP As New HTTP + Dim HTML As String = sHTTP.DownloadData(sURL) + sHTTP = Nothing + + If Not String.IsNullOrEmpty(Html) Then + 'title + If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then + Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, ".*?)[""'].*?>(?.*?) ")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, " 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTMDB.vb b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..9db6818
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,282 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see ....Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB................Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB................Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB.............Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB......... Select tNode.
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTMDBg.vb b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTMDBg.vb
new file mode 100644
index 0000000..86f6083
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTMDBg.vb
@@ -0,0 +1,723 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see
+ '' ...
+ '' Name of the tag
+ '' ...
+ ''
+ If Options.bTitle Then
+ IMDBMovie.OriginalTitle = CStr(IIf(String.IsNullOrEmpty(Movie.original_title) AndAlso _MySettings.FallBackEng, MovieE.original_title, Movie.original_title))
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ IMDBMovie.Title = CStr(IIf(String.IsNullOrEmpty(Movie.title) AndAlso _MySettings.FallBackEng, MovieE.title, Movie.title))
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ ' I will add original always. to be updated if size, TMDBConf.images.poster_sizes(0) &
+ Dim Images As WatTmdb.V3.TmdbMovieImages
+ Images = _TMDBApi.GetMovieImages(Movie.id, _MySettings.TMDBLanguage)
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If (Images.posters.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ End If
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If Images.posters.Count > 0 Then
+ _sPoster = _TMDBConf.images.base_url & "w92" & Images.posters(0).file_path
+ Else
+ _sPoster = ""
+ End If
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Left(CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date)), 4)
+
+ Dim Releases As WatTmdb.V3.TmdbMovieReleases = Nothing
+ If Options.bMPAA Then
+ IMDBMovie.MPAA = ""
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each Country In Releases.countries
+ If Country.iso_3166_1.ToUpper = CStr(IIf(Master.eSettings.CertificationLang = "", "US", Master.eSettings.CertificationLang)) Then
+ IMDBMovie.MPAA = Country.certification
+ Exit For
+ End If
+ Next
+ End If
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ IMDBMovie.ReleaseDate = CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date))
+ End If
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ IMDBMovie.Rating = CStr(IIf(IsNothing(Movie.vote_average) AndAlso Movie.vote_average = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_average, Movie.vote_average))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ Dim Trailers As WatTmdb.V3.TmdbMovieTrailers
+ Trailers = _TMDBApi.GetMovieTrailers(Movie.id)
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If (Trailers.youtube.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ End If
+
+ IMDBMovie.Trailer = ""
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If Trailers.youtube.Count > 0 Then
+ IMDBMovie.Trailer = "http://www.youtube.com/watch?hd=1&v=" & Trailers.youtube(0).source
+ End If
+ End If
+
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then
+ IMDBMovie.Votes = CStr(IIf(IsNothing(Movie.vote_count) AndAlso Movie.vote_count = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_count.ToString(), Movie.vote_count.ToString()))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Dim aCast As WatTmdb.V3.TmdbMovieCast = Nothing
+ If Options.bCast Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.cast.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+
+ Dim Cast As New List(Of MediaContainers.Person)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ For Each aAc As WatTmdb.V3.Cast In aCast.cast
+ Dim aPer As New MediaContainers.Person
+ aPer.Name = aAc.name
+ aPer.Role = aAc.character
+ ' to be added / dialog to choose the size of the images
+ aPer.Thumb = _TMDBConf.images.base_url & "original" & aAc.profile_path
+ Cast.Add(aPer)
+ Next
+ End If
+ IMDBMovie.Actors = Cast
+ End If
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+ IMDBMovie.Tagline = CStr(IIf(String.IsNullOrEmpty(IMDBMovie.Tagline) AndAlso _MySettings.FallBackEng, MovieE.tagline, Movie.tagline))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ If IsNothing(Releases) Then
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Countries.Clear()
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each aCo As WatTmdb.V3.ReleaseCountry In Releases.countries
+ IMDBMovie.Countries.Add(aCo.iso_3166_1)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ IMDBMovie.Genres.Clear()
+ Dim tGen As System.Collections.Generic.List(Of WatTmdb.V3.MovieGenre)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tGen = CType(IIf(Movie.genres.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.genres, Movie.genres), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ Else
+ tGen = CType(IIf(_MySettings.FallBackEng, MovieE.genres, Nothing), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ End If
+
+
+ If Not IsNothing(tGen) Then
+ For Each aGen As WatTmdb.V3.MovieGenre In tGen
+ IMDBMovie.Genres.Add(aGen.name)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+ IMDBMovie.Outline = CStr(IIf(String.IsNullOrEmpty(Movie.overview) AndAlso _MySettings.FallBackEng, MovieE.overview, Movie.overview))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ Else
+ IMDBMovie.Plot = ""
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then
+ IMDBMovie.Runtime = CStr(IIf(IsNothing(Movie.runtime) AndAlso Movie.runtime = 0 AndAlso _MySettings.FallBackEng, MovieE.runtime.ToString(), Movie.runtime.ToString()))
+ End If
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ tStr = ""
+ Dim tPC As System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tPC = CType(IIf(Movie.production_companies.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.production_companies, Movie.production_companies), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ Else
+ tPC = CType(IIf(_MySettings.FallBackEng, MovieE.production_companies, Nothing), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ End If
+
+ If Not IsNothing(tPC) Then
+ For Each aPro As WatTmdb.V3.ProductionCompany In tPC
+ tStr = tStr & " / " & aPro.name
+ Next
+ End If
+ If Len(tStr) > 3 Then
+ tStr = Trim(Right(tStr, Len(tStr) - 3))
+ End If
+ IMDBMovie.Studio = tStr
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Or Options.bWriters Or Options.bDirector Then
+ If IsNothing(aCast) Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.crew.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Credits.Clear()
+ IMDBMovie.Directors.Clear()
+ If Not IsNothing(aCast.crew) Then
+ For Each aAc As WatTmdb.V3.Crew In aCast.crew
+ If FullCrew Then
+ IMDBMovie.Credits.Add(aAc.name)
+ ElseIf Options.bWriters Then
+ If aAc.department = "Writing" AndAlso aAc.job = "Writer" Then
+ IMDBMovie.Credits.Add(aAc.name)
+ End If
+ End If
+ If Options.bDirector Then
+ If aAc.job = "Director" Then
+ IMDBMovie.Directors.Add(aAc.name)
+ End If
+ End If
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ If Movie.production_companies.Count = 0 And _MySettings.FallBackEng Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, "en")
+ End If
+ For Each aComp In Movie.production_companies
+ alStudio.Add(aComp.name)
+ Next
+
+ Return alStudio
+
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgTMDBSearchResults(_MySettings, Me)
+
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.Matches)
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ b = GetMovieInfo(r.Matches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, _
+ .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBg.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(_sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ 'Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ ' Dim fTitle As String = oTitle
+ ' Dim Movie As WatTmdb.V3.TmdbMovie
+
+ ' Try
+ ' '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ ' If Left(strID.ToLower(), 4) = "tt" Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), _MySettings.TMDBLanguage)
+ ' If IsNothing(Movie) And _MySettings.FallBackEng Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), "en")
+ ' End If
+ ' Else
+ ' Movie = _TMDBApi.GetMovieByIMDB(strID)
+ ' End If
+
+ ' fTitle = Movie.title
+
+ ' Return fTitle
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' Return fTitle
+ ' End Try
+ 'End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+ Dim R As New MovieSearchResults
+ Dim Page As Integer = 1
+ Dim Movies As WatTmdb.V3.TmdbMovieSearch
+ Dim TotP As Integer
+ Dim aE As Boolean
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ If Movies.total_results = 0 And _MySettings.FallBackEng Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ aE = True
+ End If
+ If Movies.total_results > 0 Then
+ Dim t1 As String
+ Dim t2 As String
+ Dim t3 As String
+ TotP = Movies.total_pages
+ While Page <= TotP And Page <= 3
+ For Each aMovie In Movies.results
+ Dim aMI As WatTmdb.V3.TmdbMovie
+ aMI = _TMDBApi.GetMovieInfo(aMovie.id)
+ If IsNothing(aMI) Then
+ aMI = _TMDBApiE.GetMovieInfo(aMovie.id)
+ End If
+ If IsNothing(aMI.imdb_id) Then
+ t1 = ""
+ Else
+ t1 = aMI.imdb_id.ToString
+ End If
+ t2 = CStr(IIf(String.IsNullOrEmpty(aMovie.title), "", aMovie.title))
+ t3 = Left(CStr(IIf(String.IsNullOrEmpty(aMovie.release_date), "", aMovie.release_date)), 4)
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(t1, t2, t3, 0)
+ lNewMovie.TMDBID = aMI.id.ToString
+ R.Matches.Add(lNewMovie)
+ Next
+ Page = Page + 1
+ If aE Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ Else
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ End If
+
+ End While
+ End If
+
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+ 'Dim TMDBConf As V3.TmdbConfiguration
+ 'Dim TMDBApi As V3.Tmdb
+ 'Dim FallBackEng As Boolean
+ 'Dim TMDBLang As String
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTrailers.vb b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..72ce5f8
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlIMDB = New System.Windows.Forms.Panel()
+ Me.lblDL6Status = New System.Windows.Forms.Label()
+ Me.lblDL6 = New System.Windows.Forms.Label()
+ Me.pbDL6 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlFANARTTV = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlMDB = New System.Windows.Forms.Panel()
+ Me.lblDL5Status = New System.Windows.Forms.Label()
+ Me.lblDL5 = New System.Windows.Forms.Label()
+ Me.pbDL5 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL4Status = New System.Windows.Forms.Label()
+ Me.lblDL4 = New System.Windows.Forms.Label()
+ Me.pbDL4 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTMDB = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlIMDB.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.pnlFANARTTV.SuspendLayout()
+ Me.pnlMDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlTMDB.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 4
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 6
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 5
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 4
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 3
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 2
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 9
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 7
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 8
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 3
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlSinglePic)
+ Me.pnlDLStatus.Controls.Add(Me.pnlFANARTTV)
+ Me.pnlDLStatus.Controls.Add(Me.pnlMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.pnlTMDB)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(253, 98)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(331, 330)
+ Me.pnlDLStatus.TabIndex = 0
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlIMDB
+ '
+ Me.pnlIMDB.Controls.Add(Me.lblDL6Status)
+ Me.pnlIMDB.Controls.Add(Me.lblDL6)
+ Me.pnlIMDB.Controls.Add(Me.pbDL6)
+ Me.pnlIMDB.Location = New System.Drawing.Point(3, 84)
+ Me.pnlIMDB.Name = "pnlIMDB"
+ Me.pnlIMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMDB.TabIndex = 9
+ '
+ 'lblDL6Status
+ '
+ Me.lblDL6Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL6Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL6Status.Name = "lblDL6Status"
+ Me.lblDL6Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6Status.TabIndex = 8
+ '
+ 'lblDL6
+ '
+ Me.lblDL6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL6.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL6.Name = "lblDL6"
+ Me.lblDL6.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6.TabIndex = 7
+ Me.lblDL6.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL6
+ '
+ Me.pbDL6.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL6.Name = "pbDL6"
+ Me.pbDL6.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL6.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL6.TabIndex = 6
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(3, 3)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 9
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 7
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 6
+ '
+ 'pnlFANARTTV
+ '
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3Status)
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3)
+ Me.pnlFANARTTV.Controls.Add(Me.pbDL3)
+ Me.pnlFANARTTV.Location = New System.Drawing.Point(3, 84)
+ Me.pnlFANARTTV.Name = "pnlFANARTTV"
+ Me.pnlFANARTTV.Size = New System.Drawing.Size(321, 75)
+ Me.pnlFANARTTV.TabIndex = 11
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 8
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 7
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 6
+ '
+ 'pnlMDB
+ '
+ Me.pnlMDB.Controls.Add(Me.lblDL5Status)
+ Me.pnlMDB.Controls.Add(Me.lblDL5)
+ Me.pnlMDB.Controls.Add(Me.pbDL5)
+ Me.pnlMDB.Location = New System.Drawing.Point(3, 246)
+ Me.pnlMDB.Name = "pnlMDB"
+ Me.pnlMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMDB.TabIndex = 9
+ '
+ 'lblDL5Status
+ '
+ Me.lblDL5Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL5Status.Name = "lblDL5Status"
+ Me.lblDL5Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5Status.TabIndex = 8
+ '
+ 'lblDL5
+ '
+ Me.lblDL5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL5.Name = "lblDL5"
+ Me.lblDL5.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5.TabIndex = 7
+ Me.lblDL5.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL5
+ '
+ Me.pbDL5.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL5.Name = "pbDL5"
+ Me.pbDL5.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL5.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL5.TabIndex = 6
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.lblDL4Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL4)
+ Me.pnlIMPA.Controls.Add(Me.pbDL4)
+ Me.pnlIMPA.Location = New System.Drawing.Point(3, 165)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 6
+ '
+ 'lblDL4Status
+ '
+ Me.lblDL4Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL4Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL4Status.Name = "lblDL4Status"
+ Me.lblDL4Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4Status.TabIndex = 8
+ '
+ 'lblDL4
+ '
+ Me.lblDL4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL4.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL4.Name = "lblDL4"
+ Me.lblDL4.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4.TabIndex = 7
+ Me.lblDL4.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL4
+ '
+ Me.pbDL4.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL4.Name = "pbDL4"
+ Me.pbDL4.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL4.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL4.TabIndex = 6
+ '
+ 'pnlTMDB
+ '
+ Me.pnlTMDB.Controls.Add(Me.lblDL2Status)
+ Me.pnlTMDB.Controls.Add(Me.lblDL2)
+ Me.pnlTMDB.Controls.Add(Me.pbDL2)
+ Me.pnlTMDB.Location = New System.Drawing.Point(3, 3)
+ Me.pnlTMDB.Name = "pnlTMDB"
+ Me.pnlTMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlTMDB.TabIndex = 10
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 8
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 7
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 6
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlIMDB.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.pnlFANARTTV.ResumeLayout(False)
+ Me.pnlMDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlTMDB.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL4Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL4 As System.Windows.Forms.Label
+ Friend WithEvents pbDL4 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL5Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL5 As System.Windows.Forms.Label
+ Friend WithEvents pbDL5 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+ Friend WithEvents pnlFANARTTV As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL6Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL6 As System.Windows.Forms.Label
+ Friend WithEvents pbDL6 As System.Windows.Forms.ProgressBar
+
+End Class
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/dlgImgSelect.resx b/Addons/scraper.FanartTV.Poster/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..3491405
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+
+
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/dlgImgSelect.vb b/Addons/scraper.FanartTV.Poster/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..b2e44a9
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1582 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see _
+Partial Class dlgTMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtTMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(497, 401)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(570, 401)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(4, 96)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.ShowLines = False
+ Me.tvResults.ShowPlusMinus = False
+ Me.tvResults.ShowRootLines = False
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 4
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(294, 130)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(291, 70)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(291, 89)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(294, 295)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(472, 130)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(472, 156)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(472, 183)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtTMDBID
+ '
+ Me.txtTMDBID.Enabled = False
+ Me.txtTMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBID.Location = New System.Drawing.Point(139, 399)
+ Me.txtTMDBID.Name = "txtTMDBID"
+ Me.txtTMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTMDBID.TabIndex = 6
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 8
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(257, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(4, 403)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(130, 17)
+ Me.chkManual.TabIndex = 5
+ Me.chkManual.Text = "Manual TMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(245, 399)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 7
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(472, 247)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(37, 13)
+ Me.lblIMDB.TabIndex = 20
+ Me.lblIMDB.Text = "TMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(410, 130)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(33, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(410, 156)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(410, 183)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(410, 247)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(56, 13)
+ Me.lblIMDBHeader.TabIndex = 19
+ Me.lblIMDBHeader.Text = "TMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(291, 279)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(262, 70)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 3
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(4, 71)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 2
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(364, 183)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 18
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(100, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(308, 155)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'dlgTMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 454)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtTMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgTMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+
+End Class
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/dlgTMDBSearchResults.resx b/Addons/scraper.FanartTV.Poster/Scraper/dlgTMDBSearchResults.resx
new file mode 100644
index 0000000..017a5ad
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/dlgTMDBSearchResults.resx
@@ -0,0 +1,191 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK9gAA
+ CvYBwq9wAwAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+
+
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/dlgTMDBSearchResults.vb b/Addons/scraper.FanartTV.Poster/Scraper/dlgTMDBSearchResults.vb
new file mode 100644
index 0000000..d05fd0b
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/dlgTMDBSearchResults.vb
@@ -0,0 +1,462 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(290, 339)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(74, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(369, 339)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(411, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(424, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(112, 82)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(120, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(411, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(376, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(365, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(72, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(392, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(153, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 339)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(106, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(207, 339)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(77, 23)
+ Me.btnSetNfo.TabIndex = 4
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(444, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(450, 366)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailer.resx b/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..2be3cac
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB80lEQVQ4T6XTTWsTQRgH8EGr9GDFm19AseDBgzc9eba0FJqvIOTiRase
+ RAIKtRo9LbbxpYmtggXR2KRFqGLfDio9tDGbdUMrbvc1+57sioiVv7NDLE3MXnTgz8DsPr95dpglAMj/
+ pKVY17QuyzLP2raVoBlybHvIc92EUKmcidukBTBrtasUAC0GLWYJggaWl5dw9056uBPSAtDi8aiYAY4N
+ 13HwLQyxuLiAW6OjyIyPXW5H2gFuZ/cm4HseNFVFsTCD2WIRHz+8P7cb6Qjs7iDqIkLCMEC97kedZWMB
+ egasA8s24TsBQm8bob8N3w3YZzUzFgsYus6ZZo0WhPisvMackGQR5Dm2xnDLjAdUVeF0XUPD/Yl31eu4
+ sURY3orXaDe/EOGGoccDsrzFKYoMz/yON0IaqYVDLPPCTdTtH6D3BKqixANfNjc5SZJga3XMlm5jeP4w
+ S6E0AsdoQJFlbElSPMCXy/ekDQUTK1eQzB/B+cJxlmT+KB6sXID61UBVFDOxh7i+tjbCf+KxXl7FpZeD
+ SOR6WS6+6EepsgpREFHh+XRHYC8hB/r7+k7kshOZ/PSrZ7mn2cnTqd7qqdSxjUdPHk7NPC9OT00+vj84
+ MHByDyEH/yA7F4kC+wgh3dGDaDTnHkK6etrWuum7+/8C/vWX/g1N2vpUAmZdeAAAAABJRU5ErkJggg==
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQfZBBoSIQHX+6QX
+ AAACOElEQVQ4T7WSTWvaQRCHozlYNQSiVXwBNSSKKAhqKogo2hx8OeUQpPVY9OBFId+g0IufoQnegslF
+ EEG8qAgeiij4hohoDjkphJAIGg/udGepfyLV3rowLDu788zs/GZv73+st7e35NPT069KpfJaLpdnj4+P
+ nel0+p3mOvhnvoeHh0+j0WieTCbB6XSSYDAIoVAIXC4Xicfj0Ov1IJ/Pf9kKweBisQharZbY7XbweDxg
+ sVjg7OwM8Ix2enpK7u/v4e7u7ttfEJp5QZ3k8PAQ1Go1hMNhyGazIJFIQKVSMd/R0RHgm2azCQqFQsNB
+ FovFFZZLHZz5fD7AlU6nmY/H43F3NpsNWq3WLQeYz+d1JL8H4BfW6+bmZgOO77rd7isHqNfrM3Ty+XzY
+ 399n5vV6WfxqtWL79fX1RiWlUgnPHxlkDRAKhSASiUAsFoPf72eBhBAGeXl5AZlMBgKBgIGoxLirGOD5
+ +blL/0iwSVKpFORyOVxcXHAV0HtUhzUUm4yATqezpPsHBphMJj8uLy9BqVSCRqOB4+NjiEQiDICZUU6d
+ TseUQLjb7YZqtVp6L+UBlREBxGg0soBoNArL5RJQDavVCmazGecAKyTtdhtOTk68G7OQy+W+1mo1MJlM
+ hE4hA2BV5+fnLKPD4QC9Xk8KhQKkUqmfW6cxk8nE6ERCIpFgkxgIBFgzERCLxWAwGOwOXhPpPzWNRuN2
+ PB7P+v0+oA2HwyWVrWIwGD5vzbzDyaN++R+phLsCfwMUR2eb8uMbUAAAAABJRU5ErkJggg==
+
+
+
+ 17, 17
+
+
+ 40
+
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailer.vb b/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..d63ea34
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailer.vb
@@ -0,0 +1,465 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(84, 117)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(154, 117)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(17, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(78, 69)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(53, 2)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(114, 100)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(10, 29)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.pnlStatus)
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(2, 4)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(220, 111)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 143)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailerFormat.resx b/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailerFormat.vb b/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see _
+Partial Class frmTMDBInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.chkFallBackEng = New System.Windows.Forms.CheckBox()
+ Me.cbTMDBPrefLanguage = New System.Windows.Forms.ComboBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtTMDBApiKey = New System.Windows.Forms.TextBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtFANARTTVApiKey = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.pbTMDB = New System.Windows.Forms.PictureBox()
+ Me.pbFANARTTV = New System.Windows.Forms.PictureBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.pbTMDB)
+ Me.GroupBox30.Controls.Add(Me.chkFallBackEng)
+ Me.GroupBox30.Controls.Add(Me.cbTMDBPrefLanguage)
+ Me.GroupBox30.Controls.Add(Me.Label3)
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtTMDBApiKey)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(309, 123)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "TMDB"
+ '
+ 'chkFallBackEng
+ '
+ Me.chkFallBackEng.AutoSize = True
+ Me.chkFallBackEng.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFallBackEng.Location = New System.Drawing.Point(8, 100)
+ Me.chkFallBackEng.Name = "chkFallBackEng"
+ Me.chkFallBackEng.Size = New System.Drawing.Size(129, 17)
+ Me.chkFallBackEng.TabIndex = 4
+ Me.chkFallBackEng.Text = "Fall back on english"
+ Me.chkFallBackEng.UseVisualStyleBackColor = True
+ '
+ 'cbTMDBPrefLanguage
+ '
+ Me.cbTMDBPrefLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTMDBPrefLanguage.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTMDBPrefLanguage.FormattingEnabled = True
+ Me.cbTMDBPrefLanguage.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTMDBPrefLanguage.Location = New System.Drawing.Point(123, 65)
+ Me.cbTMDBPrefLanguage.Name = "cbTMDBPrefLanguage"
+ Me.cbTMDBPrefLanguage.Size = New System.Drawing.Size(45, 21)
+ Me.cbTMDBPrefLanguage.TabIndex = 3
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label3.Location = New System.Drawing.Point(6, 68)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(111, 13)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "Preferred Language:"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(79, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "TMDB API Key:"
+ '
+ 'txtTMDBApiKey
+ '
+ Me.txtTMDBApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtTMDBApiKey.Name = "txtTMDBApiKey"
+ Me.txtTMDBApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtTMDBApiKey.TabIndex = 1
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pbFANARTTV)
+ Me.GroupBox1.Controls.Add(Me.Label5)
+ Me.GroupBox1.Controls.Add(Me.txtFANARTTVApiKey)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(8, 169)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(309, 71)
+ Me.GroupBox1.TabIndex = 75
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Fanart.tv"
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label5.Location = New System.Drawing.Point(6, 18)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(94, 13)
+ Me.Label5.TabIndex = 0
+ Me.Label5.Text = "Fanart.tv API Key:"
+ '
+ 'txtFANARTTVApiKey
+ '
+ Me.txtFANARTTVApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtFANARTTVApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtFANARTTVApiKey.Name = "txtFANARTTVApiKey"
+ Me.txtFANARTTVApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtFANARTTVApiKey.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(323, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(283, 150)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(225, 17)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(52, 17)
+ Me.chkCrew.TabIndex = 19
+ Me.chkCrew.Text = "Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(131, 123)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 89)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 72)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 89)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 123)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(131, 106)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 106)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 72)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'pbTMDB
+ '
+ Me.pbTMDB.Image = CType(resources.GetObject("pbTMDB.Image"), System.Drawing.Image)
+ Me.pbTMDB.Location = New System.Drawing.Point(287, 34)
+ Me.pbTMDB.Name = "pbTMDB"
+ Me.pbTMDB.Size = New System.Drawing.Size(16, 16)
+ Me.pbTMDB.TabIndex = 5
+ Me.pbTMDB.TabStop = False
+ '
+ 'pbFANARTTV
+ '
+ Me.pbFANARTTV.Image = CType(resources.GetObject("pbFANARTTV.Image"), System.Drawing.Image)
+ Me.pbFANARTTV.Location = New System.Drawing.Point(287, 34)
+ Me.pbFANARTTV.Name = "pbFANARTTV"
+ Me.pbFANARTTV.Size = New System.Drawing.Size(16, 16)
+ Me.pbFANARTTV.TabIndex = 6
+ Me.pbFANARTTV.TabStop = False
+ '
+ 'frmTMDBInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFallBackEng As System.Windows.Forms.CheckBox
+ Friend WithEvents cbTMDBPrefLanguage As System.Windows.Forms.ComboBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label5 As System.Windows.Forms.Label
+ Friend WithEvents txtFANARTTVApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents pbTMDB As System.Windows.Forms.PictureBox
+ Friend WithEvents pbFANARTTV As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.FanartTV.Poster/frmTMDBInfoSettingsHolder.resx b/Addons/scraper.FanartTV.Poster/frmTMDBInfoSettingsHolder.resx
new file mode 100644
index 0000000..b1bac92
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/frmTMDBInfoSettingsHolder.resx
@@ -0,0 +1,223 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAABypJREFUWEftlntQlccZxrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj
+ 24wlxabt1PSShFhJEFEuKhxUBAFNRSFq7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7
+ z77v7rufAqBGkhGdXBb+fwH/GxG41NenPr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7Pk
+ ZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2ms
+ e+DyZ5+p/itXRMTopUWL6+gIedmZSIiJQk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGek
+ o7AgH+vYlzU/DakpydomL+ufPnKzMiA+VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB
+ +vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xqQhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQX
+ pv/PSojDRtP6zN+/uU399je/fihg9szpKnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2
+ lL1eipSkROyrr4eloQEMNcpKS3H8zx/gxSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpx
+ eryaHhtdIquODA3WK1yQnYVshlrCWrAwD4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOW
+ yxSmpszWPiNCggRzREigEqwCZPKkGQkSAZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4Cbt
+ btwY0G3hNvvb244gKiwEYUFGc0RwkBKGRCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D5
+ 57jY26tTEGL0N4cHG5kC40MB7FCShpjIcFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr
+ 1IcfgilGcICfOSwoQAnWCLBDzYiLUdHhoSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx
+ 44iPjkSQv6851GhQglUAcy8bUDFHJtksrYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbE
+ RYYj0M/HzCgowSogPipSJURHqciQYFMEN+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD
+ 6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+ytr8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no
+ 660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJoYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJ
+ VgFUJvlXnNzETYL3KnbA0mjBflbE4SBCN71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfm
+ P0gFGXxNAb7eKGfprKutxZ7du4eFiJT8L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUH
+ GSUvJoYG28vL/ysBMulG0wa8qAU0DBEti6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/
+ pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrurq1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5
+ LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wGjVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F
+ 5yOngBuQTpSv57QSUVmzu5qVbRsm2dmgZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQ
+ eK3zwglAU2OjLkwO45/FNhapvXW1oH84T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN
+ +toa/TExLzmJV22mbldWVIgjXL9+Xd90srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x
+ 1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4e
+ L9np2kbGOTP00WHBvIiieBH5N0xzdR0tc8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5
+ usvJYaLQPdH22W7HiXbdzo6TujlG4zx5UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7B
+ An7Alw5U50wms+3Cge7Ek3gTX+JH/ImBBAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm
+ 3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/xKb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVO
+ RK5CYII=
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+
+
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/frmTMDBInfoSettingsHolder.vb b/Addons/scraper.FanartTV.Poster/frmTMDBInfoSettingsHolder.vb
new file mode 100644
index 0000000..d17768a
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/frmTMDBInfoSettingsHolder.vb
@@ -0,0 +1,218 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see _
+Partial Class frmTMDBMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.chkUseFANARTTV = New System.Windows.Forms.CheckBox()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMDBp = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(505, 154)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.chkUseFANARTTV)
+ Me.GroupBox6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox6.Location = New System.Drawing.Point(331, 21)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox6.TabIndex = 96
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Get Fanart From:"
+ '
+ 'chkUseFANARTTV
+ '
+ Me.chkUseFANARTTV.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseFANARTTV.Location = New System.Drawing.Point(6, 21)
+ Me.chkUseFANARTTV.Name = "chkUseFANARTTV"
+ Me.chkUseFANARTTV.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseFANARTTV.TabIndex = 2
+ Me.chkUseFANARTTV.Text = "fanart.tv"
+ Me.chkUseFANARTTV.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMDBp)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 19)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 78)
+ Me.GroupBox9.TabIndex = 5
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Poster From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMDBp
+ '
+ Me.chkUseIMDBp.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMDBp.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseIMDBp.Name = "chkUseIMDBp"
+ Me.chkUseIMDBp.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseIMDBp.TabIndex = 0
+ Me.chkUseIMDBp.Text = "IMDB.com"
+ Me.chkUseIMDBp.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(331, 94)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(12, 21)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(131, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 203)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(464, 126)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.GroupBox5)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(291, 104)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 5
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(123, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 83)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmTMDBMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMDBp As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseFANARTTV As System.Windows.Forms.CheckBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/frmTMDBMediaSettingsHolder.resx b/Addons/scraper.FanartTV.Poster/frmTMDBMediaSettingsHolder.resx
new file mode 100644
index 0000000..3c46229
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/frmTMDBMediaSettingsHolder.resx
@@ -0,0 +1,238 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABypJREFUWEftlntQlccZ
+ xrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj24wlxabt1PSShFhJEFEuKhxUBAFNRSFq
+ 7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7z77v7rufAqBGkhGdXBb+fwH/GxG41Nen
+ Pr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7PkZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2
+ vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2mse+DyZ5+p/itXRMTopUWL6+gIedmZSIiJ
+ Qk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGeko7AgH+vYlzU/DakpydomL+ufPnKzMiA+
+ VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB+vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xq
+ QhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQXpv/PSojDRtP6zN+/uU399je/fihg9szp
+ KnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2lL1eipSkROyrr4eloQEMNcpKS3H8zx/g
+ xSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpxeryaHhtdIquODA3WK1yQnYVshlrCWrAw
+ D4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOWyxSmpszWPiNCggRzREigEqwCZPKkGQkS
+ AZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4CbtbtwY0G3hNvvb244gKiwEYUFGc0RwkBKG
+ RCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D557jY26tTEGL0N4cHG5kC40MB7FCShpjI
+ cFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr1IcfgilGcICfOSwoQAnWCLBDzYiLUdHh
+ oSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx44iPjkSQv6851GhQglUAcy8bUDFHJtks
+ rYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbERYYj0M/HzCgowSogPipSJURHqciQYFME
+ N+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+yt
+ r8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJ
+ oYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJVgFUJvlXnNzETYL3KnbA0mjBflbE4SBC
+ N71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfmP0gFGXxNAb7eKGfprKutxZ7du4eFiJT8
+ L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUHGSUvJoYG28vL/ysBMulG0wa8qAU0DBEt
+ i6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrur
+ q1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wG
+ jVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F5yOngBuQTpSv57QSUVmzu5qVbRsm2dmg
+ ZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQeK3zwglAU2OjLkwO45/FNhapvXW1oH84
+ T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN+toa/TExLzmJV22mbldWVIgjXL9+Xd90
+ srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI
+ 1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4eL9np2kbGOTP00WHBvIiieBH5N0xzdR0t
+ c8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5usvJYaLQPdH22W7HiXbdzo6TujlG4zx5
+ UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7BAn7Alw5U50wms+3Cge7Ek3gTX+JH/ImB
+ BAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/x
+ Kb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVORK5CYII=
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+
+
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/frmTMDBMediaSettingsHolder.vb b/Addons/scraper.FanartTV.Poster/frmTMDBMediaSettingsHolder.vb
new file mode 100644
index 0000000..6ccca98
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/frmTMDBMediaSettingsHolder.vb
@@ -0,0 +1,165 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/scraper.FanartTV.Poster.vbproj b/Addons/scraper.FanartTV.Poster/scraper.FanartTV.Poster.vbproj
new file mode 100644
index 0000000..1af3fa1
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/scraper.FanartTV.Poster.vbproj
@@ -0,0 +1,287 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}
+ Library
+ EmberScraperModule
+ scraper.FanartTV.Poster
+ 512
+ Windows
+ v3.5
+ On
+ Binary
+ On
+ On
+
+
+ 3.5
+ publish\
+ true
+ Disk
+ false
+ Foreground
+ 7
+ Days
+ false
+ false
+ true
+ 0
+ 1.0.0.%2a
+ false
+ false
+ true
+ ..\..\
+ true
+
+
+
+
+
+
+
+
+
+
+ true
+ true
+ true
+ ..\..\EmberMM-Dev\Modules\
+ 42353,42354,42355
+ full
+ x86
+ 41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109
+ ..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml
+ true
+ GlobalSuppressions.vb
+ AllRules.ruleset
+ ;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets
+ ;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules
+
+
+ true
+ ..\..\EmberMM-Deploy\Modules\
+ true
+ 42353,42354,42355
+ pdbonly
+ x86
+ 41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109
+ ..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml
+ true
+ GlobalSuppressions.vb
+ AllRules.ruleset
+ ;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets
+ ;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules
+
+
+
+ ..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll
+
+
+ ..\..\packages\RestSharp.104.1\lib\net35\RestSharp.dll
+
+
+ 3.5
+
+
+ 3.5
+
+
+
+
+
+
+ dlgTMDBSearchResults.vb
+
+
+ Form
+
+
+ dlgImgSelect.vb
+
+
+ Form
+
+
+ dlgTrailer.vb
+
+
+ Form
+
+
+ dlgTrailerFormat.vb
+
+
+ Form
+
+
+ frmTMDBMediaSettingsHolder.vb
+
+
+ Form
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+ frmTMDBInfoSettingsHolder.vb
+
+
+ Form
+
+
+
+
+ dlgTMDBSearchResults.vb
+ Designer
+
+
+ dlgImgSelect.vb
+ Designer
+
+
+ dlgTrailer.vb
+ Designer
+
+
+ dlgTrailerFormat.vb
+ Designer
+
+
+ frmTMDBMediaSettingsHolder.vb
+ Designer
+
+
+ frmTMDBInfoSettingsHolder.vb
+ Designer
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+ False
+ .NET Framework 3.5 SP1 Client Profile
+ false
+
+
+ False
+ .NET Framework 3.5 SP1
+ true
+
+
+ False
+ Windows Installer 3.1
+ true
+
+
+
+
+ {208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}
+ EmberAPI
+ False
+
+
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}
+ FanartTVAPI
+
+
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}
+ WatTmdb
+
+
+
+
+ PreserveNewest
+
+
+ PreserveNewest
+
+
+ PreserveNewest
+
+
+ PreserveNewest
+
+
+ PreserveNewest
+
+
+ PreserveNewest
+
+
+ PreserveNewest
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Addons/scraper.FanartTV.Poster/scraperMovieTMDBModule.vb b/Addons/scraper.FanartTV.Poster/scraperMovieTMDBModule.vb
new file mode 100644
index 0000000..7ac1344
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/scraperMovieTMDBModule.vb
@@ -0,0 +1,761 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see
+''' Native Scraper
+'''
+'''
+ ''' Scraping Here
+ '''
+ '''
+
+
+
+
+
+
+
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+'
+
+
+
diff --git a/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml
new file mode 100644
index 0000000..0fba5b0
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+
+ native1
+ native2
+ native3
+ native4
+ native5
+ native6
+ native7
+ native8
+ native9
+ native10
+ native11
+ native12
+ native13
+ native14
+ native15
+ native16
+ native17
+ native18
+ native19
+ native20
+ native21
+ native22
+ native23
+ native24
+ native25
+ native26
+ native27
+ native28
+ native29
+ native30
+ native31
+ native32
+ native33
+ native34
+ native35
+ native36
+ native37
+ native38
+ native39
+ native40
+ native41
+ native42
+ native43
+ native44
+ native45
+ native46
+ native47
+ native48
+ native49
+ native50
+ native51
+ native52
+ native53
+ native54
+ native55
+ native56
+ native57
+ native58
+ native59
+ native60
+ native61
+ native62
+ native63
+ native64
+ native65
+ native66
+ native67
+ native68
+ native69
+ native70
+ native71
+ native72
+ native73
+ native74
+ native75
+ native76
+ native77
+ native78
+ native79
+ native80
+ native81
+ native82
+ native83
+ native84
+ native85
+ native86
+ native87
+ native88
+ native89
+ native90
+ native91
+ native92
+ native93
+ native94
+ native95
+ native96
+ native97
+ native98
+ native99
+ native100
+ native101
+ native102
+ native103
+ native104
+ native105
+ native106
+ native107
+ native108
+ native109
+ native110
+ native111
+ native112
+ native113
+ native114
+ native115
+ native116
+ native117
+ native118
+ native119
+ native120
+ native121
+ native122
+ native123
+ native124
+ native125
+ native126
+ native127
+ native128
+ native129
+ native130
+ native131
+ native132
+ native133
+ native134
+ native135
+ native136
+ native137
+ native138
+ native139
+ native140
+ native141
+ native142
+ native143
+ native144
+ native145
+ native146
+ native147
+ native148
+ native149
+ native150
+ native151
+ native152
+ native153
+ native154
+ native155
+ native156
+ native157
+ native158
+ native159
+ native160
+ native161
+ native162
+ native163
+ native164
+ native165
+ native166
+ native167
+ native168
+ native169
+ native170
+ native171
+ native172
+ native173
+ native174
+ native175
+ native176
+ native177
+ native178
+ native179
+ native180
+ native181
+ native182
+ native183
+ native184
+ native185
+ native186
+ native187
+ native188
+ native189
+ native190
+ native191
+ native192
+ native193
+ native194
+ native195
+ native196
+ native197
+ native198
+ native199
+ native200
+ native201
+ native202
+ native203
+ native204
+ native205
+ native206
+ native207
+ native208
+ native209
+ native210
+ native211
+ native212
+ native213
+ native214
+ native215
+ native216
+ native217
+ native218
+ native219
+ native220
+ native221
+ native222
+ native223
+ native224
+ native225
+ native226
+ native227
+ native228
+ native229
+ native230
+ native231
+ native232
+ native233
+ native234
+ native235
+ native236
+ native237
+ native238
+ native239
+ native240
+ native241
+ native242
+ native243
+ native244
+ native245
+ native246
+ native247
+ native248
+ native249
+ native250
+ native251
+ native252
+ native253
+ native254
+ native255
+ native256
+ native257
+ native258
+ native259
+ native260
+ native261
+ native262
+ native263
+ native264
+ native265
+ native266
+ native267
+ native268
+ native269
+ native270
+ native271
+ native272
+ native273
+ native274
+ native275
+ native276
+ native277
+ native278
+ native279
+ native280
+ native281
+ native282
+ native283
+ native284
+ native285
+ native286
+ native287
+ native288
+ native289
+ native290
+ native291
+ native292
+ native293
+ native294
+ native295
+ native296
+ native297
+ native298
+ native299
+ native300
+ native301
+ native302
+ native303
+ native304
+ native305
+ native306
+ native307
+ native308
+ native309
+ native310
+ native311
+ native312
+ native313
+ native314
+ native315
+ native316
+ native317
+ native318
+ native319
+ native320
+ native321
+ native322
+ native323
+ native324
+ native325
+ native326
+ native327
+ native328
+ native329
+ native330
+ native331
+ native332
+ native333
+ native334
+ native335
+ native336
+ native337
+ native338
+ native339
+ native340
+ native341
+ native342
+ native343
+ native344
+ native345
+ native346
+ native347
+ native348
+ native349
+ native350
+ native351
+ native352
+ native353
+ native354
+ native355
+ native356
+ native357
+ native358
+ native359
+ native360
+ native361
+ native362
+ native363
+ native364
+ native365
+ native366
+ native367
+ native368
+ native369
+ native370
+ native371
+ native372
+ native373
+ native374
+ native375
+ native376
+ native377
+ native378
+ native379
+ native380
+ native381
+ native382
+ native383
+ native384
+ native385
+ native386
+ native387
+ native388
+ native389
+ native390
+ native391
+ native392
+ native393
+ native394
+ native395
+ native396
+ native397
+ native398
+ native399
+ native400
+ native401
+ native402
+ native403
+ native404
+ native405
+ native406
+ native407
+ native408
+ native409
+ native410
+ native411
+ native412
+ native413
+ native414
+ native415
+ native416
+ native417
+ native418
+ native419
+ native420
+ native421
+ native422
+ native423
+ native424
+ native425
+ native426
+ native427
+ native428
+ native429
+ native430
+ native431
+ native432
+ native433
+ native434
+ native435
+ native436
+ native437
+ native438
+ native439
+ native440
+ native441
+ native442
+ native443
+ native444
+ native445
+ native446
+ native447
+ native448
+ native449
+ native450
+ native451
+ native452
+ native453
+ native454
+ native455
+ native456
+ native457
+ native458
+ native459
+ native460
+ native461
+ native462
+ native463
+ native464
+ native465
+ native466
+ native467
+ native468
+ native469
+ native470
+ native471
+ native472
+ native473
+ native474
+ native475
+ native476
+ native477
+ native478
+ native479
+ native480
+ native481
+ native482
+ native483
+ native484
+ native485
+ native486
+ native487
+ native488
+ native489
+ native490
+ native491
+ native492
+ native493
+ native494
+ native495
+ native496
+ native497
+ native498
+ native499
+ native500
+ native501
+ native502
+ native503
+ native504
+ native505
+ native506
+ native507
+ native508
+ native509
+ native510
+ native511
+ native512
+ native513
+ native514
+ native515
+ native516
+ native517
+ native518
+ native519
+ native520
+ native521
+ native522
+ native523
+ native524
+ native525
+ native526
+ native527
+ native528
+ native529
+ native530
+ native531
+ native532
+ native533
+ native534
+ native535
+ native536
+ native537
+ native538
+ native539
+ native540
+ native541
+ native542
+ native543
+ native544
+ native545
+ native546
+ native547
+ native548
+ native549
+ native550
+ native551
+ native552
+ native553
+ native554
+ native555
+ native556
+ native557
+ native558
+ native559
+ native560
+ native561
+ native562
+ native563
+ native564
+ native565
+ native566
+ native567
+ native568
+ native569
+ native570
+ native571
+ native572
+ native573
+ native574
+ native575
+ native576
+ native577
+ native578
+ native579
+ native580
+ native581
+ native582
+ native583
+ native584
+ native585
+ native586
+ native587
+ native588
+ native589
+ native590
+ native591
+ native592
+ native593
+ native594
+ native595
+ native596
+ native597
+ native598
+ native599
+ native600
+ native601
+ native602
+ native603
+ native604
+ native605
+ native606
+ native607
+ native608
+ native609
+ native610
+ native611
+ native612
+ native613
+ native614
+ native615
+ native616
+ native617
+ native618
+ native619
+ native620
+ native621
+ native622
+ native623
+ native624
+ native625
+ native626
+ native627
+ native628
+ native629
+ native630
+ native631
+ native632
+ native633
+ native634
+ native635
+ native636
+ native637
+ native638
+ native639
+ native640
+ native641
+ native642
+ native643
+ native644
+ native645
+ native646
+ native647
+ native648
+ native649
+ native650
+ native651
+ native652
+ native653
+ native654
+ native655
+ native656
+ native657
+ native658
+ native659
+ native660
+ native661
+ native662
+ native663
+ native664
+ native665
+ native666
+ native667
+ native668
+ native669
+ native670
+ native671
+ native672
+ native673
+ native674
+ native675
+ native676
+ native677
+ native678
+ native679
+ native680
+ native681
+ native682
+ native683
+ native684
+ native685
+ native686
+ native687
+ native688
+ native689
+ native690
+ native691
+ native692
+ native693
+ native694
+ native695
+ native696
+ native697
+ native698
+ native699
+ native700
+ native701
+ native702
+ native703
+ native704
+ native705
+ native706
+ native707
+ native708
+ native709
+ native710
+ native711
+ native712
+ native713
+ native714
+ native715
+ native716
+ native717
+ native718
+ native719
+ native720
+ native721
+ native722
+ native723
+ native724
+ native725
+ native726
+ native727
+ native728
+ native729
+ native730
+ native731
+ native732
+ native733
+ native734
+ native735
+ native736
+ native737
+ native738
+ native739
+ native740
+ native741
+ native742
+ native743
+ native744
+ native745
+ native746
+ native747
+ native748
+ native749
+ native750
+ native751
+ native752
+ native753
+ native754
+ native755
+ native756
+ native757
+ native758
+ native759
+ native760
+ native761
+ native762
+ native763
+ native764
+ native765
+ native766
+ native767
+ native768
+ native769
+ native770
+ native771
+ native772
+ native773
+ native774
+ native775
+ native776
+ native777
+ native778
+ native779
+ native780
+ native781
+ native782
+ native783
+ native784
+ native785
+ native786
+ native787
+ native788
+ native789
+ native790
+ native791
+ native792
+ native793
+ native794
+ native795
+ native796
+ native797
+ native798
+ native799
+ native800
+ native801
+ native802
+ native803
+ native804
+ native805
+ native806
+ native807
+ native808
+ native809
+ native810
+ native811
+ native812
+ native813
+ native814
+ native815
+ native816
+ native817
+ native818
+ native819
+ native820
+ native821
+ native822
+ native823
+ native824
+ native825
+ native826
+ native827
+ native828
+ native829
+ native830
+ native831
+ native832
+ native833
+ native834
+ native835
+ native836
+ native837
+ native838
+ native839
+ native840
+ native841
+ native842
+ native843
+ native844
+ native845
+ native846
+ native847
+ native848
+ native849
+ native850
+ native851
+ native852
+ native853
+ native854
+ native855
+ native856
+ native857
+ native858
+ native859
+ native860
+ native861
+ native862
+ native863
+ native864
+ native865
+ native866
+ native867
+ native868
+ native869
+ native870
+ native871
+ native872
+ native873
+ native874
+ native875
+ native876
+ native877
+ native878
+ native879
+ native880
+ native881
+ native882
+ native883
+ native884
+ native885
+ native886
+ native887
+ native888
+ native889
+ native890
+ native891
+ native892
+ native893
+ native894
+ native895
+ native896
+ native897
+ native898
+ native899
+ native900
+
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml
new file mode 100644
index 0000000..1705beb
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml
@@ -0,0 +1,45 @@
+
+ Enable or disable this module.
+ Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)
+ Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)
+ Enter the mirror to use when retrieving information from IMDB.
+ If enabled, Ember will attempt to retreive the movie title from OFDB (a German language site) when scraping.
+ If enabled, Ember will attempt to retreive the movie outline from OFDB (a German language site) when scraping.
+ If enabled, Ember will attempt to retreive the movie plot from OFDB (a German language site) when scraping.
+ If enabled, Ember will attempt to retreive the movie genre from OFDB (a German language site) when scraping.
+ Enable scraping movie certification.
+ Enable scraping movie Top 250 ranking.
+ Limit the number of scraped genres to the entered value.
+ Limit the number of scraped actors to the entered value.
+ Enable scraping movie other crew. (Scrape Full Crew must be enabled)
+ Enable scraping movie musicians. (Scrape Full Crew must be enabled)
+ Enable scraping movie producers. (Scrape Full Crew must be enabled)
+ Enable scraping movie writers.
+ Enable scraping movie studio.
+ Enable scraping movie runtime.
+ Enable scraping movie plot.
+ Enable scraping movie outline.
+ Enable scraping movie genre.
+ Enable scraping movie director.
+ Enable scraping movie tagline.
+ Enable scraping movie cast.
+ Enable scraping movie votes.
+ Enable scraping movie trailer url.
+ Enable scraping movie rating.
+ Enable scraping movie release date.
+ Enable scraping movie MPAA.
+ Enable scraping movie year.
+ Enable scraping movie title.
+ Enable or disable this module.
+ Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)
+ Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)
+ Enable scraping posters from this module. (Refer to global poster settings for more options)
+ Enable scraping fanart from this module. (Refer to global fanart settings for more options)
+ Enable retrieving images from theMovieDB.org.
+ Enable retrieving images from
+ Enable retrieving images from MoviePosterDB.com.
+ Enable automatic extraction of extrathumbs from this module. (Refer to global extrathumb settings for more options)
+ Enable trailer downloading from this module. (Refer to global trailer settings for more options)
+ Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)
+ Select the sites from which you would like to retrieve trailer URLs and/or files.
+
diff --git a/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.English_(en_US).xml b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.English_(en_US).xml
new file mode 100644
index 0000000..87a19b5
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.English_(en_US).xml
@@ -0,0 +1,117 @@
+
+ Ember Native TV Scrapers
+ Use OFDB Genre
+ Use OFDB Plot
+ Use OFDB Outline
+ Use OFDB Title
+ IMDB Mirror:
+ Scraper Fields - Scraper specific
+ Timeout:
+ Supported Sites:
+ Get Images From:
+ Search Results
+ Searching IMDB...
+ The ID you entered is not a valid IMDB ID.
+ You have manually entered an IMDB ID but have not verified it is correct.
+ Continue without verification?
+ Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.
+ Verification Failed
+ Partial Matches ({0})
+ Exact Matches ({0})
+ Popular Titles ({0})
+ No Matches Found
+ View details of each result to find the proper movie.
+ Movie Search Results
+ Manual IMDB Entry:
+ Verify
+ Searching IMDB...
+ Downloading details...
+ Downloading {0}
+ No Fanart found for this movie.
+ No Fanart Found
+ No Posters found for this movie.
+ No Posters Found
+ Retrieving data from TheMovieDB.com...
+ TheMovieDB.com is not enabled
+ Retrieving data from IMPAwards.com...
+ IMPAwards.com is not enabled
+ Retrieving data from MoviePosterDB.com...
+ MoviePostersDB.com is not enabled
+ Preparing images...
+ Select Poster
+ Select Fanart
+ Check All Thumb
+ Check All Mid
+ Check All Original
+ Selected item will be set as fanart. All checked items will be saved to \extrathumbs.
+ Performing Preliminary Tasks...
+ Downloading Selected Image...
+ Original
+ Cover
+ Medium
+ Small
+ Original ({0}x{1})
+ Cover ({0}x{1})
+ Small ({0}x{1})
+ Medium ({0}x{1})
+ Multiple
+ Downloading selected trailer...
+ Copying specified file to trailer...
+ The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.
+ Error Playing Trailer
+ Move
+ Copy
+ Moving specified file to trailer...
+ Set To Nfo
+ Select Trailer
+ Select Trailer to Download
+ Manual Trailer Entry
+ Direct Link or YouTube URL:
+ Compiling trailer list...
+ Preview Trailer
+ Local Trailer:
+ The video format links could not be retrieved.
+ Error Retrieving Video Format Links
+ Select Format
+ Getting available formats...
+ Available Formats
+ A poster of your preferred size could not be found. Please choose another.
+ No Preferred Size
+ Fanart of your preferred size could not be found. Please choose another.
+ There are no known episodes for this show. Scrape the show, season, or episode and try again.
+ No Known Episodes
+ There is no poster available for this episode.
+ Guest Star
+ The ID you entered is not a valid TVDB ID.
+ Downloading show info...
+ TV Search Results
+ View details of each result to find the proper TV show.
+ Downloading Fullsize Fanart Image...
+ Loading Current Images...
+ (Down)Loading New Images...
+ Setting Defaults...
+ Show Poster
+ Episode Fanart
+ Show Fanart
+ All Seasons Poster
+ Season Posters
+ Season Fanart
+ Season {0} Posters
+ Season {0} Fanart
+ TV Image Selection
+ Current Image:
+ Get Posters
+ Get Fanart
+ These settings are specific to this module.{0}Please refer to the global settings for more options.
+ Ember Native Movie Scrapers
+ IMDB
+ OFDB (German)
+ TMDB Extrathumbs Size:
+ Trailers
+ Youtube/TMDB Trailer:
+ XBMC Format
+ Preferred language
+ Save Fanart In:
+ Open In Browser
+
diff --git a/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..f4c930d
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
@@ -0,0 +1,45 @@
+
+ Aktiviert dieses Modul.
+ Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)
+ Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)
+ Gib den Mirror ein über den Ember mit der IMDB kommunizieren soll.
+ Wenn aktiviert versucht Ember den Titel von der deutschen Seite OFDB.DE zu scrapen.
+ Wenn aktiviert versucht Ember die Kurzebschreibung von der deutschen Seite OFDB.DE zu scrapen.
+ Wenn aktiviert versucht Ember die Inhaltsangabe von der deutschen Seite OFDB.DE zu scrapen.
+ Wenn aktiviert versucht Ember die Genres von der deutschen Seite OFDB.DE zu scrapen.
+ Aktiviert das Scrapen der Altersbeschränkung mit diesem Modul.
+ Aktiviert das Scrapen der IMDB Top250 mit diesem Modul.
+ Die Anzahl der gescrapten Genres limitieren.
+ Die Anzahl der gescrapten Schauspieler limitieren.
+ Aktiviert das Scrapen der Sonstigen Crew mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)
+ Aktiviert das Scrapen der Musiker mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)
+ Aktiviert das Scrapen der Produzenten mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)
+ Aktiviert das Scrapen der Autoren mit diesem Modul.
+ Aktiviert das Scrapen des Studios mit diesem Modul.
+ Aktiviert das Scrapen der Spielzeit mit diesem Modul.
+ Aktiviert das Scrapen des Inhalts mit diesem Modul.
+ Aktiviert das Scrapen der Kurzbeschreibung mit diesem Modul.
+ Aktiviert das Scrapen von Genre mit diesem Modul.
+ Aktiviert das Scrapen des Regisseurs mit diesem Modul.
+ Aktiviert das Scrapen der Tagline mit diesem Modul.
+ Aktiviert das Scrapen der Schauspieler mit diesem Modul.
+ Aktiviert das Scrapen der Anzahl Bewertungen mit diesem Modul.
+ Aktiviert das Scrapen von Trailern mit diesem Modul.
+ Aktiviert das Scrapen der Bewertung mit diesem Modul.
+ Aktiviert das Scrapen des Premiere Datums mit diesem Modul.
+ Aktiviert das Scrapen der MPAA Bewertung mit diesem Modul.
+ Aktiviert das Scrapen des Jahres mit diesem Modul.
+ Aktiviert das Scrapen des Titels mit diesem Modul.
+ Aktiviert dieses Modul.
+ Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)
+ Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)
+ Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration!)
+ Aktiviert das Laden von Fanart mit diesem Modul. (Schau auch in die Globale Konfiguration!)
+ Aktiviert das Laden von Bildern von TheMovieDB.org.
+ Aktiviert das Laden von Bildern von IMPA
+ Aktiviert das Laden von Bildern von MoviePosterDB.com.
+ Automatische Frame extraktion mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)
+ Trailer laden mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)
+ Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Zeite in dieser Zeit nicht geantwortet hat wird sie übersprungen)
+ Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.
+
diff --git a/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml
new file mode 100644
index 0000000..0349557
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml
@@ -0,0 +1,117 @@
+
+ Ember Nativer TV Scraper
+ OFDB Genre benutzen
+ OFDB Handlung benutzen
+ OFDB Kurzbeschr. benutzen
+ OFDB Titel benutzen
+ IMDB Mirror:
+ Scraper Felder - Scraper spezifisch
+ Timeout:
+ Unterstützte Seiten:
+ Bilder holen von:
+ Suchergebnis
+ Suche in der IMDB...
+ Die eingegebene ID ist keine gültige IMDB ID.
+ Die IMDB ID ist noch nicht geprüft.
+ Ohne Prüfung fortfahren?
+ Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.
+ Prüfung fehlgeschlagen
+ Teil Treffer ({0})
+ Exakte Treffer({0})
+ Populäre Titel ({0})
+ Keine Treffer
+ Schaue dir die Details an um den richtigen Film zu finden.
+ Film Suchergebnis
+ Man. IMDB ID:
+ Prüfen
+ Suche in der IMDB...
+ Lade Details...
+ Lade {0} herunter
+ Kein Fanart für diesen Film gefunden
+ Kein Fanart gefunden
+ Kein Poster für diesen Film gefunden
+ Kein Poster gefunden
+ Lade Daten von TheMovieDB.com...
+ TheMovieDB.com ist nicht aktiviert.
+ Lade Daten von IMPAwards.com...
+ IMPAwards.com ist nicht aktiviert.
+ Lade Daten von MoviePosterDB.com...
+ MoviePostersDB.com ist nicht aktiviert.
+ Bereite Bilder vor...
+ Wähle Poster
+ Wähle Fanart
+ Alle Thumbs
+ Alle Mittl.
+ Alle Original
+ Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.
+ Vorarbeit läuft...
+ Lade gewähltes Bild...
+ Original
+ Cover
+ mittel
+ klein
+ Original ({0}x{1})
+ Cover ({0}x{1})
+ klein ({0}x{1})
+ mittel ({0}x{1})
+ Mehrfach
+ Lade gewählten Trailer...
+ Kopiere gewählten Trailer...
+ Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.
+ Fehler beim Abspielen des Trailers
+ Verschieben
+ Kopieren
+ Verschiebe gewählten Trailer...
+ In NFO speichern
+ Trailer wählen
+ Trailer zum laden wählen
+ Man. Trailer
+ Direktlink oder YouTube URL:
+ Stelle Trailerliste zusammen...
+ Trailer Vorschau
+ Lokaler Trailer:
+ Die Videoformat Linkliste konnte nicht generiert werden.
+ Fehler beim generieren der Videoformat Linkliste
+ Format wählen
+ Hole verfügbare Formate...
+ Verfügbare Formate
+ Es konnte kein Poster in der gewünschten Größe gefunden werden. Wähle ein anderes.
+ Keine gewünschte Größe
+ Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.
+ Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.
+ Keine Episoden verfügbar
+ Kein Poster für diese Episode vorhanden.
+ Gast Star
+ Die eingegebene ID ist keine gültige TVDB ID.
+ Lade Serien Informationen...
+ Serien Suchergebnis
+ Betrachte die Details um die richtige TV-Serie zu erkennen.
+ Lade Fanart in Originalgröße...
+ Lade aktuelle Bilder...
+ Lade neue Bilder...
+ Setze Standardwerte...
+ Serien Poster
+ Episoden Fanart
+ Serien Fanart
+ Alle-Staffeln Poster
+ Staffel Posters
+ Staffel Fanart
+ Staffel {0} Poster
+ Staffel {0} Fanart
+ Bilderwahl TV-Serien
+ Aktuelles Bild:
+ Poster laden
+ Fanart laden
+ Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen blick in die Globalen Einstellungen für noch mehr Optionen.
+ Ember Nativer Film Scraper
+ IMDB
+ OFDB (German)
+ TMDB Extrathumbs Grösse:
+ Trailer
+ Youtube/TMDB Trailer:
+ XBMC Format
+ Bevorzugte Sprache
+ Speichere Fanart in:
+ Im Browser öffnen
+
diff --git a/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..79a98bf
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,45 @@
+
+ Slå modulen av eller på.
+ Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)
+ Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)
+ Før inn speilserver til IMDB.
+ Hvis påslått, EMM vil å prøve å finne filmtittel fra OFDB (en tyskspråklig side) under detaljhenting.
+ Hvis påslått, EMM vil prøve å finne beskrivelse av filmen på OFDB (en tyskspråklig side) under detaljhenting.
+ Hvis påslått, EMM vil hente filmhistorien fra OFDB (en tyskspråklig side) under detaljhenting.
+ Hvis påslått, EMM vil hente filmsjanger fra OFDB (en tyskspråklig side) under detaljhenting.
+ Slå på detaljhenting av filmsertifisering.
+ Slå på detaljhenting av IMDB Top 250-plassering.
+ Begrens antall detaljhentede sjangre.
+ Begrens antall skuespillere.
+ Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)
+ Slå på detaljhenting av musikere. (Detaljhenting av fullt crew må være påslått)
+ Slå på detaljhenting av filmprodusenter. (Detaljhenting av full crew må være påslått)
+ Slå på detaljhenting av manusforfattere.
+ Slå på detaljhenting av studio.
+ Slå på detaljhenting av filmlengde.
+ Slå på detaljhenting av filmens historie.
+ Slå på detaljhenting av filmens beskrivelse.
+ Slå på detaljhenting av filmens sjanger.
+ Slå på detaljhetning av filmens regissør.
+ Slå på detaljhetning av filmens undertittel.
+ Slå på detaljhetning av filmens skuespillerbeholdning.
+ Slå på detaljhetning av filmens poeng.
+ Slå på detaljhetning av filmens trailer URL.
+ Slå på detaljhetning av filmens aldersgrense.
+ Slå på detaljhetning av filmens premieredato.
+ Slå på detaljhetning av filmens MPAA-markering.
+ Slå på detaljhetning av filmens år.
+ Slå på detaljhetning av filmens tittel.
+ Slå modulen av eller på.
+ Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)
+ Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)
+ Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)
+ Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)
+ Slå på bildehenting fra theMovieDB.org.
+ Slå på bildehenting fra
+ Slå på bildehenting fra MoviePosterDB.com
+ Slå på automatisk henting av ekstrakunst fra denne modulen. (Se globale ekstrakunstinnstillinger for flere valg)
+ Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)
+ Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)
+ Velg sidene du vil bruke til trailer URL og/eller filer.
+
diff --git a/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..52370c3
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
@@ -0,0 +1,117 @@
+
+ EMM TV-detaljhentere
+ Bruk OFDB-sjangere
+ Bruk OFDB-filmhistorie
+ Bruk OFDB-beskrivelse
+ Bruk OFDB-tittel
+ IMDB-speilserver:
+ Detaljhenterområder - Detaljhenterspesifikk
+ Tidsavbrudd:
+ Støttede sider:
+ Hent bilder fra:
+ Søkeresultater
+ Søker TMDB...
+ IDen du førte inn er ikke en riktig IMDB-ID.
+ Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.
+ Fortsette uten verifisering?
+ Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.
+ Verifisering feilet
+ Delvise treff ({0})
+ Eksakte treff ({0})
+ Populære titler ({0})
+ Ingen funnet
+ Se detaljer fra hvert treff for å finne riktig film.
+ Filmsøkresultater
+ Manuell IMDB innføring:
+ Verifiser
+ Søker TMDB...
+ Laster ned detaljer...
+ Laster ned {0}
+ Ingen fankunst funnet for denne filmen.
+ Ingen fankunst funnet
+ Ingen plakater funnet for denne filmen.
+ Ingen plakater funnet
+ Henter data fra TheMovieDB.com...
+ TheMovieDB.com er ikke påslått
+ Henter data fra IMPAwards.com...
+ IMPAwards.com er ikke påslått
+ Henter data fra MoviePosterDB.com...
+ MoviePostersDB.com er ikke påslått
+ Forbereder bilder...
+ Velg plakat
+ Velg fankunst
+ Huk av alle tommelbilder
+ Huk av alle Mid
+ Huk av alle originale
+ Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.
+ Utfører forberedende oppgaver...
+ Laster ned valgte bilde...
+ Original
+ Cover
+ Medium
+ Liten
+ Original ({0}x{1})
+ Cover {0}x{1}
+ Liten ({0}x{1})
+ Medium ({0}x{1})
+ Flere
+ Laster ned valgt trailer...
+ Kopierer valgt fil til trailer...
+ Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.
+ Kunne spille av trailer.
+ Flytt
+ Kopiér
+ Flytter valgt fil til trailer...
+ Sett i nfo
+ Velg trailer
+ Velg trailer til å laste ned
+ Manuell trailerinnføring
+ Direkte link eller YouTube URL:
+ Kompilerer trailerliste...
+ Sniktitt på trailer
+ Lokal trailer:
+ Videoformatlenkene kunne ikke hentes
+ Kunne ikke hente videoformatlenker
+ Velg format
+ Henter tilgjengelige formater...
+ Tilgjengelige formater
+ En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.
+ Ingen foretrukket størrelse
+ Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.
+ Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.
+ Ingen kjente episoder
+ Det er ingen plakater for denne episoden.
+ Gjesteskuespiller
+ IDen du innførte er ikke en gyldig TVDB ID.
+ Laster ned serieinfo...
+ TVsøk-resultater
+ Se detaljer fra hvert resultat for å finne riktig serie.
+ Laster ned fankunst i full størrelse...
+ Laster inn nåværende bilder...
+ Laster (ned) nye bilder...
+ Setter standarder...
+ Serieplakat
+ Episodefankunst
+ Vis fankunst
+ Alle sesonger-plakat
+ Sesongplakater
+ Sesongfankunst
+ Sesong {0}-plakater
+ Sesong {0}-fankunst
+ TV-bilde valg
+ Nåværende bilde:
+ Hent plakater
+ Hent fankunst
+ Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.
+ EMM film-detaljhentere
+ IMDB
+ OFDB (Tysk)
+ TMDB Ekstrakunst-størrelse:
+ Trailere
+ Youtube/TMDB Trailer:
+ XBMC-format
+ Foretrukket språk
+ Lagre fankunst i:
+ Åpne i nettleser
+
diff --git a/Addons/scraper.IMDB.Data/My Project/Application.Designer.vb b/Addons/scraper.IMDB.Data/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.IMDB.Data/My Project/Application.myapp b/Addons/scraper.IMDB.Data/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/My Project/Application.myapp
@@ -0,0 +1,10 @@
+
+
+ false
+ false
+ 0
+ true
+ 0
+ 1
+ true
+
diff --git a/Addons/scraper.IMDB.Data/My Project/AssemblyInfo.vb b/Addons/scraper.IMDB.Data/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..5d57487
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+
+
+
+
+
+
+
+
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+'
+
+
+
diff --git a/Addons/scraper.IMDB.Data/My Project/Resources.Designer.vb b/Addons/scraper.IMDB.Data/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''
+ _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''
+ _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''
+ _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.IMDB.Data/My Project/Resources.resx b/Addons/scraper.IMDB.Data/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/My Project/Resources.resx
@@ -0,0 +1,117 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/My Project/Settings.Designer.vb b/Addons/scraper.IMDB.Data/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ _
+ Friend Module MySettingsProperty
+
+ _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.IMDB.Data/My Project/Settings.settings b/Addons/scraper.IMDB.Data/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/My Project/Settings.settings
@@ -0,0 +1,7 @@
+
+
+
+
+
diff --git a/Addons/scraper.IMDB.Data/Resources/Logo.png b/Addons/scraper.IMDB.Data/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.IMDB.Data/Resources/Logo.png differ
diff --git a/Addons/scraper.IMDB.Data/Scraper/clsScrapeIMDB.vb b/Addons/scraper.IMDB.Data/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..06e23c6
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,1126 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see ]*?href[\s]?=[\s\""\']*(?.*?)[\""\']*.*?>(?[^<]+|.*?)?<\/a>"
+
+ Private Const ACTORTABLE_PATTERN As String = "(.*?)
"
+ Private Const HREF_PATTERN As String = ".*?)[""'].*?>(?.*?) "
+ Private Const HREF_PATTERN_2 As String = ".*?)[""""'].*?>(?.*?)"
+ Private Const HREF_PATTERN_3 As String = "([^<]*):([^<]*)[^<]*(([^<]*))?"
+ Private Const HREF_PATTERN_4 As String = "(?.*?)"
+ Private Const IMDB_ID_REGEX As String = "tt\d\d\d\d\d\d\d"
+ Private Const IMG_PATTERN As String = "![]()
.*?)"" width=""\d{1,3}"" height=""\d{1,3}"" border="".{1,3}"">"
+ Private Const MOVIE_TITLE_PATTERN As String = "(?<=<(title)>).*(?=<\/\1>)"
+ Private Const TABLE_PATTERN As String = "\n?(.*?)"
+ Private Const TD_PATTERN_1 As String = "(.*?)"
+ Private Const TD_PATTERN_2 As String = "(?<=)(.*?)(?=)(\s\(.*?\))?"
+ Private Const TD_PATTERN_3 As String = "(.*?)"
+ Private Const TD_PATTERN_4 As String = "(?.*?)</td>"
+ Private Const TITLE_PATTERN As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>((\s)+?(\((?<year>\d{4})(\/.*?)?\)))?((\s)+?(\((?<type>.*?)\)))?"
+ Private Const TR_PATTERN As String = "<tr\sclass="".*?"">(.*?)</tr>"
+
+ Private sPoster As String
+
+#End Region 'Fields
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As IMDB.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwIMDB.IsBusy Then bwIMDB.CancelAsync()
+
+ While bwIMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim ofdbTitle As String = String.Empty
+ Dim ofdbOutline As String = String.Empty
+ Dim ofdbPlot As String = String.Empty
+ Dim ofdbGenre As String = String.Empty
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If (UseOFDBTitle AndAlso Options.bTitle) OrElse (UseOFDBOutline AndAlso Options.bOutline) OrElse _
+ (UseOFDBPlot AndAlso Options.bPlot) OrElse (UseOFDBGenre AndAlso Options.bGenre) Then
+ Dim OFDBScrape As New OFDB(strID, IMDBMovie)
+ If UseOFDBTitle AndAlso Options.bTitle Then ofdbTitle = OFDBScrape.Title
+ If UseOFDBOutline AndAlso Options.bOutline Then ofdbOutline = OFDBScrape.Outline
+ If UseOFDBPlot AndAlso Options.bPlot Then ofdbPlot = OFDBScrape.Plot
+ If UseOFDBGenre AndAlso Options.bGenre Then ofdbGenre = OFDBScrape.Genre
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sPlot As New HTTP
+ Dim PlotHtml As String = sPlot.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/plotsummary"))
+ sPlot = Nothing
+
+ IMDBMovie.IMDBID = strID
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim OriginalTitle As String = Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString
+ If Options.bTitle Then
+ Dim oldOTitle As String = IMDBMovie.OriginalTitle
+ IMDBMovie.OriginalTitle = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(OriginalTitle, ".*(?=\s\(\d+.*?\))").ToString)).Trim
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ If Not String.IsNullOrEmpty(ofdbTitle) Then
+ IMDBMovie.Title = ofdbTitle.Trim
+ Else
+ If Not String.IsNullOrEmpty(Master.eSettings.ForceTitle) Then
+ IMDBMovie.Title = GetForcedTitle(strID, IMDBMovie.OriginalTitle)
+ Else
+ IMDBMovie.Title = IMDBMovie.OriginalTitle.Trim
+ End If
+ End If
+ If String.IsNullOrEmpty(oldOTitle) OrElse Not oldOTitle = IMDBMovie.OriginalTitle Then
+ IMDBMovie.SortTitle = String.Empty
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ sPoster = Regex.Match(Regex.Match(HTML, "(?<=\b(name=""poster"")).*\b[</a>]\b").ToString, "(?<=\b(src=)).*\b(?=[</a>])").ToString.Replace("""", String.Empty).Replace("/></", String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Regex.Match(OriginalTitle, "(?<=\()\d+(?=.*\))", RegexOptions.RightToLeft).ToString
+
+ Dim D, W, tempD As Integer
+
+ If Options.bMPAA AndAlso (String.IsNullOrEmpty(IMDBMovie.MPAA) OrElse Not Master.eSettings.LockMPAA) Then
+ tempD = If(HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>") > 0, HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ W = If(D > 0, HTML.IndexOf("</div", D), 0)
+
+ IMDBMovie.MPAA = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Remove(0, 26)).Trim(), String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCert AndAlso (String.IsNullOrEmpty(IMDBMovie.Certification) OrElse Not Master.eSettings.LockMPAA) Then
+ 'get certifications
+ D = HTML.IndexOf("<h5>Certification:</h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Dim rCert As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN_3)
+
+ If rCert.Count > 0 Then
+ Dim Cert = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(Master.eSettings.CertificationLang)
+
+ If Not String.IsNullOrEmpty(Master.eSettings.CertificationLang) Then
+ If Cert.Count > 0 Then
+ IMDBMovie.Certification = Cert(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA AndAlso (Not Master.eSettings.CertificationLang = "USA" OrElse (Master.eSettings.CertificationLang = "USA" AndAlso String.IsNullOrEmpty(IMDBMovie.MPAA))) Then
+ IMDBMovie.MPAA = If(Master.eSettings.CertificationLang = "USA", StringUtils.USACertToMPAA(IMDBMovie.Certification), If(Master.eSettings.OnlyValueForCert, IMDBMovie.Certification.Split(Convert.ToChar(":"))(1), IMDBMovie.Certification))
+ End If
+
+
+ Else
+ 'No FSK Rating was found -> Alternative: Set USA Rating instead as fallback, MPAA will be converted to FSK, Certification from USA will be used, so people can see that US info was used!
+ If Master.eSettings.UseMPAAForFSK Then
+ Try
+ If Master.eSettings.CertificationLang = "Germany" AndAlso (IMDBMovie.MPAA.ToLower.Contains("usa") Or IMDBMovie.MPAA.ToLower.Contains("rated")) Then
+ Dim LANGRATING As String = "USA"
+ Dim Cert2 = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(LANGRATING)
+ If Cert2.Count > 0 Then
+ IMDBMovie.Certification = Cert2(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA Then
+ If IMDBMovie.MPAA.ToLower.Contains("usa:g") Or IMDBMovie.MPAA.ToLower.Contains("rated g") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:0"
+ Else
+ IMDBMovie.MPAA = "0"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg-13") Or IMDBMovie.MPAA.ToLower.Contains("rated pg-13") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:16"
+ Else
+ IMDBMovie.MPAA = "16"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg") Or IMDBMovie.MPAA.ToLower.Contains("rated pg") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:12"
+ Else
+ IMDBMovie.MPAA = "12"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:r") Or IMDBMovie.Certification.ToLower.Contains("rated r") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:nc-17") Or IMDBMovie.Certification.ToLower.Contains("rated nc") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End If
+ End If
+
+
+ Else
+
+ IMDBMovie.Certification = Strings.Join(Cert.ToArray, " / ").Trim
+
+
+ End If
+ End If
+ End If
+
+ If String.IsNullOrEmpty(IMDBMovie.Certification) AndAlso Not String.IsNullOrEmpty(IMDBMovie.MPAA) Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ Dim RelDate As Date
+ Dim sRelDate As String = Regex.Match(HTML, "\d+\s\w+\s\d\d\d\d\s").ToString.Trim
+ If Not sRelDate = String.Empty Then
+ If Date.TryParse(sRelDate, RelDate) Then
+ IMDBMovie.ReleaseDate = Strings.FormatDateTime(RelDate, DateFormat.ShortDate).ToString
+ End If
+ Else
+ IMDBMovie.ReleaseDate = Nothing
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ Dim RegexRating As String = Regex.Match(HTML, "\b\d\W\d/\d\d").ToString
+ If String.IsNullOrEmpty(RegexRating) Then
+ IMDBMovie.Rating = String.Empty
+ Else
+ IMDBMovie.Rating = RegexRating.Split(Convert.ToChar("/")).First.Trim
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ 'Get first IMDB trailer if possible
+ Dim trailers As List(Of String) = GetTrailers(IMDBMovie.IMDBID)
+ 'Dim TMDB As New TMDB.Scraper
+ 'Dim YT As String = TMDB.GetTrailers(IMDBMovie.IMDBID)
+
+ 'Dim sTrailerUrl As String = Regex.Match(HTML, "href=""(.*?/video/imdb/vi.*?)""").Groups(1).Value.Trim
+ 'If Not sTrailerUrl = String.Empty Then
+ 'Dim sTrailerURL2 As String = String.Empty
+ 'sTrailerUrl = String.Concat("http://", IMDBURL, sTrailerUrl, "player")
+ 'Dim HTTPTrailer As New HTTP
+ 'Dim HtmlTrailer As String = HTTPTrailer.DownloadData(sTrailerUrl)
+ 'HTTPTrailer = Nothing
+
+ 'sTrailerUrl = Regex.Match(HtmlTrailer, "so.addVariable\(""id"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'If sTrailerUrl = String.Empty Then
+ 'sTrailerURL2 = Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'Else
+ 'sTrailerURL2 = String.Concat(Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim, sTrailerUrl)
+ 'End If
+ 'IMDBMovie.Trailer = Web.HttpUtility.UrlDecode(sTrailerURL2)
+ 'End If
+ IMDBMovie.Trailer = trailers.FirstOrDefault()
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then IMDBMovie.Votes = Regex.Match(HTML, "class=""tn15more"">([0-9,]+) votes</a>").Groups(1).Value.Trim
+
+ 'Top250
+ 'ie: <a href="/chart/top?tt0167260">Top 250: #13</a>
+ If Options.bTop250 Then IMDBMovie.Top250 = Regex.Match(HTML, String.Concat("/chart/top\?tt", IMDBMovie.IMDBID, """>Top 250: #([0-9]+)</a>")).Groups(1).Value.Trim
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCast Then
+ 'Find all cast of the movie
+ 'Match the table only 1 time
+ Dim ActorsTable As String = Regex.Match(HTML, ACTORTABLE_PATTERN).ToString
+ Dim ThumbsSize = AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400")
+
+ Dim rCast As MatchCollection = Regex.Matches(ActorsTable, TR_PATTERN)
+
+ Dim Cast1 = From M In rCast _
+ Let m1 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_1).ToString, HREF_PATTERN) _
+ Let m2 = Regex.Match(M.ToString, TD_PATTERN_2).ToString _
+ Let m3 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_3).ToString, IMG_PATTERN) _
+ Select New MediaContainers.Person(Web.HttpUtility.HtmlDecode(m1.Groups("name").ToString.Trim), _
+ Web.HttpUtility.HtmlDecode(m2.ToString.Trim), _
+ If(m3.Groups("thumb").ToString.IndexOf("addtiny") > 0 OrElse m3.Groups("thumb").ToString.IndexOf("no_photo") > 0, String.Empty, Strings.Replace(Web.HttpUtility.HtmlDecode(m3.Groups("thumb").ToString.Trim), _
+ "._SX23_SY30_.jpg", String.Concat("._", ThumbsSize, "_.jpg")))) Take If(Master.eSettings.ActorLimit > 0, Master.eSettings.ActorLimit, 999999)
+
+ If Master.eSettings.CastImagesOnly Then
+ Cast1 = Cast1.Where(Function(p As MediaContainers.Person) (Not String.IsNullOrEmpty(p.Thumb)))
+ End If
+
+ Dim Cast As List(Of MediaContainers.Person) = Cast1.ToList
+
+ 'Clean up the actors list
+ For Each Ps As MediaContainers.Person In Cast
+ For Each sMatch As Match In Regex.Matches(Ps.Role, HREF_PATTERN)
+ Ps.Role = Ps.Role.Replace(sMatch.Value, sMatch.Groups("name").Value.ToString.Trim)
+ Next
+ ' Dim a_patterRegex = Regex.Match(Ps.Role, HREF_PATTERN)
+ ' If a_patterRegex.Success Then Ps.Role = a_patterRegex.Groups("name").ToString.Trim
+ Next
+
+ IMDBMovie.Actors = Cast
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ D = 0 : W = 0
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+
+ tempD = If(HTML.IndexOf("<h5>Tagline:</h5>") > 0, HTML.IndexOf("<h5>Tagline:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ Dim lHtmlIndexOf As Integer = If(D > 0, HTML.IndexOf("<a class=""tn15more inline""", D), 0)
+ Dim TagLineEnd As Integer = If(lHtmlIndexOf > 0, lHtmlIndexOf, 0)
+ If D > 0 Then W = If(TagLineEnd > 0, TagLineEnd, HTML.IndexOf("</div>", D))
+
+ IMDBMovie.Tagline = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Replace("<h5>Tagline:</h5>", String.Empty).Split(vbCrLf.ToCharArray)(1)).Trim, String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bDirector Then
+ 'Get the directors
+ D = If(HTML.IndexOf("<h5>Director:</h5>") > 0, HTML.IndexOf("<h5>Director:</h5>"), HTML.IndexOf("<h5>Directors:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any director(s) ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first director's name
+ Dim rDir As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Dir = From M In rDir Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Dir.Count > 0 Then
+ IMDBMovie.Director = Strings.Join(Dir.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ 'Get the countries
+ D = If(HTML.IndexOf("<h5>Country:</h5>") > 0, HTML.IndexOf("<h5>Country:</h5>"), HTML.IndexOf("<h5>Countries:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any country ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first country's name
+ Dim rCou As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Cou = From M In rCou Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Cou.Count > 0 Then
+
+ 'fix for display country flag in XBMC!
+ If Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("USA") Then
+ IMDBMovie.Country = "United States of America"
+ ElseIf Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("UK") Then
+ IMDBMovie.Country = "United Kingdom"
+ Else
+ IMDBMovie.Country = Strings.Join(Cou.ToArray, " / ").Trim()
+ End If
+
+ End If
+ End If
+
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ If Not String.IsNullOrEmpty(ofdbGenre) Then
+ IMDBMovie.Genre = ofdbGenre
+ Else
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Genre:</h5>")
+ 'Check if doesnt find genres
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString) Where Not N.Contains("more") Take If(Master.eSettings.GenreLimit > 0, Master.eSettings.GenreLimit, 999999)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ IMDBMovie.Genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+
+ If Not String.IsNullOrEmpty(ofdbOutline) Then
+ IMDBMovie.Outline = ofdbOutline
+ Else
+ 'Get the Plot Outline
+ D = 0 : W = 0
+
+ Try
+ If IMDBMovie.Title.Contains("(VG)") Then
+ D = If(HTML.IndexOf("<h5>Plot Summary:</h5>") > 0, HTML.IndexOf("<h5>Plot Summary:</h5>"), HTML.IndexOf("<h5>Tagline:</h5>"))
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ Else
+ tempD = If(HTML.IndexOf("<h5>Plot:</h5>") > 0, HTML.IndexOf("<h5>Plot:</h5>"), HTML.IndexOf("<h5>Plot Summary:</h5>"))
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+ If D <= 0 Then D = HTML.IndexOf("<h5>Plot Synopsis:</h5>")
+ If D > 0 Then
+ W = HTML.IndexOf("<a class=", D)
+ If W > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mplot
+ End If
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mPlot 'This plot synopsis is empty
+ End If
+ End If
+ Dim PlotOutline As String = HTML.Substring(D, W - D).Remove(0, 26)
+
+ PlotOutline = Web.HttpUtility.HtmlDecode(If(PlotOutline.Contains("is empty") OrElse PlotOutline.Contains("View full synopsis") _
+ , String.Empty, PlotOutline.Replace("|", String.Empty).Replace("»", String.Empty)).Trim)
+ 'check if outline has links to other IMDB entry
+ If Not String.IsNullOrEmpty(PlotOutline) Then
+ For Each rMatch As Match In Regex.Matches(PlotOutline, HREF_PATTERN_4)
+ PlotOutline = PlotOutline.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Outline = Regex.Replace(PlotOutline, HREF_PATTERN, String.Empty).Trim
+ Else
+ IMDBMovie.Outline = String.Empty
+ End If
+
+ Catch ex As Exception
+ IMDBMovie.Outline = String.Empty
+ End Try
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+mPlot:
+ 'Get the full Plot
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Not String.IsNullOrEmpty(ofdbPlot) Then
+ IMDBMovie.Plot = ofdbPlot
+ Else
+ Dim FullPlotP As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)</p>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlotI As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)<i>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlot As String = If(FullPlotI.Length < FullPlotP.Length, FullPlotI, FullPlotP)
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ For Each rMatch As Match In Regex.Matches(FullPlot, HREF_PATTERN_4)
+ FullPlot = FullPlot.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Plot = Web.HttpUtility.HtmlDecode(FullPlot.Replace("|", String.Empty)).Trim
+ End If
+
+ End If
+
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then IMDBMovie.Runtime = Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<h5>Runtime:</h5>[^0-9]*([^<]*)").Groups(1).Value.Trim)
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ D = 0 : W = 0
+ If FullCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ 'only get the first one
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString) Take 1
+ IMDBMovie.Studio = Ps(0).ToString.Trim
+ End If
+ Else
+ D = HTML.IndexOf("<h5>Company:</h5>")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ IMDBMovie.Studio = Web.HttpUtility.HtmlDecode(Regex.Match(HTML.Substring(D, W - D), HREF_PATTERN).Groups("name").ToString.Trim)
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get Writers
+ If Options.bWriters Then
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Writer")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim q = From M In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(M, Match).Groups("name").ToString.Trim = "more" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "(more)" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "WGA" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim.Contains("see more") _
+ Select Writer = Web.HttpUtility.HtmlDecode(String.Concat(DirectCast(M, Match).Groups("name").ToString, If(FullCrew, " (writer)", String.Empty)))
+
+ If q.Count > 0 Then
+ IMDBMovie.OldCredits = Strings.Join(q.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Then
+
+ D = 0 : W = 0
+ D = HTML.IndexOf("Directed by</a></h5>")
+ If D > 0 Then W = HTML.IndexOf("</body>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim qTables As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TABLE_PATTERN)
+
+ For Each M As Match In qTables
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Producers
+ If Options.bProducers AndAlso M.ToString.Contains("Produced by</a></h5>") Then
+ Dim Pr = From Po In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Where Not Po.ToString.Contains(String.Concat("http://", IMDBURL, "/Glossary/")) _
+ Let P1 = Regex.Match(Po.ToString, HREF_PATTERN_2) _
+ Where Not String.IsNullOrEmpty(P1.Groups("name").ToString) _
+ Select Producer = Web.HttpUtility.HtmlDecode(String.Concat(P1.Groups("name").ToString, " (producer)"))
+
+ If Pr.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Pr.ToArray, " / ").Trim)
+ End If
+ End If
+
+ 'Music by
+ If Options.bMusicBy AndAlso M.ToString.Contains("Original Music by</a></h5>") Then
+ Dim Mu = From Mo In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Let M1 = Regex.Match(Mo.ToString, HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(M1.Groups("name").ToString) _
+ Select Musician = Web.HttpUtility.HtmlDecode(String.Concat(M1.Groups("name").ToString, " (music by)"))
+
+ If Mu.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Mu.ToArray, " / ").Trim)
+ End If
+ End If
+
+ Next
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Special Effects
+ If Options.bOtherCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Special Effects</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(DirectCast(P1, Match).Groups("name").ToString) _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ If Ps.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Ps.ToArray, " / ").Trim)
+ End If
+ End If
+ End If
+ End If
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ alStudio.AddRange(Ps.ToArray)
+ End If
+
+ Return alStudio
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ 'r.PopularTitles.Sort()
+ 'r.ExactMatches.Sort()
+ 'r.PartialMatches.Sort()
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.ExactMatches.Count = 1 Then 'AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count = 1 AndAlso r.PopularTitles(0).Lev <= 5 Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count = 1 AndAlso r.ExactMatches(0).Lev <= 5 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgIMDBSearchResults
+ dIMDB.IMDBURL = IMDBURL
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+
+ 'check if ALL results are over lev value
+ Dim useAnyway As Boolean = False
+ If ((r.PopularTitles.Count > 0 AndAlso r.PopularTitles(0).Lev > 5) OrElse r.PopularTitles.Count = 0) AndAlso _
+ ((r.ExactMatches.Count > 0 AndAlso r.ExactMatches(0).Lev > 5) OrElse r.ExactMatches.Count = 0) AndAlso _
+ ((r.PartialMatches.Count > 0 AndAlso r.PartialMatches(0).Lev > 5) OrElse r.PartialMatches.Count = 0) Then
+ useAnyway = True
+ End If
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.ExactMatches)
+ Dim popularHaveYear As Integer = FindYear(dbMovie.Filename, r.PopularTitles)
+ 'it seems "popular matches" is a better result than "exact matches" ..... nope
+ 'If r.ExactMatches.Count = 1 AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ ' b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf (popularHaveYear >= 0 OrElse exactHaveYear = -1) AndAlso r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(If(popularHaveYear >= 0, popularHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.PopularTitles.Item(If(popularHaveYear >= 0, popularHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(If(exactHaveYear >= 0, exactHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.ExactMatches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.PartialMatches.Count > 0 Then
+ ' b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'End If
+ If r.ExactMatches.Count = 1 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count > 1 AndAlso exactHaveYear >= 0 Then
+ b = GetMovieInfo(r.ExactMatches.Item(exactHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso popularHaveYear >= 0 Then
+ b = GetMovieInfo(r.PopularTitles.Item(popularHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCrew, False, Options, True)
+ ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PartialMatches.Count > 0 AndAlso (r.PartialMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ Dim fTitle As String = oTitle
+
+ Try
+ If bwIMDB.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/releaseinfo#akas"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<h5><a name=""akas"">Also Known As (AKA)</a></h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ Dim rTitles As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TD_PATTERN_4, RegexOptions.Multiline Or RegexOptions.IgnorePatternWhitespace)
+
+ If rTitles.Count > 0 Then
+ For i As Integer = 1 To rTitles.Count - 1 Step 2
+ If rTitles(i).Value.ToString.Contains(Master.eSettings.ForceTitle) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (working title)")) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (fake working title)")) Then
+ fTitle = CleanTitle(Web.HttpUtility.HtmlDecode(rTitles(i - 1).Groups("title").Value.ToString.Trim))
+ Exit For
+ End If
+ Next
+ End If
+
+ End If
+
+ Return fTitle
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return fTitle
+ End Try
+ End Function
+
+ Private Function GetMovieID(ByVal strObj As String) As String
+ Return Regex.Match(strObj, IMDB_ID_REGEX).ToString.Replace("tt", String.Empty)
+ End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+
+ Dim D, W As Integer
+ Dim R As New MovieSearchResults
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft"))
+ Dim HTMLp As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_tt_pop"))
+ Dim HTMLm As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_ft"))
+ Dim HTMLe As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&exact=true&ref_=fn_tt_ex"))
+ Dim rUri As String = sHTTP.ResponseUri
+ sHTTP = Nothing
+
+ 'Check if we've been redirected straight to the movie page
+ If Regex.IsMatch(rUri, IMDB_ID_REGEX) Then
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(Regex.Match(rUri, IMDB_ID_REGEX).ToString, _
+ StringUtils.ProperCase(sMovie), Regex.Match(Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString, "(?<=\()\d+(?=.*\))").ToString, 0)
+ R.ExactMatches.Add(lNewMovie)
+ Return R
+ End If
+
+ 'popular titles
+ D = HTMLp.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mPartial
+ W = HTMLp.IndexOf("</table>", D) + 8
+
+ Dim Table As String = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qPopular = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PopularTitles = qPopular.ToList
+mPartial:
+
+ D = HTMLm.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mExact
+ W = HTMLm.IndexOf("</table>", D) + 8
+
+ Table = Regex.Match(HTMLm.Substring(D, W - D), TABLE_PATTERN).ToString
+ Dim qpartial = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PartialMatches = qpartial.ToList
+ 'mApprox:
+
+ ' 'Now process "Approx Matches" and merge both Partial and Approx matches
+ ' D = HTML.IndexOf("Titles (Approx Matches)")
+ ' If D <= 0 Then GoTo mExact
+ ' W = HTML.IndexOf("</table>", D) + 8
+
+ ' Table = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ ' Dim qApprox = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ ' Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ ' Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ ' Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ ' If Not IsNothing(R.PartialMatches) Then
+ ' R.PartialMatches = R.PartialMatches.Union(qApprox.ToList).ToList
+ ' Else
+ ' R.PartialMatches = qApprox.ToList
+ ' End If
+
+mExact:
+
+ D = HTMLe.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mResult
+ W = HTMLe.IndexOf("</table>", D) + 8
+
+ Table = String.Empty
+ Table = Regex.Match(HTMLe.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qExact = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString.ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.ExactMatches = qExact.ToList
+
+mResult:
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+ Public Function GetTrailers(imdbID As String) As List(Of String)
+ Dim TrailerList As New List(Of String)
+ Dim TrailerNumber As Integer = 0
+ Dim Links As MatchCollection
+ Dim trailerPage As String
+ Dim trailerUrl As String
+ Dim Link As Match
+ Dim currPage As Integer = 0
+
+ Dim WebPage As New HTTP
+ Dim _ImdbTrailerPage As String = String.Empty
+
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer"))
+ If _ImdbTrailerPage.ToLower.Contains("page not found") Then
+ _ImdbTrailerPage = String.Empty
+ End If
+
+ If Not String.IsNullOrEmpty(_ImdbTrailerPage) Then
+ Link = Regex.Match(_ImdbTrailerPage, "of [0-9]{1,3}")
+
+ If Link.Success Then
+ TrailerNumber = Convert.ToInt32(Link.Value.Substring(3))
+
+ If TrailerNumber > 0 Then
+ currPage = Convert.ToInt32(Math.Ceiling(TrailerNumber / 10))
+
+ For i As Integer = 1 To currPage
+ If Not i = 1 Then
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer?page=", i))
+ End If
+
+ Links = Regex.Matches(_ImdbTrailerPage, "screenplay/(vi[0-9]+)/")
+ Dim linksCollection As String() = From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()
+
+ Links = Regex.Matches(_ImdbTrailerPage, "imdb/(vi[0-9]+)/")
+ linksCollection = linksCollection.Concat(From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()).ToArray
+
+ For Each value As String In linksCollection
+ If value.Contains("screenplay") Then
+ trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player"))
+ trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ TrailerList.Add(trailerUrl)
+ End If
+ Else
+ ''480p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=2"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+
+ ''720p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=3"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+ End If
+ Next
+ Next
+ End If
+ End If
+ End If
+ Return TrailerList
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Data/Scraper/clsScrapeIMPA.vb b/Addons/scraper.IMDB.Data/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..5f052ed
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,179 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Data/Scraper/clsScrapeImages.vb b/Addons/scraper.IMDB.Data/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..7bdb821
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/clsScrapeImages.vb
@@ -0,0 +1,940 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class ScrapeImages
+
+#Region "Methods"
+
+ Public Shared Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(IMDBID, "poster"))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ tmpListTMDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ TMDB = Nothing
+ IMPA = Nothing
+ MPDB = Nothing
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Shared Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("UseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+ ' Duplicate of clsImage
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0, Optional ByVal sUrl As String = "")
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' If Not sUrl = "" Then
+ ' Dim stroriginalurl As String = sUrl
+
+ ' 'Image Download from tmdb is special, need original size
+ ' If Not sUrl.Contains("impawards") AndAlso Not sUrl.Contains("movieposterdb") Then
+ ' 'Always get original image...
+ ' 'links to images (tmdb) have following structure: 'example: http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w92/x65b4vsFKYuA878pLN1mJiAsgIP.jpg
+ ' Dim stringArray() As String = Split(stroriginalurl, "/")
+ ' If stringArray.Length > 4 Then
+ ' ' stringArray(5) contains values like "w185","original", "w154"...-->size -> we want original!
+ ' stringArray(5) = "original"
+ ' stroriginalurl = Join(stringArray, "/")
+ ' End If
+ ' End If
+ ' Dim webclient As New Net.WebClient
+ ' webclient.DownloadFile(stroriginalurl, sPath)
+ ' Else
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+ ' End If
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/clsScrapeMPDB.vb b/Addons/scraper.IMDB.Data/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..7a7e13b
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,160 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Data/Scraper/clsScrapeOFDB.vb b/Addons/scraper.IMDB.Data/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..a220a06
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,280 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, Wq, Wqq, B As Integer
+ Dim tmpHTML As String
+
+ D = HTML.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ Wq = tmpHTML.IndexOf("<b>Quelle:</b>")
+ If Wq > 0 Then
+ Wqq = tmpHTML.IndexOf("<br><br>", Wq)
+ B = tmpHTML.IndexOf("</font></p>", Wqq + 8)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(Wqq + 8, B - (Wqq + 8)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<td width=""99\%""><h1 itemprop=""name""><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h1></td>").Groups(1).Value.ToString))
+ If OFDBTitle.EndsWith(", Der") Then
+ _title = String.Concat("Der ", OFDBTitle.Replace(", Der", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Die") Then
+ _title = String.Concat("Die ", OFDBTitle.Replace(", Die", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Das") Then
+ _title = String.Concat("Das ", OFDBTitle.Replace(", Das", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", The") Then
+ _title = String.Concat("The ", OFDBTitle.Replace(", The", " ")).Trim
+ Else
+ _title = OFDBTitle
+ End If
+ End If
+
+ Dim D, Dq, W, Wq, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Wq = HTML.IndexOf("<span itemprop=""description"">", Dq)
+ W = HTML.IndexOf("<a href=""plot", Wq + 29)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(Wq + 29, W - (Wq + 29)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf D > 0 Then
+ W = HTML.IndexOf("<a href=""", D + 44)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 44, W - (D + 44)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : Dq = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 197, L - (D + 197)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ ElseIf D > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 44, L - (D + 44)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?><span itemprop=""genre"">(?<name>.*?)</span></a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/clsScrapeTMDB.vb b/Addons/scraper.IMDB.Data/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..d40e628
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,243 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Debug.Print("{0}/t{1}", tmdbI.@size, tmdbI.@url)
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/clsScrapeTrailers.vb b/Addons/scraper.IMDB.Data/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..19327b4
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", False) Then
+ Me.GetImdbTrailer()
+ End If
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetIMDBTrailer()
+ Dim IMDB As New IMDB.Scraper
+ IMDB.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ Dim results As List(Of String) = IMDB.GetTrailers(_ImdbID)
+
+ Me._TrailerList.AddRange(results)
+
+ IMDB = Nothing
+ End Sub
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper
+ Dim YT As String = TMDB.GetTrailers(_ImdbID)
+
+ If Not String.IsNullOrEmpty(YT) Then
+ Me._TrailerList.Add(YT)
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/clsScrapeYouTube.vb b/Addons/scraper.IMDB.Data/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..b4603fd
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,335 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb b/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..6d0924e
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb
@@ -0,0 +1,480 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgIMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgIMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtIMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.txtFileName = New System.Windows.Forms.TextBox()
+ Me.btnOpenFolder = New System.Windows.Forms.Button()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(501, 431)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(574, 431)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(8, 126)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 5
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(298, 160)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(295, 100)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(295, 119)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(298, 325)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(476, 160)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(476, 186)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(476, 213)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtIMDBID
+ '
+ Me.txtIMDBID.Enabled = False
+ Me.txtIMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBID.Location = New System.Drawing.Point(143, 429)
+ Me.txtIMDBID.Name = "txtIMDBID"
+ Me.txtIMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtIMDBID.TabIndex = 7
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(647, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(256, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(8, 433)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(128, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual IMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(249, 429)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(476, 277)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(35, 13)
+ Me.lblIMDB.TabIndex = 19
+ Me.lblIMDB.Text = "IMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(414, 160)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(32, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(414, 186)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(414, 213)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(414, 277)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(53, 13)
+ Me.lblIMDBHeader.TabIndex = 18
+ Me.lblIMDBHeader.Text = "IMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(295, 309)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(266, 100)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(8, 101)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(368, 213)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 20
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching IMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(312, 185)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtFileName
+ '
+ Me.txtFileName.Enabled = False
+ Me.txtFileName.Location = New System.Drawing.Point(8, 73)
+ Me.txtFileName.Name = "txtFileName"
+ Me.txtFileName.Size = New System.Drawing.Size(598, 22)
+ Me.txtFileName.TabIndex = 3
+ '
+ 'btnOpenFolder
+ '
+ Me.btnOpenFolder.Location = New System.Drawing.Point(612, 73)
+ Me.btnOpenFolder.Name = "btnOpenFolder"
+ Me.btnOpenFolder.Size = New System.Drawing.Size(29, 23)
+ Me.btnOpenFolder.TabIndex = 23
+ Me.btnOpenFolder.Text = "..."
+ Me.btnOpenFolder.UseVisualStyleBackColor = True
+ '
+ 'dlgIMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(647, 492)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnOpenFolder)
+ Me.Controls.Add(Me.txtFileName)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtIMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgIMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+ Friend WithEvents txtFileName As System.Windows.Forms.TextBox
+ Friend WithEvents btnOpenFolder As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.resx b/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.resx
new file mode 100644
index 0000000..fc0d614
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.resx
@@ -0,0 +1,190 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr5AAAK+QG0Yd4ZAAALEUlE
+ QVRoQ+1YCVCU5xle5Qa55JDTRA4XWMIpKsgRLgFRVOQGAbl21+VabuWSS0A0chiPIB5RquKRkIR4VI1N
+ SMxMjW1sik2maWOSydFOkknTZprD/+n7/i4Gcrad1CYzvDPP/N/u/v/3v+fzvt9KZmRGZmRGZmRGZmRG
+ fgZi7+CoWf2ExN5xvmb1lXh6eRsFh4TMc5fJQpycnXvs7OxbLa2s7zeznDdLc8v/X76u+KKAALeNKlW6
+ UqnsycrKurQiPv6jZcuWwd3dHXZ2dphrYfHmPBubATs7h04bW9t6Xz+/Cnom38PD8z7NFpLszCyJmflc
+ zSeJxNTMXLP6kWWq8mXl6tbevv7Xe/v6PtizZ89nnZ2dKCkpQXJyMoKDg7Fq1SohISFBWJeYiFUJCVjg
+ 5CRC6uYmkIFfBAYFfbg0MGjU1s5+iWbLaWLn4Oi2UOoeovkoMTA00qz+TVm7dq0OKaGXlpFhVFJWZqbc
+ qLLKy8uz9fPzX5Cdk/P86OgoJiYmcOvWLeHRI0fQ0NCA4uJiJCUlITQ0VMTixYtFg/Lz8rBx40ZwZHx9
+ fREVFSWUlpYK6enpoKghMTFxYllwSGpo2IPOUdHR+0NCQz+IioqGXKHA8uXL37W0tvYilb47DcMjIjUr
+ iU5waFjgvn37Snp7e49WVFScpk0u7d69+8aOHQ+9U1VV9UVOTg7i4uIgk8kEPz8/HDt2DNevX0dfXx8y
+ MjJYGaTTNTc3V7zGxMYibsUKqCsqRCPYMDYkLS0d5eXloD1RUVmJuro6lJWV31bRPRQ5NlSwsrIWvLy9
+ 4eLi8q6ugYEL6adFmG5IWHiEeI2IiMpvbGx8p7u7++OGxobbtEZ9fT02bNgA9lR/fz86OjqgIK9weixa
+ tEjMcUtLS5w/fx5nz55FkVyO+PiVpEgZUlNTERERgRWkfHh4OBLXraMoNVKalUKlKhYNZIOy1q9HS1sb
+ 2js6hO09PfydQPuDnWNrawsDAwPBxs7uS30Dg0pS04AwW1R4qjwYEZnd2dWF/Px8gdJEKKaX7HjkGIrV
+ VWCPR0ZGghVmg6hY2QDxs6OjI7S1tcUc55Q6fPgwVq5KAO2BNWvWiNHgFOFn2AiKLI5QuvG7mrdsQUtL
+ C65du4YrV65gbGwM1TU1KCoqEvdnA9hBurq60NLShomp6VZSlSudjeBI3BXt9vaOtwoLC8XQcR7nFynR
+ 99Tv0f/0BJQV9Yh4MExkFR8fH8jJy1MN0NfXF6Nw8OBBMUpsZExsHDIzM0VlONe5PlauXCkcOnQIZ86c
+ wdGjR8nYRzE+Po6LFy+K0WMHnDhxQiQCuneaAbNmzYKxsfFL2jo6HqSvDcGY9WblJcTb3vTijzgt2ACV
+ SoXcfDlaj19D44lXUHfoKhJTsyjnPWBtbY3o6GjR0KkG0OboIq+2USrU1tYiOSUF/vQ7O4PTLicnF8xS
+ rOjQ0JBY9M899xwuXbqEkZERMroB+QUFFLl8bNq8GfFkgL+//10DSE3MnTsX7h6yEVo7aGBCkEiSklOW
+ dG/b9jHnKnuWc1OuLIaq5wkU9b2A7O3jSK/sxwNeXrCwsICrqyvlefykAQIbYGVlhda2NqG6upojJGRk
+ ZAruHh4g/v+bk5NTF73GxcfXt6qxqeldVp4N6aNoNVCdscOUSgXWUY2EhoZg4UIpqFdA5uk51QDB3Nyc
+ i/8WrZnLFxDuNAsPT0+3vXv3fhAbGytw6Ni7lcQK8fJu+KmehHPOKSxSnIRPQJBoAG9E1IaAgADBwcEB
+ hkZGYg3UavKXi5d/d3Zx/a25hUUavcKMYFtTU1PZPzAwwWmmVqvBJNHc3IwtVAtcI2xAWFgYKS7DPIq0
+ Gb2HGt/dCJiZmcHBwbGa1gsJbMQcwh0hA96mohM4Cozk5CSszSmBVDUKF9UYnBVnkZBeKCqvo6MjphFH
+ YP78+f8wmmMsd3FxTSGPtS0NDHxy8ZIlv3Z2dunS09cPoK2N6HtPYqeXqA4+37SpDupytVBHaca1xEqz
+ 04g8vjJAJhPZZzI1J2vA0NDoMhUz7+lOmEfQvdtZK6uq+tgTpJjA1McezM1MQ2T5ALzbn4dr7RVkV3fD
+ zNRU0NLSEtgAKui/EDMU0eNLCbzxIoIfwZvAXjINj4xcV0DkwIXd3t4ubOvbgz3DT6ByczOyczdg9erV
+ YtdmZ3Dkpxqgp6cHYxMTmJqaYfbs2Z/MMZ6TS3v6EFwJHNVpTGT28MMP/5OZgyhTiImJAXViZGdSY2ob
+ gu9DL6Gs8xGYmpgIpqam/MIblDrZ9ByPAaws05slgRmCvTM7KDg4lfsBpyM5R9jc2IzDl1/Fo+Nv4+Cz
+ b6H35DiKqxsRFLgEUqkUzs7OYt+YaoCunp7gRuxH0TxMe7LyDC5gfcIdCQkJE68KpTJlcHBQbELc/tk7
+ 2dnZ2Ersse3gadQ2biFvmMLGxuamiYlJKj3CHVBGYF6eFO6SjDklpaVvMCNR4xMaKAJbHhrE3su30Df2
+ KnY8fhPdZyaw9eQNVLX2QeYuFYmAa2qygZEBAr2HZif3P9F+ywhBBH4fO2ua9yVSD6ZXiRaND7uGh4dF
+ TifOFmhMEI4fP44LF86DZpTblPPvU1uvoXvjCJwyd6jsaxIeFbWcCvTv3Fu421aoy9C273F0nb6JluGX
+ UX/oOlT9VxGqHsOCrBHEpijIMfNgRITg5ubGBjC7CTTJvmZgaJhMW4YSfAnTvf8tor1r1676Xxw79uG5
+ c+fwzDPPiOjq7n6Dcn6QPMR5GE/g4YlT5VslNS0tp6W19XOejbhYKyvUqOkZRt3QdZQOXEVk9VncT4rb
+ p52AY/oJBCuOwk3mJRasvb0906dAxnyiq6ObRdvxuzhVuWANCd8cJViIDTQriaS+ocGWxuWMpqbmThrG
+ aol9Mulr9sRaQjDBnjA9jFMkMzNrPTWwz1Kooa2nWaeROnFheTNyd7wIT8UoFuQ9BqfCxwmjcCp4DPfl
+ jSJNXkfFOoupWuAUouI9RVst1+ABAhfutyv/A8IhcyOwFzgHOW2+94QVExMbsX379k8oAgLTI0+aeUUq
+ +CpH4Kx8Eq6lT0OqPgdpxXksLKdoKMeQ2z2GOYYGAvO9rZ3dp7TNasIaAkfAmfC9qfNDwgrrEr7T618T
+ Y5qv3iNCEJjNuLmVl6sRnL0F0qoL8Ki/DK+WZ+HdNg7Ppitwrb6I6NZLWOzvIxIF5X4v7bGOMBlxZrc7
+ s8+9kpTU1J27Bga4QQnU5cVGxR03qHoYQbtfRszwHxB3/DWED/0OPltfQFTnrxAZHsIG/NHQ0LCAtsgg
+ cBSYOn8w6v8Lmd3U1PRRNR1YeEzhQxCfLeQFeUjb/RTyr/4Vit98jMwr7yH80E1BfuCqEBy09DbR6RA9
+ m0NYT1hB4IOMHuHeiYtUKl5J6bCdO3d+ygMbD4o8NnCzVBQVoHbXIDrGb6DixTeRePpVYe+pc3ByWnCB
+ mIi7O0eAGYiblNgYCfdWVCUl4jUxKSlz//79wgClE43bQg+duni9f/8gjlDPOXrytDDyxBgKFYpX6HYF
+ QUlgAzh9uEH9h6f5H1EAHiQlkvucnKJofH6HGuOXBw4cEE9u3CD5AHPy1Cls29bzPvH+Jrq1lKAiMG3z
+ fPXNrnuv5cCRI5qVxLyoSF5FB59f7uzt/TOl1vvUIF/Pzd1wkc67rfR7BUFN4BSKIfDfeTqEn5RwLtsQ
+ zwfS6S6V5h05fWaPFxM4dXhA5MbFvM9d9ycrzOncWe8nME0uJvgTJmd9blr3nDb/W+Ec5ybJYMN+NorP
+ yIzMyIz8rEUi+Re4NXpfio4DrwAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAAB9ElE
+ QVQ4T6XSTWgTQRQH8E0LaZPaD9oaxULRi0igJSroqYLoxaa3gpfSFrx4sGp7Kj31pDYnPQpG8dzgQcSg
+ 1orQZJPd2exWSYOxiXhKQz5oEjQxpubvm6WN2zUe1IXf7OzMe2/fLCsA+C9NF//GbwtPfD67wti5SES5
+ +GZ19ZB532zfg8Lkq+uallFVFZymqRUqdNcYY9aYMFma1igpFoshl80in88jsbkJvhZRlAfGJCN9eOH3
+ WxWF5TaiUezs1FCv13X8SiYSoD2IwaCTx5rpA20OS5KEVCqFWu07KpWyrlr9hkJhG4wxSOHwdXMypw+B
+ tTVXOBRCOr1FSVWUSkVSQrn8FcViEUyW8VkTr5iTOX14vbLSTgUK0d0j8C54IaCOZDIBRt1d9gYXjIl7
+ GhM6xjWZAvl3yGQy9BFziMfj+Phegcf3FsLMc7TdfHbPmMztexBFcZ7O+oXwM+NdRP5xf/nVJ9uEF9aJ
+ h2ifeoyOyUcve+eedjUtwNHP0x8MBMaoo/EPauioIAgW+6jH233pFrpG76DTvYRu99LGwNhtW9MCf+IY
+ WbjRf3YOfWdm0Uf3gQuLh/m60EqvID3kGDlBhoiLnCKnd52ksCO9g+dnHM4p6eDxcY/VIvzqgAJaSRux
+ kQ5ygHSa7XXDtVBOo8C/g/ATj6yxruTRIKcAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.vb b/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.vb
new file mode 100644
index 0000000..6fde061
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgIMDBSearchResults.vb
@@ -0,0 +1,520 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgIMDBSearchResults
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private IMDB As New IMDB.Scraper
+ Private sHTTP As New HTTP
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+ #Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As IMDB.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching IMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ IMDB.CancelAsync()
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.txtIMDBID.Text.Replace("tt", String.Empty), Master.tmpMovie, Master.DefaultOptions)
+ Else
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOpenFolder_Click(sender As Object, e As EventArgs) Handles btnOpenFolder.Click
+ Dim fPath As String = Directory.GetParent(Master.currMovie.Filename).FullName
+
+ If Not String.IsNullOrEmpty(fPath) Then
+ Shell("Explorer.exe " & fPath, vbNormalFocus)
+ End If
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtIMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtIMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ IMDB.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.UseOFDBTitle = UseOFDBTitle
+ IMDB.UseOFDBOutline = UseOFDBOutline
+ IMDB.UseOFDBPlot = UseOFDBPlot
+ IMDB.UseOFDBGenre = UseOFDBGenre
+ AddHandler IMDB.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler IMDB.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ If Not Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ Exit Sub
+ Else
+ If MsgBox(String.Concat(Master.eLang.GetString(13, "You have manually entered an IMDB ID but have not verified it is correct."), vbNewLine, vbNewLine, Master.eLang.GetString(101, "Are you sure you want to continue?", True)), MsgBoxStyle.YesNo, Master.eLang.GetString(14, "Continue without verification?")) = MsgBoxResult.No Then
+ Exit Sub
+ Else
+ Master.tmpMovie.IMDBID = Me.txtIMDBID.Text.Replace("tt", String.Empty)
+ End If
+ End If
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.IMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.IMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.IMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As IMDB.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) Then
+ If M.PartialMatches.Count > 0 OrElse M.PopularTitles.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Dim TnP As New TreeNode(String.Format(Master.eLang.GetString(17, "Partial Matches ({0})"), M.PartialMatches.Count))
+ Dim selNode As New TreeNode
+
+ If M.PartialMatches.Count > 0 Then
+ M.PartialMatches.Sort()
+ For Each Movie As MediaContainers.Movie In M.PartialMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+ selNode = TnP.FirstNode
+ End If
+
+ If M.PopularTitles.Count > 0 Then
+ M.PopularTitles.Sort()
+ If M.PartialMatches.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(19, "Popular Titles ({0})"), M.PopularTitles.Count))
+
+ For Each Movie As MediaContainers.Movie In M.PopularTitles
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+ End If
+
+ If M.ExactMatches.Count > 0 Then
+ M.ExactMatches.Sort()
+ If M.PartialMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(18, "Exact Matches ({0})"), M.ExactMatches.Count))
+ For Each Movie As MediaContainers.Movie In M.ExactMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+
+ End If
+ Me._prevnode = -2
+
+ 'determine if we automatically start downloading info for selected node
+ If M.ExactMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PopularTitles.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PartialMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ Else
+ Me.tvResults.SelectedNode = Nothing
+ End If
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual IMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(289, "IMDB ID:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching IMDB...")
+ Me.txtFileName.Text = Master.currMovie.Filename
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtIMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..213f00e
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,466 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlMPDB = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.lblDL1Status = New System.Windows.Forms.Label()
+ Me.lblDL1 = New System.Windows.Forms.Label()
+ Me.pbDL1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlMPDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 1
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 4
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 3
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 1
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 2
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 0
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 2
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 1
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 0
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 1
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlMPDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1Status)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1)
+ Me.pnlDLStatus.Controls.Add(Me.pbDL1)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(257, 132)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(321, 223)
+ Me.pnlDLStatus.TabIndex = 2
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlMPDB
+ '
+ Me.pnlMPDB.Controls.Add(Me.lblDL3Status)
+ Me.pnlMPDB.Controls.Add(Me.lblDL3)
+ Me.pnlMPDB.Controls.Add(Me.pbDL3)
+ Me.pnlMPDB.Location = New System.Drawing.Point(0, 147)
+ Me.pnlMPDB.Name = "pnlMPDB"
+ Me.pnlMPDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMPDB.TabIndex = 4
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 1
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 0
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 2
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.pnlSinglePic)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2)
+ Me.pnlIMPA.Controls.Add(Me.pbDL2)
+ Me.pnlIMPA.Location = New System.Drawing.Point(0, 73)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 3
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 1
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 0
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 2
+ '
+ 'lblDL1Status
+ '
+ Me.lblDL1Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1Status.Location = New System.Drawing.Point(5, 29)
+ Me.lblDL1Status.Name = "lblDL1Status"
+ Me.lblDL1Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1Status.TabIndex = 1
+ '
+ 'lblDL1
+ '
+ Me.lblDL1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1.Location = New System.Drawing.Point(5, 6)
+ Me.lblDL1.Name = "lblDL1"
+ Me.lblDL1.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1.TabIndex = 0
+ Me.lblDL1.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL1
+ '
+ Me.pbDL1.Location = New System.Drawing.Point(6, 49)
+ Me.pbDL1.Name = "pbDL1"
+ Me.pbDL1.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL1.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL1.TabIndex = 2
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(0, 1)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 1
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlMPDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblDL1Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL1 As System.Windows.Forms.Label
+ Friend WithEvents pbDL1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMPDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.resx b/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..e4a4f58
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALAAAA
+ CwAB5DetvwAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.vb b/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..7e37076
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1309 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+ Private TMDB As New TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+ Private selURL As String = ""
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal iImage As Image, ByVal sDescription As String, ByVal iIndex As Integer, ByVal sURL As String, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = iImage
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(sURL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+
+ Me.pnlSinglePic.Visible = True
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ Dim percent = 100 / posters.Count
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress(Convert.ToInt32((i + 1) * percent), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL1Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL1.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+ Me.selURL = poster.URL
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains("themoviedb.org") OrElse sURL.ToLower.Contains("d3gtl9l2a4fn1j.cloudfront.net") OrElse sURL.ToLower.Contains("cf1.imgobject.com") OrElse sURL.ToLower.Contains("cf2.imgobject.com") Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "backdrop")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "poster")
+ Else
+ Me.lblDL1.Text = Master.eLang.GetString(33, "TheMovieDB.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ Me.lblDL2.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL2.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ Me.lblDL3.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.WebImage.Image, xPoster.Description, iIndex, xPoster.URL, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ IMPA.IMDBURL = IMDBURL
+ TMDB.IMDBURL = IMDBURL
+ MPDB.IMDBURL = IMDBURL
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL3.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL2.Text = Me.lblDL3.Text
+ Me.lblDL1.Text = Me.lblDL3.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me._tmdbDone = True
+ Me.AllDoneDownloading()
+ Else
+ Me.pnlDLStatus.Visible = False
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL1.Value = 0
+
+ Me.lblDL1.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL1Status.Text = String.Empty
+
+ TMDBPosters = Posters
+ Me.pbDL1.Maximum = 100
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL1.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..2871b29
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,292 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.btnPlayBrowser = New System.Windows.Forms.Button()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(350, 340)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(120, 23)
+ Me.OK_Button.TabIndex = 6
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(350, 369)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(120, 23)
+ Me.Cancel_Button.TabIndex = 7
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(445, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(458, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(122, 60)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(130, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(445, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(410, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(395, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(71, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(426, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(151, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 369)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(224, 340)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(120, 23)
+ Me.btnSetNfo.TabIndex = 5
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(478, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'btnPlayBrowser
+ '
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnPlayBrowser.Location = New System.Drawing.Point(12, 340)
+ Me.btnPlayBrowser.Name = "btnPlayBrowser"
+ Me.btnPlayBrowser.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayBrowser.TabIndex = 4
+ Me.btnPlayBrowser.Text = "Open In Browser"
+ Me.btnPlayBrowser.UseVisualStyleBackColor = True
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(484, 398)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Controls.Add(Me.btnPlayBrowser)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents btnPlayBrowser As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.resx b/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..f08e020
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAK
+ 6QAACukB/XXO0wAAABh0RVh0U29mdHdhcmUAQWRvYmUgRmlyZXdvcmtzT7MfTgAAAfdJREFUOE+lkk1r
+ E1EUhi9apQsr7vwDigUXLtzpyrWlpdD8BSEbN1p1IRJQqNXoarCNH03aKlgQjU1ahCr2a6HSRRszGSe0
+ 4nQ+M9/JjIhYeb25JGVGmo0OPMw5h/M+9zIMAfBfxBpd07osyzxv21aCMuTY9pDnugmhUjkX3YsSa8xa
+ 7ToVgIZBw4wgaGBlZRn376WHo7ttYg0NjzfDTODYcB0H38MQS0uLuDM6isz42NXofpNYQwXc7uktge95
+ 0FQVxcIs5opFfPr44UI0s6cgeoO2JAwD1Ot+c56NZmIC+g2YwLJN+E6A0NtB6O/AdwMmbTEWzcQEhq5z
+ plmjgRBflDeYF5IMQZ5nMya3zM4CVVU4XdfQcH/hffUmbi0TxjvxBr3NbzTlhqF3FsjyNqcoMjzzB94K
+ aaQWjzAWhNuo2z9B/xOoitJZ8HVri5MkCbZWx1zpLoYXjjIKpRE4RgOKLGNbkjoL+HL5gbSpYGL1GpL5
+ Y7hYOMlI5o/j0eolqN8MVEUxE83EBBvr6yP8Zx4b5TVceTWIRK6XcfllP0qVNYiCiArPp6OZ3WI/IYf6
+ +/pO5bITmfzM6+e5Z9mps6ne6pnUic0nTx9Pz74ozkxPTT4cHBg4vY+Qw3sJDhBCutmQPq13DyFdPX/N
+ uunuwWbN+nbxb4D8AU3a+lQSEAyqAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
+ DAAACwwBP0AiyAAAAAd0SU1FB9kEGhIhAdf7pBcAAAJDSURBVDhPtVJLa5pBFPWxsGoQNI2oAY1ogigI
+ GitIULQufKxcBGmzLLpwo9B/UOgmv6GKuxDdCCKIGyOBLIpE8IWIaBauFEQSwcfCuZ07PkIogW564HDn
+ m7nnzHxzhvNfsFwuE5PJ5HelUnm5u7ubDYfD5ng8/kGXDjYd7+Dp6elTv9+fJxIJcDgcJBAIQDAYhIuL
+ CxKLxaDdbkOhUPiybX8LFJdKJdBoNOT8/BxcLheYzWaw2WyA30i9Xk+y2SxkMplvW9kr6M4LWohEIoHj
+ 42MIh8OQy+VAJpOBSqVic1KpFLCnVquBQqFQMyFisVh8x+PS4Z4ejwcQ6XSafXO53P2a1WqFer1+Q8cb
+ zOfzKi2Ect+Ev7BDKpXaz+/YarVeaN2gWq3OaAEejwd8Pp/R7XYz8Xq9ZjWZTDLh7iTlchnrR8pXA6FQ
+ CCKRCMRiMfh8PiYkhDCT5+dnODo6AoFAwAxoxFhVqOdMp9MWdSZ4SYeHhyCXyyEUCjEDFNN1TIddKF4y
+ GjSbzRWtH5jBaDT6eXl5CUqlEtRqNWi1Wri6umIGuDPGeXJywpJAc6fTCff392Um3uKAxogGxGAwMEEk
+ EoHVasXSsFgsYDKZ8B3gCUmj0QCdTufeajfI5/NfHx4ewGg0EvoKmQGeyuv1sh3tdjucnp6SYrEI19fX
+ v7ayt7i9vY3SFwnxeJzF6Pf72WWiQTQahW63+754B/qf6sfHx5vBYDDrdDqA7PV6Kxpb5ezs7PO27Z/A
+ pZRTYlRCnPgbHM4fFEdnm0hssg4AAAAASUVORK5CYII=
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.vb b/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..67c25ca
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgTrailer.vb
@@ -0,0 +1,480 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As New Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnPlayBrowser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayBrowser.Click
+ If Not String.IsNullOrEmpty(Me.txtYouTube.Text) Then
+ If Master.isWindows Then
+ Process.Start(Me.txtYouTube.Text)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.txtYouTube.Text
+ Explorer.Start()
+ End Using
+ End If
+ Else
+ If Master.isWindows Then
+ Process.Start(Me.lbTrailers.SelectedItem.ToString)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.lbTrailers.SelectedItem.ToString
+ Explorer.Start()
+ End Using
+ End If
+ End If
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ cTrailer.IMDBURL = IMDBURL
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.btnPlayBrowser.Enabled = False
+ Else
+ Me.btnPlayBrowser.Enabled = True
+ End If
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnPlayBrowser.Text = Master.eLang.GetString(114, "Open In Browser")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..8d135fa
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(72, 187)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(145, 187)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(4, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(170, 121)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(10, 8)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(180, 151)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(12, 75)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(12, 12)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(200, 169)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 217)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.resx b/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.vb b/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/clsScrapeTVDB.vb b/Addons/scraper.IMDB.Data/TVScraper/clsScrapeTVDB.vb
new file mode 100644
index 0000000..b0f8531
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/clsScrapeTVDB.vb
@@ -0,0 +1,1911 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Data
+Imports System.IO
+Imports System.Text
+
+Imports ICSharpCode.SharpZipLib.Zip
+Imports EmberAPI
+
+Public Class Scraper
+
+#Region "Fields"
+
+ Public Const APIKey As String = "7B090234F418D074"
+
+ Public Shared WithEvents sObject As New ScraperObject
+ Public Shared tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Public Shared tmpTVDBShow As New TVDBShow
+ Public Shared TVDBImages As New TVImages
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ AddHandler sObject.ScraperEvent, AddressOf InnerEvent
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ sObject.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String) As MediaContainers.EpisodeDetails
+ Return sObject.ChangeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .SelectedLang = Lang, .iSeason = -999})
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String) As List(Of Containers.TVLanguage)
+ Dim tvdbLangs As New List(Of Containers.TVLanguage)
+ Dim cLang As Containers.TVLanguage
+ Dim xmlTVDB As XDocument
+ Dim sHTTP As New HTTP
+
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/languages.xml", sMirror, APIKey))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbLangs
+ End Try
+
+ Dim xLangs = From xLanguages In xmlTVDB.Descendants("Language")
+
+ For Each xL As XElement In xLangs
+ cLang = New Containers.TVLanguage
+ cLang.LongLang = xL.Element("name").Value
+ cLang.ShortLang = xL.Element("abbreviation").Value
+ tvdbLangs.Add(cLang)
+ Next
+ End If
+ Return tvdbLangs
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As MediaContainers.EpisodeDetails
+ Return sObject.GetSingleEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images) As Images
+ Return sObject.GetSingleImage(New Structures.ScrapeInfo With {.ShowTitle = Title, .ShowID = ShowID, .TVDBID = TVDBID, .ImageType = Type, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .CurrentImage = CurrentImage})
+ End Function
+
+ Public Sub InnerEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Function IsBusy() As Boolean
+ Return sObject.IsBusy
+ End Function
+
+ Public Sub SaveImages()
+ sObject.SaveImages()
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iEpisode = iEpisode, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeSeason(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub SingleScrape(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean)
+ sObject.SingleScrape(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options, .ScrapeType = ScrapeType, .WithCurrent = WithCurrent, .iSeason = -999})
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ <Serializable()> _
+ Public Structure TVImages
+
+#Region "Fields"
+
+ Dim AllSeasonPoster As TVDBShowPoster
+ Dim SeasonImageList As List(Of TVDBSeasonImage)
+ Dim ShowFanart As TVDBFanart
+ Dim ShowPoster As TVDBShowPoster
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function Clone() As TVImages
+ Dim newTVI As New TVImages
+ Try
+ Using ms As New IO.MemoryStream()
+ Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
+ bf.Serialize(ms, Me)
+ ms.Position = 0
+ newTVI = DirectCast(bf.Deserialize(ms), TVImages)
+ ms.Close()
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return newTVI
+ End Function
+
+#End Region 'Methods
+
+ End Structure
+
+ Public Class ScraperObject
+
+#Region "Fields"
+
+ Friend WithEvents bwTVDB As New System.ComponentModel.BackgroundWorker
+
+ Private aXML As String = String.Empty
+ Private bXML As String = String.Empty
+ Private sXML As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Shared Sub LoadAllEpisodes(ByVal _ID As Integer, ByVal OnlySeason As Integer)
+ Try
+
+ tmpTVDBShow = New TVDBShow
+
+ tmpTVDBShow.Show = Master.DB.LoadTVFullShowFromDB(_ID)
+ tmpTVDBShow.AllSeason = Master.DB.LoadTVAllSeasonFromDB(_ID)
+
+ Using SQLCount As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLRCount As SQLite.SQLiteDataReader = SQLCount.ExecuteReader
+ If Convert.ToInt32(SQLRCount("eCount")) > 0 Then
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLReader As SQLite.SQLiteDataReader = SQLCommand.ExecuteReader
+ While SQLReader.Read
+ tmpTVDBShow.Episodes.Add(Master.DB.LoadTVEpFromDB(Convert.ToInt64(SQLReader("ID")), True))
+ End While
+ End Using
+ End Using
+ End If
+ End Using
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTVDB.IsBusy Then bwTVDB.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Try
+ Dim tEpisodes As List(Of MediaContainers.EpisodeDetails) = Me.GetListOfKnownEpisodes(sInfo)
+ If tEpisodes.Count > 0 Then
+ Using dChangeEp As New dlgTVChangeEp
+ Return dChangeEp.ShowDialog(tEpisodes)
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(79, "There are no known episodes for this show. Scrape the show, season, or episode and try again."), MsgBoxStyle.OkOnly, Master.eLang.GetString(80, "No Known Episodes"))
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Nothing
+ End Function
+
+ Public Sub DownloadSeries(ByVal sInfo As Structures.ScrapeInfo, Optional ByVal ImagesOnly As Boolean = False)
+ Try
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim fExists As Boolean = File.Exists(fPath)
+ Dim doDownload As Boolean = False
+
+ Select Case Master.eSettings.TVUpdateTime
+ Case Enums.TVUpdateTime.Always
+ doDownload = True
+ Case Enums.TVUpdateTime.Never
+ doDownload = False
+ Case Enums.TVUpdateTime.Week
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(7) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.BiWeekly
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(14) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.Month
+ If fExists AndAlso File.GetCreationTime(fPath).AddMonths(1) < Now Then doDownload = True
+ End Select
+
+ If doDownload OrElse Not fExists Then
+ Dim sHTTP As New HTTP
+ Dim xZip As Byte() = sHTTP.DownloadZip(String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, APIKey, sInfo.TVDBID, sInfo.SelectedLang))
+ sHTTP = Nothing
+
+ If Not IsNothing(xZip) AndAlso xZip.Length > 0 Then
+ 'save it to the temp dir
+ Directory.CreateDirectory(Directory.GetParent(fPath).FullName)
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Create, FileAccess.Write)
+ fStream.Write(xZip, 0, xZip.Length)
+ End Using
+
+ Me.ProcessTVDBZip(xZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End If
+ Else
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+
+ Me.ProcessTVDBZip(fZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub DownloadSeriesAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.StartingDownload, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 1, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetListOfKnownEpisodes(ByVal sInfo As Structures.ScrapeInfo) As List(Of MediaContainers.EpisodeDetails)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim tSeas As Integer = -1
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ Try
+ If File.Exists(fPath) Then
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+ Me.ProcessTVDBZip(fZip, sInfo)
+
+ 'get the actors first
+ Try
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = If(IsNothing(Actor.Element("Role")), String.Empty, Actor.Element("Role").Value), .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdEps As XDocument = XDocument.Parse(sXML)
+
+ For Each Episode As XElement In xdEps.Descendants("Episode")
+ If Not IsNothing(Episode.Element("EpisodeName").Value) AndAlso Not String.IsNullOrEmpty(Episode.Element("EpisodeName").Value) Then
+ tEpisode = New MediaContainers.EpisodeDetails
+
+ tOrdering = Enums.Ordering.Standard
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ If Not IsNothing(Episode.Element("SeasonNumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("SeasonNumber").Value)
+ If sInfo.iSeason >= 0 AndAlso Not tSeas = sInfo.iSeason Then Continue For
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("DVD_season").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If Not IsNothing(Episode.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(Episode.Element("absolute_number").Value.ToString) Then
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+ Else
+ If sInfo.iSeason >= 0 AndAlso Not Convert.ToInt32(Episode.Element("SeasonNumber").Value) = sInfo.iSeason Then Continue For
+ End If
+
+ With tEpisode
+ .Title = Episode.Element("EpisodeName").Value
+ If tOrdering = Enums.Ordering.DVD Then
+ .Season = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ .Episode = Convert.ToInt32(CLng(Episode.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ .Season = 1
+ .Episode = Convert.ToInt32(Episode.Element("absolute_number").Value)
+ Else
+ .Season = If(IsNothing(Episode.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value), 0, Convert.ToInt32(Episode.Element("SeasonNumber").Value))
+ .Episode = If(IsNothing(Episode.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(Episode.Element("EpisodeNumber").Value), 0, Convert.ToInt32(Episode.Element("EpisodeNumber").Value))
+ End If
+ .Aired = If(IsNothing(Episode.Element("FirstAired")), String.Empty, Episode.Element("FirstAired").Value)
+ .Rating = If(IsNothing(Episode.Element("Rating")), String.Empty, Episode.Element("Rating").Value)
+ .Plot = If(IsNothing(Episode.Element("Overview")), String.Empty, Episode.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ .Director = If(IsNothing(Episode.Element("Director")), String.Empty, Strings.Join(Episode.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ .Credits = CreditsString(If(IsNothing(Episode.Element("GuestStars")), String.Empty, Episode.Element("GuestStars").Value), If(IsNothing(Episode.Element("Writer")), String.Empty, Episode.Element("Writer").Value))
+ .Actors = Actors
+ .PosterURL = If(IsNothing(Episode.Element("filename")), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Episode.Element("filename").Value))
+ .LocalFile = If(IsNothing(Episode.Element("filename")), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, Episode.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+
+ tEpisodes.Add(tEpisode)
+ End If
+ Next
+
+ End If
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tEpisodes
+ End Function
+
+ Public Sub GetSearchResultsAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 0, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetSingleEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Dim tEp As New MediaContainers.EpisodeDetails
+ Try
+
+ tEp = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Season = sInfo.iSeason AndAlso e.Episode = sInfo.iEpisode)
+
+ If Not IsNothing(tEp) Then
+ Return tEp
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return New MediaContainers.EpisodeDetails
+ End Function
+
+ Public Function GetSingleImage(ByVal sInfo As Structures.ScrapeInfo) As Images
+ tmpTVDBShow = New TVDBShow
+
+ If sInfo.ImageType = Enums.TVImageType.EpisodePoster Then
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ End If
+ Else
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ End If
+ End If
+ End Function
+
+ Public Function IsBusy() As Boolean
+ Return bwTVDB.IsBusy
+ End Function
+
+ Public Sub PassEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub ProcessTVDBZip(ByVal tvZip As Byte(), ByVal sInfo As Structures.ScrapeInfo)
+ sXML = String.Empty
+ bXML = String.Empty
+ aXML = String.Empty
+
+ Try
+ Using zStream As ZipInputStream = New ZipInputStream(New MemoryStream(tvZip))
+ Dim zEntry As ZipEntry = zStream.GetNextEntry
+
+ While Not IsNothing(zEntry)
+ Dim zBuffer As Byte() = Functions.ReadStreamToEnd(zStream)
+
+ Select Case True
+ Case zEntry.Name.Equals(String.Concat(sInfo.SelectedLang, ".xml"))
+ sXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("banners.xml")
+ bXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("actors.xml")
+ aXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ End Select
+
+ zEntry = zStream.GetNextEntry
+ End While
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub SaveImages()
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SavingStarted, 0, Nothing)
+ Me.bwTVDB = New System.ComponentModel.BackgroundWorker
+ Me.bwTVDB.WorkerReportsProgress = True
+ Me.bwTVDB.WorkerSupportsCancellation = True
+ Me.bwTVDB.RunWorkerAsync(New Arguments With {.Type = 3})
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ tmpTVDBShow = New TVDBShow
+ tmpTVDBShow.Episodes.Add(Master.currShow)
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Episodes(0).TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 4, .Parameter = sInfo})
+ End Sub
+
+ Public Sub SingleScrape(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = False
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 2, .Parameter = sInfo})
+ While bwTVDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub StartSingleScraper(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If String.IsNullOrEmpty(sInfo.TVDBID) AndAlso sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Show.TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ If sInfo.ScrapeType = Enums.ScrapeType.FullAuto Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SaveAuto, 0, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ ElseIf sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ 'Ignore Show scrape if ScrapeAuto and show don't have ID
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwtvDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTVDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Type
+ Case 0 'search
+ e.Result = New Results With {.Type = 0, .Result = SearchSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))}
+ Case 1 'show download
+ Me.DownloadSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))
+ e.Result = New Results With {.Type = 1}
+ Case 2 'load episodes
+ LoadAllEpisodes(DirectCast(Args.Parameter, Structures.ScrapeInfo).ShowID, 999)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ Case 3 'save
+ Me.SaveAllTVInfo()
+ e.Result = New Results With {.Type = 3}
+ Case 4
+ Dim sInfo As Structures.ScrapeInfo = DirectCast(Args.Parameter, Structures.ScrapeInfo)
+ LoadAllEpisodes(sInfo.ShowID, sInfo.iSeason)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTVDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTVDB.ProgressChanged
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Progress, e.ProgressPercentage, e.UserState.ToString)
+ End Sub
+
+ Private Sub bwTVDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTVDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.Type
+ Case 0 'search
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SearchResultsDownloaded, 0, DirectCast(Res.Result, List(Of TVSearchResults)))
+ Case 1 'show download
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ShowDownloaded, 0, Nothing)
+ Case 2 'load episodes
+ If Not e.Cancelled Then
+ StartSingleScraper(DirectCast(Res.Result, Structures.ScrapeInfo))
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End If
+ Case 3 'save
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CreditsString(ByVal sGStars As String, ByVal sWriters As String) As String
+ Dim cString As New List(Of String)
+ Dim gString As String = Master.eLang.GetString(82, "Guest Star")
+ Dim wString As String = Master.eLang.GetString(777, "Writer", True)
+
+ If Not String.IsNullOrEmpty(sGStars) Then
+ For Each gStar In sGStars.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(gStar) Then cString.Add(String.Concat(gStar, String.Format(" ({0})", gString)))
+ Next
+ End If
+
+ If Not String.IsNullOrEmpty(sWriters) Then
+ For Each Writer In sWriters.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(Writer) Then cString.Add(String.Concat(Writer, String.Format(" ({0})", wString)))
+ Next
+ End If
+
+ Return Strings.Join(cString.ToArray, " / ")
+ End Function
+
+ Private Sub SaveAllTVInfo()
+ Dim iEp As Integer = -1
+ Dim iSea As Integer = -1
+ Dim iProgress As Integer = 1
+
+ Dim tShow As New Structures.DBTV
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+
+ Me.bwTVDB.ReportProgress(tmpTVDBShow.Episodes.Count, "max")
+
+ Using SQLTrans As SQLite.SQLiteTransaction = Master.DB.MediaDBConn.BeginTransaction()
+ If Master.eSettings.DisplayMissingEpisodes Then
+ 'clear old missing episode from db
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ SQLCommand.CommandText = String.Concat("DELETE FROM TVEps WHERE Missing = 1 AND TVShowID = ", Master.currShow.ShowID, ";")
+ SQLCommand.ExecuteNonQuery()
+ End Using
+ End If
+
+ Try
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Try
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Episode.ShowID = Master.currShow.ShowID
+
+ iEp = Episode.TVEp.Episode
+ iSea = Episode.TVEp.Season
+
+ 'remove it from tepisodes since it's a real episode
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tEpisode = tEpisodes.FirstOrDefault(Function(e) e.Episode = iEp AndAlso e.Season = iSea)
+ If Not IsNothing(tEpisode) Then tEpisodes.Remove(tEpisode)
+ tShow = Episode
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Episode.TVEp.Season > -1 AndAlso Episode.TVEp.Episode > -1 AndAlso Not Episode.IsLockEp Then
+ If Not IsNothing(Episode.TVEp.Poster.Image) Then Episode.EpPosterPath = Episode.TVEp.Poster.SaveAsEpPoster(Episode, Episode.TVEp.PosterURL)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso Not IsNothing(Episode.TVEp.Fanart.Image) Then Episode.EpFanartPath = Episode.TVEp.Fanart.SaveAsEpFanart(Episode, )
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Dim cSea = From cSeason As TVDBSeasonImage In TVDBImages.SeasonImageList Where cSeason.Season = iSea Take 1
+ If cSea.Count > 0 Then
+ If Not IsNothing(cSea(0).Poster.Image) Then Episode.SeasonPosterPath = cSea(0).Poster.SaveAsSeasonPoster(Episode)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.SeasonFanartEnabled Then
+ If Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) AndAlso File.Exists(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.FromFile(cSea(0).Fanart.LocalFile)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ ElseIf Not String.IsNullOrEmpty(cSea(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.Clear()
+ cSea(0).Fanart.Image.FromWeb(cSea(0).Fanart.URL)
+ If Not IsNothing(cSea(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(cSea(0).Fanart.LocalFile).FullName)
+ cSea(0).Fanart.Image.Save(cSea(0).Fanart.LocalFile, , , False)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Episode)
+
+ Master.DB.SaveTVEpToDB(Episode, False, True, True, True)
+
+ If Me.bwTVDB.CancellationPending Then Return
+ End If
+ Me.bwTVDB.ReportProgress(iProgress, "progress")
+
+ 'If AdvancedSettings.GetBooleanSetting("ScrapeActorsThumbs", False) Then
+ 'For Each act As MediaContainers.Person In Episode.TVEp.Actors
+ 'Dim img As New Images
+ 'img.FromWeb(act.Thumb)
+ 'img.SaveAsActorThumb(act, Directory.GetParent(Episode.Filename).FullName)
+ 'Next
+ 'End If
+
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+
+ 'now save all missing episodes
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tShow.Filename = String.Empty
+ tShow.EpFanartPath = String.Empty
+ tShow.EpPosterPath = String.Empty
+ tShow.EpNfoPath = String.Empty
+ tShow.SeasonFanartPath = String.Empty
+ tShow.SeasonPosterPath = String.Empty
+ tShow.ShowFanartPath = String.Empty
+ tShow.IsLockEp = False
+ tShow.IsMarkEp = False
+ tShow.EpID = -1
+ If tEpisodes.Count > 0 Then
+ For Each Episode As MediaContainers.EpisodeDetails In tEpisodes
+ tShow.TVEp = Episode
+ Master.DB.SaveTVEpToDB(tShow, True, True, True)
+ Next
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ SQLTrans.Commit()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Using
+ End Sub
+
+ Private Sub SaveToCache(ByVal sID As String, ByVal sURL As String, ByVal sPath As String)
+ Dim sImage As New Images
+
+ sImage.FromWeb(sURL)
+
+ If Not IsNothing(sImage.Image) Then
+ sImage.Save(Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, sPath.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), , , True)
+ End If
+ sImage = Nothing
+ End Sub
+
+ Private Function SearchSeries(ByVal sInfo As Structures.ScrapeInfo) As List(Of TVSearchResults)
+ Dim tvdbResults As New List(Of TVSearchResults)
+ Dim cResult As New TVSearchResults
+ Dim xmlTVDB As XDocument
+ Dim tmpXML As XDocument
+ Dim sHTTP As New HTTP
+ Dim sLang As String = String.Empty
+ Dim tmpID As String = String.Empty
+
+ Try
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/GetSeries.php?seriesname={1}&language={2}", Master.eSettings.TVDBMirror, sInfo.ShowTitle, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbResults
+ End Try
+
+ Dim xSer = From xSeries In xmlTVDB.Descendants("Series") Where xSeries.HasElements
+
+ 'check each unique showid to see if we have an entry for the preferred languages. If not, try to force download it
+ For Each tID As String In xSer.GroupBy(Function(s) s.Element("seriesid").Value.ToString).Select(Function(group) group.Key)
+ tmpID = tID
+ If xSer.Where(Function(s) s.Element("seriesid").Value.ToString = tmpID AndAlso s.Element("language").Value.ToString = Master.eSettings.TVDBLanguage).Count = 0 Then
+ 'no preferred language in this series, force it
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, APIKey, tmpID, Master.eSettings.TVDBLanguage))
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ Continue For
+ End Try
+
+ For Each tSer As XElement In tmpXML.Descendants("Series").Where(Function(s) s.HasElements)
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ cResult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) AndAlso xSer.Where(Function(s) s.Element("seriesid").Value.ToString = cResult.ID.ToString AndAlso s.Element("language").Value.ToString = sLang).Count = 0 Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+ End If
+ Next
+ sHTTP = Nothing
+
+ For Each xS As XElement In xSer
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(xS.Element("seriesid").Value)
+ cResult.Name = If(Not IsNothing(xS.Element("SeriesName")), xS.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(xS.Element("language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = xS.Element("language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(xS.Element("language")) Then
+ sLang = xS.Element("language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(xS.Element("FirstAired")), xS.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(xS.Element("Overview")), xS.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(xS.Element("banner")), xS.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tvdbResults
+ End Function
+
+ Private Sub ShowFromXML(ByVal sInfo As Structures.ScrapeInfo, ByVal ImagesOnly As Boolean)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim sID As String = String.Empty
+ Dim iEp As Integer = -1
+ Dim iSeas As Integer = -1
+ Dim sTitle As String = String.Empty
+ Dim byTitle As Boolean = False
+ Dim xE As XElement = Nothing
+ Dim tShow As Structures.DBTV = tmpTVDBShow.Show
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ If Not ImagesOnly Then
+ If Master.eSettings.DisplayMissingEpisodes Then tEpisodes = Me.GetListOfKnownEpisodes(sInfo)
+
+ 'get the actors first
+ Try
+ If sInfo.Options.bShowActors OrElse sInfo.Options.bEpActors Then
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = Actor.Element("Role").Value, .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ 'now let's get the show info and all the episodes
+ Try
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdShow As XDocument = XDocument.Parse(sXML)
+ Dim xS = From xShow In xdShow.Descendants("Series")
+ If xS.Count > 0 Then
+ tShow.ShowLanguage = sInfo.SelectedLang
+ If Not IsNothing(tShow.TVShow) Then
+ With tShow.TVShow
+ sID = xS(0).Element("id").Value
+ .ID = sID
+ If sInfo.Options.bShowTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.ShowLockTitle) Then .Title = If(IsNothing(xS(0).Element("SeriesName")), .Title, xS(0).Element("SeriesName").Value)
+ If sInfo.Options.bShowEpisodeGuide Then .EpisodeGuideURL = If(Not String.IsNullOrEmpty(Master.eSettings.ExternalTVDBAPIKey), String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, Master.eSettings.ExternalTVDBAPIKey, sID, Master.eSettings.TVDBLanguage), String.Empty)
+ If sInfo.Options.bShowGenre AndAlso (String.IsNullOrEmpty(.Genre) OrElse Not Master.eSettings.ShowLockGenre) Then .Genre = If(IsNothing(xS(0).Element("Genre")), .Genre, Strings.Join(xS(0).Element("Genre").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bShowMPAA Then .MPAA = If(IsNothing(xS(0).Element("ContentRating")), .MPAA, xS(0).Element("ContentRating").Value)
+ If sInfo.Options.bShowPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.ShowLockPlot) Then .Plot = If(IsNothing(xS(0).Element("Overview")), .Plot, xS(0).Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ If sInfo.Options.bShowPremiered Then .Premiered = If(IsNothing(xS(0).Element("FirstAired")), .Premiered, xS(0).Element("FirstAired").Value)
+ If sInfo.Options.bShowRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.ShowLockRating) Then .Rating = If(IsNothing(xS(0).Element("Rating")), .Rating, xS(0).Element("Rating").Value)
+ If sInfo.Options.bShowStudio AndAlso (String.IsNullOrEmpty(.Studio) OrElse Not Master.eSettings.ShowLockStudio) Then .Studio = If(IsNothing(xS(0).Element("Network")), .Studio, xS(0).Element("Network").Value)
+ If sInfo.Options.bShowActors Then .Actors = Actors
+ End With
+ End If
+
+ 'set it back
+ tmpTVDBShow.Show = tShow
+
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Episode.ShowLanguage = sInfo.SelectedLang
+
+ iEp = Episode.TVEp.Episode
+ iSeas = Episode.TVEp.Season
+ sTitle = Episode.TVEp.Title
+ byTitle = False
+ tOrdering = Enums.Ordering.Standard
+
+ If Not IsNothing(tShow.TVShow) Then Episode.TVShow = tShow.TVShow
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ 'first we need to check if dvd order is specified for every episode in the season
+ 'we'll use the regular season number as an indicator even though there are some cases
+ 'where this will not work (season 1 episode 1 = dvd_season 2 dvd_episode 1) but it
+ 'should work in most cases and is the best solution I could come up with
+
+ If xdShow.Descendants("Episode").Where(Function(e) Not IsNothing(e.Element("SeasonNumber")) AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If xdShow.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+
+ If tOrdering = Enums.Ordering.DVD Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString) AndAlso Convert.ToInt32(CLng(e.Element("DVD_episodenumber").Value.ToString)) = iEp AndAlso Not IsNothing(e.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) AndAlso Convert.ToInt32(e.Element("DVD_season").Value) = iSeas)
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If iSeas = 1 Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("absolute_number").Value.ToString) = iEp)
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("EpisodeNumber").Value.ToString) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Convert.ToInt32(e.Element("EpisodeNumber").Value) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+
+ If IsNothing(xE) Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) StringUtils.ComputeLevenshtein(e.Element("EpisodeName").Value, sTitle) < 5)
+ byTitle = True
+ End If
+
+ If Not IsNothing(xE) Then
+ With Episode.TVEp
+ If sInfo.Options.bEpTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.EpLockTitle) AndAlso Not String.IsNullOrEmpty(xE.Element("EpisodeName").Value) Then .Title = xE.Element("EpisodeName").Value
+ If byTitle Then
+ If tOrdering = Enums.Ordering.DVD Then
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("DVD_season")) OrElse String.IsNullOrEmpty(xE.Element("DVD_season").Value), 0, Convert.ToInt32(xE.Element("DVD_season").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(xE.Element("DVD_episodenumber").Value), 0, Convert.ToInt32(xE.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If sInfo.Options.bEpSeason Then .Season = 1
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("absolute_number")) OrElse String.IsNullOrEmpty(xE.Element("absolute_number").Value), 0, Convert.ToInt32(xE.Element("absolute_number").Value))
+ Else
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(xE.Element("SeasonNumber").Value), 0, Convert.ToInt32(xE.Element("SeasonNumber").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(xE.Element("EpisodeNumber").Value), 0, Convert.ToInt32(xE.Element("EpisodeNumber").Value))
+ End If
+ End If
+ If sInfo.Options.bEpAired Then .Aired = If(IsNothing(xE.Element("FirstAired")), .Aired, xE.Element("FirstAired").Value)
+ If sInfo.Options.bEpRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.EpLockRating) Then .Rating = If(IsNothing(xE.Element("Rating")), .Rating, xE.Element("Rating").Value)
+ If sInfo.Options.bEpPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.EpLockPlot) Then .Plot = If(IsNothing(xE.Element("Overview")), .Plot, xE.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ 'If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xS(0).Element("Director")), .Director, Strings.Join(xS(0).Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xE.Element("Director")), .Director, Strings.Join(xE.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpCredits Then .Credits = CreditsString(If(IsNothing(xE.Element("GuestStars")), String.Empty, xE.Element("GuestStars").Value), If(IsNothing(xE.Element("Writer")), String.Empty, xE.Element("Writer").Value))
+ If sInfo.Options.bEpActors Then .Actors = Actors
+ .PosterURL = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, xE.Element("filename").Value))
+ .LocalFile = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, xE.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+ End If
+ Next
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Else
+ sID = sInfo.TVDBID
+ End If
+ 'and finally the images
+ Try
+ If ImagesOnly OrElse Not IsNothing(tShow.TVShow) Then
+ If Not String.IsNullOrEmpty(bXML) Then
+ Dim xdImage As XDocument = XDocument.Parse(bXML)
+ For Each tImage As XElement In xdImage.Descendants("Banner")
+ If (Not IsNothing(tImage.Element("BannerPath")) AndAlso Not String.IsNullOrEmpty(tImage.Element("BannerPath").Value)) AndAlso _
+ (Not Master.eSettings.OnlyGetTVImagesForSelectedLanguage OrElse ((Not IsNothing(tImage.Element("Language")) AndAlso tImage.Element("Language").Value = Master.eSettings.TVDBLanguage) OrElse _
+ ((IsNothing(tImage.Element("Language")) OrElse tImage.Element("Language").Value = "en") AndAlso Master.eSettings.AlwaysGetEnglishTVImages))) Then
+ Select Case tImage.Element("BannerType").Value
+ Case "fanart"
+ tmpTVDBShow.Fanart.Add(New TVDBFanart With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .ThumbnailURL = If(IsNothing(tImage.Element("ThumbnailPath")) OrElse String.IsNullOrEmpty(tImage.Element("ThumbnailPath").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("ThumbnailPath").Value)), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .LocalThumb = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("ThumbnailPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "poster"
+ tmpTVDBShow.Posters.Add(New TVDBPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "posters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "season"
+ tmpTVDBShow.SeasonPosters.Add(New TVDBSeasonPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Season = If(IsNothing(tImage.Element("Season")) OrElse String.IsNullOrEmpty(tImage.Element("Season").Value), 0, Convert.ToInt32(tImage.Element("Season").Value)), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.SeasonPosterType.None, StringToSeasonPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seasonposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "series"
+ tmpTVDBShow.ShowPosters.Add(New TVDBShowPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.ShowBannerType.None, StringToShowPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seriesposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ End Select
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function StringToSeasonPosterType(ByVal sType As String) As Enums.SeasonPosterType
+ Select Case sType.ToLower
+ Case "season"
+ Return Enums.SeasonPosterType.Poster
+ Case "seasonwide"
+ Return Enums.SeasonPosterType.Wide
+ Case Else
+ Return Enums.SeasonPosterType.None
+ End Select
+ End Function
+
+ Private Function StringToShowPosterType(ByVal sType As String) As Enums.ShowBannerType
+ Select Case sType.ToLower
+ Case "blank"
+ Return Enums.ShowBannerType.Blank
+ Case "graphical"
+ Return Enums.ShowBannerType.Graphical
+ Case "text"
+ Return Enums.ShowBannerType.Text
+ Case Else
+ Return Enums.ShowBannerType.None
+ End Select
+ End Function
+
+#End Region 'Methods
+
+#Region "Other"
+
+ Private Structure Arguments
+
+ Dim Parameter As Object
+ Dim Type As Integer
+
+ End Structure
+
+ Private Structure Results
+
+ Dim Result As Object
+ Dim Type As Integer '0 = search, 1 = show download, 2 = load eps, 3 = save
+
+ End Structure
+
+#End Region 'Other
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBFanart
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _localthumb As String
+ Private _size As Size
+ Private _thumbnailurl As String
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property LocalThumb() As String
+ Get
+ Return Me._localthumb
+ End Get
+ Set(ByVal value As String)
+ Me._localthumb = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property ThumbnailURL() As String
+ Get
+ Return Me._thumbnailurl
+ End Get
+ Set(ByVal value As String)
+ Me._thumbnailurl = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._thumbnailurl = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._localthumb = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _size As Size
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBSeasonImage
+
+#Region "Fields"
+
+ Private _fanart As TVDBFanart
+ Private _poster As Images
+ Private _season As Integer
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Fanart() As TVDBFanart
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As TVDBFanart)
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Poster() As Images
+ Get
+ Return Me._poster
+ End Get
+ Set(ByVal value As Images)
+ Me._poster = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._season = -1
+ Me._poster = New Images
+ Me._fanart = New TVDBFanart
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBSeasonPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _season As Integer
+ Private _type As Enums.SeasonPosterType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.SeasonPosterType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.SeasonPosterType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._season = 0
+ Me._type = Enums.SeasonPosterType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBShow
+
+#Region "Fields"
+
+ Private _allseason As Structures.DBTV
+ Private _episodes As New List(Of Structures.DBTV)
+ Private _fanart As New List(Of TVDBFanart)
+ Private _posters As New List(Of TVDBPoster)
+ Private _seasonposters As New List(Of TVDBSeasonPoster)
+ Private _show As Structures.DBTV
+ Private _showposters As New List(Of TVDBShowPoster)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property AllSeason() As Structures.DBTV
+ Get
+ Return Me._allseason
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._allseason = value
+ End Set
+ End Property
+
+ Public Property Episodes() As List(Of Structures.DBTV)
+ Get
+ Return Me._episodes
+ End Get
+ Set(ByVal value As List(Of Structures.DBTV))
+ Me._episodes = value
+ End Set
+ End Property
+
+ Public Property Fanart() As List(Of TVDBFanart)
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As List(Of TVDBFanart))
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Posters() As List(Of TVDBPoster)
+ Get
+ Return Me._posters
+ End Get
+ Set(ByVal value As List(Of TVDBPoster))
+ Me._posters = value
+ End Set
+ End Property
+
+ Public Property SeasonPosters() As List(Of TVDBSeasonPoster)
+ Get
+ Return Me._seasonposters
+ End Get
+ Set(ByVal value As List(Of TVDBSeasonPoster))
+ Me._seasonposters = value
+ End Set
+ End Property
+
+ Public Property Show() As Structures.DBTV
+ Get
+ Return Me._show
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._show = value
+ End Set
+ End Property
+
+ Public Property ShowPosters() As List(Of TVDBShowPoster)
+ Get
+ Return Me._showposters
+ End Get
+ Set(ByVal value As List(Of TVDBShowPoster))
+ Me._showposters = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._show = New Structures.DBTV
+ Me._allseason = New Structures.DBTV
+ Me._episodes = New List(Of Structures.DBTV)
+ Me._fanart = New List(Of TVDBFanart)
+ Me._showposters = New List(Of TVDBShowPoster)
+ Me._seasonposters = New List(Of TVDBSeasonPoster)
+ Me._posters = New List(Of TVDBPoster)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBShowPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _type As Enums.ShowBannerType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.ShowBannerType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.ShowBannerType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._type = Enums.ShowBannerType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVSearchResults
+
+#Region "Fields"
+
+ Private _aired As String
+ Private _banner As String
+ Private _id As Integer
+ Private _language As Containers.TVLanguage
+ Private _lev As Integer
+ Private _name As String
+ Private _overview As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Aired() As String
+ Get
+ Return Me._aired
+ End Get
+ Set(ByVal value As String)
+ Me._aired = value
+ End Set
+ End Property
+
+ Public Property Banner() As String
+ Get
+ Return Me._banner
+ End Get
+ Set(ByVal value As String)
+ Me._banner = value
+ End Set
+ End Property
+
+ Public Property ID() As Integer
+ Get
+ Return Me._id
+ End Get
+ Set(ByVal value As Integer)
+ Me._id = value
+ End Set
+ End Property
+
+ Public Property Language() As Containers.TVLanguage
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As Containers.TVLanguage)
+ Me._language = value
+ End Set
+ End Property
+
+ Public Property Lev() As Integer
+ Get
+ Return Me._lev
+ End Get
+ Set(ByVal value As Integer)
+ Me._lev = value
+ End Set
+ End Property
+
+ Public Property Name() As String
+ Get
+ Return Me._name
+ End Get
+ Set(ByVal value As String)
+ Me._name = value
+ End Set
+ End Property
+
+ Public Property Overview() As String
+ Get
+ Return Me._overview
+ End Get
+ Set(ByVal value As String)
+ Me._overview = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._id = 0
+ Me._name = String.Empty
+ Me._aired = String.Empty
+ Me._language = New Containers.TVLanguage
+ Me._overview = String.Empty
+ Me._banner = String.Empty
+ Me._lev = 0
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.Designer.vb b/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.Designer.vb
new file mode 100644
index 0000000..dd38c94
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.Designer.vb
@@ -0,0 +1,139 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVChangeEp
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lvEpisodes = New System.Windows.Forms.ListView()
+ Me.colEpisode = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colTitle = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pbPreview = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.txtPlot = New System.Windows.Forms.TextBox()
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(505, 286)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(575, 286)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lvEpisodes
+ '
+ Me.lvEpisodes.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colEpisode, Me.colTitle})
+ Me.lvEpisodes.FullRowSelect = True
+ Me.lvEpisodes.HideSelection = False
+ Me.lvEpisodes.Location = New System.Drawing.Point(3, 3)
+ Me.lvEpisodes.MultiSelect = False
+ Me.lvEpisodes.Name = "lvEpisodes"
+ Me.lvEpisodes.Size = New System.Drawing.Size(358, 278)
+ Me.lvEpisodes.TabIndex = 2
+ Me.lvEpisodes.UseCompatibleStateImageBehavior = False
+ Me.lvEpisodes.View = System.Windows.Forms.View.Details
+ '
+ 'colEpisode
+ '
+ Me.colEpisode.Text = "Episode"
+ '
+ 'colTitle
+ '
+ Me.colTitle.Text = "Title"
+ Me.colTitle.Width = 276
+ '
+ 'pbPreview
+ '
+ Me.pbPreview.Location = New System.Drawing.Point(417, 12)
+ Me.pbPreview.Name = "pbPreview"
+ Me.pbPreview.Size = New System.Drawing.Size(174, 117)
+ Me.pbPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPreview.TabIndex = 3
+ Me.pbPreview.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(367, 140)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(275, 21)
+ Me.lblTitle.TabIndex = 3
+ '
+ 'txtPlot
+ '
+ Me.txtPlot.BackColor = System.Drawing.SystemColors.Control
+ Me.txtPlot.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtPlot.Location = New System.Drawing.Point(366, 169)
+ Me.txtPlot.Multiline = True
+ Me.txtPlot.Name = "txtPlot"
+ Me.txtPlot.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+ Me.txtPlot.Size = New System.Drawing.Size(276, 111)
+ Me.txtPlot.TabIndex = 4
+ '
+ 'dlgTVChangeEp
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(646, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.txtPlot)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPreview)
+ Me.Controls.Add(Me.lvEpisodes)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVChangeEp"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Change Episode"
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lvEpisodes As System.Windows.Forms.ListView
+ Friend WithEvents colEpisode As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colTitle As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pbPreview As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents txtPlot As System.Windows.Forms.TextBox
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.resx b/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.resx
new file mode 100644
index 0000000..717c885
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.resx
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="txtPlot.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>True</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.vb b/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.vb
new file mode 100644
index 0000000..954f58a
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVChangeEp.vb
@@ -0,0 +1,120 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgTVChangeEp
+
+#Region "Fields"
+
+ Private _episode As MediaContainers.EpisodeDetails = Nothing
+ Private _tepisodes As New List(Of MediaContainers.EpisodeDetails)
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal tEpisodes As List(Of MediaContainers.EpisodeDetails)) As MediaContainers.EpisodeDetails
+ Me._tepisodes = tEpisodes
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return _episode
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.pbPreview.Image = Nothing
+ Me.lblTitle.Text = String.Empty
+ Me.txtPlot.Text = String.Empty
+ End Sub
+
+ Private Sub dlgTVChangeEp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+
+ Dim lGroup As New ListViewGroup
+ Dim lItem As New ListViewItem
+ Dim tSeason As Integer = Nothing
+
+ For Each Season As Integer In _tepisodes.GroupBy(Function(s) s.Season).Select(Function(group) group.Key)
+ tSeason = Season
+ lGroup = New ListViewGroup
+ lGroup.Header = String.Format(Master.eLang.GetString(726, "Season {0}", True), tSeason)
+ lvEpisodes.Groups.Add(lGroup)
+ For Each Episode As MediaContainers.EpisodeDetails In _tepisodes.Where(Function(s) s.Season = tSeason).OrderBy(Function(s) s.Episode)
+ lItem = lvEpisodes.Items.Add(Episode.Episode.ToString)
+ lItem.Tag = Episode
+ lItem.SubItems.Add(Episode.Title)
+ lGroup.Items.Add(lItem)
+ Next
+ Next
+ End Sub
+
+ Private Sub lvEpisodes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvEpisodes.SelectedIndexChanged
+ Me.ClearInfo()
+ If lvEpisodes.SelectedItems.Count > 0 AndAlso Not IsNothing(lvEpisodes.SelectedItems(0).Tag) Then
+ Me._episode = DirectCast(lvEpisodes.SelectedItems(0).Tag, MediaContainers.EpisodeDetails)
+
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ ElseIf Not String.IsNullOrEmpty(Me._episode.LocalFile) AndAlso File.Exists(Me._episode.LocalFile) Then
+ Me._episode.Poster.FromFile(Me._episode.LocalFile)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ ElseIf Not String.IsNullOrEmpty(Me._episode.PosterURL) Then
+ Me._episode.Poster.FromWeb(Me._episode.PosterURL)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Me._episode.LocalFile).FullName)
+ Me._episode.Poster.Save(Me._episode.LocalFile)
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ End If
+
+ Me.lblTitle.Text = Me._episode.Title
+ Me.txtPlot.Text = Me._episode.Plot
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(772, "Change Episode", True)
+
+ Me.lvEpisodes.Columns(0).Text = Master.eLang.GetString(727, "Episode", True)
+ Me.lvEpisodes.Columns(1).Text = Master.eLang.GetString(21, "Title", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb b/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb
new file mode 100644
index 0000000..b05c597
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb
@@ -0,0 +1,368 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbBanner = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblAiredHeader = New System.Windows.Forms.Label()
+ Me.lblAired = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lvSearchResults = New System.Windows.Forms.ListView()
+ Me.colName = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLev = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colID = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colSLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.txtTVDBID = New System.Windows.Forms.TextBox()
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(485, 335)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(558, 335)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbBanner
+ '
+ Me.pbBanner.Location = New System.Drawing.Point(325, 69)
+ Me.pbBanner.Name = "pbBanner"
+ Me.pbBanner.Size = New System.Drawing.Size(300, 55)
+ Me.pbBanner.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbBanner.TabIndex = 3
+ Me.pbBanner.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(325, 132)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(300, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Visible = False
+ '
+ 'lblAiredHeader
+ '
+ Me.lblAiredHeader.AutoSize = True
+ Me.lblAiredHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblAiredHeader.Location = New System.Drawing.Point(325, 161)
+ Me.lblAiredHeader.Name = "lblAiredHeader"
+ Me.lblAiredHeader.Size = New System.Drawing.Size(38, 13)
+ Me.lblAiredHeader.TabIndex = 10
+ Me.lblAiredHeader.Text = "Aired:"
+ Me.lblAiredHeader.Visible = False
+ '
+ 'lblAired
+ '
+ Me.lblAired.AutoSize = True
+ Me.lblAired.Location = New System.Drawing.Point(387, 161)
+ Me.lblAired.Name = "lblAired"
+ Me.lblAired.Size = New System.Drawing.Size(63, 13)
+ Me.lblAired.TabIndex = 12
+ Me.lblAired.Text = "00/00/0000"
+ Me.lblAired.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(325, 189)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 13
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtOutline.Location = New System.Drawing.Point(325, 205)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(300, 127)
+ Me.txtOutline.TabIndex = 14
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lvSearchResults
+ '
+ Me.lvSearchResults.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colName, Me.colLang, Me.colLev, Me.colID, Me.colSLang})
+ Me.lvSearchResults.FullRowSelect = True
+ Me.lvSearchResults.HideSelection = False
+ Me.lvSearchResults.Location = New System.Drawing.Point(3, 96)
+ Me.lvSearchResults.MultiSelect = False
+ Me.lvSearchResults.Name = "lvSearchResults"
+ Me.lvSearchResults.Size = New System.Drawing.Size(316, 236)
+ Me.lvSearchResults.TabIndex = 5
+ Me.lvSearchResults.UseCompatibleStateImageBehavior = False
+ Me.lvSearchResults.View = System.Windows.Forms.View.Details
+ '
+ 'colName
+ '
+ Me.colName.Text = "Title"
+ Me.colName.Width = 223
+ '
+ 'colLang
+ '
+ Me.colLang.Text = "Language"
+ Me.colLang.Width = 89
+ '
+ 'colLev
+ '
+ Me.colLev.Width = 0
+ '
+ 'colID
+ '
+ Me.colID.Width = 0
+ '
+ 'colSLang
+ '
+ Me.colSLang.Width = 0
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(380, 154)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 11
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TVDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(287, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper TV show."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(216, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "TV Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(296, 67)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(3, 68)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(287, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(244, 337)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Enabled = False
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(3, 341)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(127, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual TVDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'txtTVDBID
+ '
+ Me.txtTVDBID.Enabled = False
+ Me.txtTVDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTVDBID.Location = New System.Drawing.Point(138, 337)
+ Me.txtTVDBID.Name = "txtTVDBID"
+ Me.txtTVDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTVDBID.TabIndex = 7
+ '
+ 'dlgTVDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 378)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.txtTVDBID)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.lvSearchResults)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblAiredHeader)
+ Me.Controls.Add(Me.lblAired)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbBanner)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 406)
+ Me.Name = "dlgTVDBSearchResults"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "TV Search Results"
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbBanner As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblAiredHeader As System.Windows.Forms.Label
+ Friend WithEvents lblAired As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lvSearchResults As System.Windows.Forms.ListView
+ Friend WithEvents colName As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents colLev As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colID As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colSLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents txtTVDBID As System.Windows.Forms.TextBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.resx b/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.resx
new file mode 100644
index 0000000..7a332a8
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.vb b/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.vb
new file mode 100644
index 0000000..cce33d3
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVDBSearchResults.vb
@@ -0,0 +1,437 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+
+ Private lvResultsSorter As New ListViewColumnSorter
+ Private sHTTP As New HTTP
+ Private sInfo As Structures.ScrapeInfo
+ Private _manualresult As Scraper.TVSearchResults = Nothing
+ Private _skipdownload As Boolean = False
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _sInfo As Structures.ScrapeInfo) As Windows.Forms.DialogResult
+ Me.sInfo = _sInfo
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal _sinfo As Structures.ScrapeInfo, ByVal SkipDownload As Boolean) As Structures.ScrapeInfo
+ Me.sInfo = _sinfo
+ Me._skipdownload = SkipDownload
+
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return Me.sInfo
+ Else
+ Return _sinfo
+ End If
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.lvSearchResults.Enabled = False
+ Me.sInfo.ShowTitle = Me.txtSearch.Text
+ Me.ClearInfo()
+ Me.chkManual.Enabled = False
+ Me.chkManual.Checked = False
+ Me.txtSearch.Text = String.Empty
+ Me.btnVerify.Enabled = False
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+ Me.pnlLoading.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If IsNumeric(Me.txtTVDBID.Text) AndAlso Me.txtTVDBID.Text.Length >= 5 Then
+ Dim tmpXML As XDocument = Nothing
+ Dim sLang As String = String.Empty
+
+ Me.ClearInfo()
+ Me.pnlLoading.Visible = True
+ Application.DoEvents()
+
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, Scraper.APIKey, Me.txtTVDBID.Text, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ End Try
+
+ If Not IsNothing(tmpXML) Then
+ Dim tSer As XElement = tmpXML.Descendants("Series").FirstOrDefault(Function(s) s.HasElements)
+
+ If Not IsNothing(tSer) Then
+ Me._manualresult = New Scraper.TVSearchResults
+ Me._manualresult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ Me._manualresult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ End If
+ Me._manualresult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ Me._manualresult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value, String.Empty)
+ Me._manualresult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(Me._manualresult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ If Not String.IsNullOrEmpty(Me._manualresult.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = Me._manualresult.Banner})
+ End If
+
+ Me.OK_Button.Tag = Me._manualresult.ID
+ Me.lblTitle.Text = Me._manualresult.Name
+ Me.txtOutline.Text = Me._manualresult.Overview
+ Me.lblAired.Text = Me._manualresult.Aired
+ Me.OK_Button.Enabled = True
+ Me.pnlLoading.Visible = False
+ Me.ControlsVisible(True)
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Else
+ MsgBox(Master.eLang.GetString(83, "The ID you entered is not a valid TVDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ sHTTP.StartDownloadImage(String.Format("http://{0}/banners/_cache/{1}", Master.eSettings.TVDBMirror, Args.pURL))
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image()}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbBanner.Image = Res.Result
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTVDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.lvSearchResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTVDBID.Text = String.Empty
+ Else
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then Me.lvSearchResults.SelectedItems(0).Selected = False
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblAired.Text = String.Empty
+ Me.pbBanner.Image = Nothing
+ Scraper.sObject.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.pbBanner.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblAiredHeader.Visible = areVisible
+ Me.lblAired.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ End Sub
+
+ Private Sub dlgTVDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ AddHandler ModulesManager.Instance.TVScraperEvent, AddressOf TVScraperEvent
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+
+ Me.lvSearchResults.ListViewItemSorter = Me.lvResultsSorter
+
+ Me.SetUp()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvSearchResults.ColumnClick
+ ' Determine if the clicked column is already the column that is
+ ' being sorted.
+ Try
+ If (e.Column = Me.lvResultsSorter.SortColumn) Then
+ ' Reverse the current sort direction for this column.
+ If (Me.lvResultsSorter.Order = SortOrder.Ascending) Then
+ Me.lvResultsSorter.Order = SortOrder.Descending
+ Else
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+ Else
+ ' Set the column number that is to be sorted; default to ascending.
+ Me.lvResultsSorter.SortColumn = e.Column
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+
+ ' Perform the sort with these new sort options.
+ Me.lvSearchResults.Sort()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvSearchResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub lvSearchResults_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvSearchResults.SelectedIndexChanged
+ Me.ClearInfo()
+ If Me.lvSearchResults.SelectedItems.Count > 0 AndAlso Not Me.chkManual.Checked Then
+ Dim SelectedShow As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ If Not String.IsNullOrEmpty(SelectedShow.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = SelectedShow.Banner})
+ End If
+
+ Me.OK_Button.Tag = SelectedShow.ID
+ Me.lblTitle.Text = SelectedShow.Name
+ Me.txtOutline.Text = SelectedShow.Overview
+ Me.lblAired.Text = SelectedShow.Aired
+ Me.OK_Button.Enabled = True
+ Me.ControlsVisible(True)
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then
+ Dim sResults As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ Me.sInfo.TVDBID = sResults.ID.ToString
+ Me.sInfo.SelectedLang = sResults.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ ElseIf Me.chkManual.Checked AndAlso Not IsNothing(Me._manualresult) Then
+ Me.sInfo.TVDBID = Me._manualresult.ID.ToString
+ Me.sInfo.SelectedLang = Me._manualresult.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label1.Text = Master.eLang.GetString(85, "TV Search Results")
+ Me.Label2.Text = Master.eLang.GetString(86, "View details of each result to find the proper TV show.")
+ Me.lblAiredHeader.Text = Master.eLang.GetString(658, "Aired:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(783, "Plot Summary:", True)
+
+ Me.lvSearchResults.Columns(0).Text = Master.eLang.GetString(21, "Title", True)
+ Me.lvSearchResults.Columns(1).Text = Master.eLang.GetString(610, "Language", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ Select Case eType
+ Case Enums.TVScraperEventType.SearchResultsDownloaded
+ Dim lItem As ListViewItem
+ Dim sResults As List(Of Scraper.TVSearchResults) = DirectCast(Parameter, List(Of Scraper.TVSearchResults))
+
+ Me.lvSearchResults.Items.Clear()
+
+ If Not IsNothing(sResults) AndAlso sResults.Count > 0 Then
+ For Each sRes As Scraper.TVSearchResults In sResults.OrderBy(Function(r) r.Lev)
+ lItem = New ListViewItem(sRes.Name)
+ lItem.SubItems.Add(sRes.Language.LongLang)
+ lItem.SubItems.Add(sRes.Lev.ToString)
+ lItem.SubItems.Add(sRes.ID.ToString)
+ lItem.SubItems.Add(sRes.Language.ShortLang)
+ lItem.Tag = sRes
+ Me.lvSearchResults.Items.Add(lItem)
+ Next
+ End If
+
+ Me.pnlLoading.Visible = False
+
+ If Me.lvSearchResults.Items.Count > 0 Then
+ If sResults.Select(Function(s) s.ID).Distinct.Count = 1 Then
+ 'they're all for the same show... try to find one with the preferred language
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ Else
+ 'we've got a bunch of different shows... try to find a "best match" title with the preferred language
+ If sResults.Where(Function(s) s.Lev <= 5).Count > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(2).Text) <= 5 AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ 'get the id for the best english match and see if we have one for the preferred language with same id
+ Dim tID As Integer = sResults.OrderBy(Function(s) s.Lev).FirstOrDefault(Function(s) s.Language.ShortLang = "en").ID
+ If tID > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(3).Text) = tID AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ Me.lvSearchResults.Items(0).Selected = True
+ End If
+ Me.lvSearchResults.Select()
+ End If
+
+ Me.chkManual.Enabled = True
+ If Not Me.chkManual.Checked Then Me.lvSearchResults.Enabled = True
+
+ Case Enums.TVScraperEventType.ShowDownloaded
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Select
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Sub txtTVDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTVDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtTVDBID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTVDBID.KeyPress
+ e.Handled = StringUtils.NumericOnly(e.KeyChar, True)
+ End Sub
+
+ Private Sub txtTVDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTVDBID.TextChanged
+ If String.IsNullOrEmpty(Me.txtTVDBID.Text) Then
+ Me.btnVerify.Enabled = False
+ Me.OK_Button.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb b/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb
new file mode 100644
index 0000000..a3ebbd8
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb
@@ -0,0 +1,86 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTVEpisodePoster
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(292, 287)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(362, 287)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.BackColor = System.Drawing.Color.DimGray
+ Me.pbPoster.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pbPoster.Location = New System.Drawing.Point(6, 6)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(423, 276)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ '
+ 'dlgTVEpisodePoster
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVEpisodePoster"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Confirm Episode Poster"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.resx b/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.vb b/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.vb
new file mode 100644
index 0000000..60ed929
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVEpisodePoster.vb
@@ -0,0 +1,48 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVEpisodePoster
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal Poster As Image) As System.Windows.Forms.DialogResult
+ Me.pbPoster.Image = Poster
+ Return MyBase.ShowDialog
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbPoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbPoster.Click
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(Me.pbPoster.Image)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.Designer.vb b/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.Designer.vb
new file mode 100644
index 0000000..cf05d15
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.Designer.vb
@@ -0,0 +1,213 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVImageSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVImageSelect))
+ Me.tvList = New System.Windows.Forms.TreeView()
+ Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+ Me.pnlImages = New System.Windows.Forms.Panel()
+ Me.pbCurrent = New System.Windows.Forms.PictureBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnOK = New System.Windows.Forms.Button()
+ Me.btnCancel = New System.Windows.Forms.Button()
+ Me.pbDelete = New System.Windows.Forms.PictureBox()
+ Me.pbUndo = New System.Windows.Forms.PictureBox()
+ Me.lblCurrentImage = New System.Windows.Forms.Label()
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlStatus.SuspendLayout()
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'tvList
+ '
+ Me.tvList.Enabled = False
+ Me.tvList.ImageIndex = 0
+ Me.tvList.ImageList = Me.ImageList1
+ Me.tvList.Location = New System.Drawing.Point(3, 4)
+ Me.tvList.Name = "tvList"
+ Me.tvList.SelectedImageIndex = 0
+ Me.tvList.Size = New System.Drawing.Size(214, 262)
+ Me.tvList.TabIndex = 2
+ Me.tvList.Visible = False
+ '
+ 'ImageList1
+ '
+ Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+ Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+ Me.ImageList1.Images.SetKeyName(0, "new_page.png")
+ Me.ImageList1.Images.SetKeyName(1, "image.png")
+ Me.ImageList1.Images.SetKeyName(2, "artwork.png")
+ Me.ImageList1.Images.SetKeyName(3, "star_full.png")
+ '
+ 'pnlImages
+ '
+ Me.pnlImages.AutoScroll = True
+ Me.pnlImages.BackColor = System.Drawing.SystemColors.Control
+ Me.pnlImages.Location = New System.Drawing.Point(222, 4)
+ Me.pnlImages.Name = "pnlImages"
+ Me.pnlImages.Size = New System.Drawing.Size(622, 421)
+ Me.pnlImages.TabIndex = 3
+ '
+ 'pbCurrent
+ '
+ Me.pbCurrent.BackColor = System.Drawing.SystemColors.Control
+ Me.pbCurrent.Location = New System.Drawing.Point(3, 293)
+ Me.pbCurrent.Name = "pbCurrent"
+ Me.pbCurrent.Size = New System.Drawing.Size(214, 157)
+ Me.pbCurrent.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbCurrent.TabIndex = 2
+ Me.pbCurrent.TabStop = False
+ Me.pbCurrent.Visible = False
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(264, 192)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(321, 75)
+ Me.pnlStatus.TabIndex = 5
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(5, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(310, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Gathering Data..."
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(6, 52)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(309, 19)
+ Me.pbStatus.Step = 1
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnOK
+ '
+ Me.btnOK.Enabled = False
+ Me.btnOK.Location = New System.Drawing.Point(708, 431)
+ Me.btnOK.Name = "btnOK"
+ Me.btnOK.Size = New System.Drawing.Size(65, 22)
+ Me.btnOK.TabIndex = 0
+ Me.btnOK.Text = "OK"
+ Me.btnOK.UseVisualStyleBackColor = True
+ '
+ 'btnCancel
+ '
+ Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.btnCancel.Location = New System.Drawing.Point(779, 431)
+ Me.btnCancel.Name = "btnCancel"
+ Me.btnCancel.Size = New System.Drawing.Size(65, 22)
+ Me.btnCancel.TabIndex = 1
+ Me.btnCancel.Text = "Cancel"
+ Me.btnCancel.UseVisualStyleBackColor = True
+ '
+ 'pbDelete
+ '
+ Me.pbDelete.Image = CType(resources.GetObject("pbDelete.Image"), System.Drawing.Image)
+ Me.pbDelete.Location = New System.Drawing.Point(3, 293)
+ Me.pbDelete.Name = "pbDelete"
+ Me.pbDelete.Size = New System.Drawing.Size(16, 16)
+ Me.pbDelete.TabIndex = 13
+ Me.pbDelete.TabStop = False
+ Me.pbDelete.Visible = False
+ '
+ 'pbUndo
+ '
+ Me.pbUndo.Image = CType(resources.GetObject("pbUndo.Image"), System.Drawing.Image)
+ Me.pbUndo.Location = New System.Drawing.Point(201, 293)
+ Me.pbUndo.Name = "pbUndo"
+ Me.pbUndo.Size = New System.Drawing.Size(16, 16)
+ Me.pbUndo.TabIndex = 14
+ Me.pbUndo.TabStop = False
+ Me.pbUndo.Visible = False
+ '
+ 'lblCurrentImage
+ '
+ Me.lblCurrentImage.AutoSize = True
+ Me.lblCurrentImage.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblCurrentImage.Location = New System.Drawing.Point(0, 274)
+ Me.lblCurrentImage.Name = "lblCurrentImage"
+ Me.lblCurrentImage.Size = New System.Drawing.Size(100, 17)
+ Me.lblCurrentImage.TabIndex = 4
+ Me.lblCurrentImage.Text = "Current Image:"
+ Me.lblCurrentImage.Visible = False
+ '
+ 'dlgTVImageSelect
+ '
+ Me.AcceptButton = Me.btnOK
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.btnCancel
+ Me.ClientSize = New System.Drawing.Size(849, 481)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.lblCurrentImage)
+ Me.Controls.Add(Me.pbUndo)
+ Me.Controls.Add(Me.pbDelete)
+ Me.Controls.Add(Me.btnCancel)
+ Me.Controls.Add(Me.btnOK)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.pbCurrent)
+ Me.Controls.Add(Me.pnlImages)
+ Me.Controls.Add(Me.tvList)
+ Me.DoubleBuffered = True
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(855, 491)
+ Me.Name = "dlgTVImageSelect"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "TV Image Selection"
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlStatus.ResumeLayout(False)
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents tvList As System.Windows.Forms.TreeView
+ Friend WithEvents pnlImages As System.Windows.Forms.Panel
+ Friend WithEvents pbCurrent As System.Windows.Forms.PictureBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnOK As System.Windows.Forms.Button
+ Friend WithEvents btnCancel As System.Windows.Forms.Button
+ Friend WithEvents pbDelete As System.Windows.Forms.PictureBox
+ Friend WithEvents pbUndo As System.Windows.Forms.PictureBox
+ Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+ Friend WithEvents lblCurrentImage As System.Windows.Forms.Label
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.resx b/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.resx
new file mode 100644
index 0000000..db85c76
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.resx
@@ -0,0 +1,210 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
+ LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+ ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
+ CwAAAk1TRnQBSQFMAgEBBAEAATABAAEwAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+ AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+ AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+ AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+ AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+ AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+ ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+ AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+ AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+ AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+ AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+ AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+ AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+ AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+ AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+ ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+ Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+ AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+ AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+ AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+ ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+ Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+ AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+ AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+ AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+ AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+ AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+ AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AFgAC/wMA
+ Bf8DAAH/BAAL/wMAA/8BAAb/AQAD/wMABf8C9AX/AgAC/wHzAfAJvAHzAv8CAAL/AfQB8QH0AfIB8QH0
+ AfEB8wL/AwAD/wH0Af8E9AH/AvQC/wMAAf8B8QEHB7wB8gH/AwAB/wG8AfEC8gXzAvIB8AH0AwAD/wGT
+ AfQB8AGTAQABkwH0Av8DAAL/AfQBUwGZBP8B8AFTAfAC/wQAAfEB8AfxAfIEAAH0AfAB8QHyB/MB8gHx
+ AfQGAAEaAvMBmQH/AZMIAAH/AXUBMgF1AfQB/wGaAjIB9AYAAvEI8gQAAfQB8AEJCLsBCQHxAfQFAAH/
+ AZMBdAGZAXQBmQF0AfQIAAEaAjICUwIyAXUB/wYACfIB8wQAAfQBuwG5AbMGigGyAbkBuwH0BAAB8wGZ
+ BnQBkwHxAf8GAAH0BjIBGgcAAvIG8wHyAfMEAAH0AbsCuQGsAYoCrAGKAawBswG5AbsB9AQAAvEB8AG7
+ AbUBBwEaAfIB8wHwAf8GAAH2AVMFMgEbBwAK8wQAAf8BuwO5AbIDrAGzArkBuwH0BAAB8gG8Aa4BbAFL
+ AUwBUgGZAfMB8QH/BQAB8wFTBzIBGgYACvMEAAH/AbsDuQGyAqwBsgO5AbsB9AQAAfEB/wEHAW4BUgIy
+ AY4B9AHyAf8DAAH/ARoKMgF6Af8EAArzBAAB/wEJAroBswGsArIBrAGzAroBuwH0BAAB8gH2AbsCggNM
+ AvMB/wMAAfQBMgFTAlkBUwMyA1kBMgEaBAAG8wP0AfMEAAH/AQkDugSyA7oBCQH0BAABGwH0AbsB9AGO
+ AbABkwF1AfQB8wH/BAAE/wEaAjIBegX/BAAF8wH0AfIC7wHyBAAB9AHwA7sBugKyAboDuwEJAfQEAAEb
+ Af8B8wH/Ab0B8gH0AbcB8wH0Af8IAAH0AjgBGgkABfMB9AEHAewB8AUAAfQB8AoJAfAB9AQAAfMC9AEb
+ AZkBkwEaAvQBGwH/CAAB/wF6ATgB/wkABfMB9AEHAbwGAAH/AfMBGQnyAfMB/wQABP8BmQF0AfQD/woA
+ ARoBWQH/CQAB/wX0AfMIAAH0CvMB9AkAAfMBGg4AAf8B9EcAAUIBTQE+BwABPgMAASgDAAFAAwABIAMA
+ AQEBAAEBBgABARYAA/+BAAL/AZwBHQHgAQMBiAERAcABAwIAAcABAwGAAQEBwAEDAYABAQHAAUMBgAEB
+ AeABBwGAAQEB+AEfAeABBwHgAQcBgAEBAfABDwHwAQcB4AEHAYABAQHgAQMB8AEPAeABBwGAAQEB4AED
+ AfABDwHgAQcBgAEBAeABAwHgAQcB4AEHAYABAQHgAQMBgAEBAeABBwGAAQEB4AEDAYABAQHgAQcBgAEB
+ AeABAwHAAQEB4AEHAYABAQHgAQMB/AE/AeABDwGAAQEB4AEDAfwBPwHgAR8BgAEBAeABBwH+AT8B4AE/
+ AcABAwH+AX8B/gF/CP8L
+</value>
+ </data>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="pbDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB60lEQVQ4T2P4//8/AyUYRfN9B2Pfu3YGzbgMvGdnkHnP3qgQWR5uwC1X
+ s4grBqr/L2kp/L9upbsF3ZAbdgaNl3WV/1/WUfp/w96w9//BmYwgNWADrnpYcZ3WUf5/XFEajE+py/2/
+ aIkw5LKtQeNpbSWgnBQYn9JU/H/eTNsUbsBOTi7GA4rSPQeUZf6DMVDRITW5/2csdVecszesOaqt+H8/
+ UAwuryS9/4CsBDfcAJhzdyrL9O5Qkv6/E4h3KEj93wN0yT4txf/bFSQhYhC5/Us0FVlgejBiYCPQkA1A
+ hWAMtHU90CAYf6OS9N752iqsWAMRWXCFkvTxFcCwQMPvNpkawG3G6YIFitINCxWk/gDxf3S8QFFqI3rs
+ oHhhhqJ040ygRhieAWSDMKqY9Jb/T7/D9YEZE1TlGSYqSDVMlJf6D8MTQGwF6c2TFKS7wGxkrCC1ZZKK
+ HAc8FnrVFLg65SX/o+H9tfqqTCBFXQpSvR1o8l2K0mYo0dihJJvYBLSlSU7yP5De9y3AG6wZhpvlpbrB
+ ckDcoigz/bGzFViegZkBjAWAFG+cpGh9trTYFm4WZgMgXwcobgzCQDaIr5AiKTo3U1p8IZAtAsR8cBcA
+ FTEDMdhPYEEGBk4gnxcZA8V4kOTZQHowUiI52RoAvKofAJdcVi8AAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="pbUndo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAHHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3MgQ1M0BrLToAAAAihJREFUOE9j+P//PwMlmCLNIIupZwATAwMjOxs7Q8XKkwzFG2+y
+ GnYd8XOZdprZedopBr9FVxiSNt5jqD3wjGHC6TcMvadegzGKCxgYGFhVdE0Y0ldcYVFt3LeYIWfrO9aS
+ XZzmU84weC+6ypBMhAEsPoU9nBJV+w4xpG/4z5C//SN/zf4ou1kXDIAGsKRvvsdQfxCPC7jFFIVFc9fu
+ ZEhb+58hZ9N/hoLt/xlL9/xnqT78X6Ln3D3bRbfaSvc+FZ927g3DpDMQjOIF1ohptxlSgJrTEQYwlOz+
+ z1C+/z9D1eH/jM2n/6vOuf06dtsT64ydTxjSdjxBNYApdf1/huSVmAZUHPjPUHPkP0P9if8MLWf/K8y7
+ 98lw0T1do0V3UQ0QsoqIZc/e/AXZCwyFuyAuABtw8j9D05n/LF2X/2ssfnTEeOkDVAPYmRgZtLJn2bFk
+ b/7BkLURFAa/NbuOdUi1HY8QbjsZKtN3Pkl20uUpHD2Xn/FNuf3fYNljF4xotPGLYohacsWOIXPDW4a8
+ bW/lmw9yKXedYJDuOs2gO/0Sg/vyOwxZu56yGCy+Xy086/58dAMYxSRlGJq3XWOIWnhBS6hy93rB6r0c
+ YnX7GWQ6TzJoT7vE4Lz0NkPW7ucMkdufM1mufOJP3aQMMo2ZgYEZiEWBWBaYtKVYOPkNWMRUvYFscSCW
+ BYqLAzErcu5FyUxASUaQAiDmAGIuIAbLA2l2qBgbSA2yAQAKojORM6Lv5AAAAABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.vb b/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.vb
new file mode 100644
index 0000000..288414e
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/TVScraper/dlgTVImageSelect.vb
@@ -0,0 +1,1224 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+'TODO: 1.5 - TV Show renaming (including "dump folder")
+'TODO: 1.5 - Support VIDEO_TS/BDMV folders for TV Shows
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTVImageSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadFanart As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadData As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadImages As New System.ComponentModel.BackgroundWorker
+
+ Private DefaultImages As New Scraper.TVImages
+ Private FanartList As New List(Of Scraper.TVDBFanart)
+ Private GenericPosterList As New List(Of Scraper.TVDBPoster)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private SeasonList As New List(Of Scraper.TVDBSeasonPoster)
+ Private SelIsPoster As Boolean = True
+ Private SelSeason As Integer = -999
+ Private ShowPosterList As New List(Of Scraper.TVDBShowPoster)
+ Private _fanartchanged As Boolean = False
+ Private _id As Integer = -1
+ Private _season As Integer = -999
+ Private _type As Enums.TVImageType = Enums.TVImageType.All
+ Private _withcurrent As Boolean = True
+ Private _ScrapeType As Enums.ScrapeType
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function SetDefaults() As Boolean
+ Dim iSeason As Integer = -1
+ Dim iEpisode As Integer = -1
+ Dim iProgress As Integer = 3
+
+ Dim tSea As Scraper.TVDBSeasonPoster
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.TVDBImages.SeasonImageList.Count + Scraper.tmpTVDBShow.Episodes.Count + 3, "defaults")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster) AndAlso IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ If Master.eSettings.IsShowBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) p.Language = Master.eSettings.TVDBLanguage AndAlso Not IsNothing(p.Image.Image))
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(1, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Dim tSF As Scraper.TVDBFanart = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize AndAlso f.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize)
+
+ 'no fanart of the preferred size, just get the first available
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image))
+
+ If Not IsNothing(tSF) Then
+ If Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso File.Exists(tSF.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(tSF.LocalFile)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ ElseIf Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso Not String.IsNullOrEmpty(tSF.URL) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(tSF.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tSF.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(tSF.LocalFile, , , False)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(2, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled AndAlso IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ If Master.eSettings.IsAllSBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(3, "progress")
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.SeasonFanart Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList
+ Try
+ iSeason = cSeason.Season
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster) AndAlso IsNothing(cSeason.Poster.Image) Then
+ tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason)
+ If Not IsNothing(tSea) Then cSeason.Poster = tSea.Image
+ End If
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonFanart) AndAlso Master.eSettings.SeasonFanartEnabled AndAlso IsNothing(cSeason.Fanart.Image.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then cSeason.Fanart.Image = Scraper.TVDBImages.ShowFanart.Image
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Episode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not String.IsNullOrEmpty(Episode.TVEp.LocalFile) Then
+ Episode.TVEp.Poster.FromFile(Episode.TVEp.LocalFile)
+ ElseIf Not String.IsNullOrEmpty(Episode.EpPosterPath) Then
+ Episode.TVEp.Poster.FromFile(Episode.EpPosterPath)
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled Then
+ If Not String.IsNullOrEmpty(Episode.EpFanartPath) Then
+ Episode.TVEp.Fanart.FromFile(Episode.EpFanartPath)
+ ElseIf Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Episode.TVEp.Fanart = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ DefaultImages = Scraper.TVDBImages.Clone
+
+ Return False
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As System.Windows.Forms.DialogResult
+ Me._id = ShowID
+ Me._type = Type
+ Me._withcurrent = WithCurrent
+ Me._ScrapeType = ScrapeType
+ Return MyBase.ShowDialog
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal CurrentImage As Images) As Images
+ Me._id = ShowID
+ Me._type = Type
+ Me._season = Season
+ Me.pbCurrent.Image = CurrentImage.Image
+ Me.pbCurrent.Tag = CurrentImage
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return CType(Me.pbCurrent.Tag, Images)
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal fTag As ImageTag)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.lblImage(iIndex) = New Label()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(187, 187)
+ Me.pbImage(iIndex).Size = New Size(181, 151)
+ Me.lblImage(iIndex).Size = New Size(181, 30)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblImage(iIndex).Text = sDescription
+ Me.pbImage(iIndex).Image = fTag.ImageObj.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.lblImage(iIndex).Left = 0
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.lblImage(iIndex).Top = 151
+ Me.pnlImage(iIndex).Tag = fTag
+ Me.pbImage(iIndex).Tag = fTag
+ Me.lblImage(iIndex).Tag = fTag
+ Me.pnlImages.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 192
+ Else
+ Me.iLeft += 192
+ End If
+ End Sub
+
+ Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
+ If Me.bwLoadData.IsBusy Then Me.bwLoadData.CancelAsync()
+ If Me.bwLoadImages.IsBusy Then Me.bwLoadImages.CancelAsync()
+
+ While Me.bwLoadData.IsBusy OrElse Me.bwLoadImages.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+ DoneAndClose()
+ End Sub
+
+ Private Sub DoneAndClose()
+ If Me._type = Enums.TVImageType.All Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ Master.currShow.ShowPosterPath = Scraper.TVDBImages.ShowPoster.LocalFile
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ End If
+ End If
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Master.currShow.SeasonPosterPath = Scraper.TVDBImages.AllSeasonPoster.LocalFile
+ End If
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromFile(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Clear()
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromWeb(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile).FullName)
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Save(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ End If
+ End If
+ ElseIf (Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+ End If
+
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+
+ Private Sub bwLoadData_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadData.DoWork
+ Dim cSI As Scraper.TVDBSeasonImage
+ Dim iProgress As Integer = 1
+ Dim iSeason As Integer = -1
+
+ Me.bwLoadData.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count, "current")
+
+ 'initialize the struct
+ Scraper.TVDBImages.ShowPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.ShowFanart = New Scraper.TVDBFanart
+ Scraper.TVDBImages.AllSeasonPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.SeasonImageList = New List(Of Scraper.TVDBSeasonImage)
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Select Case Me._type
+ Case Enums.TVImageType.AllSeasonPoster
+ Scraper.TVDBImages.AllSeasonPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.SeasonFanart
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Fanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.SeasonPoster
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Poster = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.ShowFanart, Enums.TVImageType.EpisodeFanart
+ Scraper.TVDBImages.ShowFanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.ShowPoster
+ Scraper.TVDBImages.ShowPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.All
+
+ If _withcurrent Then
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowPosterPath)
+ Scraper.TVDBImages.ShowPoster.LocalFile = Scraper.tmpTVDBShow.Show.ShowPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = Scraper.tmpTVDBShow.Show.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image.FromFile(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath)
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+ If iSeason > -1 Then
+ If IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(sEpisode.ShowPosterPath)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(sEpisode.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = sEpisode.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ If Not String.IsNullOrEmpty(sEpisode.SeasonPosterPath) Then
+ cSI.Poster.FromFile(sEpisode.SeasonPosterPath)
+ End If
+ If Master.eSettings.SeasonFanartEnabled AndAlso Not String.IsNullOrEmpty(sEpisode.SeasonFanartPath) Then
+ cSI.Fanart.Image.FromFile(sEpisode.SeasonFanartPath)
+ cSI.Fanart.LocalFile = sEpisode.SeasonFanartPath
+ End If
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ End If
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ Else
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ End Select
+ End Sub
+
+ Private Sub bwLoadData_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadData.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "current" Then
+ Me.lblStatus.Text = Master.eLang.GetString(88, "Loading Current Images...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadData_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadData.RunWorkerCompleted
+ If Not e.Cancelled Then
+ Me.GenerateList()
+
+ Me.lblStatus.Text = Master.eLang.GetString(89, "(Down)Loading New Images...")
+ Me.bwLoadImages.WorkerReportsProgress = True
+ Me.bwLoadImages.WorkerSupportsCancellation = True
+ Me.bwLoadImages.RunWorkerAsync()
+ End If
+ End Sub
+
+ Private Sub bwLoadImages_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadImages.DoWork
+ e.Cancel = Me.DownloadAllImages()
+ End Sub
+
+ Private Sub bwLoadImages_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadImages.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "defaults" Then
+ Me.lblStatus.Text = Master.eLang.GetString(90, "Setting Defaults...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadImages_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadImages.RunWorkerCompleted
+ Me.pnlStatus.Visible = False
+ If _ScrapeType = Enums.ScrapeType.FullAuto Then
+ DoneAndClose()
+ Else
+ If Not e.Cancelled Then
+ Me.tvList.Enabled = True
+ Me.tvList.Visible = True
+ Me.tvList.SelectedNode = Me.tvList.Nodes(0)
+ Me.tvList.Focus()
+
+ Me.btnOK.Enabled = True
+ End If
+
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ End If
+ End Sub
+
+ Private Sub CheckCurrentImage()
+ Me.pbDelete.Visible = Not IsNothing(Me.pbCurrent.Image) AndAlso Me.pbCurrent.Visible
+ Me.pbUndo.Visible = Me.pbCurrent.Visible
+ End Sub
+
+ Private Sub ClearImages()
+ Try
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop = 5
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+
+ If Me.pnlImages.Controls.Count > 0 Then
+ For i As Integer = UBound(Me.pnlImage) To 0 Step -1
+ If Not IsNothing(Me.pnlImage(i)) Then
+ If Not IsNothing(Me.lblImage(i)) AndAlso Me.pnlImage(i).Contains(Me.lblImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.lblImage(i))
+ If Not IsNothing(Me.pbImage(i)) AndAlso Me.pnlImage(i).Contains(Me.pbImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.pbImage(i))
+ If Me.pnlImages.Contains(Me.pnlImage(i)) Then Me.pnlImages.Controls.Remove(Me.pnlImage(i))
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgTVImageSelect_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ AddHandler pnlImages.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler tvList.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlImages)
+
+ Me.SetUp()
+ End Sub
+
+ Private Sub dlgTVImageSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.bwLoadData.WorkerReportsProgress = True
+ Me.bwLoadData.WorkerSupportsCancellation = True
+ Me.bwLoadData.RunWorkerAsync()
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, ByVal SelTag As ImageTag)
+ Try
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ Next
+
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+
+ SetImage(SelTag)
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function DownloadAllImages() As Boolean
+ Dim iProgress As Integer = 1
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count + Scraper.tmpTVDBShow.SeasonPosters.Count + Scraper.tmpTVDBShow.ShowPosters.Count + Scraper.tmpTVDBShow.Fanart.Count + Scraper.tmpTVDBShow.Posters.Count, "max")
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Epi As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not File.Exists(Epi.TVEp.LocalFile) Then
+ If Not String.IsNullOrEmpty(Epi.TVEp.PosterURL) Then
+ Epi.TVEp.Poster.FromWeb(Epi.TVEp.PosterURL)
+ If Not IsNothing(Epi.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Epi.TVEp.LocalFile).FullName)
+ Epi.TVEp.Poster.Save(Epi.TVEp.LocalFile)
+ End If
+ End If
+ Else
+ Epi.TVEp.Poster.FromFile(Epi.TVEp.LocalFile)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Seas As Scraper.TVDBSeasonPoster In Scraper.tmpTVDBShow.SeasonPosters
+ Try
+ If Not File.Exists(Seas.LocalFile) Then
+ If Not String.IsNullOrEmpty(Seas.URL) Then
+ Seas.Image.FromWeb(Seas.URL)
+ If Not IsNothing(Seas.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Seas.LocalFile).FullName)
+ Seas.Image.Save(Seas.LocalFile, , , False)
+ SeasonList.Add(Seas)
+ End If
+ End If
+ Else
+ Seas.Image.FromFile(Seas.LocalFile)
+ SeasonList.Add(Seas)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each SPost As Scraper.TVDBShowPoster In Scraper.tmpTVDBShow.ShowPosters
+ Try
+ If Not File.Exists(SPost.LocalFile) Then
+ If Not String.IsNullOrEmpty(SPost.URL) Then
+ SPost.Image.FromWeb(SPost.URL)
+ If Not IsNothing(SPost.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SPost.LocalFile).FullName)
+ SPost.Image.Save(SPost.LocalFile, , , False)
+ ShowPosterList.Add(SPost)
+ End If
+ End If
+ Else
+ SPost.Image.FromFile(SPost.LocalFile)
+ ShowPosterList.Add(SPost)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.SeasonFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then
+ For Each SFan As Scraper.TVDBFanart In Scraper.tmpTVDBShow.Fanart
+ Try
+ If Not File.Exists(SFan.LocalThumb) Then
+ If Not String.IsNullOrEmpty(SFan.ThumbnailURL) Then
+ SFan.Image.FromWeb(SFan.ThumbnailURL)
+ If Not IsNothing(SFan.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SFan.LocalThumb).FullName)
+ SFan.Image.Save(SFan.LocalThumb, , , False)
+ FanartList.Add(SFan)
+ End If
+ End If
+ Else
+ SFan.Image.FromFile(SFan.LocalThumb)
+ FanartList.Add(SFan)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse _
+ Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Post As Scraper.TVDBPoster In Scraper.tmpTVDBShow.Posters
+ Try
+ If Not File.Exists(Post.LocalFile) Then
+ If Not String.IsNullOrEmpty(Post.URL) Then
+ Post.Image.FromWeb(Post.URL)
+ If Not IsNothing(Post.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Post.LocalFile).FullName)
+ Post.Image.Save(Post.LocalFile, , , False)
+ GenericPosterList.Add(Post)
+ End If
+ End If
+ Else
+ Post.Image.FromFile(Post.LocalFile)
+ GenericPosterList.Add(Post)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Me.SetDefaults()
+ End Function
+
+ Private Function DownloadFanart(ByVal iTag As ImageTag) As Image
+ Dim sHTTP As New HTTP
+
+ Using tImage As New Images
+ If Not String.IsNullOrEmpty(iTag.Path) AndAlso File.Exists(iTag.Path) Then
+ tImage.FromFile(iTag.Path)
+ ElseIf Not String.IsNullOrEmpty(iTag.Path) AndAlso Not String.IsNullOrEmpty(iTag.URL) Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+
+ Application.DoEvents()
+
+ tImage.FromWeb(iTag.URL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(iTag.Path).FullName)
+ tImage.Save(iTag.Path, , , False)
+ End If
+
+ sHTTP = Nothing
+
+ Me.pnlStatus.Visible = False
+ End If
+
+ Return tImage.Image
+ End Using
+ End Function
+
+ Private Sub GenerateList()
+ Try
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(91, "Show Poster"), .Tag = "showp", .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then Me.tvList.Nodes.Add(New TreeNode With {.Text = If(Me._type = Enums.TVImageType.EpisodeFanart, Master.eLang.GetString(92, "Episode Fanart"), Master.eLang.GetString(93, "Show Fanart")), .Tag = "showf", .ImageIndex = 1, .SelectedImageIndex = 1})
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(94, "All Seasons Poster"), .Tag = "allp", .ImageIndex = 2, .SelectedImageIndex = 2})
+
+ Dim TnS As TreeNode
+ If Me._type = Enums.TVImageType.All Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList.OrderBy(Function(s) s.Season)
+ Try
+ TnS = New TreeNode(String.Format(Master.eLang.GetString(726, "Season {0}", True), cSeason.Season), 3, 3)
+ TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(95, "Season Posters"), .Tag = String.Concat("p", cSeason.Season.ToString), .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Master.eSettings.SeasonFanartEnabled Then TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(96, "Season Fanart"), .Tag = String.Concat("f", cSeason.Season.ToString), .ImageIndex = 1, .SelectedImageIndex = 1})
+ Me.tvList.Nodes.Add(TnS)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ ElseIf Me._type = Enums.TVImageType.SeasonPoster Then
+ Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(97, "Season {0} Posters"), Me._season), .Tag = String.Concat("p", Me._season)})
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart Then
+ If Master.eSettings.SeasonFanartEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(99, "Season {0} Fanart"), Me._season), .Tag = String.Concat("f", Me._season)})
+ End If
+
+ Me.tvList.ExpandAll()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetFanartDims(ByVal fSize As Size) As Enums.FanartSize
+ Try
+ If (fSize.Width > 1000 AndAlso fSize.Height > 750) OrElse (fSize.Height > 1000 AndAlso fSize.Width > 750) Then
+ Return Enums.FanartSize.Lrg
+ ElseIf (fSize.Width > 700 AndAlso fSize.Height > 400) OrElse (fSize.Height > 700 AndAlso fSize.Width > 400) Then
+ Return Enums.FanartSize.Mid
+ Else
+ Return Enums.FanartSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Function GetPosterDims(ByVal pSize As Size) As Enums.PosterSize
+ Try
+ If (pSize.Width > pSize.Height) AndAlso (pSize.Width > (pSize.Height * 2)) AndAlso (pSize.Width > 300) Then
+ 'at least twice as wide than tall... consider it wide (also make sure it's big enough)
+ Return Enums.PosterSize.Wide
+ ElseIf (pSize.Height > 1000 AndAlso pSize.Width > 750) OrElse (pSize.Width > 1000 AndAlso pSize.Height > 750) Then
+ Return Enums.PosterSize.Xlrg
+ ElseIf (pSize.Height > 700 AndAlso pSize.Width > 500) OrElse (pSize.Width > 700 AndAlso pSize.Height > 500) Then
+ Return Enums.PosterSize.Lrg
+ ElseIf (pSize.Height > 250 AndAlso pSize.Width > 150) OrElse (pSize.Width > 250 AndAlso pSize.Height > 150) Then
+ Return Enums.PosterSize.Mid
+ Else
+ Return Enums.PosterSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iindex As Integer = Convert.ToInt32(DirectCast(sender, Label).Name)
+ Me.DoSelect(iindex, DirectCast(DirectCast(sender, Label).Tag, ImageTag))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlImages.VerticalScroll.Value + 50) <= pnlImages.VerticalScroll.Maximum Then
+ pnlImages.VerticalScroll.Value += 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlImages.VerticalScroll.Value - 50) >= pnlImages.VerticalScroll.Minimum Then
+ pnlImages.VerticalScroll.Value -= 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub pbDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbDelete.Click
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+ Me.SetImage(New ImageTag)
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim tImage As Image = Nothing
+ Dim iTag As ImageTag = DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag)
+ If Not IsNothing(iTag) OrElse Not iTag.isFanart Then
+ tImage = DownloadFanart(iTag)
+ Else
+ tImage = DirectCast(sender, PictureBox).Image
+ End If
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage)
+ End Sub
+
+ Private Sub pbUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUndo.Click
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = DefaultImages.ShowPoster.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = DefaultImages.ShowPoster.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = DefaultImages.ShowPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowPoster.Image
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = DefaultImages.ShowFanart.Image
+ Scraper.TVDBImages.ShowFanart.LocalFile = DefaultImages.ShowFanart.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = DefaultImages.ShowFanart.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = DefaultImages.AllSeasonPoster.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = DefaultImages.AllSeasonPoster.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = DefaultImages.AllSeasonPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.AllSeasonPoster.Image
+ Else
+ If Me.SelIsPoster Then
+ Dim dSPost As Images = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = dSPost
+ Me.pbCurrent.Image = dSPost.Image
+ Me.pbCurrent.Tag = dSPost
+ Else
+ Dim dSFan As Scraper.TVDBFanart = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ Dim tSFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ tSFan.Image = dSFan.Image
+ tSFan.LocalFile = dSFan.LocalFile
+ tSFan.URL = dSFan.URL
+ Me.pbCurrent.Image = dSFan.Image.Image
+ Me.pbCurrent.Tag = dSFan.Image
+ End If
+ End If
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iIndex As Integer = Convert.ToInt32(DirectCast(sender, Panel).Name)
+ Me.DoSelect(iIndex, DirectCast(DirectCast(sender, Panel).Tag, ImageTag))
+ End Sub
+
+ Private Sub SetImage(ByVal SelTag As ImageTag)
+ Me.pbCurrent.Image = SelTag.ImageObj.Image
+ Me.pbCurrent.Tag = SelTag.ImageObj
+
+ Me._fanartchanged = True
+
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowPoster.URL = SelTag.URL
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowFanart.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowFanart.URL = SelTag.URL
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.AllSeasonPoster.URL = SelTag.URL
+ Else
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = SelTag.ImageObj
+ Else
+ Dim tFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ If Not IsNothing(tFan) Then
+ tFan.Image = SelTag.ImageObj
+ tFan.LocalFile = SelTag.Path
+ tFan.URL = SelTag.URL
+ End If
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(99, "TV Image Selection")
+ Me.btnOK.Text = Master.eLang.GetString(179, "OK", True)
+ Me.btnCancel.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.lblCurrentImage.Text = Master.eLang.GetString(100, "Current Image:")
+ End Sub
+
+ Private Sub tvList_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvList.AfterSelect
+ Dim iCount As Integer = 0
+
+ Try
+ ClearImages()
+ If Not IsNothing(e.Node.Tag) AndAlso Not String.IsNullOrEmpty(e.Node.Tag.ToString) Then
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ If e.Node.Tag.ToString = "showp" Then
+ Me.SelSeason = -999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.ShowPoster) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = ShowPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To GenericPosterList.Count - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "showf" Then
+
+ Me.SelSeason = -999
+ Me.SelIsPoster = False
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "allp" Then
+ Me.SelSeason = 999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.AllSeasonPoster) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = GenericPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To ShowPosterList.Count - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+ Else
+ Dim tMatch As Match = Regex.Match(e.Node.Tag.ToString, "(?<type>f|p)(?<num>[0-9]+)")
+ If tMatch.Success Then
+ If tMatch.Groups("type").Value = "f" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = False
+ Dim tFanart As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(tFanart) AndAlso Not IsNothing(tFanart.Fanart) AndAlso Not IsNothing(tFanart.Fanart.Image) AndAlso Not IsNothing(tFanart.Fanart.Image.Image) Then
+ Me.pbCurrent.Image = tFanart.Fanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+ ElseIf tMatch.Groups("type").Value = "p" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = True
+ Dim tPoster As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Me.SelSeason)
+ If Not IsNothing(tPoster) AndAlso Not IsNothing(tPoster.Poster) AndAlso Not IsNothing(tPoster.Poster.Image) Then
+ Me.pbCurrent.Image = tPoster.Poster.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ iCount = 0
+ For Each SImage As Scraper.TVDBSeasonPoster In SeasonList.Where(Function(s) s.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(SImage.Image) AndAlso Not IsNothing(SImage.Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", SImage.Image.Image.Width, SImage.Image.Image.Height), iCount, New ImageTag With {.URL = SImage.URL, .Path = SImage.LocalFile, .isFanart = False, .ImageObj = SImage.Image})
+ End If
+ iCount += 1
+ Next
+ End If
+ End If
+ End If
+ Else
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Visible = False
+ Me.lblCurrentImage.Visible = False
+ End If
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure ImageTag
+
+#Region "Fields"
+
+ Dim isFanart As Boolean
+ Dim Path As String
+ Dim URL As String
+ Dim ImageObj As Images
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.Designer.vb b/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..c3675d6
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.Designer.vb
@@ -0,0 +1,632 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtIMDBURL = New System.Windows.Forms.TextBox()
+ Me.GroupBox15 = New System.Windows.Forms.GroupBox()
+ Me.chkOFDBGenre = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBOutline = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBTitle = New System.Windows.Forms.CheckBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCertification = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkTop250 = New System.Windows.Forms.CheckBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkMusicBy = New System.Windows.Forms.CheckBox()
+ Me.chkProducers = New System.Windows.Forms.CheckBox()
+ Me.chkFullCast = New System.Windows.Forms.CheckBox()
+ Me.chkWriters = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkFullCrew = New System.Windows.Forms.CheckBox()
+ Me.chkPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkDirector = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.GroupBox15.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtIMDBURL)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(213, 69)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "IMDB"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(73, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "IMDB Mirror:"
+ '
+ 'txtIMDBURL
+ '
+ Me.txtIMDBURL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBURL.Location = New System.Drawing.Point(8, 32)
+ Me.txtIMDBURL.Name = "txtIMDBURL"
+ Me.txtIMDBURL.Size = New System.Drawing.Size(192, 22)
+ Me.txtIMDBURL.TabIndex = 1
+ '
+ 'GroupBox15
+ '
+ Me.GroupBox15.Controls.Add(Me.chkOFDBGenre)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBPlot)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBOutline)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBTitle)
+ Me.GroupBox15.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox15.Location = New System.Drawing.Point(8, 114)
+ Me.GroupBox15.Name = "GroupBox15"
+ Me.GroupBox15.Size = New System.Drawing.Size(213, 87)
+ Me.GroupBox15.TabIndex = 2
+ Me.GroupBox15.TabStop = False
+ Me.GroupBox15.Text = "OFDB (German)"
+ '
+ 'chkOFDBGenre
+ '
+ Me.chkOFDBGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBGenre.Location = New System.Drawing.Point(6, 65)
+ Me.chkOFDBGenre.Name = "chkOFDBGenre"
+ Me.chkOFDBGenre.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBGenre.TabIndex = 3
+ Me.chkOFDBGenre.Text = "Use OFDB Genre"
+ Me.chkOFDBGenre.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBPlot
+ '
+ Me.chkOFDBPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBPlot.Location = New System.Drawing.Point(6, 49)
+ Me.chkOFDBPlot.Name = "chkOFDBPlot"
+ Me.chkOFDBPlot.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBPlot.TabIndex = 2
+ Me.chkOFDBPlot.Text = "Use OFDB Plot"
+ Me.chkOFDBPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBOutline
+ '
+ Me.chkOFDBOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBOutline.Location = New System.Drawing.Point(6, 33)
+ Me.chkOFDBOutline.Name = "chkOFDBOutline"
+ Me.chkOFDBOutline.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBOutline.TabIndex = 1
+ Me.chkOFDBOutline.Text = "Use OFDB Outline"
+ Me.chkOFDBOutline.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBTitle
+ '
+ Me.chkOFDBTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBTitle.Location = New System.Drawing.Point(6, 17)
+ Me.chkOFDBTitle.Name = "chkOFDBTitle"
+ Me.chkOFDBTitle.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBTitle.TabIndex = 0
+ Me.chkOFDBTitle.Text = "Use OFDB Title"
+ Me.chkOFDBTitle.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.GroupBox15)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCertification)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkTop250)
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkMusicBy)
+ Me.gbOptions.Controls.Add(Me.chkProducers)
+ Me.gbOptions.Controls.Add(Me.chkFullCast)
+ Me.gbOptions.Controls.Add(Me.chkWriters)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkFullCrew)
+ Me.gbOptions.Controls.Add(Me.chkPlot)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkDirector)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(227, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(387, 161)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCertification
+ '
+ Me.chkCertification.AutoSize = True
+ Me.chkCertification.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCertification.Location = New System.Drawing.Point(6, 70)
+ Me.chkCertification.Name = "chkCertification"
+ Me.chkCertification.Size = New System.Drawing.Size(89, 17)
+ Me.chkCertification.TabIndex = 3
+ Me.chkCertification.Text = "Certification"
+ Me.chkCertification.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(237, 53)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkTop250
+ '
+ Me.chkTop250.AutoSize = True
+ Me.chkTop250.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTop250.Location = New System.Drawing.Point(237, 19)
+ Me.chkTop250.Name = "chkTop250"
+ Me.chkTop250.Size = New System.Drawing.Size(66, 17)
+ Me.chkTop250.TabIndex = 16
+ Me.chkTop250.Text = "Top 250"
+ Me.chkTop250.UseVisualStyleBackColor = True
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Enabled = False
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(246, 104)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(85, 17)
+ Me.chkCrew.TabIndex = 21
+ Me.chkCrew.Text = "Other Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkMusicBy
+ '
+ Me.chkMusicBy.AutoSize = True
+ Me.chkMusicBy.Enabled = False
+ Me.chkMusicBy.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMusicBy.Location = New System.Drawing.Point(246, 121)
+ Me.chkMusicBy.Name = "chkMusicBy"
+ Me.chkMusicBy.Size = New System.Drawing.Size(71, 17)
+ Me.chkMusicBy.TabIndex = 22
+ Me.chkMusicBy.Text = "Music By"
+ Me.chkMusicBy.UseVisualStyleBackColor = True
+ '
+ 'chkProducers
+ '
+ Me.chkProducers.AutoSize = True
+ Me.chkProducers.Enabled = False
+ Me.chkProducers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkProducers.Location = New System.Drawing.Point(246, 138)
+ Me.chkProducers.Name = "chkProducers"
+ Me.chkProducers.Size = New System.Drawing.Size(77, 17)
+ Me.chkProducers.TabIndex = 23
+ Me.chkProducers.Text = "Producers"
+ Me.chkProducers.UseVisualStyleBackColor = True
+ '
+ 'chkFullCast
+ '
+ Me.chkFullCast.AutoSize = True
+ Me.chkFullCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCast.Location = New System.Drawing.Point(237, 70)
+ Me.chkFullCast.Name = "chkFullCast"
+ Me.chkFullCast.Size = New System.Drawing.Size(107, 17)
+ Me.chkFullCast.TabIndex = 19
+ Me.chkFullCast.Text = "Scrape Full Cast"
+ Me.chkFullCast.UseVisualStyleBackColor = True
+ '
+ 'chkWriters
+ '
+ Me.chkWriters.AutoSize = True
+ Me.chkWriters.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkWriters.Location = New System.Drawing.Point(131, 121)
+ Me.chkWriters.Name = "chkWriters"
+ Me.chkWriters.Size = New System.Drawing.Size(63, 17)
+ Me.chkWriters.TabIndex = 14
+ Me.chkWriters.Text = "Writers"
+ Me.chkWriters.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 104)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkFullCrew
+ '
+ Me.chkFullCrew.AutoSize = True
+ Me.chkFullCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCrew.Location = New System.Drawing.Point(237, 87)
+ Me.chkFullCrew.Name = "chkFullCrew"
+ Me.chkFullCrew.Size = New System.Drawing.Size(111, 17)
+ Me.chkFullCrew.TabIndex = 20
+ Me.chkFullCrew.Text = "Scrape Full Crew"
+ Me.chkFullCrew.UseVisualStyleBackColor = True
+ '
+ 'chkPlot
+ '
+ Me.chkPlot.AutoSize = True
+ Me.chkPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkPlot.Location = New System.Drawing.Point(131, 70)
+ Me.chkPlot.Name = "chkPlot"
+ Me.chkPlot.Size = New System.Drawing.Size(46, 17)
+ Me.chkPlot.TabIndex = 11
+ Me.chkPlot.Text = "Plot"
+ Me.chkPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 138)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkDirector
+ '
+ Me.chkDirector.AutoSize = True
+ Me.chkDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDirector.Location = New System.Drawing.Point(131, 104)
+ Me.chkDirector.Name = "chkDirector"
+ Me.chkDirector.Size = New System.Drawing.Size(67, 17)
+ Me.chkDirector.TabIndex = 13
+ Me.chkDirector.Text = "Director"
+ Me.chkDirector.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 87)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 138)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(237, 36)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 121)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 87)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'frmInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.GroupBox15.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBURL As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkOFDBGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCertification As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTop250 As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMusicBy As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkProducers As System.Windows.Forms.CheckBox
+ Friend WithEvents chkWriters As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDirector As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.resx b/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.resx
new file mode 100644
index 0000000..1a3b6b2
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.resx
@@ -0,0 +1,193 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsIAAALCAHAvaXaAAAHHElE
+ QVRYR8WWeVAUVBzHX5mpZcekIAoKCYLLvQe7XLucHiCoIDcqJHgmeaaLW2bHGIZZTXYqmigiCosKi4og
+ oCUKeTVehViToo2hljrO5Djz7fd71WJCE/1DzHzYt+/33u993+/33u+tAPC/0mVnT9JlZ0/SZWdP0mVn
+ TyL/XWxtFd9fvChaW1rExg0FfebNnZMzflxU2YSY6KoJ46It1LYkJ8RbUpMSLEmT4i2TU1Ms0zKmWjIm
+ p1sy0tNkm/uSJsVZUhMT5NgJNIfnso/x0WPN06dlLqg7UNuX17v3228Sq4BLP/4o2i5fZhG9Z2ZPM5Mj
+ pKckITLUgNSkRMydPRNx42ORFB+HRQvmYfoLmUhOmIRF8+dj8cIFSElMQFZmBhaTLXlSPOJiY+Sc9OQ/
+ fKQlJ4J9zs+Za6F1+vx09aq40tbWIaBkW7Ewl+4Qa1a/EzsmPAz3799HW1sbgnR+qKmupiHASy/OwbKl
+ S2R7b1UV4knQL7/cxN27d5EQNxG7dpZL24rlr2JmdpZsHzrYgACtBrQx+X1sZDiWGZckffLRWvHhB+93
+ CBg3ZpSIGTtakNrcCFJcsWsXCr/YiAA/NVatXIkDtTUyIlmZU9FQX4f8VXmIjY7CrvJyWCoqQKFGfl4e
+ Dn/1JWZNz6LoxONATQ1oQ9LHhvXrUGWpxJiIMPquWk4bE4xVACkTUaMixKiwkFzetT5AJ3c4OSUZKRRq
+ DmvmlHRMmzoFU9JSkZUxFbNnTAflXsI7ZhFjIyPknIzJaUikqCRSytIohXGx46TPYH8tYwr29xOMVQAv
+ Hj06kiNgZAG1+6tx584d3Lxx49+5eQO3b93Ce++uxtLFi3C9vR03qP/69XbZZm6Rvb7uAAyB/gjUakzB
+ Oq1gOkUg3BBsJHD+3Dm008SrV650i1u//orioi0U8tW4fft2J3v7zz/jQkuLTIG/RmkK0mkoBZoOAWSQ
+ IkL1QcYwfSCOHmmUB+fCd9+h5V/gMZcvXULBus+x8q03ZfvhMezr2Ndfg1IMndrXFKhVC8YqgAxidHio
+ CAkKMBJ0eg/i2/Pnceb06W7ReqEVn378Ed5Y8RqopnSynydfRw4fRkSIHlqljylAoxKMVUBkqEGKoBwZ
+ +bDU7t+Pb06dwvFjx7rF2TNnQNcKr72yDOfOnu1kP3XyJN2eeoTrg+Dn622iKAjGKiDCoBeRIQah99cZ
+ g+kQ7rFY0NzUhEZS3R1OHD+ONfn5sk6cOH6ik73p6FFU79uHUIqu2sfT5Kf0EYxVQJg+iA8g300j5QY7
+ y8348tAhOrl13aKxsVHWi5cXLcQRaj9s55RW7t4tr6LKy8Ok8fESjFUA5V2EBgcKKhpGf7USJdu2oZYK
+ yb69e7tFfV093np9BRbMy0FDQ4Pc7YOwL3Npqaysvh4KE4kQjFUAKeP8C1rcSIcEmws3wVJpwW6qiN2B
+ RSx/xYScObNRTaW7gnb7IFWU0uKtW2VV9HZ3M/l6KgRjFUB5p/xrhVblY1T7eKGASqe5rAw7tm/vFiyC
+ 8z97RrZcsHTHjr9RbjZjE5V2ncoXnm4jTN4KN8FYBQT6qUWQVsN5MVJosLGg4D8J4EWXGZdilhRQ0cnO
+ vgo3bQIdPLiPcDaRCMFYBVB1ovyrBJ1Qo7vLcFlQeOLWoqJ/pPiBTx6bTU80vx/FW4v/tG2xjt1eUoK8
+ t1fS7l2gGDHc5O7qLBirALqbdC28hdLLPdf1eUe4ODrwdZGnVqdSQuPrDQO19VTLOYx8mLhk+2tUEq6e
+ niNdwXM5z4YAf1A0ueiAUguVtydchjnAbbgj3JydTPQp6LNDQAgdQHIifDxG5rLK0u0lVNnWYqidDXKX
+ vEx1oRJcIbmW791TRT885mOE01D5ZBcXbSbHTlhIN6Cmeh/oWacHR42qykpZmBwGDcRaKlI7zWUg/3Ae
+ Zr/cW+EqPB6MgP1gO0G/fMSKV00xalJ77949/PD9RQyxeQ7lZaU0BJgYE01PbZJsFxUWsiNcu3ZNvnS8
+ s/WffyZt2S9kSKH8t6eqEnYDnqVSfE5+54jkzJmZGE2/PZ595ukOAfz3CKFwc+ul9PIoHRVmQGhwgEwF
+ HVDERo2GF4XYl3YwISaKUqCBwuV5ev/DQK8o51WOm0g2ul580uUcHudMoQ8J1NFDZKCHSFkx0tW1N6/F
+ f1YBvWh94knqG/Rkv34u9oNs8xzsbBsc7Qc3OQyyaRps81yTk8MQpnmI7cBmxyF2zc6OQ5tpjMR52NBm
+ GittPIbHDrYZ0GRPc53Yh53tQfKZ/3T//q60hu2jtBav+bCApwgHUudMDKO2Cw1UEB6EF+FD+BJKQkWo
+ H4L72MZjeCzPcScU7It9EsN5DaI/8TcBf8FCHiV6EY8RvYnHiT5EX6LfnzzxD/xl57E8h+eyD/bFPtk3
+ ryHXswr4P+mysyfpsrPngPgd1z91K2zEiQAAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.vb b/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.vb
new file mode 100644
index 0000000..21a3d0b
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmInfoSettingsHolder.vb
@@ -0,0 +1,237 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCertification_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCertification.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkDirector_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDirector.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+
+ Me.chkProducers.Enabled = Me.chkFullCrew.Checked
+ Me.chkMusicBy.Enabled = Me.chkFullCrew.Checked
+ Me.chkCrew.Enabled = Me.chkFullCrew.Checked
+
+ If Not Me.chkFullCrew.Checked Then
+ Me.chkProducers.Checked = False
+ Me.chkMusicBy.Checked = False
+ Me.chkCrew.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMusicBy_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMusicBy.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkProducers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkProducers.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTop250_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTop250.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkWriters_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkWriters.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.chkOFDBGenre.Text = Master.eLang.GetString(1, "Use OFDB Genre")
+ Me.chkOFDBPlot.Text = Master.eLang.GetString(2, "Use OFDB Plot")
+ Me.chkOFDBOutline.Text = Master.eLang.GetString(3, "Use OFDB Outline")
+ Me.chkOFDBTitle.Text = Master.eLang.GetString(4, "Use OFDB Title")
+ Me.Label18.Text = Master.eLang.GetString(5, "IMDB Mirror:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkCrew.Text = Master.eLang.GetString(391, "Other Crew", True)
+ Me.chkMusicBy.Text = Master.eLang.GetString(392, "Music By", True)
+ Me.chkProducers.Text = Master.eLang.GetString(393, "Producers", True)
+ Me.chkWriters.Text = Master.eLang.GetString(394, "Writers", True)
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkPlot.Text = Master.eLang.GetString(65, "Plot", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkDirector.Text = Master.eLang.GetString(62, "Director", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(398, "Cast", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(401, "MPAA", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.chkCountry.Text = Master.eLang.GetString(301, "Country", True)
+ Me.chkFullCast.Text = Master.eLang.GetString(512, "Scrape Full Cast", True)
+ Me.chkFullCrew.Text = Master.eLang.GetString(513, "Scrape Full Crew", True)
+ Me.chkTop250.Text = Master.eLang.GetString(868, "Top250", True)
+ Me.GroupBox30.Text = Master.eLang.GetString(106, "IMDB")
+ Me.GroupBox15.Text = Master.eLang.GetString(107, "OFDB (German)")
+ End Sub
+
+ Private Sub txtIMDBURL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBURL.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.Designer.vb b/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..2c09e78
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.Designer.vb
@@ -0,0 +1,524 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.cbActorThumbsSize = New System.Windows.Forms.ComboBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseTMDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(587, 177)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.cbActorThumbsSize)
+ Me.GroupBox6.Location = New System.Drawing.Point(374, 98)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 73)
+ Me.GroupBox6.TabIndex = 5
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Actor Thumbs Size:"
+ '
+ 'cbActorThumbsSize
+ '
+ Me.cbActorThumbsSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbActorThumbsSize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbActorThumbsSize.FormattingEnabled = True
+ Me.cbActorThumbsSize.Items.AddRange(New Object() {"SY275_SX400", "SY720_SX1080", "SY1080_SX1920"})
+ Me.cbActorThumbsSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbActorThumbsSize.Name = "cbActorThumbsSize"
+ Me.cbActorThumbsSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbActorThumbsSize.TabIndex = 0
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(374, 11)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Enabled = False
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseTMDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 11)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox9.TabIndex = 3
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Images From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseTMDB
+ '
+ Me.chkUseTMDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseTMDB.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseTMDB.Name = "chkUseTMDB"
+ Me.chkUseTMDB.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseTMDB.TabIndex = 0
+ Me.chkUseTMDB.Text = "themoviedb.org"
+ Me.chkUseTMDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.GroupBox5)
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 214)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(587, 112)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(374, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 2
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbActorThumbsSize As System.Windows.Forms.ComboBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.resx b/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.resx
new file mode 100644
index 0000000..023cf14
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.resx
@@ -0,0 +1,237 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABxxJREFUWEfFlnlQFFQc
+ x1+ZqWXHpCAKCgmCy70Hu1y7nB4gqCA3KiR4Jnmmi1tmxxiGWU12KpooIgqLCouKIKAlCnk1XoVYk6KN
+ oZY6zuQ48+33e9ViQhP9Q8x82Lfv997vfd/v997vrQDwv9JlZ0/SZWdP0mVnT9JlZ08i/11sbRXfX7wo
+ WltaxMYNBX3mzZ2TM35cVNmEmOiqCeOiLdS2JCfEW1KTEixJk+Itk1NTLNMyployJqdbMtLTZJv7kibF
+ WVITE+TYCTSH57KP8dFjzdOnZS6oO1Dbl9e799tvEquASz/+KNouX2YRvWdmTzOTI6SnJCEy1IDUpETM
+ nT0TceNjkRQfh0UL5mH6C5lITpiERfPnY/HCBUhJTEBWZgYWky15UjziYmPknPTkP3ykJSeCfc7PmWuh
+ dfr8dPWquNLW1iGgZFuxMJfuEGtWvxM7JjwM9+/fR1tbG4J0fqiprqYhwEsvzsGypUtke29VFeJJ0C+/
+ 3MTdu3eREDcRu3aWS9uK5a9iZnaWbB862IAArQa0Mfl9bGQ4lhmXJH3y0Vrx4QfvdwgYN2aUiBk7WpDa
+ 3AhSXLFrFwq/2IgAPzVWrVyJA7U1MiJZmVPRUF+H/FV5iI2Owq7yclgqKkChRn5eHg5/9SVmTc+i6MTj
+ QE0NaEPSx4b161BlqcSYiDD6rlpOGxOMVQApE1GjIsSosJBc3rU+QCd3ODklGSkUag5r5pR0TJs6BVPS
+ UpGVMRWzZ0wH5V7CO2YRYyMj5JyMyWlIpKgkUsrSKIVxseOkz2B/LWMK9vcTjFUALx49OpIjYGQBtfur
+ cefOHdy8cePfuXkDt2/dwnvvrsbSxYtwvb0dN6j/+vV22WZukb2+7gAMgf4I1GpMwTqtYDpFINwQbCRw
+ /tw5tNPEq1eudItbv/6K4qItFPLVuH37did7+88/40JLi0yBv0ZpCtJpKAWaDgFkkCJC9UHGMH0gjh5p
+ lAfnwnffoeVf4DGXL11CwbrPsfKtN2X74THs69jXX4NSDJ3a1xSoVQvGKoAMYnR4qAgJCjASdHoP4tvz
+ 53Hm9Olu0XqhFZ9+/BHeWPEaqKZ0sp8nX0cOH0ZEiB5apY8pQKMSjFVAZKhBiqAcGfmw1O7fj29OncLx
+ Y8e6xdkzZ0DXCq+9sgznzp7tZD918iTdnnqE64Pg5+ttoigIxiogwqAXkSEGoffXGYPpEO6xWNDc1IRG
+ Ut0dThw/jjX5+bJOnDh+opO96ehRVO/bh1CKrtrH0+Sn9BGMVUCYPogPIN9NI+UGO8vN+PLQITq5dd2i
+ sbFR1ouXFy3EEWo/bOeUVu7eLa+iysvDpPHxEoxVAOVdhAYHCioaRn+1EiXbtqGWCsm+vXu7RX1dPd56
+ fQUWzMtBQ0OD3O2DsC9zaamsrL4eChOJEIxVACnj/Ata3EiHBJsLN8FSacFuqojdgUUsf8WEnDmzUU2l
+ u4J2+yBVlNLirVtlVfR2dzP5eioEYxVAeaf8a4VW5WNU+3ihgEqnuawMO7Zv7xYsgvM/e0a2XLB0x46/
+ UW42YxOVdp3KF55uI0zeCjfBWAUE+qlFkFbDeTFSaLCxoOA/CeBFlxmXYpYUUNHJzr4KN20CHTy4j3A2
+ kQjBWAVQdaL8qwSdUKO7y3BZUHji1qKif6T4gU8em01PNL8fxVuL/7RtsY7dXlKCvLdX0u5doBgx3OTu
+ 6iwYqwC6m3QtvIXSyz3X9XlHuDg68HWRp1anUkLj6w0DtfVUyzmMfJi4ZPtrVBKunp4jXcFzOc+GAH9Q
+ NLnogFILlbcnXIY5wG24I9ycnUz0KeizQ0AIHUByInw8RuayytLtJVTZ1mKonQ1yl7xMdaESXCG5lu/d
+ U0U/POZjhNNQ+WQXF20mx05YSDegpnof6FmnB0eNqspKWZgcBg3EWipSO81lIP9wHma/3FvhKjwejID9
+ YDtBv3zEildNMWpSe+/ePfzw/UUMsXkO5WWlNASYGBNNT22SbBcVFrIjXLt2Tb50vLP1n38mbdkvZEih
+ /LenqhJ2A56lUnxOfueI5MyZmRhNvz2efebpDgH89wihcHPrpfTyKB0VZkBocIBMBR1QxEaNhheF2Jd2
+ MCEmilKggcLleXr/w0CvKOdVjptINrpefNLlHB7nTKEPCdTRQ2Sgh0hZMdLVtTevxX9WAb1ofeJJ6hv0
+ ZL9+LvaDbPMc7GwbHO0HNzkMsmkabPNck5PDEKZ5iO3AZschds3OjkObaYzEedjQZhorbTyGxw62GdBk
+ T3Od2Ied7UHymf90//6utIbto7QWr/mwgKcIB1LnTAyjtgsNVBAehBfhQ/gSSkJFqB+C+9jGY3gsz3En
+ FOyLfRLDeQ2iP/E3AX/BQh4lehGPEb2Jx4k+RF+i35888Q/8ZeexPIfnsg/2xT7ZN68h17MK+D/psrMn
+ 6bKz54D4Hdc/dStsxIkAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.vb b/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.vb
new file mode 100644
index 0000000..401240a
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmMediaSettingsHolder.vb
@@ -0,0 +1,172 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerIMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerIMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerIMDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseTMDB.CheckedChanged
+ cbManualETSize.Enabled = chkUseTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.GroupBox9.Text = Master.eLang.GetString(9, "Get Images From:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.GroupBox3.Text = Master.eLang.GetString(497, "Images", True)
+ Me.GroupBox4.Text = Master.eLang.GetString(108, "TMDB Extrathumbs Size:")
+ Me.GroupBox1.Text = Master.eLang.GetString(109, "Trailers")
+ Me.GroupBox5.Text = Master.eLang.GetString(110, "Youtube/TMDB Trailer:")
+ Me.chkTrailerTMDBXBMC.Text = Master.eLang.GetString(111, "XBMC Format")
+ Me.Label2.Text = Master.eLang.GetString(112, "Preferred language")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(113, "Save Fanart In:")
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbActorThumbsSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbActorThumbsSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.Designer.vb b/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..4a8cc4e
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.Designer.vb
@@ -0,0 +1,169 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.resx b/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.resx
new file mode 100644
index 0000000..0950d0f
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.resx
@@ -0,0 +1,177 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.vb b/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.vb
new file mode 100644
index 0000000..98761ce
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmTVInfoSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.Designer.vb b/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f5cb735
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.Designer.vb
@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVMediaSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.InitialImage = CType(resources.GetObject("PictureBox1.InitialImage"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.resx b/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.resx
new file mode 100644
index 0000000..d47391f
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.resx
@@ -0,0 +1,197 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEAAA
+ CxABrSO9dQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.vb b/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.vb
new file mode 100644
index 0000000..06928ef
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/frmTVMediaSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/packages.config b/Addons/scraper.IMDB.Data/packages.config
new file mode 100644
index 0000000..053d0bc6
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="SharpZipLib" version="0.86.0" />
+ <package id="System.Data.SQLite" version="1.0.84.0" targetFramework="net35" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/scraper.IMDB.Data.vbproj b/Addons/scraper.IMDB.Data/scraper.IMDB.Data.vbproj
new file mode 100644
index 0000000..41972b8
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/scraper.IMDB.Data.vbproj
@@ -0,0 +1,342 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{D3C1A3C4-A060-40DF-ACE4-143F7F102A24}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.IMDB.Data</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Data.SQLite">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Data.SQLite.Linq">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.Linq.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Diagnostics" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="frmTVMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperTVNativeModule.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\dlgIMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgIMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieNativeModule.vb" />
+ <Compile Include="TVScraper\clsScrapeTVDB.vb" />
+ <Compile Include="TVScraper\dlgTVChangeEp.Designer.vb">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVChangeEp.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.Designer.vb">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.Designer.vb">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="frmTVMediaSettingsHolder.resx">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTVInfoSettingsHolder.resx">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgIMDBSearchResults.resx">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmMediaSettingsHolder.resx">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmInfoSettingsHolder.resx">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVChangeEp.resx">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVDBSearchResults.resx">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVEpisodePoster.resx">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVImageSelect.resx">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x64\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x86\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/scraperMovieNativeModule.vb b/Addons/scraper.IMDB.Data/scraperMovieNativeModule.vb
new file mode 100644
index 0000000..6889071
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/scraperMovieNativeModule.vb
@@ -0,0 +1,702 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private IMDB As New IMDB.Scraper
+ Private MySettings As New _MySettings
+ Private _Name As String = "Ember Native Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmInfoSettingsHolder
+ Private _setupPost As frmMediaSettingsHolder
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ If MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Poster
+ If MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer
+ dTrailer.IMDBURL = MySettings.IMDBURL
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ Dim IMDB As New IMDB.Scraper
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ IMDB.IMDBURL = MySettings.IMDBURL
+ studio = IMDB.GetMovieStudios(DBMovie.Movie.IMDBID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseTMDB.Checked = MySettings.UseTMDB
+ _setupPost.chkUseIMPA.Checked = MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = MySettings.UseMPDB
+ _setupPost.cbManualETSize.Text = MySettings.ManualETSize
+ _setupPost.cbActorThumbsSize.Text = MySettings.ActorThumbsSize
+ _setupPost.txtTimeout.Text = MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ Spanel.Prefix = "NativeMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return Spanel
+ End Function
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkPlot.Checked = ConfigOptions.bPlot
+ _setup.chkCast.Checked = ConfigOptions.bCast
+ _setup.chkDirector.Checked = ConfigOptions.bDirector
+ _setup.chkWriters.Checked = ConfigOptions.bWriters
+ _setup.chkProducers.Checked = ConfigOptions.bProducers
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkMusicBy.Checked = ConfigOptions.bMusicBy
+ _setup.chkCrew.Checked = ConfigOptions.bOtherCrew
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkTop250.Checked = ConfigOptions.bTop250
+ _setup.chkCertification.Checked = ConfigOptions.bCert
+ _setup.chkOFDBTitle.Checked = MySettings.UseOFDBTitle
+ _setup.chkOFDBOutline.Checked = MySettings.UseOFDBOutline
+ _setup.chkOFDBPlot.Checked = MySettings.UseOFDBPlot
+ _setup.chkOFDBGenre.Checked = MySettings.UseOFDBGenre
+ _setup.chkFullCast.Checked = ConfigOptions.bFullCast
+ _setup.chkFullCrew.Checked = ConfigOptions.bFullCrew
+
+ If String.IsNullOrEmpty(MySettings.IMDBURL) Then
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ _setup.txtIMDBURL.Text = MySettings.IMDBURL
+ _setup.orderChanged()
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ SPanel.Prefix = "NativeMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ MySettings.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ MySettings.UseOFDBTitle = AdvancedSettings.GetBooleanSetting("UseOFDBTitle", False)
+ MySettings.UseOFDBOutline = AdvancedSettings.GetBooleanSetting("UseOFDBOutline", False)
+ MySettings.UseOFDBPlot = AdvancedSettings.GetBooleanSetting("UseOFDBPlot", False)
+ MySettings.UseOFDBGenre = AdvancedSettings.GetBooleanSetting("UseOFDBGenre", False)
+ MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ MySettings.UseTMDB = AdvancedSettings.GetBooleanSetting("UseTMDB", True)
+ MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ MySettings.ActorThumbsSize = Convert.ToString(AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400"))
+ MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As New Trailers
+ LoadSettings()
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Trailer.IMDBURL = MySettings.IMDBURL
+ Dim doSave As Boolean = False
+ If Master.GlobalScrapeMod.Poster AndAlso (MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB) Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If ScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.IMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart AndAlso MySettings.UseTMDB Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If ScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.IMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ ScrapeImages.GetPreferredFAasET(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+ AdvancedSettings.SetSetting("IMDBURL", MySettings.IMDBURL)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("UseOFDBTitle", MySettings.UseOFDBTitle)
+ AdvancedSettings.SetBooleanSetting("UseOFDBOutline", MySettings.UseOFDBOutline)
+ AdvancedSettings.SetBooleanSetting("UseOFDBPlot", MySettings.UseOFDBPlot)
+ AdvancedSettings.SetBooleanSetting("UseOFDBGenre", MySettings.UseOFDBGenre)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseTMDB", MySettings.UseTMDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", MySettings.UseIMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", MySettings.UseTMDBTrailerXBMC)
+
+ AdvancedSettings.SetSetting("ManualETSize", MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("ActorThumbsSize", MySettings.ActorThumbsSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ 'AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ MySettings.UseTMDB = _setupPost.chkUseTMDB.Checked
+ MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ MySettings.ActorThumbsSize = _setupPost.cbActorThumbsSize.Text
+ MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtIMDBURL.Text) Then
+ MySettings.IMDBURL = Strings.Replace(_setup.txtIMDBURL.Text, "http://", String.Empty)
+ Else
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ MySettings.UseOFDBTitle = _setup.chkOFDBTitle.Checked
+ MySettings.UseOFDBOutline = _setup.chkOFDBOutline.Checked
+ MySettings.UseOFDBPlot = _setup.chkOFDBPlot.Checked
+ MySettings.UseOFDBGenre = _setup.chkOFDBGenre.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = _setup.chkPlot.Checked
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkDirector.Checked
+ ConfigOptions.bWriters = _setup.chkWriters.Checked
+ ConfigOptions.bProducers = _setup.chkProducers.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkMusicBy.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = _setup.chkTop250.Checked
+ ConfigOptions.bCert = _setup.chkCertification.Checked
+ ConfigOptions.bFullCrew = _setup.chkFullCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkFullCast.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ IMDB.IMDBURL = MySettings.IMDBURL
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = IMDB.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgIMDBSearchResults
+ dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect
+ If preload Then
+ dFImgSelect = New dlgImgSelect
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure _MySettings
+
+#Region "Fields"
+
+ Dim DownloadTrailers As Boolean
+ Dim IMDBURL As String
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseTMDBTrailer As Boolean
+ Dim UseIMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim ActorThumbsSize As String
+ Dim UseTMDBTrailerPref As String
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/scraperTVNativeModule.vb b/Addons/scraper.IMDB.Data/scraperTVNativeModule.vb
new file mode 100644
index 0000000..450e6d6
--- /dev/null
+++ b/Addons/scraper.IMDB.Data/scraperTVNativeModule.vb
@@ -0,0 +1,221 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeTVScraperModule
+ Implements Interfaces.EmberTVScraperModule
+
+#Region "Fields"
+
+ Public Shared TVScraper As New Scraper
+
+ Private _Name As String = "Ember Native TV Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTVInfoSettingsHolder
+ Private _setupPost As frmTVMediaSettingsHolder
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberTVScraperModule.ModuleSettingsChanged
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupPostScraperChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupScraperChanged
+
+ Public Event TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object) Implements Interfaces.EmberTVScraperModule.TVScraperEvent
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property IsBusy() As Boolean Implements Interfaces.EmberTVScraperModule.IsBusy
+ Get
+ Return TVScraper.IsBusy
+ End Get
+ End Property
+
+ Public ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleName() As String Implements Interfaces.EmberTVScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberTVScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Public Property PostScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Public Property ScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync() Implements Interfaces.EmberTVScraperModule.CancelAsync
+ TVScraper.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String, ByRef epDet As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ChangeEpisode
+ epDet = TVScraper.ChangeEpisode(ShowID, TVDBID, Lang)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String, ByRef Langs As List(Of Containers.TVLanguage)) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetLangs
+ Langs = TVScraper.GetLangs(sMirror)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByRef epDetails As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleEpisode
+ epDetails = TVScraper.GetSingleEpisode(ShowID, TVDBID, Season, Episode, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images, ByRef Image As Images) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleImage
+ Image = TVScraper.GetSingleImage(Title, ShowID, TVDBID, Type, Season, Episode, Lang, Ordering, CurrentImage)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Sub Handler_ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent TVScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberTVScraperModule.Init
+ AddHandler TVScraper.ScraperEvent, AddressOf Handler_ScraperEvent
+ End Sub
+
+ Public Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupPostScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setupPost = New frmTVMediaSettingsHolder
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "PostScraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setupPost.pnlSettings
+ SPanel.Parent = "pnlTVMedia"
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberTVScraperModule.ScraperUpdateMediaList
+ Public Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTVInfoSettingsHolder
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Prefix = "NativeTV_"
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setup.pnlSettings
+ SPanel.Parent = "pnlTVData"
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return SPanel
+ End Function
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+ Public Function PostScraper(ByRef DBTV As Structures.DBTV, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.PostScraper
+ End Function
+
+ Public Function SaveImages() As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.SaveImages
+ TVScraper.SaveImages()
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupPostScraper
+ End Sub
+
+ Public Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupScraper
+ End Sub
+
+ Public Function ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeEpisode
+ TVScraper.ScrapeEpisode(ShowID, ShowTitle, TVDBID, iEpisode, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function Scraper(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.Scraper
+ TVScraper.SingleScrape(ShowID, ShowTitle, TVDBID, Lang, Ordering, Options, ScrapeType, WithCurrent)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeSeason
+ TVScraper.ScrapeSeason(ShowID, ShowTitle, TVDBID, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Data/x64/SQLite.Interop.dll b/Addons/scraper.IMDB.Data/x64/SQLite.Interop.dll
new file mode 100644
index 0000000..860c0e5
Binary files /dev/null and b/Addons/scraper.IMDB.Data/x64/SQLite.Interop.dll differ
diff --git a/Addons/scraper.IMDB.Data/x86/SQLite.Interop.dll b/Addons/scraper.IMDB.Data/x86/SQLite.Interop.dll
new file mode 100644
index 0000000..6f6fd4f
Binary files /dev/null and b/Addons/scraper.IMDB.Data/x86/SQLite.Interop.dll differ
diff --git a/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
new file mode 100644
index 0000000..cb66cd5
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">tmdb1</string>
+ <string id="2">tmdb2</string>
+ <string id="3">tmdb3</string>
+ <string id="4">tmdb4</string>
+ <string id="5">tmdb5</string>
+ <string id="6">tmdb6</string>
+ <string id="7">tmdb7</string>
+ <string id="8">tmdb8</string>
+ <string id="9">tmdb9</string>
+ <string id="10">tmdb10</string>
+ <string id="11">tmdb11</string>
+ <string id="12">tmdb12</string>
+ <string id="13">tmdb13</string>
+ <string id="14">tmdb14</string>
+ <string id="15">tmdb15</string>
+ <string id="16">tmdb16</string>
+ <string id="17">tmdb17</string>
+ <string id="18">tmdb18</string>
+ <string id="19">tmdb19</string>
+ <string id="20">tmdb20</string>
+ <string id="21">tmdb21</string>
+ <string id="22">tmdb22</string>
+ <string id="23">tmdb23</string>
+ <string id="24">tmdb24</string>
+ <string id="25">tmdb25</string>
+ <string id="26">tmdb26</string>
+ <string id="27">tmdb27</string>
+ <string id="28">tmdb28</string>
+ <string id="29">tmdb29</string>
+ <string id="30">tmdb30</string>
+ <string id="31">tmdb31</string>
+ <string id="32">tmdb32</string>
+ <string id="33">tmdb33</string>
+ <string id="34">tmdb34</string>
+ <string id="35">tmdb35</string>
+ <string id="36">tmdb36</string>
+ <string id="37">tmdb37</string>
+ <string id="38">tmdb38</string>
+ <string id="39">tmdb39</string>
+ <string id="40">tmdb40</string>
+ <string id="41">tmdb41</string>
+ <string id="42">tmdb42</string>
+ <string id="43">tmdb43</string>
+ <string id="44">tmdb44</string>
+ <string id="45">tmdb45</string>
+ <string id="46">tmdb46</string>
+ <string id="47">tmdb47</string>
+ <string id="48">tmdb48</string>
+ <string id="49">tmdb49</string>
+ <string id="50">tmdb50</string>
+ <string id="51">tmdb51</string>
+ <string id="52">tmdb52</string>
+ <string id="53">tmdb53</string>
+ <string id="54">tmdb54</string>
+ <string id="55">tmdb55</string>
+ <string id="56">tmdb56</string>
+ <string id="57">tmdb57</string>
+ <string id="58">tmdb58</string>
+ <string id="59">tmdb59</string>
+ <string id="60">tmdb60</string>
+ <string id="61">tmdb61</string>
+ <string id="62">tmdb62</string>
+ <string id="63">tmdb63</string>
+ <string id="64">tmdb64</string>
+ <string id="65">tmdb65</string>
+ <string id="66">tmdb66</string>
+ <string id="67">tmdb67</string>
+ <string id="68">tmdb68</string>
+ <string id="69">tmdb69</string>
+ <string id="70">tmdb70</string>
+ <string id="71">tmdb71</string>
+ <string id="72">tmdb72</string>
+ <string id="73">tmdb73</string>
+ <string id="74">tmdb74</string>
+ <string id="75">tmdb75</string>
+ <string id="76">tmdb76</string>
+ <string id="77">tmdb77</string>
+ <string id="78">tmdb78</string>
+ <string id="79">tmdb79</string>
+ <string id="80">tmdb80</string>
+ <string id="81">tmdb81</string>
+ <string id="82">tmdb82</string>
+ <string id="83">tmdb83</string>
+ <string id="84">tmdb84</string>
+ <string id="85">tmdb85</string>
+ <string id="86">tmdb86</string>
+ <string id="87">tmdb87</string>
+ <string id="88">tmdb88</string>
+ <string id="89">tmdb89</string>
+ <string id="90">tmdb90</string>
+ <string id="91">tmdb91</string>
+ <string id="92">tmdb92</string>
+ <string id="93">tmdb93</string>
+ <string id="94">tmdb94</string>
+ <string id="95">tmdb95</string>
+ <string id="96">tmdb96</string>
+ <string id="97">tmdb97</string>
+ <string id="98">tmdb98</string>
+ <string id="99">tmdb99</string>
+ <string id="100">tmdb100</string>
+ <string id="101">tmdb101</string>
+ <string id="102">tmdb102</string>
+ <string id="103">tmdb103</string>
+ <string id="104">tmdb104</string>
+ <string id="105">tmdb105</string>
+ <string id="106">tmdb106</string>
+ <string id="107">tmdb107</string>
+ <string id="108">tmdb108</string>
+ <string id="109">tmdb109</string>
+ <string id="110">tmdb110</string>
+ <string id="111">tmdb111</string>
+ <string id="112">tmdb112</string>
+ <string id="113">tmdb113</string>
+ <string id="114">tmdb114</string>
+ <string id="115">tmdb115</string>
+ <string id="116">tmdb116</string>
+ <string id="117">tmdb117</string>
+ <string id="118">tmdb118</string>
+ <string id="119">tmdb119</string>
+ <string id="120">tmdb120</string>
+ <string id="121">tmdb121</string>
+ <string id="122">tmdb122</string>
+ <string id="123">tmdb123</string>
+ <string id="124">tmdb124</string>
+ <string id="125">tmdb125</string>
+ <string id="126">tmdb126</string>
+ <string id="127">tmdb127</string>
+ <string id="128">tmdb128</string>
+ <string id="129">tmdb129</string>
+ <string id="130">tmdb130</string>
+ <string id="131">tmdb131</string>
+ <string id="132">tmdb132</string>
+ <string id="133">tmdb133</string>
+ <string id="134">tmdb134</string>
+ <string id="135">tmdb135</string>
+ <string id="136">tmdb136</string>
+ <string id="137">tmdb137</string>
+ <string id="138">tmdb138</string>
+ <string id="139">tmdb139</string>
+ <string id="140">tmdb140</string>
+ <string id="141">tmdb141</string>
+ <string id="142">tmdb142</string>
+ <string id="143">tmdb143</string>
+ <string id="144">tmdb144</string>
+ <string id="145">tmdb145</string>
+ <string id="146">tmdb146</string>
+ <string id="147">tmdb147</string>
+ <string id="148">tmdb148</string>
+ <string id="149">tmdb149</string>
+ <string id="150">tmdb150</string>
+ <string id="151">tmdb151</string>
+ <string id="152">tmdb152</string>
+ <string id="153">tmdb153</string>
+ <string id="154">tmdb154</string>
+ <string id="155">tmdb155</string>
+ <string id="156">tmdb156</string>
+ <string id="157">tmdb157</string>
+ <string id="158">tmdb158</string>
+ <string id="159">tmdb159</string>
+ <string id="160">tmdb160</string>
+ <string id="161">tmdb161</string>
+ <string id="162">tmdb162</string>
+ <string id="163">tmdb163</string>
+ <string id="164">tmdb164</string>
+ <string id="165">tmdb165</string>
+ <string id="166">tmdb166</string>
+ <string id="167">tmdb167</string>
+ <string id="168">tmdb168</string>
+ <string id="169">tmdb169</string>
+ <string id="170">tmdb170</string>
+ <string id="171">tmdb171</string>
+ <string id="172">tmdb172</string>
+ <string id="173">tmdb173</string>
+ <string id="174">tmdb174</string>
+ <string id="175">tmdb175</string>
+ <string id="176">tmdb176</string>
+ <string id="177">tmdb177</string>
+ <string id="178">tmdb178</string>
+ <string id="179">tmdb179</string>
+ <string id="180">tmdb180</string>
+ <string id="181">tmdb181</string>
+ <string id="182">tmdb182</string>
+ <string id="183">tmdb183</string>
+ <string id="184">tmdb184</string>
+ <string id="185">tmdb185</string>
+ <string id="186">tmdb186</string>
+ <string id="187">tmdb187</string>
+ <string id="188">tmdb188</string>
+ <string id="189">tmdb189</string>
+ <string id="190">tmdb190</string>
+ <string id="191">tmdb191</string>
+ <string id="192">tmdb192</string>
+ <string id="193">tmdb193</string>
+ <string id="194">tmdb194</string>
+ <string id="195">tmdb195</string>
+ <string id="196">tmdb196</string>
+ <string id="197">tmdb197</string>
+ <string id="198">tmdb198</string>
+ <string id="199">tmdb199</string>
+ <string id="200">tmdb200</string>
+ <string id="201">tmdb201</string>
+ <string id="202">tmdb202</string>
+ <string id="203">tmdb203</string>
+ <string id="204">tmdb204</string>
+ <string id="205">tmdb205</string>
+ <string id="206">tmdb206</string>
+ <string id="207">tmdb207</string>
+ <string id="208">tmdb208</string>
+ <string id="209">tmdb209</string>
+ <string id="210">tmdb210</string>
+ <string id="211">tmdb211</string>
+ <string id="212">tmdb212</string>
+ <string id="213">tmdb213</string>
+ <string id="214">tmdb214</string>
+ <string id="215">tmdb215</string>
+ <string id="216">tmdb216</string>
+ <string id="217">tmdb217</string>
+ <string id="218">tmdb218</string>
+ <string id="219">tmdb219</string>
+ <string id="220">tmdb220</string>
+ <string id="221">tmdb221</string>
+ <string id="222">tmdb222</string>
+ <string id="223">tmdb223</string>
+ <string id="224">tmdb224</string>
+ <string id="225">tmdb225</string>
+ <string id="226">tmdb226</string>
+ <string id="227">tmdb227</string>
+ <string id="228">tmdb228</string>
+ <string id="229">tmdb229</string>
+ <string id="230">tmdb230</string>
+ <string id="231">tmdb231</string>
+ <string id="232">tmdb232</string>
+ <string id="233">tmdb233</string>
+ <string id="234">tmdb234</string>
+ <string id="235">tmdb235</string>
+ <string id="236">tmdb236</string>
+ <string id="237">tmdb237</string>
+ <string id="238">tmdb238</string>
+ <string id="239">tmdb239</string>
+ <string id="240">tmdb240</string>
+ <string id="241">tmdb241</string>
+ <string id="242">tmdb242</string>
+ <string id="243">tmdb243</string>
+ <string id="244">tmdb244</string>
+ <string id="245">tmdb245</string>
+ <string id="246">tmdb246</string>
+ <string id="247">tmdb247</string>
+ <string id="248">tmdb248</string>
+ <string id="249">tmdb249</string>
+ <string id="250">tmdb250</string>
+ <string id="251">tmdb251</string>
+ <string id="252">tmdb252</string>
+ <string id="253">tmdb253</string>
+ <string id="254">tmdb254</string>
+ <string id="255">tmdb255</string>
+ <string id="256">tmdb256</string>
+ <string id="257">tmdb257</string>
+ <string id="258">tmdb258</string>
+ <string id="259">tmdb259</string>
+ <string id="260">tmdb260</string>
+ <string id="261">tmdb261</string>
+ <string id="262">tmdb262</string>
+ <string id="263">tmdb263</string>
+ <string id="264">tmdb264</string>
+ <string id="265">tmdb265</string>
+ <string id="266">tmdb266</string>
+ <string id="267">tmdb267</string>
+ <string id="268">tmdb268</string>
+ <string id="269">tmdb269</string>
+ <string id="270">tmdb270</string>
+ <string id="271">tmdb271</string>
+ <string id="272">tmdb272</string>
+ <string id="273">tmdb273</string>
+ <string id="274">tmdb274</string>
+ <string id="275">tmdb275</string>
+ <string id="276">tmdb276</string>
+ <string id="277">tmdb277</string>
+ <string id="278">tmdb278</string>
+ <string id="279">tmdb279</string>
+ <string id="280">tmdb280</string>
+ <string id="281">tmdb281</string>
+ <string id="282">tmdb282</string>
+ <string id="283">tmdb283</string>
+ <string id="284">tmdb284</string>
+ <string id="285">tmdb285</string>
+ <string id="286">tmdb286</string>
+ <string id="287">tmdb287</string>
+ <string id="288">tmdb288</string>
+ <string id="289">tmdb289</string>
+ <string id="290">tmdb290</string>
+ <string id="291">tmdb291</string>
+ <string id="292">tmdb292</string>
+ <string id="293">tmdb293</string>
+ <string id="294">tmdb294</string>
+ <string id="295">tmdb295</string>
+ <string id="296">tmdb296</string>
+ <string id="297">tmdb297</string>
+ <string id="298">tmdb298</string>
+ <string id="299">tmdb299</string>
+ <string id="300">tmdb300</string>
+ <string id="301">tmdb301</string>
+ <string id="302">tmdb302</string>
+ <string id="303">tmdb303</string>
+ <string id="304">tmdb304</string>
+ <string id="305">tmdb305</string>
+ <string id="306">tmdb306</string>
+ <string id="307">tmdb307</string>
+ <string id="308">tmdb308</string>
+ <string id="309">tmdb309</string>
+ <string id="310">tmdb310</string>
+ <string id="311">tmdb311</string>
+ <string id="312">tmdb312</string>
+ <string id="313">tmdb313</string>
+ <string id="314">tmdb314</string>
+ <string id="315">tmdb315</string>
+ <string id="316">tmdb316</string>
+ <string id="317">tmdb317</string>
+ <string id="318">tmdb318</string>
+ <string id="319">tmdb319</string>
+ <string id="320">tmdb320</string>
+ <string id="321">tmdb321</string>
+ <string id="322">tmdb322</string>
+ <string id="323">tmdb323</string>
+ <string id="324">tmdb324</string>
+ <string id="325">tmdb325</string>
+ <string id="326">tmdb326</string>
+ <string id="327">tmdb327</string>
+ <string id="328">tmdb328</string>
+ <string id="329">tmdb329</string>
+ <string id="330">tmdb330</string>
+ <string id="331">tmdb331</string>
+ <string id="332">tmdb332</string>
+ <string id="333">tmdb333</string>
+ <string id="334">tmdb334</string>
+ <string id="335">tmdb335</string>
+ <string id="336">tmdb336</string>
+ <string id="337">tmdb337</string>
+ <string id="338">tmdb338</string>
+ <string id="339">tmdb339</string>
+ <string id="340">tmdb340</string>
+ <string id="341">tmdb341</string>
+ <string id="342">tmdb342</string>
+ <string id="343">tmdb343</string>
+ <string id="344">tmdb344</string>
+ <string id="345">tmdb345</string>
+ <string id="346">tmdb346</string>
+ <string id="347">tmdb347</string>
+ <string id="348">tmdb348</string>
+ <string id="349">tmdb349</string>
+ <string id="350">tmdb350</string>
+ <string id="351">tmdb351</string>
+ <string id="352">tmdb352</string>
+ <string id="353">tmdb353</string>
+ <string id="354">tmdb354</string>
+ <string id="355">tmdb355</string>
+ <string id="356">tmdb356</string>
+ <string id="357">tmdb357</string>
+ <string id="358">tmdb358</string>
+ <string id="359">tmdb359</string>
+ <string id="360">tmdb360</string>
+ <string id="361">tmdb361</string>
+ <string id="362">tmdb362</string>
+ <string id="363">tmdb363</string>
+ <string id="364">tmdb364</string>
+ <string id="365">tmdb365</string>
+ <string id="366">tmdb366</string>
+ <string id="367">tmdb367</string>
+ <string id="368">tmdb368</string>
+ <string id="369">tmdb369</string>
+ <string id="370">tmdb370</string>
+ <string id="371">tmdb371</string>
+ <string id="372">tmdb372</string>
+ <string id="373">tmdb373</string>
+ <string id="374">tmdb374</string>
+ <string id="375">tmdb375</string>
+ <string id="376">tmdb376</string>
+ <string id="377">tmdb377</string>
+ <string id="378">tmdb378</string>
+ <string id="379">tmdb379</string>
+ <string id="380">tmdb380</string>
+ <string id="381">tmdb381</string>
+ <string id="382">tmdb382</string>
+ <string id="383">tmdb383</string>
+ <string id="384">tmdb384</string>
+ <string id="385">tmdb385</string>
+ <string id="386">tmdb386</string>
+ <string id="387">tmdb387</string>
+ <string id="388">tmdb388</string>
+ <string id="389">tmdb389</string>
+ <string id="390">tmdb390</string>
+ <string id="391">tmdb391</string>
+ <string id="392">tmdb392</string>
+ <string id="393">tmdb393</string>
+ <string id="394">tmdb394</string>
+ <string id="395">tmdb395</string>
+ <string id="396">tmdb396</string>
+ <string id="397">tmdb397</string>
+ <string id="398">tmdb398</string>
+ <string id="399">tmdb399</string>
+ <string id="400">tmdb400</string>
+ <string id="401">tmdb401</string>
+ <string id="402">tmdb402</string>
+ <string id="403">tmdb403</string>
+ <string id="404">tmdb404</string>
+ <string id="405">tmdb405</string>
+ <string id="406">tmdb406</string>
+ <string id="407">tmdb407</string>
+ <string id="408">tmdb408</string>
+ <string id="409">tmdb409</string>
+ <string id="410">tmdb410</string>
+ <string id="411">tmdb411</string>
+ <string id="412">tmdb412</string>
+ <string id="413">tmdb413</string>
+ <string id="414">tmdb414</string>
+ <string id="415">tmdb415</string>
+ <string id="416">tmdb416</string>
+ <string id="417">tmdb417</string>
+ <string id="418">tmdb418</string>
+ <string id="419">tmdb419</string>
+ <string id="420">tmdb420</string>
+ <string id="421">tmdb421</string>
+ <string id="422">tmdb422</string>
+ <string id="423">tmdb423</string>
+ <string id="424">tmdb424</string>
+ <string id="425">tmdb425</string>
+ <string id="426">tmdb426</string>
+ <string id="427">tmdb427</string>
+ <string id="428">tmdb428</string>
+ <string id="429">tmdb429</string>
+ <string id="430">tmdb430</string>
+ <string id="431">tmdb431</string>
+ <string id="432">tmdb432</string>
+ <string id="433">tmdb433</string>
+ <string id="434">tmdb434</string>
+ <string id="435">tmdb435</string>
+ <string id="436">tmdb436</string>
+ <string id="437">tmdb437</string>
+ <string id="438">tmdb438</string>
+ <string id="439">tmdb439</string>
+ <string id="440">tmdb440</string>
+ <string id="441">tmdb441</string>
+ <string id="442">tmdb442</string>
+ <string id="443">tmdb443</string>
+ <string id="444">tmdb444</string>
+ <string id="445">tmdb445</string>
+ <string id="446">tmdb446</string>
+ <string id="447">tmdb447</string>
+ <string id="448">tmdb448</string>
+ <string id="449">tmdb449</string>
+ <string id="450">tmdb450</string>
+ <string id="451">tmdb451</string>
+ <string id="452">tmdb452</string>
+ <string id="453">tmdb453</string>
+ <string id="454">tmdb454</string>
+ <string id="455">tmdb455</string>
+ <string id="456">tmdb456</string>
+ <string id="457">tmdb457</string>
+ <string id="458">tmdb458</string>
+ <string id="459">tmdb459</string>
+ <string id="460">tmdb460</string>
+ <string id="461">tmdb461</string>
+ <string id="462">tmdb462</string>
+ <string id="463">tmdb463</string>
+ <string id="464">tmdb464</string>
+ <string id="465">tmdb465</string>
+ <string id="466">tmdb466</string>
+ <string id="467">tmdb467</string>
+ <string id="468">tmdb468</string>
+ <string id="469">tmdb469</string>
+ <string id="470">tmdb470</string>
+ <string id="471">tmdb471</string>
+ <string id="472">tmdb472</string>
+ <string id="473">tmdb473</string>
+ <string id="474">tmdb474</string>
+ <string id="475">tmdb475</string>
+ <string id="476">tmdb476</string>
+ <string id="477">tmdb477</string>
+ <string id="478">tmdb478</string>
+ <string id="479">tmdb479</string>
+ <string id="480">tmdb480</string>
+ <string id="481">tmdb481</string>
+ <string id="482">tmdb482</string>
+ <string id="483">tmdb483</string>
+ <string id="484">tmdb484</string>
+ <string id="485">tmdb485</string>
+ <string id="486">tmdb486</string>
+ <string id="487">tmdb487</string>
+ <string id="488">tmdb488</string>
+ <string id="489">tmdb489</string>
+ <string id="490">tmdb490</string>
+ <string id="491">tmdb491</string>
+ <string id="492">tmdb492</string>
+ <string id="493">tmdb493</string>
+ <string id="494">tmdb494</string>
+ <string id="495">tmdb495</string>
+ <string id="496">tmdb496</string>
+ <string id="497">tmdb497</string>
+ <string id="498">tmdb498</string>
+ <string id="499">tmdb499</string>
+ <string id="500">tmdb500</string>
+ <string id="501">tmdb501</string>
+ <string id="502">tmdb502</string>
+ <string id="503">tmdb503</string>
+ <string id="504">tmdb504</string>
+ <string id="505">tmdb505</string>
+ <string id="506">tmdb506</string>
+ <string id="507">tmdb507</string>
+ <string id="508">tmdb508</string>
+ <string id="509">tmdb509</string>
+ <string id="510">tmdb510</string>
+ <string id="511">tmdb511</string>
+ <string id="512">tmdb512</string>
+ <string id="513">tmdb513</string>
+ <string id="514">tmdb514</string>
+ <string id="515">tmdb515</string>
+ <string id="516">tmdb516</string>
+ <string id="517">tmdb517</string>
+ <string id="518">tmdb518</string>
+ <string id="519">tmdb519</string>
+ <string id="520">tmdb520</string>
+ <string id="521">tmdb521</string>
+ <string id="522">tmdb522</string>
+ <string id="523">tmdb523</string>
+ <string id="524">tmdb524</string>
+ <string id="525">tmdb525</string>
+ <string id="526">tmdb526</string>
+ <string id="527">tmdb527</string>
+ <string id="528">tmdb528</string>
+ <string id="529">tmdb529</string>
+ <string id="530">tmdb530</string>
+ <string id="531">tmdb531</string>
+ <string id="532">tmdb532</string>
+ <string id="533">tmdb533</string>
+ <string id="534">tmdb534</string>
+ <string id="535">tmdb535</string>
+ <string id="536">tmdb536</string>
+ <string id="537">tmdb537</string>
+ <string id="538">tmdb538</string>
+ <string id="539">tmdb539</string>
+ <string id="540">tmdb540</string>
+ <string id="541">tmdb541</string>
+ <string id="542">tmdb542</string>
+ <string id="543">tmdb543</string>
+ <string id="544">tmdb544</string>
+ <string id="545">tmdb545</string>
+ <string id="546">tmdb546</string>
+ <string id="547">tmdb547</string>
+ <string id="548">tmdb548</string>
+ <string id="549">tmdb549</string>
+ <string id="550">tmdb550</string>
+ <string id="551">tmdb551</string>
+ <string id="552">tmdb552</string>
+ <string id="553">tmdb553</string>
+ <string id="554">tmdb554</string>
+ <string id="555">tmdb555</string>
+ <string id="556">tmdb556</string>
+ <string id="557">tmdb557</string>
+ <string id="558">tmdb558</string>
+ <string id="559">tmdb559</string>
+ <string id="560">tmdb560</string>
+ <string id="561">tmdb561</string>
+ <string id="562">tmdb562</string>
+ <string id="563">tmdb563</string>
+ <string id="564">tmdb564</string>
+ <string id="565">tmdb565</string>
+ <string id="566">tmdb566</string>
+ <string id="567">tmdb567</string>
+ <string id="568">tmdb568</string>
+ <string id="569">tmdb569</string>
+ <string id="570">tmdb570</string>
+ <string id="571">tmdb571</string>
+ <string id="572">tmdb572</string>
+ <string id="573">tmdb573</string>
+ <string id="574">tmdb574</string>
+ <string id="575">tmdb575</string>
+ <string id="576">tmdb576</string>
+ <string id="577">tmdb577</string>
+ <string id="578">tmdb578</string>
+ <string id="579">tmdb579</string>
+ <string id="580">tmdb580</string>
+ <string id="581">tmdb581</string>
+ <string id="582">tmdb582</string>
+ <string id="583">tmdb583</string>
+ <string id="584">tmdb584</string>
+ <string id="585">tmdb585</string>
+ <string id="586">tmdb586</string>
+ <string id="587">tmdb587</string>
+ <string id="588">tmdb588</string>
+ <string id="589">tmdb589</string>
+ <string id="590">tmdb590</string>
+ <string id="591">tmdb591</string>
+ <string id="592">tmdb592</string>
+ <string id="593">tmdb593</string>
+ <string id="594">tmdb594</string>
+ <string id="595">tmdb595</string>
+ <string id="596">tmdb596</string>
+ <string id="597">tmdb597</string>
+ <string id="598">tmdb598</string>
+ <string id="599">tmdb599</string>
+ <string id="600">tmdb600</string>
+ <string id="601">tmdb601</string>
+ <string id="602">tmdb602</string>
+ <string id="603">tmdb603</string>
+ <string id="604">tmdb604</string>
+ <string id="605">tmdb605</string>
+ <string id="606">tmdb606</string>
+ <string id="607">tmdb607</string>
+ <string id="608">tmdb608</string>
+ <string id="609">tmdb609</string>
+ <string id="610">tmdb610</string>
+ <string id="611">tmdb611</string>
+ <string id="612">tmdb612</string>
+ <string id="613">tmdb613</string>
+ <string id="614">tmdb614</string>
+ <string id="615">tmdb615</string>
+ <string id="616">tmdb616</string>
+ <string id="617">tmdb617</string>
+ <string id="618">tmdb618</string>
+ <string id="619">tmdb619</string>
+ <string id="620">tmdb620</string>
+ <string id="621">tmdb621</string>
+ <string id="622">tmdb622</string>
+ <string id="623">tmdb623</string>
+ <string id="624">tmdb624</string>
+ <string id="625">tmdb625</string>
+ <string id="626">tmdb626</string>
+ <string id="627">tmdb627</string>
+ <string id="628">tmdb628</string>
+ <string id="629">tmdb629</string>
+ <string id="630">tmdb630</string>
+ <string id="631">tmdb631</string>
+ <string id="632">tmdb632</string>
+ <string id="633">tmdb633</string>
+ <string id="634">tmdb634</string>
+ <string id="635">tmdb635</string>
+ <string id="636">tmdb636</string>
+ <string id="637">tmdb637</string>
+ <string id="638">tmdb638</string>
+ <string id="639">tmdb639</string>
+ <string id="640">tmdb640</string>
+ <string id="641">tmdb641</string>
+ <string id="642">tmdb642</string>
+ <string id="643">tmdb643</string>
+ <string id="644">tmdb644</string>
+ <string id="645">tmdb645</string>
+ <string id="646">tmdb646</string>
+ <string id="647">tmdb647</string>
+ <string id="648">tmdb648</string>
+ <string id="649">tmdb649</string>
+ <string id="650">tmdb650</string>
+ <string id="651">tmdb651</string>
+ <string id="652">tmdb652</string>
+ <string id="653">tmdb653</string>
+ <string id="654">tmdb654</string>
+ <string id="655">tmdb655</string>
+ <string id="656">tmdb656</string>
+ <string id="657">tmdb657</string>
+ <string id="658">tmdb658</string>
+ <string id="659">tmdb659</string>
+ <string id="660">tmdb660</string>
+ <string id="661">tmdb661</string>
+ <string id="662">tmdb662</string>
+ <string id="663">tmdb663</string>
+ <string id="664">tmdb664</string>
+ <string id="665">tmdb665</string>
+ <string id="666">tmdb666</string>
+ <string id="667">tmdb667</string>
+ <string id="668">tmdb668</string>
+ <string id="669">tmdb669</string>
+ <string id="670">tmdb670</string>
+ <string id="671">tmdb671</string>
+ <string id="672">tmdb672</string>
+ <string id="673">tmdb673</string>
+ <string id="674">tmdb674</string>
+ <string id="675">tmdb675</string>
+ <string id="676">tmdb676</string>
+ <string id="677">tmdb677</string>
+ <string id="678">tmdb678</string>
+ <string id="679">tmdb679</string>
+ <string id="680">tmdb680</string>
+ <string id="681">tmdb681</string>
+ <string id="682">tmdb682</string>
+ <string id="683">tmdb683</string>
+ <string id="684">tmdb684</string>
+ <string id="685">tmdb685</string>
+ <string id="686">tmdb686</string>
+ <string id="687">tmdb687</string>
+ <string id="688">tmdb688</string>
+ <string id="689">tmdb689</string>
+ <string id="690">tmdb690</string>
+ <string id="691">tmdb691</string>
+ <string id="692">tmdb692</string>
+ <string id="693">tmdb693</string>
+ <string id="694">tmdb694</string>
+ <string id="695">tmdb695</string>
+ <string id="696">tmdb696</string>
+ <string id="697">tmdb697</string>
+ <string id="698">tmdb698</string>
+ <string id="699">tmdb699</string>
+ <string id="700">tmdb700</string>
+ <string id="701">tmdb701</string>
+ <string id="702">tmdb702</string>
+ <string id="703">tmdb703</string>
+ <string id="704">tmdb704</string>
+ <string id="705">tmdb705</string>
+ <string id="706">tmdb706</string>
+ <string id="707">tmdb707</string>
+ <string id="708">tmdb708</string>
+ <string id="709">tmdb709</string>
+ <string id="710">tmdb710</string>
+ <string id="711">tmdb711</string>
+ <string id="712">tmdb712</string>
+ <string id="713">tmdb713</string>
+ <string id="714">tmdb714</string>
+ <string id="715">tmdb715</string>
+ <string id="716">tmdb716</string>
+ <string id="717">tmdb717</string>
+ <string id="718">tmdb718</string>
+ <string id="719">tmdb719</string>
+ <string id="720">tmdb720</string>
+ <string id="721">tmdb721</string>
+ <string id="722">tmdb722</string>
+ <string id="723">tmdb723</string>
+ <string id="724">tmdb724</string>
+ <string id="725">tmdb725</string>
+ <string id="726">tmdb726</string>
+ <string id="727">tmdb727</string>
+ <string id="728">tmdb728</string>
+ <string id="729">tmdb729</string>
+ <string id="730">tmdb730</string>
+ <string id="731">tmdb731</string>
+ <string id="732">tmdb732</string>
+ <string id="733">tmdb733</string>
+ <string id="734">tmdb734</string>
+ <string id="735">tmdb735</string>
+ <string id="736">tmdb736</string>
+ <string id="737">tmdb737</string>
+ <string id="738">tmdb738</string>
+ <string id="739">tmdb739</string>
+ <string id="740">tmdb740</string>
+ <string id="741">tmdb741</string>
+ <string id="742">tmdb742</string>
+ <string id="743">tmdb743</string>
+ <string id="744">tmdb744</string>
+ <string id="745">tmdb745</string>
+ <string id="746">tmdb746</string>
+ <string id="747">tmdb747</string>
+ <string id="748">tmdb748</string>
+ <string id="749">tmdb749</string>
+ <string id="750">tmdb750</string>
+ <string id="751">tmdb751</string>
+ <string id="752">tmdb752</string>
+ <string id="753">tmdb753</string>
+ <string id="754">tmdb754</string>
+ <string id="755">tmdb755</string>
+ <string id="756">tmdb756</string>
+ <string id="757">tmdb757</string>
+ <string id="758">tmdb758</string>
+ <string id="759">tmdb759</string>
+ <string id="760">tmdb760</string>
+ <string id="761">tmdb761</string>
+ <string id="762">tmdb762</string>
+ <string id="763">tmdb763</string>
+ <string id="764">tmdb764</string>
+ <string id="765">tmdb765</string>
+ <string id="766">tmdb766</string>
+ <string id="767">tmdb767</string>
+ <string id="768">tmdb768</string>
+ <string id="769">tmdb769</string>
+ <string id="770">tmdb770</string>
+ <string id="771">tmdb771</string>
+ <string id="772">tmdb772</string>
+ <string id="773">tmdb773</string>
+ <string id="774">tmdb774</string>
+ <string id="775">tmdb775</string>
+ <string id="776">tmdb776</string>
+ <string id="777">tmdb777</string>
+ <string id="778">tmdb778</string>
+ <string id="779">tmdb779</string>
+ <string id="780">tmdb780</string>
+ <string id="781">tmdb781</string>
+ <string id="782">tmdb782</string>
+ <string id="783">tmdb783</string>
+ <string id="784">tmdb784</string>
+ <string id="785">tmdb785</string>
+ <string id="786">tmdb786</string>
+ <string id="787">tmdb787</string>
+ <string id="788">tmdb788</string>
+ <string id="789">tmdb789</string>
+ <string id="790">tmdb790</string>
+ <string id="791">tmdb791</string>
+ <string id="792">tmdb792</string>
+ <string id="793">tmdb793</string>
+ <string id="794">tmdb794</string>
+ <string id="795">tmdb795</string>
+ <string id="796">tmdb796</string>
+ <string id="797">tmdb797</string>
+ <string id="798">tmdb798</string>
+ <string id="799">tmdb799</string>
+ <string id="800">tmdb800</string>
+ <string id="801">tmdb801</string>
+ <string id="802">tmdb802</string>
+ <string id="803">tmdb803</string>
+ <string id="804">tmdb804</string>
+ <string id="805">tmdb805</string>
+ <string id="806">tmdb806</string>
+ <string id="807">tmdb807</string>
+ <string id="808">tmdb808</string>
+ <string id="809">tmdb809</string>
+ <string id="810">tmdb810</string>
+ <string id="811">tmdb811</string>
+ <string id="812">tmdb812</string>
+ <string id="813">tmdb813</string>
+ <string id="814">tmdb814</string>
+ <string id="815">tmdb815</string>
+ <string id="816">tmdb816</string>
+ <string id="817">tmdb817</string>
+ <string id="818">tmdb818</string>
+ <string id="819">tmdb819</string>
+ <string id="820">tmdb820</string>
+ <string id="821">tmdb821</string>
+ <string id="822">tmdb822</string>
+ <string id="823">tmdb823</string>
+ <string id="824">tmdb824</string>
+ <string id="825">tmdb825</string>
+ <string id="826">tmdb826</string>
+ <string id="827">tmdb827</string>
+ <string id="828">tmdb828</string>
+ <string id="829">tmdb829</string>
+ <string id="830">tmdb830</string>
+ <string id="831">tmdb831</string>
+ <string id="832">tmdb832</string>
+ <string id="833">tmdb833</string>
+ <string id="834">tmdb834</string>
+ <string id="835">tmdb835</string>
+ <string id="836">tmdb836</string>
+ <string id="837">tmdb837</string>
+ <string id="838">tmdb838</string>
+ <string id="839">tmdb839</string>
+ <string id="840">tmdb840</string>
+ <string id="841">tmdb841</string>
+ <string id="842">tmdb842</string>
+ <string id="843">tmdb843</string>
+ <string id="844">tmdb844</string>
+ <string id="845">tmdb845</string>
+ <string id="846">tmdb846</string>
+ <string id="847">tmdb847</string>
+ <string id="848">tmdb848</string>
+ <string id="849">tmdb849</string>
+ <string id="850">tmdb850</string>
+ <string id="851">tmdb851</string>
+ <string id="852">tmdb852</string>
+ <string id="853">tmdb853</string>
+ <string id="854">tmdb854</string>
+ <string id="855">tmdb855</string>
+ <string id="856">tmdb856</string>
+ <string id="857">tmdb857</string>
+ <string id="858">tmdb858</string>
+ <string id="859">tmdb859</string>
+ <string id="860">tmdb860</string>
+ <string id="861">tmdb861</string>
+ <string id="862">tmdb862</string>
+ <string id="863">tmdb863</string>
+ <string id="864">tmdb864</string>
+ <string id="865">tmdb865</string>
+ <string id="866">tmdb866</string>
+ <string id="867">tmdb867</string>
+ <string id="868">tmdb868</string>
+ <string id="869">tmdb869</string>
+ <string id="870">tmdb870</string>
+ <string id="871">tmdb871</string>
+ <string id="872">tmdb872</string>
+ <string id="873">tmdb873</string>
+ <string id="874">tmdb874</string>
+ <string id="875">tmdb875</string>
+ <string id="876">tmdb876</string>
+ <string id="877">tmdb877</string>
+ <string id="878">tmdb878</string>
+ <string id="879">tmdb879</string>
+ <string id="880">tmdb880</string>
+ <string id="881">tmdb881</string>
+ <string id="882">tmdb882</string>
+ <string id="883">tmdb883</string>
+ <string id="884">tmdb884</string>
+ <string id="885">tmdb885</string>
+ <string id="886">tmdb886</string>
+ <string id="887">tmdb887</string>
+ <string id="888">tmdb888</string>
+ <string id="889">tmdb889</string>
+ <string id="890">tmdb890</string>
+ <string id="891">tmdb891</string>
+ <string id="892">tmdb892</string>
+ <string id="893">tmdb893</string>
+ <string id="894">tmdb894</string>
+ <string id="895">tmdb895</string>
+ <string id="896">tmdb896</string>
+ <string id="897">tmdb897</string>
+ <string id="898">tmdb898</string>
+ <string id="899">tmdb899</string>
+ <string id="900">tmdb900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
new file mode 100644
index 0000000..5e87256
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API Key from the TMDB site. Sharing the API key is forbidden.</string>
+ <string control="TMDBMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Selected language for TMDB searches</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">If no record is available for selected language try English</string>
+ <string control="TMDBMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="TMDBMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="TMDBMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="TMDBMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="TMDBMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="TMDBMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="TMDBMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="TMDBMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="TMDBMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="TMDBMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="TMDBMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="TMDBMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="TMDBMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
new file mode 100644
index 0000000..cf68bc8
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching TMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching TMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Fall back on english</string>
+ <string id="115">Preferred Language:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Retrieving data from IMDB.com...</string>
+ <string id="118">IMDB.com is not enabled</string>
+ <string id="119">TheMovieDB API is missing or not valid</string>
+ <string id="120">Retrieving data from Fanart.tv...</string>
+ <string id="121">Fanart.tv is not enabled</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..d2a3801
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-Key von der TMDB-Website. Gemeinsame Nutzung des API-Schlüssels ist verboten.</string>
+ <string control="TMDBMovieInfo_chkCertification">Das Scrapen von Altersbeschränkungen einschalten.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Wähle die Sprache in der auf TMDB gesucht werden soll</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Wenn kein Datensatz für die gewählte Sprache verfügbar ist versuche englischen zu nehmen.</string>
+ <string control="TMDBMovieInfo_chkCrew">Das Scrapen von der restlichen Crew einschalten. ("Gesamte Crew Scrapen" muss eingeschaltet sein)</string>
+ <string control="TMDBMovieInfo_chkStudio">Das Scrapen von Studios einschalten.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Das Scrapen von Spielzeiten einschalten.</string>
+ <string control="TMDBMovieInfo_chkPlot">Das Scrapen von Inhaltsangaben einschalten.</string>
+ <string control="TMDBMovieInfo_chkOutline">Das Scrapen von Kurzbeschreibungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkGenre">Das Scrapen von Genres einschalten.</string>
+ <string control="TMDBMovieInfo_chkTagline">Das Scrapen von Taglines einschalten.</string>
+ <string control="TMDBMovieInfo_chkCast">Das Scrapen von Schauspielern einschalten.</string>
+ <string control="TMDBMovieInfo_chkVotes">Das Scrapen von Anzahl Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRating">Das Scrapen von Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRelease">Das Scrapen von Premiere-Daten einschalten.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Das Scrapen von MPAA-Informationen einschalten.</string>
+ <string control="TMDBMovieInfo_chkYear">Das Scrapen von Filmjahren einschalten.</string>
+ <string control="TMDBMovieInfo_chkTitle">Das Scrapen von Filmtiteln einschalten.</string>
+ <string control="TMDBMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanarts mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Aktiviert das Laden von Trailern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Seite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
new file mode 100644
index 0000000..9b8e52e
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der TMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der TMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden.</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden.</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Wähle alle Thumb</string>
+ <string id="42">Wähle alle Mittl.</string>
+ <string id="43">Wähle alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Klein ({0}x{1})</string>
+ <string id="54">Mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Treiler...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Manueller Trailer</string>
+ <string id="67">Direkter Link oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Loakler trailer:</string>
+ <string id="71">Fehler beim generieren der Videoformat Linkliste.</string>
+ <string id="72">Fehler beim Generieren der Videoformat Links.</string>
+ <string id="73">Wähle Format</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der bevorzugten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine bevorzugte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gaststar</string>
+ <string id="83">Die eingegebene ID ist keine gültige TMDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Poster</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen Blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Verwende Englisch wenn nichts verfügbar</string>
+ <string id="115">Bevorzugte Sprache:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Lade Daten von IMDB.com...</string>
+ <string id="118">IMDB.com ist nicht aktiviert.</string>
+ <string id="119">Die TheMovieDB API ist nicht vorhanden oder ungültig</string>
+ <string id="120">Lade Daten von Fanart.tv...</string>
+ <string id="121">Fanart.tv ist nicht aktiviert</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..54809c6
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-nøkkel fra TMDB-siden. Deling av denne nøkkelen er forbudt.</string>
+ <string control="TMDBMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Valgt språk for TMDB-søk.</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Hvis valgt språk ikke blir funnet, prøv engelsk.</string>
+ <string control="TMDBMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="TMDBMovieInfo_chkStudio">Slå på detaljhenting av filmstudio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="TMDBMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="TMDBMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="TMDBMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="TMDBMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="TMDBMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="TMDBMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="TMDBMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="TMDBMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="TMDBMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="TMDBMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="TMDBMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..3ee8a25
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">TMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kan ikke spille av trailer</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episode-fankunst</string>
+ <string id="93">Seriefankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakat</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM TMDB film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Fall tilbake til engelsk</string>
+ <string id="115">Foretrukket språk:</string>
+ <string id="116">TIMDB-ID:</string>
+ <string id="117">Henter data fra IMDB.com...</string>
+ <string id="118">IMDB.com er ikke påslått</string>
+ <string id="119">TheMovieDB API mangler eller er ikke gyldig</string>
+ <string id="120">Henter data fra Fanart.tv...</string>
+ <string id="121">Fanart.tv er ikke påslått</string>
+ <string id="122">Hent din API-nøkkel fra www.themoviedb.org</string>
+ <string id="123">Hent din API-nøkkel fra fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.IMDB.Poster/My Project/Application.Designer.vb b/Addons/scraper.IMDB.Poster/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.IMDB.Poster/My Project/Application.myapp b/Addons/scraper.IMDB.Poster/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.IMDB.Poster/My Project/AssemblyInfo.vb b/Addons/scraper.IMDB.Poster/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..65f281b
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.IMDB.Data")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.IMDB.Data")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("BBC33869-C704-4202-B725-7107619E3683")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.IMDB.Poster/My Project/Resources.Designer.vb b/Addons/scraper.IMDB.Poster/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.IMDB.Poster/My Project/Resources.resx b/Addons/scraper.IMDB.Poster/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/My Project/Settings.Designer.vb b/Addons/scraper.IMDB.Poster/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.IMDB.Poster/My Project/Settings.settings b/Addons/scraper.IMDB.Poster/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.IMDB.Poster/Resources/Logo.png b/Addons/scraper.IMDB.Poster/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.IMDB.Poster/Resources/Logo.png differ
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeFANARTTV.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeFANARTTV.vb
new file mode 100644
index 0000000..13c1748
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeFANARTTV.vb
@@ -0,0 +1,173 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+' # HD Movie Logos -> logo.png (choose this first)
+' # ClearLOGOs -> logo.png (use this as a backup if no HD Logo in the lanaguage specified)
+' # ClearART -> clearart.png (use this as a backup if no HD ClearArt, in the language specified)
+' # HDClearART -> clearart.png (choose this first)
+' # cdART -> disc.png
+' # Movie Backgrounds -> Fanart (this is the only fanart.tv artwork that might overlap with 'typical' artwork scraping from IMDB/TMDB)
+' # Movie Banner -> Banner (not poster - Frodo supports both now, <moviename>-poster.jpg/png and <moviename>-banner.jpg/png or poster.jpg/png and banner.jpg/png)
+' # Movie Thumbs -> landscape.png
+' # Special note - the Logos and ClearArts are language-specific and should be tagged with the appropriate language. Will want to have a setting allowing users to specify a language so as not to get a bunch of foreign-language artwork.
+' # 1) Logo.png - to be added at a later stage, today is not possible to save
+' # 2) Clearart.png - to be added at a later stage, today is not possible to save
+' # 3) Disc.png - to be added at a later stage, today is not possible to save
+' # 4) Landscape.png - to be added at a later stage, today is not possible to save
+' # language is in image properties
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports FanartTVAPI
+
+Namespace FANARTTVs
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _FanartTV As FanartTV.V1.FanartTV
+ Friend WithEvents bwFANARTTV As New System.ComponentModel.BackgroundWorker
+ Private _APIInvalid As Boolean = False
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _FanartTV = New FanartTV.V1.FanartTV(_MySettings.FANARTTVApiKey)
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest("1", "JSON", "all", 1, 1))
+ If IsNothing(Result) Then
+ If Not IsNothing(_FanartTV.Error) Then
+ Master.eLog.WriteToErrorLog(_FanartTV.Error, "", "Error")
+ _APIInvalid = True
+ End If
+ End If
+ End Sub
+
+ Public Sub Cancel()
+ If Me.bwFANARTTV.IsBusy Then Me.bwFANARTTV.CancelAsync()
+
+ While Me.bwFANARTTV.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwFANARTTV.IsBusy Then
+ bwFANARTTV.WorkerSupportsCancellation = True
+ bwFANARTTV.WorkerReportsProgress = True
+ bwFANARTTV.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetFANARTTVImages(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ If _APIInvalid Then
+ Return Nothing
+ End If
+ Try
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest(imdbID, "JSON", "all", 1, 2))
+ If bwFANARTTV.CancellationPending Then Return Nothing
+ If IsNothing(Result) Then Return alPoster
+ If IsNothing(Result.movieinfo.moviebackground) Then Return alPoster
+ For Each image In Result.movieinfo.moviebackground
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = image.url})
+ alPoster.Add(New MediaContainers.Image With {.Description = "thumb", .URL = image.url & "/preview"})
+ Next
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwFANARTTVA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTV.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetFANARTTVImages(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTV_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTV.ProgressChanged
+ If Not bwFANARTTV.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwFANARTTV_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTV.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeIMDB.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..ec6d1be
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,174 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Diagnostics
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDBimg
+
+ Public Class Scraper
+
+#Region "Fields"
+
+
+
+ Friend WithEvents bwIMDBimg As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMDBimg.IsBusy Then Me.bwIMDBimg.CancelAsync()
+
+ While Me.bwIMDBimg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMDBimg.IsBusy Then
+ bwIMDBimg.WorkerSupportsCancellation = True
+ bwIMDBimg.WorkerReportsProgress = True
+ bwIMDBimg.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMDBimg.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", imdbID, ""))
+ sHTTP = Nothing
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(1)
+ End If
+
+
+ ' check existence of a line like this
+ ' <a href="/media/rm2995297536/tt0089218?ref_=tt_ov_i" > <img height="317"
+ ' and then return this one
+ ' src = "http://ia.media-imdb.com/images/M/MV5BMTY1Mzk3MTg0M15BMl5BanBnXkFtZTcwOTQzODYyMQ@@._V1_SY317_CR3,0,214,317_.jpg"
+ Dim mcIMDB As MatchCollection = Regex.Matches(HTML, String.Concat("/media/[a-zA-Z0-9]{3,12}/tt", imdbID, "\?ref_=tt_ov_i"), RegexOptions.IgnoreCase)
+ If mcIMDB.Count > 0 Then
+ debug.print("GetIMDBPoster 1 - {0}", mcIMDB(0).Value)
+ 'Dim sUrl1 As String = sHTTP.DownloadData(mcIMDB(0).Value)
+ mcIMDB = Regex.Matches(HTML, "http://ia.media-imdb.com/images/.{3,80}?.jpg")
+ If mcIMDB.Count > 0 Then
+ 'just use the first one if more are found
+ Debug.Print("GetIMDBPoster 2 - {0}", mcIMDB(0).Value)
+ alPoster.Add(New MediaContainers.Image With {.Description = "cover", .URL = mcIMDB(0).Value})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(2)
+ End If
+
+ Dim aSP As String() = Regex.Split(mcIMDB(0).Value, "._V\d+?_SY\d+?_CR\d+?,\d+?,\d+?,\d+?_")
+ Dim sUrl1 = aSP(0) + aSP(1)
+ Debug.Print("GetIMDBPoster 3 - {0}", sUrl1)
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = sUrl1})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMDBimg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBimg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMDBimg_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBimg.ProgressChanged
+ If Not bwIMDBimg.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMDBimg_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBimg.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeIMPA.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..cfe43a1
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,189 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(1)
+ End If
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(2)
+ End If
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeImages.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..d335b62
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeImages.vb
@@ -0,0 +1,1209 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Public Class ScrapeImages
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private TMDB As TMDB.Scraper
+ Private IMPA As New IMPA.Scraper
+ Private MPDB As New MPDB.Scraper
+ Private IMDB As New IMDBimg.Scraper
+ Private FANARTTVs As FANARTTVs.Scraper
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal TMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListIMDB As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMDBX As Images = Nothing
+ Dim tmpIMDBL As Images = Nothing
+ Dim tmpIMDBM As Images = Nothing
+ Dim tmpIMDBS As Images = Nothing
+ Dim tmpIMDBW As Images = Nothing
+ Dim tmpTMDBX As Images = Nothing
+ Dim tmpTMDBL As Images = Nothing
+ Dim tmpTMDBM As Images = Nothing
+ Dim tmpTMDBS As Images = Nothing
+ Dim tmpTMDBW As Images = Nothing
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(TMDBID, "poster"))
+
+ If _MySettings.UseIMPA Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If _MySettings.UseMPDB Then
+ tmpListMPDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ If _MySettings.UseIMDB Then
+ tmpListTMDB.AddRange(IMDB.GetIMDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+
+ If _MySettings.UseIMDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMDB = IMDB.GetIMDBPosters(IMDBID)
+
+ If tmpListIMDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMDBX) Then
+ tmpIMDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMDBL) Then
+ tmpIMDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMDBM) Then
+ tmpIMDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMDBS) Then
+ tmpIMDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMDBW) Then
+ tmpIMDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from IMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseMPDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseIMDB Then
+ If tmpListIMDB.Count > 0 Then
+ If Not IsNothing(tmpIMDBX) Then
+ Image = tmpIMDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBL) Then
+ Image = tmpIMDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBM) Then
+ Image = tmpIMDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBS) Then
+ Image = tmpIMDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBW) Then
+ Image = tmpIMDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseMPDB Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ End If
+ End If
+
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ End If
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+
+ If AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("tUseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0)
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeMPDB.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..cd949ec
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,167 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(2)
+ End If
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "t")
+ alPosters.Add(New MediaContainers.Image With {.Description = "thumb", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeOFDB.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..2e94cca
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,242 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ D = Html.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, "<td width=""99\%""><h2><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h2></td>").Groups(1).Value.ToString))
+ _title = OFDBTitle
+ End If
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+
+ If D > 0 Then
+ W = Html.IndexOf("<a href=""", D + 14)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 14, W - (D + 14)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 14, L - (D + 14)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDB.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..9db6818
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,282 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Private backdrop_names(3) As v3Size
+ Private poster_names(5) As v3Size
+
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ ' v3 does not have description anymore
+ poster_names(0).description = "thumb"
+ poster_names(0).size = "w92"
+ poster_names(0).width = 92
+ poster_names(1).description = "w154"
+ poster_names(1).size = "w154"
+ poster_names(1).width = 154
+ poster_names(2).description = "cover"
+ poster_names(2).size = "w185"
+ poster_names(2).width = 185
+ poster_names(3).description = "w342"
+ poster_names(3).size = "w342"
+ poster_names(3).width = 342
+ poster_names(4).description = "mid"
+ poster_names(4).size = "w500"
+ poster_names(4).width = 500
+ poster_names(5).description = "original"
+ poster_names(5).size = "original"
+ poster_names(5).width = 0
+ backdrop_names(0).description = "thumb"
+ backdrop_names(0).size = "w300"
+ backdrop_names(0).width = 300
+ backdrop_names(1).description = "poster"
+ backdrop_names(1).size = "w780"
+ backdrop_names(1).width = 780
+ backdrop_names(2).description = "w1280"
+ backdrop_names(2).size = "w1280"
+ backdrop_names(2).width = 1280
+ backdrop_names(3).description = "original"
+ backdrop_names(3).size = "original"
+ backdrop_names(3).width = 0
+ End Sub
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim images As V3.TmdbMovieImages
+ Dim aW, aH As Integer
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ images = _TMDBApi.GetMovieImages(CInt(imdbID), _MySettings.TMDBLanguage)
+ If sType = "poster" Then
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ Else
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If sType = "poster" Then
+ For Each tmdbI As V3.Poster In images.posters
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In poster_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ ElseIf sType = "backdrop" Then
+ For Each tmdbI As V3.Backdrop In images.backdrops
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In backdrop_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As List(Of String)
+ Dim trailers As V3.TmdbMovieTrailers
+ Dim YT As New List(Of String)
+
+ Try
+ If bwTMDB.CancellationPending Then Return Nothing
+ trailers = _TMDBApi.GetMovieTrailers(CInt(imdbID), _MySettings.TMDBLanguage)
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ trailers = _TMDBApiE.GetMovieTrailers(CInt(imdbID))
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ Return Nothing
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ 'If bwTMDB.WorkerReportsProgress Then
+ ' bwTMDB.ReportProgress(2)
+ 'End If
+
+ If trailers.youtube.Count > 0 Then
+ For Each trailer In trailers.youtube
+ YT.Add(String.Format("http://www.youtube.com/watch?v={0}{1})", trailer.source, CStr(IIf(trailer.size = "HD", "&hd=1", ""))))
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return YT
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure v3Size
+
+#Region "Fields"
+
+ Dim size As String
+ Dim description As String
+ Dim width As Integer
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDB_old.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDB_old.vb
new file mode 100644
index 0000000..c5bca0a
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDB_old.vb
@@ -0,0 +1,244 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB_old
+
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDBg.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDBg.vb
new file mode 100644
index 0000000..86f6083
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTMDBg.vb
@@ -0,0 +1,723 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDBg
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _Matches As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Matches() As List(Of MediaContainers.Movie)
+ Get
+ Return _Matches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _Matches = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ 'Public IMDBURL As String
+ 'Private _TMDBId As String
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Friend WithEvents bwTMDBg As New System.ComponentModel.BackgroundWorker
+
+ Private _sPoster As String
+
+#End Region 'Fields
+
+#Region "Properties"
+ Public ReadOnly Property TMDBConf() As V3.TmdbConfiguration
+ Get
+ Return _TMDBConf
+ End Get
+ End Property
+#End Region
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As TMDBg.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTMDBg.IsBusy Then bwTMDBg.CancelAsync()
+
+ While bwTMDBg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetMovieID(ByRef DBMovie As Structures.DBMovie)
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+
+ If bwTMDBg.CancellationPending Then Return
+
+ Movie = _TMDBApi.GetMovieByIMDB(DBMovie.Movie.ID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(DBMovie.Movie.ID)
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return
+ End If
+
+ DBMovie.Movie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+ Dim tStr As String
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Strings.Left(strID.ToLower(), 2) = "tt" Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(strID)
+ Else
+ Movie = _TMDBApi.GetMovieInfo(CInt(strID), _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieInfo(CInt(strID))
+ End If
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return False
+ End If
+
+ IMDBMovie.ID = CStr(IIf(String.IsNullOrEmpty(Movie.imdb_id) AndAlso _MySettings.FallBackEng, MovieE.imdb_id, Movie.imdb_id))
+ IMDBMovie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ If bwTMDBg.CancellationPending Or IsNothing(Movie) Then Return Nothing
+
+ Dim Keywords As WatTmdb.V3.TmdbMovieKeywords
+ Keywords = _TMDBApi.GetMovieKeywords(Movie.id)
+ If Not IsNothing(Keywords) AndAlso Not IsNothing(Keywords.keywords) Then
+ If Keywords.keywords.Count <> 0 AndAlso _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ End If
+
+ ' to be added the tags structure
+ '' <movie>
+ '' ...
+ '' <tag>Name of the tag</tag>
+ '' ...
+ '' </movie>
+ If Options.bTitle Then
+ IMDBMovie.OriginalTitle = CStr(IIf(String.IsNullOrEmpty(Movie.original_title) AndAlso _MySettings.FallBackEng, MovieE.original_title, Movie.original_title))
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ IMDBMovie.Title = CStr(IIf(String.IsNullOrEmpty(Movie.title) AndAlso _MySettings.FallBackEng, MovieE.title, Movie.title))
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ ' I will add original always. to be updated if size, TMDBConf.images.poster_sizes(0) &
+ Dim Images As WatTmdb.V3.TmdbMovieImages
+ Images = _TMDBApi.GetMovieImages(Movie.id, _MySettings.TMDBLanguage)
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If (Images.posters.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ End If
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If Images.posters.Count > 0 Then
+ _sPoster = _TMDBConf.images.base_url & "w92" & Images.posters(0).file_path
+ Else
+ _sPoster = ""
+ End If
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Left(CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date)), 4)
+
+ Dim Releases As WatTmdb.V3.TmdbMovieReleases = Nothing
+ If Options.bMPAA Then
+ IMDBMovie.MPAA = ""
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each Country In Releases.countries
+ If Country.iso_3166_1.ToUpper = CStr(IIf(Master.eSettings.CertificationLang = "", "US", Master.eSettings.CertificationLang)) Then
+ IMDBMovie.MPAA = Country.certification
+ Exit For
+ End If
+ Next
+ End If
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ IMDBMovie.ReleaseDate = CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date))
+ End If
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ IMDBMovie.Rating = CStr(IIf(IsNothing(Movie.vote_average) AndAlso Movie.vote_average = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_average, Movie.vote_average))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ Dim Trailers As WatTmdb.V3.TmdbMovieTrailers
+ Trailers = _TMDBApi.GetMovieTrailers(Movie.id)
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If (Trailers.youtube.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ End If
+
+ IMDBMovie.Trailer = ""
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If Trailers.youtube.Count > 0 Then
+ IMDBMovie.Trailer = "http://www.youtube.com/watch?hd=1&v=" & Trailers.youtube(0).source
+ End If
+ End If
+
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then
+ IMDBMovie.Votes = CStr(IIf(IsNothing(Movie.vote_count) AndAlso Movie.vote_count = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_count.ToString(), Movie.vote_count.ToString()))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Dim aCast As WatTmdb.V3.TmdbMovieCast = Nothing
+ If Options.bCast Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.cast.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+
+ Dim Cast As New List(Of MediaContainers.Person)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ For Each aAc As WatTmdb.V3.Cast In aCast.cast
+ Dim aPer As New MediaContainers.Person
+ aPer.Name = aAc.name
+ aPer.Role = aAc.character
+ ' to be added / dialog to choose the size of the images
+ aPer.Thumb = _TMDBConf.images.base_url & "original" & aAc.profile_path
+ Cast.Add(aPer)
+ Next
+ End If
+ IMDBMovie.Actors = Cast
+ End If
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+ IMDBMovie.Tagline = CStr(IIf(String.IsNullOrEmpty(IMDBMovie.Tagline) AndAlso _MySettings.FallBackEng, MovieE.tagline, Movie.tagline))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ If IsNothing(Releases) Then
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Countries.Clear()
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each aCo As WatTmdb.V3.ReleaseCountry In Releases.countries
+ IMDBMovie.Countries.Add(aCo.iso_3166_1)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ IMDBMovie.Genres.Clear()
+ Dim tGen As System.Collections.Generic.List(Of WatTmdb.V3.MovieGenre)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tGen = CType(IIf(Movie.genres.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.genres, Movie.genres), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ Else
+ tGen = CType(IIf(_MySettings.FallBackEng, MovieE.genres, Nothing), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ End If
+
+
+ If Not IsNothing(tGen) Then
+ For Each aGen As WatTmdb.V3.MovieGenre In tGen
+ IMDBMovie.Genres.Add(aGen.name)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+ IMDBMovie.Outline = CStr(IIf(String.IsNullOrEmpty(Movie.overview) AndAlso _MySettings.FallBackEng, MovieE.overview, Movie.overview))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ Else
+ IMDBMovie.Plot = ""
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then
+ IMDBMovie.Runtime = CStr(IIf(IsNothing(Movie.runtime) AndAlso Movie.runtime = 0 AndAlso _MySettings.FallBackEng, MovieE.runtime.ToString(), Movie.runtime.ToString()))
+ End If
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ tStr = ""
+ Dim tPC As System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tPC = CType(IIf(Movie.production_companies.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.production_companies, Movie.production_companies), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ Else
+ tPC = CType(IIf(_MySettings.FallBackEng, MovieE.production_companies, Nothing), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ End If
+
+ If Not IsNothing(tPC) Then
+ For Each aPro As WatTmdb.V3.ProductionCompany In tPC
+ tStr = tStr & " / " & aPro.name
+ Next
+ End If
+ If Len(tStr) > 3 Then
+ tStr = Trim(Right(tStr, Len(tStr) - 3))
+ End If
+ IMDBMovie.Studio = tStr
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Or Options.bWriters Or Options.bDirector Then
+ If IsNothing(aCast) Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.crew.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Credits.Clear()
+ IMDBMovie.Directors.Clear()
+ If Not IsNothing(aCast.crew) Then
+ For Each aAc As WatTmdb.V3.Crew In aCast.crew
+ If FullCrew Then
+ IMDBMovie.Credits.Add(aAc.name)
+ ElseIf Options.bWriters Then
+ If aAc.department = "Writing" AndAlso aAc.job = "Writer" Then
+ IMDBMovie.Credits.Add(aAc.name)
+ End If
+ End If
+ If Options.bDirector Then
+ If aAc.job = "Director" Then
+ IMDBMovie.Directors.Add(aAc.name)
+ End If
+ End If
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ If Movie.production_companies.Count = 0 And _MySettings.FallBackEng Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, "en")
+ End If
+ For Each aComp In Movie.production_companies
+ alStudio.Add(aComp.name)
+ Next
+
+ Return alStudio
+
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgTMDBSearchResults(_MySettings, Me)
+
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.Matches)
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ b = GetMovieInfo(r.Matches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, _
+ .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBg.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(_sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ 'Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ ' Dim fTitle As String = oTitle
+ ' Dim Movie As WatTmdb.V3.TmdbMovie
+
+ ' Try
+ ' '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ ' If Left(strID.ToLower(), 4) = "tt" Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), _MySettings.TMDBLanguage)
+ ' If IsNothing(Movie) And _MySettings.FallBackEng Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), "en")
+ ' End If
+ ' Else
+ ' Movie = _TMDBApi.GetMovieByIMDB(strID)
+ ' End If
+
+ ' fTitle = Movie.title
+
+ ' Return fTitle
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' Return fTitle
+ ' End Try
+ 'End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+ Dim R As New MovieSearchResults
+ Dim Page As Integer = 1
+ Dim Movies As WatTmdb.V3.TmdbMovieSearch
+ Dim TotP As Integer
+ Dim aE As Boolean
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ If Movies.total_results = 0 And _MySettings.FallBackEng Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ aE = True
+ End If
+ If Movies.total_results > 0 Then
+ Dim t1 As String
+ Dim t2 As String
+ Dim t3 As String
+ TotP = Movies.total_pages
+ While Page <= TotP And Page <= 3
+ For Each aMovie In Movies.results
+ Dim aMI As WatTmdb.V3.TmdbMovie
+ aMI = _TMDBApi.GetMovieInfo(aMovie.id)
+ If IsNothing(aMI) Then
+ aMI = _TMDBApiE.GetMovieInfo(aMovie.id)
+ End If
+ If IsNothing(aMI.imdb_id) Then
+ t1 = ""
+ Else
+ t1 = aMI.imdb_id.ToString
+ End If
+ t2 = CStr(IIf(String.IsNullOrEmpty(aMovie.title), "", aMovie.title))
+ t3 = Left(CStr(IIf(String.IsNullOrEmpty(aMovie.release_date), "", aMovie.release_date)), 4)
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(t1, t2, t3, 0)
+ lNewMovie.TMDBID = aMI.id.ToString
+ R.Matches.Add(lNewMovie)
+ Next
+ Page = Page + 1
+ If aE Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ Else
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ End If
+
+ End While
+ End If
+
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+ 'Dim TMDBConf As V3.TmdbConfiguration
+ 'Dim TMDBApi As V3.Tmdb
+ 'Dim FallBackEng As Boolean
+ 'Dim TMDBLang As String
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTrailers.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..72ce5f8
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ Me.Clear()
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim YT As List(Of String)
+
+ YT = TMDB.GetTrailers(_ImdbID)
+
+ If Not YT.Count = 0 Then
+ For Each ast In YT
+ Me._TrailerList.Add(ast)
+ Next
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/clsScrapeYouTube.vb b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..51ed7c4
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,336 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..3c9254c
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,569 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlIMDB = New System.Windows.Forms.Panel()
+ Me.lblDL6Status = New System.Windows.Forms.Label()
+ Me.lblDL6 = New System.Windows.Forms.Label()
+ Me.pbDL6 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlFANARTTV = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlMDB = New System.Windows.Forms.Panel()
+ Me.lblDL5Status = New System.Windows.Forms.Label()
+ Me.lblDL5 = New System.Windows.Forms.Label()
+ Me.pbDL5 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL4Status = New System.Windows.Forms.Label()
+ Me.lblDL4 = New System.Windows.Forms.Label()
+ Me.pbDL4 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTMDB = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlIMDB.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.pnlFANARTTV.SuspendLayout()
+ Me.pnlMDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlTMDB.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 4
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 6
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 5
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 4
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 3
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 2
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 9
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 7
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 8
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 3
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlSinglePic)
+ Me.pnlDLStatus.Controls.Add(Me.pnlFANARTTV)
+ Me.pnlDLStatus.Controls.Add(Me.pnlMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.pnlTMDB)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(253, 98)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(331, 330)
+ Me.pnlDLStatus.TabIndex = 0
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlIMDB
+ '
+ Me.pnlIMDB.Controls.Add(Me.lblDL6Status)
+ Me.pnlIMDB.Controls.Add(Me.lblDL6)
+ Me.pnlIMDB.Controls.Add(Me.pbDL6)
+ Me.pnlIMDB.Location = New System.Drawing.Point(3, 84)
+ Me.pnlIMDB.Name = "pnlIMDB"
+ Me.pnlIMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMDB.TabIndex = 9
+ '
+ 'lblDL6Status
+ '
+ Me.lblDL6Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL6Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL6Status.Name = "lblDL6Status"
+ Me.lblDL6Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6Status.TabIndex = 8
+ '
+ 'lblDL6
+ '
+ Me.lblDL6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL6.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL6.Name = "lblDL6"
+ Me.lblDL6.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6.TabIndex = 7
+ Me.lblDL6.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL6
+ '
+ Me.pbDL6.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL6.Name = "pbDL6"
+ Me.pbDL6.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL6.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL6.TabIndex = 6
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(3, 3)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 9
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 7
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 6
+ '
+ 'pnlFANARTTV
+ '
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3Status)
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3)
+ Me.pnlFANARTTV.Controls.Add(Me.pbDL3)
+ Me.pnlFANARTTV.Location = New System.Drawing.Point(3, 84)
+ Me.pnlFANARTTV.Name = "pnlFANARTTV"
+ Me.pnlFANARTTV.Size = New System.Drawing.Size(321, 75)
+ Me.pnlFANARTTV.TabIndex = 11
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 8
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 7
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 6
+ '
+ 'pnlMDB
+ '
+ Me.pnlMDB.Controls.Add(Me.lblDL5Status)
+ Me.pnlMDB.Controls.Add(Me.lblDL5)
+ Me.pnlMDB.Controls.Add(Me.pbDL5)
+ Me.pnlMDB.Location = New System.Drawing.Point(3, 246)
+ Me.pnlMDB.Name = "pnlMDB"
+ Me.pnlMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMDB.TabIndex = 9
+ '
+ 'lblDL5Status
+ '
+ Me.lblDL5Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL5Status.Name = "lblDL5Status"
+ Me.lblDL5Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5Status.TabIndex = 8
+ '
+ 'lblDL5
+ '
+ Me.lblDL5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL5.Name = "lblDL5"
+ Me.lblDL5.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5.TabIndex = 7
+ Me.lblDL5.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL5
+ '
+ Me.pbDL5.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL5.Name = "pbDL5"
+ Me.pbDL5.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL5.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL5.TabIndex = 6
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.lblDL4Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL4)
+ Me.pnlIMPA.Controls.Add(Me.pbDL4)
+ Me.pnlIMPA.Location = New System.Drawing.Point(3, 165)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 6
+ '
+ 'lblDL4Status
+ '
+ Me.lblDL4Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL4Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL4Status.Name = "lblDL4Status"
+ Me.lblDL4Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4Status.TabIndex = 8
+ '
+ 'lblDL4
+ '
+ Me.lblDL4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL4.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL4.Name = "lblDL4"
+ Me.lblDL4.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4.TabIndex = 7
+ Me.lblDL4.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL4
+ '
+ Me.pbDL4.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL4.Name = "pbDL4"
+ Me.pbDL4.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL4.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL4.TabIndex = 6
+ '
+ 'pnlTMDB
+ '
+ Me.pnlTMDB.Controls.Add(Me.lblDL2Status)
+ Me.pnlTMDB.Controls.Add(Me.lblDL2)
+ Me.pnlTMDB.Controls.Add(Me.pbDL2)
+ Me.pnlTMDB.Location = New System.Drawing.Point(3, 3)
+ Me.pnlTMDB.Name = "pnlTMDB"
+ Me.pnlTMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlTMDB.TabIndex = 10
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 8
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 7
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 6
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlIMDB.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.pnlFANARTTV.ResumeLayout(False)
+ Me.pnlMDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlTMDB.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL4Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL4 As System.Windows.Forms.Label
+ Friend WithEvents pbDL4 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL5Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL5 As System.Windows.Forms.Label
+ Friend WithEvents pbDL5 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+ Friend WithEvents pnlFANARTTV As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL6Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL6 As System.Windows.Forms.Label
+ Friend WithEvents pbDL6 As System.Windows.Forms.ProgressBar
+
+End Class
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.resx b/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..3491405
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.vb b/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..b2e44a9
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1582 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports EmberScraperModule.EmberTMDBScraperModule
+Imports RestSharp
+Imports WatTmdb
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwIMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwFANARTTVDownload As New System.ComponentModel.BackgroundWorker
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Private TMDB As TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+
+ Private IMDB As New IMDBimg.Scraper
+ Private IMDBPosters As New List(Of MediaContainers.Image)
+
+ Private FANARTTVs As FANARTTVs.Scraper
+ Private FANARTTVPosters As New List(Of MediaContainers.Image)
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _imdbDone As Boolean = True
+ Private _fanarttvDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+ Private Event IMDBDone()
+
+ Private Event FANARTTVDone()
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = poster.WebImage.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(poster.URL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone AndAlso Me._imdbDone AndAlso Me._fanarttvDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.TMDBPosters.AddRange(Me.IMDBPosters)
+ Me.TMDBPosters.AddRange(Me.FANARTTVPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+ Me.pnlTMDB.Visible = False
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.pnlDLStatus.Height = 85
+ Me.pnlDLStatus.Top = 185
+
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.IMDBPosters.Count - 1
+ Try
+ If Me.bwIMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMDBDownload.ReportProgress(i + 1, Me.IMDBPosters.Item(i).URL)
+ Try
+ Me.IMDBPosters.Item(i).WebImage.FromWeb(Me.IMDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMDBPosters.Item(i).URL = StringUtils.CleanURL(Me.IMDBPosters.Item(i).URL)
+ Me.IMDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMDBPosters.Item(i).Description, ")_(url=", Me.IMDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL6Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL6.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._imdbDone = True
+ RaiseEvent IMDBDone()
+ End If
+ End Sub
+
+ Private Sub bwFANARTTVDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTVDownload.DoWork
+ '//
+ ' Thread to download FanartTV images from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.FANARTTVPosters.Count - 1
+ Try
+ If Me.bwFANARTTVDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwFANARTTVDownload.ReportProgress(i + 1, Me.FANARTTVPosters.Item(i).URL)
+ Try
+ Me.FANARTTVPosters.Item(i).WebImage.FromWeb(Me.FANARTTVPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.FANARTTVPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.FANARTTVPosters.Item(i).URL = StringUtils.CleanURL(Me.FANARTTVPosters.Item(i).URL)
+ Me.FANARTTVPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.FANARTTVPosters.Item(i).Description, ")_(url=", Me.FANARTTVPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwFANARTTVDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTVDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTVDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTVDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._fanarttvDone = True
+ RaiseEvent FANARTTVDone()
+ End If
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL4Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL4.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPABownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL5Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL5.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = _MySettings.ManualETSize
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress((i + 1), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath, , , False)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+ IMDB.Cancel()
+ FANARTTVs.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+ If bwIMDBDownload.IsBusy Then bwIMDBDownload.CancelAsync()
+ If bwFANARTTVDownload.IsBusy Then bwFANARTTVDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+ IMDB = Nothing
+ FANARTTVs = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ IMDBPosters = Nothing
+ FANARTTVPosters = Nothing
+
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains(_TMDBConf.images.base_url.ToLower) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "backdrop")
+
+ If _MySettings.UseFANARTTV Then
+ Me.lblDL3.Text = Master.eLang.GetString(120, "Retrieving data from Fanart.tv...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._fanarttvDone = False
+
+ Me.FANARTTVs.GetImagesAsync(tMovie.Movie.ID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(121, "Fanart.tv is not enabled")
+ End If
+
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "poster")
+
+ If _MySettings.UseIMDB Then
+ Me.lblDL6.Text = Master.eLang.GetString(117, "Retrieving data from IMDB.com...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._imdbDone = False
+
+ Me.IMDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL6.Text = Master.eLang.GetString(118, "IMDB.com is not enabled")
+ End If
+
+ If _MySettings.UseIMPA Then
+ Me.lblDL4.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL4.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If _MySettings.UseMPDB Then
+ Me.lblDL5.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL5.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVDoneDownloading()
+ Try
+ Me._fanarttvDone = True
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ 'Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.FANARTTVPosters = Posters
+
+ Me.bwFANARTTVDownload.WorkerSupportsCancellation = True
+ Me.bwFANARTTVDownload.WorkerReportsProgress = True
+ Me.bwFANARTTVDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub IMDBDoneDownloading()
+ Try
+ Me._imdbDone = True
+ Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL6.Value = 0
+
+ 'Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = Posters.Count
+
+ Me.IMDBPosters = Posters
+
+ Me.bwIMDBDownload.WorkerSupportsCancellation = True
+ Me.bwIMDBDownload.WorkerReportsProgress = True
+ Me.bwIMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL6.Value = iPercent
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL4.Value = 0
+
+ 'Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL4.Value = iPercent
+ End Sub
+
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL5.Value = 0
+
+ 'Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL5.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.Description, iIndex, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMDB.PostersDownloaded, AddressOf IMDBPostersDownloaded
+ AddHandler IMDB.ProgressUpdated, AddressOf IMDBProgressUpdated
+ AddHandler FANARTTVs.PostersDownloaded, AddressOf FANARTTVPostersDownloaded
+ AddHandler FANARTTVs.ProgressUpdated, AddressOf FANARTTVProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+ AddHandler IMDBDone, AddressOf IMDBDoneDownloading
+ AddHandler FANARTTVDone, AddressOf FANARTTVDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = True
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = True
+ Me.pnlMDB.Visible = True
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 328
+ Me.pnlDLStatus.Top = 82
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = True
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 129
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL5.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL4.Text = Me.lblDL5.Text
+ Me.lblDL3.Text = Me.lblDL5.Text
+ Me.lblDL2.Text = Me.lblDL5.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ Me._tmdbDone = True
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ 'Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.TMDBPosters = Posters
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb b/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..edf9f3b
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb
@@ -0,0 +1,460 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtTMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(497, 401)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(570, 401)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(4, 96)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.ShowLines = False
+ Me.tvResults.ShowPlusMinus = False
+ Me.tvResults.ShowRootLines = False
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 4
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(294, 130)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(291, 70)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(291, 89)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(294, 295)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(472, 130)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(472, 156)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(472, 183)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtTMDBID
+ '
+ Me.txtTMDBID.Enabled = False
+ Me.txtTMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBID.Location = New System.Drawing.Point(139, 399)
+ Me.txtTMDBID.Name = "txtTMDBID"
+ Me.txtTMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTMDBID.TabIndex = 6
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 8
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(257, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(4, 403)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(130, 17)
+ Me.chkManual.TabIndex = 5
+ Me.chkManual.Text = "Manual TMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(245, 399)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 7
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(472, 247)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(37, 13)
+ Me.lblIMDB.TabIndex = 20
+ Me.lblIMDB.Text = "TMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(410, 130)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(33, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(410, 156)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(410, 183)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(410, 247)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(56, 13)
+ Me.lblIMDBHeader.TabIndex = 19
+ Me.lblIMDBHeader.Text = "TMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(291, 279)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(262, 70)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 3
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(4, 71)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 2
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(364, 183)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 18
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(100, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(308, 155)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'dlgTMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 454)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtTMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgTMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+
+End Class
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.resx b/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.resx
new file mode 100644
index 0000000..017a5ad
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK9gAA
+ CvYBwq9wAwAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.vb b/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.vb
new file mode 100644
index 0000000..d05fd0b
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTMDBSearchResults.vb
@@ -0,0 +1,462 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class dlgTMDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private TMDBg As TMDBg.Scraper
+ Private sHTTP As New HTTP
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+ Private MySettings As EmberTMDBScraperModule.sMySettings
+ 'Private TMDBConf As V3.TmdbConfiguration
+ 'Private TMDBApi As V3.Tmdb
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(_MySettings As EmberTMDBScraperModule.sMySettings, _TMDBg As TMDBg.Scraper)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+ 'TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ 'TMDBConf = TMDBApi.GetConfiguration()
+ MySettings = _MySettings
+ TMDBg = _TMDBg
+ End Sub
+
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ 'TMDBg.IMDBURL = TMDBId
+ TMDBg.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As TMDBg.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching TMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ TMDBg.CancelAsync()
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ TMDBg.GetSearchMovieInfoAsync(Me.txtTMDBID.Text, Master.tmpMovie, Master.DefaultOptions)
+
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ TMDBg.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ 'TMDBg.IMDBURL = IMDBURL
+ AddHandler TMDBg.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler TMDBg.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Master.tmpMovie.IMDBID = Me.txtTMDBID.Text
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.TMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.TMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.TMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As TMDBg.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+ 'Dim TnP As New TreeNode
+ 'Dim selNode As New TreeNode
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) AndAlso M.Matches.Count > 0 Then
+
+ 'M.Matches.Sort()
+ For Each Movie As MediaContainers.Movie In M.Matches
+ 'TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Me.tvResults.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.TMDBID})
+ Next
+ 'TnP.Expand()
+ 'Me.tvResults.Nodes.Add(TnP)
+ 'selNode = Me.tvResults.Nodes(0)
+ 'selNode = TnP.FirstNode
+ 'selNode = Me.tvResults.Nodes(0)
+ Me.tvResults.SelectedNode = Me.tvResults.Nodes(0)
+
+ Me._prevnode = -2
+
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual TMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(116, "TMDB ID:")
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching TMDB...")
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..1865dbc
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,279 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(290, 339)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(74, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(369, 339)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(411, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(424, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(112, 82)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(120, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(411, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(376, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(365, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(72, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(392, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(153, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 339)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(106, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(207, 339)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(77, 23)
+ Me.btnSetNfo.TabIndex = 4
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(444, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(450, 366)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.resx b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..2be3cac
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB80lEQVQ4T6XTTWsTQRgH8EGr9GDFm19AseDBgzc9eba0FJqvIOTiRase
+ RAIKtRo9LbbxpYmtggXR2KRFqGLfDio9tDGbdUMrbvc1+57sioiVv7NDLE3MXnTgz8DsPr95dpglAMj/
+ pKVY17QuyzLP2raVoBlybHvIc92EUKmcidukBTBrtasUAC0GLWYJggaWl5dw9056uBPSAtDi8aiYAY4N
+ 13HwLQyxuLiAW6OjyIyPXW5H2gFuZ/cm4HseNFVFsTCD2WIRHz+8P7cb6Qjs7iDqIkLCMEC97kedZWMB
+ egasA8s24TsBQm8bob8N3w3YZzUzFgsYus6ZZo0WhPisvMackGQR5Dm2xnDLjAdUVeF0XUPD/Yl31eu4
+ sURY3orXaDe/EOGGoccDsrzFKYoMz/yON0IaqYVDLPPCTdTtH6D3BKqixANfNjc5SZJga3XMlm5jeP4w
+ S6E0AsdoQJFlbElSPMCXy/ekDQUTK1eQzB/B+cJxlmT+KB6sXID61UBVFDOxh7i+tjbCf+KxXl7FpZeD
+ SOR6WS6+6EepsgpREFHh+XRHYC8hB/r7+k7kshOZ/PSrZ7mn2cnTqd7qqdSxjUdPHk7NPC9OT00+vj84
+ MHByDyEH/yA7F4kC+wgh3dGDaDTnHkK6etrWuum7+/8C/vWX/g1N2vpUAmZdeAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQfZBBoSIQHX+6QX
+ AAACOElEQVQ4T7WSTWvaQRCHozlYNQSiVXwBNSSKKAhqKogo2hx8OeUQpPVY9OBFId+g0IufoQnegslF
+ EEG8qAgeiij4hohoDjkphJAIGg/udGepfyLV3rowLDu788zs/GZv73+st7e35NPT069KpfJaLpdnj4+P
+ nel0+p3mOvhnvoeHh0+j0WieTCbB6XSSYDAIoVAIXC4Xicfj0Ov1IJ/Pf9kKweBisQharZbY7XbweDxg
+ sVjg7OwM8Ix2enpK7u/v4e7u7ttfEJp5QZ3k8PAQ1Go1hMNhyGazIJFIQKVSMd/R0RHgm2azCQqFQsNB
+ FovFFZZLHZz5fD7AlU6nmY/H43F3NpsNWq3WLQeYz+d1JL8H4BfW6+bmZgOO77rd7isHqNfrM3Ty+XzY
+ 399n5vV6WfxqtWL79fX1RiWlUgnPHxlkDRAKhSASiUAsFoPf72eBhBAGeXl5AZlMBgKBgIGoxLirGOD5
+ +blL/0iwSVKpFORyOVxcXHAV0HtUhzUUm4yATqezpPsHBphMJj8uLy9BqVSCRqOB4+NjiEQiDICZUU6d
+ TseUQLjb7YZqtVp6L+UBlREBxGg0soBoNArL5RJQDavVCmazGecAKyTtdhtOTk68G7OQy+W+1mo1MJlM
+ hE4hA2BV5+fnLKPD4QC9Xk8KhQKkUqmfW6cxk8nE6ERCIpFgkxgIBFgzERCLxWAwGOwOXhPpPzWNRuN2
+ PB7P+v0+oA2HwyWVrWIwGD5vzbzDyaN++R+phLsCfwMUR2eb8uMbUAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.vb b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..d63ea34
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailer.vb
@@ -0,0 +1,465 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+Imports EmberScraperModule.EmberTMDBScraperModule
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = TMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ cTrailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..22f1374
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(84, 117)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(154, 117)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(17, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(78, 69)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(53, 2)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(114, 100)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(10, 29)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.pnlStatus)
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(2, 4)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(220, 111)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 143)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.resx b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.vb b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb b/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f610c2c
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb
@@ -0,0 +1,545 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.chkFallBackEng = New System.Windows.Forms.CheckBox()
+ Me.cbTMDBPrefLanguage = New System.Windows.Forms.ComboBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtTMDBApiKey = New System.Windows.Forms.TextBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtFANARTTVApiKey = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.pbTMDB = New System.Windows.Forms.PictureBox()
+ Me.pbFANARTTV = New System.Windows.Forms.PictureBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.pbTMDB)
+ Me.GroupBox30.Controls.Add(Me.chkFallBackEng)
+ Me.GroupBox30.Controls.Add(Me.cbTMDBPrefLanguage)
+ Me.GroupBox30.Controls.Add(Me.Label3)
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtTMDBApiKey)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(309, 123)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "TMDB"
+ '
+ 'chkFallBackEng
+ '
+ Me.chkFallBackEng.AutoSize = True
+ Me.chkFallBackEng.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFallBackEng.Location = New System.Drawing.Point(8, 100)
+ Me.chkFallBackEng.Name = "chkFallBackEng"
+ Me.chkFallBackEng.Size = New System.Drawing.Size(129, 17)
+ Me.chkFallBackEng.TabIndex = 4
+ Me.chkFallBackEng.Text = "Fall back on english"
+ Me.chkFallBackEng.UseVisualStyleBackColor = True
+ '
+ 'cbTMDBPrefLanguage
+ '
+ Me.cbTMDBPrefLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTMDBPrefLanguage.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTMDBPrefLanguage.FormattingEnabled = True
+ Me.cbTMDBPrefLanguage.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTMDBPrefLanguage.Location = New System.Drawing.Point(123, 65)
+ Me.cbTMDBPrefLanguage.Name = "cbTMDBPrefLanguage"
+ Me.cbTMDBPrefLanguage.Size = New System.Drawing.Size(45, 21)
+ Me.cbTMDBPrefLanguage.TabIndex = 3
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label3.Location = New System.Drawing.Point(6, 68)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(111, 13)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "Preferred Language:"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(79, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "TMDB API Key:"
+ '
+ 'txtTMDBApiKey
+ '
+ Me.txtTMDBApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtTMDBApiKey.Name = "txtTMDBApiKey"
+ Me.txtTMDBApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtTMDBApiKey.TabIndex = 1
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pbFANARTTV)
+ Me.GroupBox1.Controls.Add(Me.Label5)
+ Me.GroupBox1.Controls.Add(Me.txtFANARTTVApiKey)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(8, 169)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(309, 71)
+ Me.GroupBox1.TabIndex = 75
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Fanart.tv"
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label5.Location = New System.Drawing.Point(6, 18)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(94, 13)
+ Me.Label5.TabIndex = 0
+ Me.Label5.Text = "Fanart.tv API Key:"
+ '
+ 'txtFANARTTVApiKey
+ '
+ Me.txtFANARTTVApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtFANARTTVApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtFANARTTVApiKey.Name = "txtFANARTTVApiKey"
+ Me.txtFANARTTVApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtFANARTTVApiKey.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(323, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(283, 150)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(225, 17)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(52, 17)
+ Me.chkCrew.TabIndex = 19
+ Me.chkCrew.Text = "Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(131, 123)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 89)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 72)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 89)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 123)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(131, 106)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 106)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 72)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'pbTMDB
+ '
+ Me.pbTMDB.Image = CType(resources.GetObject("pbTMDB.Image"), System.Drawing.Image)
+ Me.pbTMDB.Location = New System.Drawing.Point(287, 34)
+ Me.pbTMDB.Name = "pbTMDB"
+ Me.pbTMDB.Size = New System.Drawing.Size(16, 16)
+ Me.pbTMDB.TabIndex = 5
+ Me.pbTMDB.TabStop = False
+ '
+ 'pbFANARTTV
+ '
+ Me.pbFANARTTV.Image = CType(resources.GetObject("pbFANARTTV.Image"), System.Drawing.Image)
+ Me.pbFANARTTV.Location = New System.Drawing.Point(287, 34)
+ Me.pbFANARTTV.Name = "pbFANARTTV"
+ Me.pbFANARTTV.Size = New System.Drawing.Size(16, 16)
+ Me.pbFANARTTV.TabIndex = 6
+ Me.pbFANARTTV.TabStop = False
+ '
+ 'frmTMDBInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFallBackEng As System.Windows.Forms.CheckBox
+ Friend WithEvents cbTMDBPrefLanguage As System.Windows.Forms.ComboBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label5 As System.Windows.Forms.Label
+ Friend WithEvents txtFANARTTVApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents pbTMDB As System.Windows.Forms.PictureBox
+ Friend WithEvents pbFANARTTV As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.resx b/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.resx
new file mode 100644
index 0000000..b1bac92
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.resx
@@ -0,0 +1,223 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="pbFANARTTV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAABypJREFUWEftlntQlccZxrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj
+ 24wlxabt1PSShFhJEFEuKhxUBAFNRSFq7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7
+ z77v7rufAqBGkhGdXBb+fwH/GxG41NenPr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7Pk
+ ZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2ms
+ e+DyZ5+p/itXRMTopUWL6+gIedmZSIiJQk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGek
+ o7AgH+vYlzU/DakpydomL+ufPnKzMiA+VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB
+ +vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xqQhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQX
+ pv/PSojDRtP6zN+/uU399je/fihg9szpKnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2
+ lL1eipSkROyrr4eloQEMNcpKS3H8zx/gxSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpx
+ eryaHhtdIquODA3WK1yQnYVshlrCWrAwD4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOW
+ yxSmpszWPiNCggRzREigEqwCZPKkGQkSAZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4Cbt
+ btwY0G3hNvvb244gKiwEYUFGc0RwkBKGRCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D5
+ 57jY26tTEGL0N4cHG5kC40MB7FCShpjIcFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr
+ 1IcfgilGcICfOSwoQAnWCLBDzYiLUdHhoSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx
+ 44iPjkSQv6851GhQglUAcy8bUDFHJtksrYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbE
+ RYYj0M/HzCgowSogPipSJURHqciQYFMEN+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD
+ 6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+ytr8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no
+ 660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJoYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJ
+ VgFUJvlXnNzETYL3KnbA0mjBflbE4SBCN71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfm
+ P0gFGXxNAb7eKGfprKutxZ7du4eFiJT8L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUH
+ GSUvJoYG28vL/ysBMulG0wa8qAU0DBEti6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/
+ pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrurq1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5
+ LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wGjVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F
+ 5yOngBuQTpSv57QSUVmzu5qVbRsm2dmgZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQ
+ eK3zwglAU2OjLkwO45/FNhapvXW1oH84T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN
+ +toa/TExLzmJV22mbldWVIgjXL9+Xd90srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x
+ 1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4e
+ L9np2kbGOTP00WHBvIiieBH5N0xzdR0tc8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5
+ usvJYaLQPdH22W7HiXbdzo6TujlG4zx5UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7B
+ An7Alw5U50wms+3Cge7Ek3gTX+JH/ImBBAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm
+ 3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/xKb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVO
+ RK5CYII=
+</value>
+ </data>
+ <data name="pbTMDB.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.vb b/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.vb
new file mode 100644
index 0000000..d17768a
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/frmTMDBInfoSettingsHolder.vb
@@ -0,0 +1,218 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports System.Diagnostics
+
+Public Class frmTMDBInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ Public Event SetupNeedsRestart()
+
+#End Region 'Events
+
+#Region "Fields"
+
+ Private Api1 As String
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFallBackEng_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFallBackEng.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTMDBPrefLanguage_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbTMDBPrefLanguage.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtFANARTTVApiKey_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtFANARTTVApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Enter
+ Api1 = txtTMDBApiKey.Text
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextValidated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Validated
+ If Not (Api1 = txtTMDBApiKey.Text) Then
+ RaiseEvent SetupNeedsRestart()
+ End If
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label18.Text = Master.eLang.GetString(854, "TMDB API Key:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(856, "Cast and Crew", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(859, "MPAA & Certification", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ 'Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkFallBackEng.Text = Master.eLang.GetString(114, "Fall back on english")
+ Me.Label3.Text = Master.eLang.GetString(115, "Preferred Language:")
+
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+
+#End Region 'Methods
+
+ Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles pbTMDB.Click
+ If Master.isWindows Then
+ Process.Start("http://docs.themoviedb.apiary.io/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://docs.themoviedb.apiary.io/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+
+ Private Sub pbFANARTTV_Click(sender As System.Object, e As System.EventArgs) Handles pbFANARTTV.Click
+ If Master.isWindows Then
+ Process.Start("http://fanart.tv/get-an-api-key/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://fanart.tv/get-an-api-key/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb b/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..68e3c03
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb
@@ -0,0 +1,525 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.chkUseFANARTTV = New System.Windows.Forms.CheckBox()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMDBp = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(505, 154)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.chkUseFANARTTV)
+ Me.GroupBox6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox6.Location = New System.Drawing.Point(331, 21)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox6.TabIndex = 96
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Get Fanart From:"
+ '
+ 'chkUseFANARTTV
+ '
+ Me.chkUseFANARTTV.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseFANARTTV.Location = New System.Drawing.Point(6, 21)
+ Me.chkUseFANARTTV.Name = "chkUseFANARTTV"
+ Me.chkUseFANARTTV.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseFANARTTV.TabIndex = 2
+ Me.chkUseFANARTTV.Text = "fanart.tv"
+ Me.chkUseFANARTTV.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMDBp)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 19)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 78)
+ Me.GroupBox9.TabIndex = 5
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Poster From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMDBp
+ '
+ Me.chkUseIMDBp.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMDBp.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseIMDBp.Name = "chkUseIMDBp"
+ Me.chkUseIMDBp.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseIMDBp.TabIndex = 0
+ Me.chkUseIMDBp.Text = "IMDB.com"
+ Me.chkUseIMDBp.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(331, 94)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(12, 21)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(131, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 203)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(464, 126)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.GroupBox5)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(291, 104)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 5
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(123, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 83)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmTMDBMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMDBp As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseFANARTTV As System.Windows.Forms.CheckBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.resx b/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.resx
new file mode 100644
index 0000000..3c46229
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.resx
@@ -0,0 +1,238 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABypJREFUWEftlntQlccZ
+ xrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj24wlxabt1PSShFhJEFEuKhxUBAFNRSFq
+ 7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7z77v7rufAqBGkhGdXBb+fwH/GxG41Nen
+ Pr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7PkZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2
+ vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2mse+DyZ5+p/itXRMTopUWL6+gIedmZSIiJ
+ Qk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGeko7AgH+vYlzU/DakpydomL+ufPnKzMiA+
+ VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB+vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xq
+ QhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQXpv/PSojDRtP6zN+/uU399je/fihg9szp
+ KnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2lL1eipSkROyrr4eloQEMNcpKS3H8zx/g
+ xSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpxeryaHhtdIquODA3WK1yQnYVshlrCWrAw
+ D4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOWyxSmpszWPiNCggRzREigEqwCZPKkGQkS
+ AZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4CbtbtwY0G3hNvvb244gKiwEYUFGc0RwkBKG
+ RCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D557jY26tTEGL0N4cHG5kC40MB7FCShpjI
+ cFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr1IcfgilGcICfOSwoQAnWCLBDzYiLUdHh
+ oSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx44iPjkSQv6851GhQglUAcy8bUDFHJtks
+ rYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbERYYj0M/HzCgowSogPipSJURHqciQYFME
+ N+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+yt
+ r8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJ
+ oYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJVgFUJvlXnNzETYL3KnbA0mjBflbE4SBC
+ N71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfmP0gFGXxNAb7eKGfprKutxZ7du4eFiJT8
+ L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUHGSUvJoYG28vL/ysBMulG0wa8qAU0DBEt
+ i6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrur
+ q1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wG
+ jVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F5yOngBuQTpSv57QSUVmzu5qVbRsm2dmg
+ ZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQeK3zwglAU2OjLkwO45/FNhapvXW1oH84
+ T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN+toa/TExLzmJV22mbldWVIgjXL9+Xd90
+ srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI
+ 1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4eL9np2kbGOTP00WHBvIiieBH5N0xzdR0t
+ c8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5usvJYaLQPdH22W7HiXbdzo6TujlG4zx5
+ UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7BAn7Alw5U50wms+3Cge7Ek3gTX+JH/ImB
+ BAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/x
+ Kb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.vb b/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.vb
new file mode 100644
index 0000000..6ccca98
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/frmTMDBMediaSettingsHolder.vb
@@ -0,0 +1,165 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTMDBMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseFANARTTV_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkUseFANARTTV.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMDBp_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkUseIMDBp.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMDBf_CheckedChanged(sender As System.Object, e As System.EventArgs)
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/packages.config b/Addons/scraper.IMDB.Poster/packages.config
new file mode 100644
index 0000000..9d72b1b
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="RestSharp" version="104.1" targetFramework="net35" />
+ <package id="SharpZipLib" version="0.86.0" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/scraper.IMDB.Poster.vbproj b/Addons/scraper.IMDB.Poster/scraper.IMDB.Poster.vbproj
new file mode 100644
index 0000000..a2fc4a5
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/scraper.IMDB.Poster.vbproj
@@ -0,0 +1,287 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{6A5A835E-D798-4A21-963C-C8E7A5F99D57}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.IMDB.Poster</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ <SccProjectName>
+ </SccProjectName>
+ <SccLocalPath>
+ </SccLocalPath>
+ <SccAuxPath>
+ </SccAuxPath>
+ <SccProvider>
+ </SccProvider>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="RestSharp">
+ <HintPath>..\..\packages\RestSharp.104.1\lib\net35\RestSharp.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeTMDBg.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeFANARTTV.vb" />
+ <Compile Include="Scraper\dlgTMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTMDBMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieTMDBModule.vb" />
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="Scraper\dlgTMDBSearchResults.resx">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBMediaSettingsHolder.resx">
+ <DependentUpon>frmTMDBMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBInfoSettingsHolder.resx">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ <ProjectReference Include="..\..\FanartTVAPI\FanartTVAPI.csproj">
+ <Project>{70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}</Project>
+ <Name>FanartTVAPI</Name>
+ </ProjectReference>
+ <ProjectReference Include="..\..\WatTmdb\WatTmdb.csproj">
+ <Project>{EFC11645-FAB4-4C30-A498-29F5ECDF77E8}</Project>
+ <Name>WatTmdb</Name>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <ItemGroup />
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.IMDB.Poster/scraperMovieTMDBModule.vb b/Addons/scraper.IMDB.Poster/scraperMovieTMDBModule.vb
new file mode 100644
index 0000000..7ac1344
--- /dev/null
+++ b/Addons/scraper.IMDB.Poster/scraperMovieTMDBModule.vb
@@ -0,0 +1,761 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+Imports EmberScraperModule.TMDBg
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberTMDBScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ Private TMDBId As String
+ 'Private IMDBid As String
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private _MySettings As New sMySettings
+ Private _TMDBg As TMDBg.Scraper
+ Private _Name As String = "Ember TMDB Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTMDBInfoSettingsHolder
+ Private _setupPost As frmTMDBMediaSettingsHolder
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ Return True
+ Case Enums.PostScraperCapabilities.Poster
+ Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If _MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.TMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ '' perche' lo crea?
+
+ ''Dim TMDBg As New TMDBg.Scraper
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ studio = _TMDBg.GetMovieStudios(DBMovie.Movie.ID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupNeedsRestart()
+ RaiseEvent SetupNeedsRestart()
+ End Sub
+
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ 'Must be after Load settings to retrieve the correct API key
+ _TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Info")
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ End If
+ End If
+ _TMDBConf = _TMDBApi.GetConfiguration()
+ _TMDBApiE = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey)
+ _TMDBConfE = _TMDBApiE.GetConfiguration()
+ _TMDBg = New TMDBg.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmTMDBMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = _MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = _MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = _MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = _MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseIMDBp.Checked = _MySettings.UseIMDB
+ _setupPost.chkUseIMPA.Checked = _MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = _MySettings.UseMPDB
+ _setupPost.chkUseFANARTTV.Checked = _MySettings.UseFANARTTV
+
+ ' ad size from TMDB
+ '_setupPost.cbManualETSize.Items.Clear()
+ 'If Not IsNothing(_TMDBg.TMDBConf.images) Then
+ ' For Each aSi In _TMDBg.TMDBConf.images.poster_sizes
+ ' _setupPost.cbManualETSize.Items.Add(aSi)
+ ' Next
+ '
+ 'End If
+ _setupPost.cbManualETSize.Text = _MySettings.ManualETSize
+
+ _setupPost.txtTimeout.Text = _MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = _MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ Spanel.Prefix = "TMDBMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return Spanel
+ End Function
+
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTMDBInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkCast.Checked = ConfigOptions.bFullCast
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkCrew.Checked = ConfigOptions.bFullCrew
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+
+ '_setup.chkCertification.Checked = ConfigOptions.bCert
+
+ If String.IsNullOrEmpty(_MySettings.TMDBAPIKey) Then
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ _setup.txtTMDBApiKey.Text = _MySettings.TMDBAPIKey
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.orderChanged()
+ If String.IsNullOrEmpty(_MySettings.FANARTTVApiKey) Then
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _setup.txtFANARTTVApiKey.Text = _MySettings.FANARTTVApiKey
+
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ SPanel.Prefix = "TMDBMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return SPanel
+ End Function
+
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ _MySettings.TMDBAPIKey = AdvancedSettings.GetSetting("TMDBAPIKey", "Get your API Key from http://www.themoviedb.org")
+ _MySettings.FANARTTVApiKey = AdvancedSettings.GetSetting("FANARTTVApiKey", "Get your API Key from http://fanart.tv")
+ _MySettings.FallBackEng = AdvancedSettings.GetBooleanSetting("FallBackEn", False)
+ _MySettings.TMDBLanguage = AdvancedSettings.GetSetting("TMDBLanguage", "en")
+ _MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ _MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ _MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ _MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ _MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ _MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ _MySettings.UseIMDB = AdvancedSettings.GetBooleanSetting("UseIMDB", False)
+ _MySettings.UseFANARTTV = AdvancedSettings.GetBooleanSetting("UseFANARTTV", False)
+ _MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ _MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ _MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As Trailers
+ Dim aScrapeImages As ScrapeImages
+
+ LoadSettings()
+ If String.IsNullOrEmpty(DBMovie.Movie.TMDBID) Then
+ _TMDBg.GetMovieID(DBMovie)
+ End If
+ Trailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Dim doSave As Boolean = False
+
+ aScrapeImages = New ScrapeImages(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ If Master.GlobalScrapeMod.Poster Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If aScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.ID, DBMovie.Movie.TMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApi, _MySettings)
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If aScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, DBMovie.Movie.TMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApi, _MySettings)
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso _MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.TMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ aScrapeImages.GetPreferredFAasET(DBMovie.Movie.TMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", _MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", _MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", _MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", _MySettings.UseTMDBTrailerXBMC)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", _MySettings.UseIMDBTrailer)
+
+ AdvancedSettings.SetSetting("ManualETSize", _MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", _MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+
+ AdvancedSettings.SetSetting("TMDBAPIKey", _MySettings.TMDBAPIKey)
+ AdvancedSettings.SetSetting("FANARTTVApiKey", _MySettings.FANARTTVApiKey)
+ AdvancedSettings.SetBooleanSetting("FallBackEn", _MySettings.FallBackEng)
+ AdvancedSettings.SetSetting("TMDBLanguage", _MySettings.TMDBLanguage)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", _MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", _MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDB", _MySettings.UseIMDB)
+ AdvancedSettings.SetBooleanSetting("UseFANARTTV", _MySettings.UseFANARTTV)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ _MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ _MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ _MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ _MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ _MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ _MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ _MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ _MySettings.UseIMDB = _setupPost.chkUseIMDBp.Checked
+ _MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ _MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ _MySettings.UseFANARTTV = _setupPost.chkUseFANARTTV.Checked
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtTMDBApiKey.Text) Then
+ _MySettings.TMDBAPIKey = _setup.txtTMDBApiKey.Text
+ Else
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ If Not String.IsNullOrEmpty(_setup.txtFANARTTVApiKey.Text) Then
+ _MySettings.FANARTTVApiKey = _setup.txtFANARTTVApiKey.Text
+ Else
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = False
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkCrew.Checked
+ ConfigOptions.bWriters = _setup.chkCrew.Checked
+ ConfigOptions.bProducers = _setup.chkCrew.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkCrew.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = False
+ ConfigOptions.bFullCrew = _setup.chkCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkCast.Checked
+ ConfigOptions.bCert = ConfigOptions.bMPAA
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ ''TMDBg.UseOFDBTitle = MySettings.UseOFDBTitle
+ ''TMDBg.UseOFDBOutline = MySettings.UseOFDBOutline
+ ''TMDBg.UseOFDBPlot = MySettings.UseOFDBPlot
+ ''TMDBg.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = _TMDBg.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgTMDBSearchResults(_MySettings, Me._TMDBg)
+ '' dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If String.IsNullOrEmpty(mMovie.Movie.TMDBID) Then
+ _TMDBg.GetMovieID(mMovie)
+ End If
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ If preload Then
+ dFImgSelect = New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ '' dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure sMySettings
+
+#Region "Fields"
+ Dim DownloadTrailers As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim UseTMDBTrailerPref As String
+ Dim TMDBAPIKey As String
+ Dim FANARTTVApiKey As String
+ Dim TMDBLanguage As String
+ Dim FallBackEng As Boolean
+ Dim UseIMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseFANARTTV As Boolean
+ Dim UseIMDBTrailer As Boolean
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
new file mode 100644
index 0000000..cb66cd5
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">tmdb1</string>
+ <string id="2">tmdb2</string>
+ <string id="3">tmdb3</string>
+ <string id="4">tmdb4</string>
+ <string id="5">tmdb5</string>
+ <string id="6">tmdb6</string>
+ <string id="7">tmdb7</string>
+ <string id="8">tmdb8</string>
+ <string id="9">tmdb9</string>
+ <string id="10">tmdb10</string>
+ <string id="11">tmdb11</string>
+ <string id="12">tmdb12</string>
+ <string id="13">tmdb13</string>
+ <string id="14">tmdb14</string>
+ <string id="15">tmdb15</string>
+ <string id="16">tmdb16</string>
+ <string id="17">tmdb17</string>
+ <string id="18">tmdb18</string>
+ <string id="19">tmdb19</string>
+ <string id="20">tmdb20</string>
+ <string id="21">tmdb21</string>
+ <string id="22">tmdb22</string>
+ <string id="23">tmdb23</string>
+ <string id="24">tmdb24</string>
+ <string id="25">tmdb25</string>
+ <string id="26">tmdb26</string>
+ <string id="27">tmdb27</string>
+ <string id="28">tmdb28</string>
+ <string id="29">tmdb29</string>
+ <string id="30">tmdb30</string>
+ <string id="31">tmdb31</string>
+ <string id="32">tmdb32</string>
+ <string id="33">tmdb33</string>
+ <string id="34">tmdb34</string>
+ <string id="35">tmdb35</string>
+ <string id="36">tmdb36</string>
+ <string id="37">tmdb37</string>
+ <string id="38">tmdb38</string>
+ <string id="39">tmdb39</string>
+ <string id="40">tmdb40</string>
+ <string id="41">tmdb41</string>
+ <string id="42">tmdb42</string>
+ <string id="43">tmdb43</string>
+ <string id="44">tmdb44</string>
+ <string id="45">tmdb45</string>
+ <string id="46">tmdb46</string>
+ <string id="47">tmdb47</string>
+ <string id="48">tmdb48</string>
+ <string id="49">tmdb49</string>
+ <string id="50">tmdb50</string>
+ <string id="51">tmdb51</string>
+ <string id="52">tmdb52</string>
+ <string id="53">tmdb53</string>
+ <string id="54">tmdb54</string>
+ <string id="55">tmdb55</string>
+ <string id="56">tmdb56</string>
+ <string id="57">tmdb57</string>
+ <string id="58">tmdb58</string>
+ <string id="59">tmdb59</string>
+ <string id="60">tmdb60</string>
+ <string id="61">tmdb61</string>
+ <string id="62">tmdb62</string>
+ <string id="63">tmdb63</string>
+ <string id="64">tmdb64</string>
+ <string id="65">tmdb65</string>
+ <string id="66">tmdb66</string>
+ <string id="67">tmdb67</string>
+ <string id="68">tmdb68</string>
+ <string id="69">tmdb69</string>
+ <string id="70">tmdb70</string>
+ <string id="71">tmdb71</string>
+ <string id="72">tmdb72</string>
+ <string id="73">tmdb73</string>
+ <string id="74">tmdb74</string>
+ <string id="75">tmdb75</string>
+ <string id="76">tmdb76</string>
+ <string id="77">tmdb77</string>
+ <string id="78">tmdb78</string>
+ <string id="79">tmdb79</string>
+ <string id="80">tmdb80</string>
+ <string id="81">tmdb81</string>
+ <string id="82">tmdb82</string>
+ <string id="83">tmdb83</string>
+ <string id="84">tmdb84</string>
+ <string id="85">tmdb85</string>
+ <string id="86">tmdb86</string>
+ <string id="87">tmdb87</string>
+ <string id="88">tmdb88</string>
+ <string id="89">tmdb89</string>
+ <string id="90">tmdb90</string>
+ <string id="91">tmdb91</string>
+ <string id="92">tmdb92</string>
+ <string id="93">tmdb93</string>
+ <string id="94">tmdb94</string>
+ <string id="95">tmdb95</string>
+ <string id="96">tmdb96</string>
+ <string id="97">tmdb97</string>
+ <string id="98">tmdb98</string>
+ <string id="99">tmdb99</string>
+ <string id="100">tmdb100</string>
+ <string id="101">tmdb101</string>
+ <string id="102">tmdb102</string>
+ <string id="103">tmdb103</string>
+ <string id="104">tmdb104</string>
+ <string id="105">tmdb105</string>
+ <string id="106">tmdb106</string>
+ <string id="107">tmdb107</string>
+ <string id="108">tmdb108</string>
+ <string id="109">tmdb109</string>
+ <string id="110">tmdb110</string>
+ <string id="111">tmdb111</string>
+ <string id="112">tmdb112</string>
+ <string id="113">tmdb113</string>
+ <string id="114">tmdb114</string>
+ <string id="115">tmdb115</string>
+ <string id="116">tmdb116</string>
+ <string id="117">tmdb117</string>
+ <string id="118">tmdb118</string>
+ <string id="119">tmdb119</string>
+ <string id="120">tmdb120</string>
+ <string id="121">tmdb121</string>
+ <string id="122">tmdb122</string>
+ <string id="123">tmdb123</string>
+ <string id="124">tmdb124</string>
+ <string id="125">tmdb125</string>
+ <string id="126">tmdb126</string>
+ <string id="127">tmdb127</string>
+ <string id="128">tmdb128</string>
+ <string id="129">tmdb129</string>
+ <string id="130">tmdb130</string>
+ <string id="131">tmdb131</string>
+ <string id="132">tmdb132</string>
+ <string id="133">tmdb133</string>
+ <string id="134">tmdb134</string>
+ <string id="135">tmdb135</string>
+ <string id="136">tmdb136</string>
+ <string id="137">tmdb137</string>
+ <string id="138">tmdb138</string>
+ <string id="139">tmdb139</string>
+ <string id="140">tmdb140</string>
+ <string id="141">tmdb141</string>
+ <string id="142">tmdb142</string>
+ <string id="143">tmdb143</string>
+ <string id="144">tmdb144</string>
+ <string id="145">tmdb145</string>
+ <string id="146">tmdb146</string>
+ <string id="147">tmdb147</string>
+ <string id="148">tmdb148</string>
+ <string id="149">tmdb149</string>
+ <string id="150">tmdb150</string>
+ <string id="151">tmdb151</string>
+ <string id="152">tmdb152</string>
+ <string id="153">tmdb153</string>
+ <string id="154">tmdb154</string>
+ <string id="155">tmdb155</string>
+ <string id="156">tmdb156</string>
+ <string id="157">tmdb157</string>
+ <string id="158">tmdb158</string>
+ <string id="159">tmdb159</string>
+ <string id="160">tmdb160</string>
+ <string id="161">tmdb161</string>
+ <string id="162">tmdb162</string>
+ <string id="163">tmdb163</string>
+ <string id="164">tmdb164</string>
+ <string id="165">tmdb165</string>
+ <string id="166">tmdb166</string>
+ <string id="167">tmdb167</string>
+ <string id="168">tmdb168</string>
+ <string id="169">tmdb169</string>
+ <string id="170">tmdb170</string>
+ <string id="171">tmdb171</string>
+ <string id="172">tmdb172</string>
+ <string id="173">tmdb173</string>
+ <string id="174">tmdb174</string>
+ <string id="175">tmdb175</string>
+ <string id="176">tmdb176</string>
+ <string id="177">tmdb177</string>
+ <string id="178">tmdb178</string>
+ <string id="179">tmdb179</string>
+ <string id="180">tmdb180</string>
+ <string id="181">tmdb181</string>
+ <string id="182">tmdb182</string>
+ <string id="183">tmdb183</string>
+ <string id="184">tmdb184</string>
+ <string id="185">tmdb185</string>
+ <string id="186">tmdb186</string>
+ <string id="187">tmdb187</string>
+ <string id="188">tmdb188</string>
+ <string id="189">tmdb189</string>
+ <string id="190">tmdb190</string>
+ <string id="191">tmdb191</string>
+ <string id="192">tmdb192</string>
+ <string id="193">tmdb193</string>
+ <string id="194">tmdb194</string>
+ <string id="195">tmdb195</string>
+ <string id="196">tmdb196</string>
+ <string id="197">tmdb197</string>
+ <string id="198">tmdb198</string>
+ <string id="199">tmdb199</string>
+ <string id="200">tmdb200</string>
+ <string id="201">tmdb201</string>
+ <string id="202">tmdb202</string>
+ <string id="203">tmdb203</string>
+ <string id="204">tmdb204</string>
+ <string id="205">tmdb205</string>
+ <string id="206">tmdb206</string>
+ <string id="207">tmdb207</string>
+ <string id="208">tmdb208</string>
+ <string id="209">tmdb209</string>
+ <string id="210">tmdb210</string>
+ <string id="211">tmdb211</string>
+ <string id="212">tmdb212</string>
+ <string id="213">tmdb213</string>
+ <string id="214">tmdb214</string>
+ <string id="215">tmdb215</string>
+ <string id="216">tmdb216</string>
+ <string id="217">tmdb217</string>
+ <string id="218">tmdb218</string>
+ <string id="219">tmdb219</string>
+ <string id="220">tmdb220</string>
+ <string id="221">tmdb221</string>
+ <string id="222">tmdb222</string>
+ <string id="223">tmdb223</string>
+ <string id="224">tmdb224</string>
+ <string id="225">tmdb225</string>
+ <string id="226">tmdb226</string>
+ <string id="227">tmdb227</string>
+ <string id="228">tmdb228</string>
+ <string id="229">tmdb229</string>
+ <string id="230">tmdb230</string>
+ <string id="231">tmdb231</string>
+ <string id="232">tmdb232</string>
+ <string id="233">tmdb233</string>
+ <string id="234">tmdb234</string>
+ <string id="235">tmdb235</string>
+ <string id="236">tmdb236</string>
+ <string id="237">tmdb237</string>
+ <string id="238">tmdb238</string>
+ <string id="239">tmdb239</string>
+ <string id="240">tmdb240</string>
+ <string id="241">tmdb241</string>
+ <string id="242">tmdb242</string>
+ <string id="243">tmdb243</string>
+ <string id="244">tmdb244</string>
+ <string id="245">tmdb245</string>
+ <string id="246">tmdb246</string>
+ <string id="247">tmdb247</string>
+ <string id="248">tmdb248</string>
+ <string id="249">tmdb249</string>
+ <string id="250">tmdb250</string>
+ <string id="251">tmdb251</string>
+ <string id="252">tmdb252</string>
+ <string id="253">tmdb253</string>
+ <string id="254">tmdb254</string>
+ <string id="255">tmdb255</string>
+ <string id="256">tmdb256</string>
+ <string id="257">tmdb257</string>
+ <string id="258">tmdb258</string>
+ <string id="259">tmdb259</string>
+ <string id="260">tmdb260</string>
+ <string id="261">tmdb261</string>
+ <string id="262">tmdb262</string>
+ <string id="263">tmdb263</string>
+ <string id="264">tmdb264</string>
+ <string id="265">tmdb265</string>
+ <string id="266">tmdb266</string>
+ <string id="267">tmdb267</string>
+ <string id="268">tmdb268</string>
+ <string id="269">tmdb269</string>
+ <string id="270">tmdb270</string>
+ <string id="271">tmdb271</string>
+ <string id="272">tmdb272</string>
+ <string id="273">tmdb273</string>
+ <string id="274">tmdb274</string>
+ <string id="275">tmdb275</string>
+ <string id="276">tmdb276</string>
+ <string id="277">tmdb277</string>
+ <string id="278">tmdb278</string>
+ <string id="279">tmdb279</string>
+ <string id="280">tmdb280</string>
+ <string id="281">tmdb281</string>
+ <string id="282">tmdb282</string>
+ <string id="283">tmdb283</string>
+ <string id="284">tmdb284</string>
+ <string id="285">tmdb285</string>
+ <string id="286">tmdb286</string>
+ <string id="287">tmdb287</string>
+ <string id="288">tmdb288</string>
+ <string id="289">tmdb289</string>
+ <string id="290">tmdb290</string>
+ <string id="291">tmdb291</string>
+ <string id="292">tmdb292</string>
+ <string id="293">tmdb293</string>
+ <string id="294">tmdb294</string>
+ <string id="295">tmdb295</string>
+ <string id="296">tmdb296</string>
+ <string id="297">tmdb297</string>
+ <string id="298">tmdb298</string>
+ <string id="299">tmdb299</string>
+ <string id="300">tmdb300</string>
+ <string id="301">tmdb301</string>
+ <string id="302">tmdb302</string>
+ <string id="303">tmdb303</string>
+ <string id="304">tmdb304</string>
+ <string id="305">tmdb305</string>
+ <string id="306">tmdb306</string>
+ <string id="307">tmdb307</string>
+ <string id="308">tmdb308</string>
+ <string id="309">tmdb309</string>
+ <string id="310">tmdb310</string>
+ <string id="311">tmdb311</string>
+ <string id="312">tmdb312</string>
+ <string id="313">tmdb313</string>
+ <string id="314">tmdb314</string>
+ <string id="315">tmdb315</string>
+ <string id="316">tmdb316</string>
+ <string id="317">tmdb317</string>
+ <string id="318">tmdb318</string>
+ <string id="319">tmdb319</string>
+ <string id="320">tmdb320</string>
+ <string id="321">tmdb321</string>
+ <string id="322">tmdb322</string>
+ <string id="323">tmdb323</string>
+ <string id="324">tmdb324</string>
+ <string id="325">tmdb325</string>
+ <string id="326">tmdb326</string>
+ <string id="327">tmdb327</string>
+ <string id="328">tmdb328</string>
+ <string id="329">tmdb329</string>
+ <string id="330">tmdb330</string>
+ <string id="331">tmdb331</string>
+ <string id="332">tmdb332</string>
+ <string id="333">tmdb333</string>
+ <string id="334">tmdb334</string>
+ <string id="335">tmdb335</string>
+ <string id="336">tmdb336</string>
+ <string id="337">tmdb337</string>
+ <string id="338">tmdb338</string>
+ <string id="339">tmdb339</string>
+ <string id="340">tmdb340</string>
+ <string id="341">tmdb341</string>
+ <string id="342">tmdb342</string>
+ <string id="343">tmdb343</string>
+ <string id="344">tmdb344</string>
+ <string id="345">tmdb345</string>
+ <string id="346">tmdb346</string>
+ <string id="347">tmdb347</string>
+ <string id="348">tmdb348</string>
+ <string id="349">tmdb349</string>
+ <string id="350">tmdb350</string>
+ <string id="351">tmdb351</string>
+ <string id="352">tmdb352</string>
+ <string id="353">tmdb353</string>
+ <string id="354">tmdb354</string>
+ <string id="355">tmdb355</string>
+ <string id="356">tmdb356</string>
+ <string id="357">tmdb357</string>
+ <string id="358">tmdb358</string>
+ <string id="359">tmdb359</string>
+ <string id="360">tmdb360</string>
+ <string id="361">tmdb361</string>
+ <string id="362">tmdb362</string>
+ <string id="363">tmdb363</string>
+ <string id="364">tmdb364</string>
+ <string id="365">tmdb365</string>
+ <string id="366">tmdb366</string>
+ <string id="367">tmdb367</string>
+ <string id="368">tmdb368</string>
+ <string id="369">tmdb369</string>
+ <string id="370">tmdb370</string>
+ <string id="371">tmdb371</string>
+ <string id="372">tmdb372</string>
+ <string id="373">tmdb373</string>
+ <string id="374">tmdb374</string>
+ <string id="375">tmdb375</string>
+ <string id="376">tmdb376</string>
+ <string id="377">tmdb377</string>
+ <string id="378">tmdb378</string>
+ <string id="379">tmdb379</string>
+ <string id="380">tmdb380</string>
+ <string id="381">tmdb381</string>
+ <string id="382">tmdb382</string>
+ <string id="383">tmdb383</string>
+ <string id="384">tmdb384</string>
+ <string id="385">tmdb385</string>
+ <string id="386">tmdb386</string>
+ <string id="387">tmdb387</string>
+ <string id="388">tmdb388</string>
+ <string id="389">tmdb389</string>
+ <string id="390">tmdb390</string>
+ <string id="391">tmdb391</string>
+ <string id="392">tmdb392</string>
+ <string id="393">tmdb393</string>
+ <string id="394">tmdb394</string>
+ <string id="395">tmdb395</string>
+ <string id="396">tmdb396</string>
+ <string id="397">tmdb397</string>
+ <string id="398">tmdb398</string>
+ <string id="399">tmdb399</string>
+ <string id="400">tmdb400</string>
+ <string id="401">tmdb401</string>
+ <string id="402">tmdb402</string>
+ <string id="403">tmdb403</string>
+ <string id="404">tmdb404</string>
+ <string id="405">tmdb405</string>
+ <string id="406">tmdb406</string>
+ <string id="407">tmdb407</string>
+ <string id="408">tmdb408</string>
+ <string id="409">tmdb409</string>
+ <string id="410">tmdb410</string>
+ <string id="411">tmdb411</string>
+ <string id="412">tmdb412</string>
+ <string id="413">tmdb413</string>
+ <string id="414">tmdb414</string>
+ <string id="415">tmdb415</string>
+ <string id="416">tmdb416</string>
+ <string id="417">tmdb417</string>
+ <string id="418">tmdb418</string>
+ <string id="419">tmdb419</string>
+ <string id="420">tmdb420</string>
+ <string id="421">tmdb421</string>
+ <string id="422">tmdb422</string>
+ <string id="423">tmdb423</string>
+ <string id="424">tmdb424</string>
+ <string id="425">tmdb425</string>
+ <string id="426">tmdb426</string>
+ <string id="427">tmdb427</string>
+ <string id="428">tmdb428</string>
+ <string id="429">tmdb429</string>
+ <string id="430">tmdb430</string>
+ <string id="431">tmdb431</string>
+ <string id="432">tmdb432</string>
+ <string id="433">tmdb433</string>
+ <string id="434">tmdb434</string>
+ <string id="435">tmdb435</string>
+ <string id="436">tmdb436</string>
+ <string id="437">tmdb437</string>
+ <string id="438">tmdb438</string>
+ <string id="439">tmdb439</string>
+ <string id="440">tmdb440</string>
+ <string id="441">tmdb441</string>
+ <string id="442">tmdb442</string>
+ <string id="443">tmdb443</string>
+ <string id="444">tmdb444</string>
+ <string id="445">tmdb445</string>
+ <string id="446">tmdb446</string>
+ <string id="447">tmdb447</string>
+ <string id="448">tmdb448</string>
+ <string id="449">tmdb449</string>
+ <string id="450">tmdb450</string>
+ <string id="451">tmdb451</string>
+ <string id="452">tmdb452</string>
+ <string id="453">tmdb453</string>
+ <string id="454">tmdb454</string>
+ <string id="455">tmdb455</string>
+ <string id="456">tmdb456</string>
+ <string id="457">tmdb457</string>
+ <string id="458">tmdb458</string>
+ <string id="459">tmdb459</string>
+ <string id="460">tmdb460</string>
+ <string id="461">tmdb461</string>
+ <string id="462">tmdb462</string>
+ <string id="463">tmdb463</string>
+ <string id="464">tmdb464</string>
+ <string id="465">tmdb465</string>
+ <string id="466">tmdb466</string>
+ <string id="467">tmdb467</string>
+ <string id="468">tmdb468</string>
+ <string id="469">tmdb469</string>
+ <string id="470">tmdb470</string>
+ <string id="471">tmdb471</string>
+ <string id="472">tmdb472</string>
+ <string id="473">tmdb473</string>
+ <string id="474">tmdb474</string>
+ <string id="475">tmdb475</string>
+ <string id="476">tmdb476</string>
+ <string id="477">tmdb477</string>
+ <string id="478">tmdb478</string>
+ <string id="479">tmdb479</string>
+ <string id="480">tmdb480</string>
+ <string id="481">tmdb481</string>
+ <string id="482">tmdb482</string>
+ <string id="483">tmdb483</string>
+ <string id="484">tmdb484</string>
+ <string id="485">tmdb485</string>
+ <string id="486">tmdb486</string>
+ <string id="487">tmdb487</string>
+ <string id="488">tmdb488</string>
+ <string id="489">tmdb489</string>
+ <string id="490">tmdb490</string>
+ <string id="491">tmdb491</string>
+ <string id="492">tmdb492</string>
+ <string id="493">tmdb493</string>
+ <string id="494">tmdb494</string>
+ <string id="495">tmdb495</string>
+ <string id="496">tmdb496</string>
+ <string id="497">tmdb497</string>
+ <string id="498">tmdb498</string>
+ <string id="499">tmdb499</string>
+ <string id="500">tmdb500</string>
+ <string id="501">tmdb501</string>
+ <string id="502">tmdb502</string>
+ <string id="503">tmdb503</string>
+ <string id="504">tmdb504</string>
+ <string id="505">tmdb505</string>
+ <string id="506">tmdb506</string>
+ <string id="507">tmdb507</string>
+ <string id="508">tmdb508</string>
+ <string id="509">tmdb509</string>
+ <string id="510">tmdb510</string>
+ <string id="511">tmdb511</string>
+ <string id="512">tmdb512</string>
+ <string id="513">tmdb513</string>
+ <string id="514">tmdb514</string>
+ <string id="515">tmdb515</string>
+ <string id="516">tmdb516</string>
+ <string id="517">tmdb517</string>
+ <string id="518">tmdb518</string>
+ <string id="519">tmdb519</string>
+ <string id="520">tmdb520</string>
+ <string id="521">tmdb521</string>
+ <string id="522">tmdb522</string>
+ <string id="523">tmdb523</string>
+ <string id="524">tmdb524</string>
+ <string id="525">tmdb525</string>
+ <string id="526">tmdb526</string>
+ <string id="527">tmdb527</string>
+ <string id="528">tmdb528</string>
+ <string id="529">tmdb529</string>
+ <string id="530">tmdb530</string>
+ <string id="531">tmdb531</string>
+ <string id="532">tmdb532</string>
+ <string id="533">tmdb533</string>
+ <string id="534">tmdb534</string>
+ <string id="535">tmdb535</string>
+ <string id="536">tmdb536</string>
+ <string id="537">tmdb537</string>
+ <string id="538">tmdb538</string>
+ <string id="539">tmdb539</string>
+ <string id="540">tmdb540</string>
+ <string id="541">tmdb541</string>
+ <string id="542">tmdb542</string>
+ <string id="543">tmdb543</string>
+ <string id="544">tmdb544</string>
+ <string id="545">tmdb545</string>
+ <string id="546">tmdb546</string>
+ <string id="547">tmdb547</string>
+ <string id="548">tmdb548</string>
+ <string id="549">tmdb549</string>
+ <string id="550">tmdb550</string>
+ <string id="551">tmdb551</string>
+ <string id="552">tmdb552</string>
+ <string id="553">tmdb553</string>
+ <string id="554">tmdb554</string>
+ <string id="555">tmdb555</string>
+ <string id="556">tmdb556</string>
+ <string id="557">tmdb557</string>
+ <string id="558">tmdb558</string>
+ <string id="559">tmdb559</string>
+ <string id="560">tmdb560</string>
+ <string id="561">tmdb561</string>
+ <string id="562">tmdb562</string>
+ <string id="563">tmdb563</string>
+ <string id="564">tmdb564</string>
+ <string id="565">tmdb565</string>
+ <string id="566">tmdb566</string>
+ <string id="567">tmdb567</string>
+ <string id="568">tmdb568</string>
+ <string id="569">tmdb569</string>
+ <string id="570">tmdb570</string>
+ <string id="571">tmdb571</string>
+ <string id="572">tmdb572</string>
+ <string id="573">tmdb573</string>
+ <string id="574">tmdb574</string>
+ <string id="575">tmdb575</string>
+ <string id="576">tmdb576</string>
+ <string id="577">tmdb577</string>
+ <string id="578">tmdb578</string>
+ <string id="579">tmdb579</string>
+ <string id="580">tmdb580</string>
+ <string id="581">tmdb581</string>
+ <string id="582">tmdb582</string>
+ <string id="583">tmdb583</string>
+ <string id="584">tmdb584</string>
+ <string id="585">tmdb585</string>
+ <string id="586">tmdb586</string>
+ <string id="587">tmdb587</string>
+ <string id="588">tmdb588</string>
+ <string id="589">tmdb589</string>
+ <string id="590">tmdb590</string>
+ <string id="591">tmdb591</string>
+ <string id="592">tmdb592</string>
+ <string id="593">tmdb593</string>
+ <string id="594">tmdb594</string>
+ <string id="595">tmdb595</string>
+ <string id="596">tmdb596</string>
+ <string id="597">tmdb597</string>
+ <string id="598">tmdb598</string>
+ <string id="599">tmdb599</string>
+ <string id="600">tmdb600</string>
+ <string id="601">tmdb601</string>
+ <string id="602">tmdb602</string>
+ <string id="603">tmdb603</string>
+ <string id="604">tmdb604</string>
+ <string id="605">tmdb605</string>
+ <string id="606">tmdb606</string>
+ <string id="607">tmdb607</string>
+ <string id="608">tmdb608</string>
+ <string id="609">tmdb609</string>
+ <string id="610">tmdb610</string>
+ <string id="611">tmdb611</string>
+ <string id="612">tmdb612</string>
+ <string id="613">tmdb613</string>
+ <string id="614">tmdb614</string>
+ <string id="615">tmdb615</string>
+ <string id="616">tmdb616</string>
+ <string id="617">tmdb617</string>
+ <string id="618">tmdb618</string>
+ <string id="619">tmdb619</string>
+ <string id="620">tmdb620</string>
+ <string id="621">tmdb621</string>
+ <string id="622">tmdb622</string>
+ <string id="623">tmdb623</string>
+ <string id="624">tmdb624</string>
+ <string id="625">tmdb625</string>
+ <string id="626">tmdb626</string>
+ <string id="627">tmdb627</string>
+ <string id="628">tmdb628</string>
+ <string id="629">tmdb629</string>
+ <string id="630">tmdb630</string>
+ <string id="631">tmdb631</string>
+ <string id="632">tmdb632</string>
+ <string id="633">tmdb633</string>
+ <string id="634">tmdb634</string>
+ <string id="635">tmdb635</string>
+ <string id="636">tmdb636</string>
+ <string id="637">tmdb637</string>
+ <string id="638">tmdb638</string>
+ <string id="639">tmdb639</string>
+ <string id="640">tmdb640</string>
+ <string id="641">tmdb641</string>
+ <string id="642">tmdb642</string>
+ <string id="643">tmdb643</string>
+ <string id="644">tmdb644</string>
+ <string id="645">tmdb645</string>
+ <string id="646">tmdb646</string>
+ <string id="647">tmdb647</string>
+ <string id="648">tmdb648</string>
+ <string id="649">tmdb649</string>
+ <string id="650">tmdb650</string>
+ <string id="651">tmdb651</string>
+ <string id="652">tmdb652</string>
+ <string id="653">tmdb653</string>
+ <string id="654">tmdb654</string>
+ <string id="655">tmdb655</string>
+ <string id="656">tmdb656</string>
+ <string id="657">tmdb657</string>
+ <string id="658">tmdb658</string>
+ <string id="659">tmdb659</string>
+ <string id="660">tmdb660</string>
+ <string id="661">tmdb661</string>
+ <string id="662">tmdb662</string>
+ <string id="663">tmdb663</string>
+ <string id="664">tmdb664</string>
+ <string id="665">tmdb665</string>
+ <string id="666">tmdb666</string>
+ <string id="667">tmdb667</string>
+ <string id="668">tmdb668</string>
+ <string id="669">tmdb669</string>
+ <string id="670">tmdb670</string>
+ <string id="671">tmdb671</string>
+ <string id="672">tmdb672</string>
+ <string id="673">tmdb673</string>
+ <string id="674">tmdb674</string>
+ <string id="675">tmdb675</string>
+ <string id="676">tmdb676</string>
+ <string id="677">tmdb677</string>
+ <string id="678">tmdb678</string>
+ <string id="679">tmdb679</string>
+ <string id="680">tmdb680</string>
+ <string id="681">tmdb681</string>
+ <string id="682">tmdb682</string>
+ <string id="683">tmdb683</string>
+ <string id="684">tmdb684</string>
+ <string id="685">tmdb685</string>
+ <string id="686">tmdb686</string>
+ <string id="687">tmdb687</string>
+ <string id="688">tmdb688</string>
+ <string id="689">tmdb689</string>
+ <string id="690">tmdb690</string>
+ <string id="691">tmdb691</string>
+ <string id="692">tmdb692</string>
+ <string id="693">tmdb693</string>
+ <string id="694">tmdb694</string>
+ <string id="695">tmdb695</string>
+ <string id="696">tmdb696</string>
+ <string id="697">tmdb697</string>
+ <string id="698">tmdb698</string>
+ <string id="699">tmdb699</string>
+ <string id="700">tmdb700</string>
+ <string id="701">tmdb701</string>
+ <string id="702">tmdb702</string>
+ <string id="703">tmdb703</string>
+ <string id="704">tmdb704</string>
+ <string id="705">tmdb705</string>
+ <string id="706">tmdb706</string>
+ <string id="707">tmdb707</string>
+ <string id="708">tmdb708</string>
+ <string id="709">tmdb709</string>
+ <string id="710">tmdb710</string>
+ <string id="711">tmdb711</string>
+ <string id="712">tmdb712</string>
+ <string id="713">tmdb713</string>
+ <string id="714">tmdb714</string>
+ <string id="715">tmdb715</string>
+ <string id="716">tmdb716</string>
+ <string id="717">tmdb717</string>
+ <string id="718">tmdb718</string>
+ <string id="719">tmdb719</string>
+ <string id="720">tmdb720</string>
+ <string id="721">tmdb721</string>
+ <string id="722">tmdb722</string>
+ <string id="723">tmdb723</string>
+ <string id="724">tmdb724</string>
+ <string id="725">tmdb725</string>
+ <string id="726">tmdb726</string>
+ <string id="727">tmdb727</string>
+ <string id="728">tmdb728</string>
+ <string id="729">tmdb729</string>
+ <string id="730">tmdb730</string>
+ <string id="731">tmdb731</string>
+ <string id="732">tmdb732</string>
+ <string id="733">tmdb733</string>
+ <string id="734">tmdb734</string>
+ <string id="735">tmdb735</string>
+ <string id="736">tmdb736</string>
+ <string id="737">tmdb737</string>
+ <string id="738">tmdb738</string>
+ <string id="739">tmdb739</string>
+ <string id="740">tmdb740</string>
+ <string id="741">tmdb741</string>
+ <string id="742">tmdb742</string>
+ <string id="743">tmdb743</string>
+ <string id="744">tmdb744</string>
+ <string id="745">tmdb745</string>
+ <string id="746">tmdb746</string>
+ <string id="747">tmdb747</string>
+ <string id="748">tmdb748</string>
+ <string id="749">tmdb749</string>
+ <string id="750">tmdb750</string>
+ <string id="751">tmdb751</string>
+ <string id="752">tmdb752</string>
+ <string id="753">tmdb753</string>
+ <string id="754">tmdb754</string>
+ <string id="755">tmdb755</string>
+ <string id="756">tmdb756</string>
+ <string id="757">tmdb757</string>
+ <string id="758">tmdb758</string>
+ <string id="759">tmdb759</string>
+ <string id="760">tmdb760</string>
+ <string id="761">tmdb761</string>
+ <string id="762">tmdb762</string>
+ <string id="763">tmdb763</string>
+ <string id="764">tmdb764</string>
+ <string id="765">tmdb765</string>
+ <string id="766">tmdb766</string>
+ <string id="767">tmdb767</string>
+ <string id="768">tmdb768</string>
+ <string id="769">tmdb769</string>
+ <string id="770">tmdb770</string>
+ <string id="771">tmdb771</string>
+ <string id="772">tmdb772</string>
+ <string id="773">tmdb773</string>
+ <string id="774">tmdb774</string>
+ <string id="775">tmdb775</string>
+ <string id="776">tmdb776</string>
+ <string id="777">tmdb777</string>
+ <string id="778">tmdb778</string>
+ <string id="779">tmdb779</string>
+ <string id="780">tmdb780</string>
+ <string id="781">tmdb781</string>
+ <string id="782">tmdb782</string>
+ <string id="783">tmdb783</string>
+ <string id="784">tmdb784</string>
+ <string id="785">tmdb785</string>
+ <string id="786">tmdb786</string>
+ <string id="787">tmdb787</string>
+ <string id="788">tmdb788</string>
+ <string id="789">tmdb789</string>
+ <string id="790">tmdb790</string>
+ <string id="791">tmdb791</string>
+ <string id="792">tmdb792</string>
+ <string id="793">tmdb793</string>
+ <string id="794">tmdb794</string>
+ <string id="795">tmdb795</string>
+ <string id="796">tmdb796</string>
+ <string id="797">tmdb797</string>
+ <string id="798">tmdb798</string>
+ <string id="799">tmdb799</string>
+ <string id="800">tmdb800</string>
+ <string id="801">tmdb801</string>
+ <string id="802">tmdb802</string>
+ <string id="803">tmdb803</string>
+ <string id="804">tmdb804</string>
+ <string id="805">tmdb805</string>
+ <string id="806">tmdb806</string>
+ <string id="807">tmdb807</string>
+ <string id="808">tmdb808</string>
+ <string id="809">tmdb809</string>
+ <string id="810">tmdb810</string>
+ <string id="811">tmdb811</string>
+ <string id="812">tmdb812</string>
+ <string id="813">tmdb813</string>
+ <string id="814">tmdb814</string>
+ <string id="815">tmdb815</string>
+ <string id="816">tmdb816</string>
+ <string id="817">tmdb817</string>
+ <string id="818">tmdb818</string>
+ <string id="819">tmdb819</string>
+ <string id="820">tmdb820</string>
+ <string id="821">tmdb821</string>
+ <string id="822">tmdb822</string>
+ <string id="823">tmdb823</string>
+ <string id="824">tmdb824</string>
+ <string id="825">tmdb825</string>
+ <string id="826">tmdb826</string>
+ <string id="827">tmdb827</string>
+ <string id="828">tmdb828</string>
+ <string id="829">tmdb829</string>
+ <string id="830">tmdb830</string>
+ <string id="831">tmdb831</string>
+ <string id="832">tmdb832</string>
+ <string id="833">tmdb833</string>
+ <string id="834">tmdb834</string>
+ <string id="835">tmdb835</string>
+ <string id="836">tmdb836</string>
+ <string id="837">tmdb837</string>
+ <string id="838">tmdb838</string>
+ <string id="839">tmdb839</string>
+ <string id="840">tmdb840</string>
+ <string id="841">tmdb841</string>
+ <string id="842">tmdb842</string>
+ <string id="843">tmdb843</string>
+ <string id="844">tmdb844</string>
+ <string id="845">tmdb845</string>
+ <string id="846">tmdb846</string>
+ <string id="847">tmdb847</string>
+ <string id="848">tmdb848</string>
+ <string id="849">tmdb849</string>
+ <string id="850">tmdb850</string>
+ <string id="851">tmdb851</string>
+ <string id="852">tmdb852</string>
+ <string id="853">tmdb853</string>
+ <string id="854">tmdb854</string>
+ <string id="855">tmdb855</string>
+ <string id="856">tmdb856</string>
+ <string id="857">tmdb857</string>
+ <string id="858">tmdb858</string>
+ <string id="859">tmdb859</string>
+ <string id="860">tmdb860</string>
+ <string id="861">tmdb861</string>
+ <string id="862">tmdb862</string>
+ <string id="863">tmdb863</string>
+ <string id="864">tmdb864</string>
+ <string id="865">tmdb865</string>
+ <string id="866">tmdb866</string>
+ <string id="867">tmdb867</string>
+ <string id="868">tmdb868</string>
+ <string id="869">tmdb869</string>
+ <string id="870">tmdb870</string>
+ <string id="871">tmdb871</string>
+ <string id="872">tmdb872</string>
+ <string id="873">tmdb873</string>
+ <string id="874">tmdb874</string>
+ <string id="875">tmdb875</string>
+ <string id="876">tmdb876</string>
+ <string id="877">tmdb877</string>
+ <string id="878">tmdb878</string>
+ <string id="879">tmdb879</string>
+ <string id="880">tmdb880</string>
+ <string id="881">tmdb881</string>
+ <string id="882">tmdb882</string>
+ <string id="883">tmdb883</string>
+ <string id="884">tmdb884</string>
+ <string id="885">tmdb885</string>
+ <string id="886">tmdb886</string>
+ <string id="887">tmdb887</string>
+ <string id="888">tmdb888</string>
+ <string id="889">tmdb889</string>
+ <string id="890">tmdb890</string>
+ <string id="891">tmdb891</string>
+ <string id="892">tmdb892</string>
+ <string id="893">tmdb893</string>
+ <string id="894">tmdb894</string>
+ <string id="895">tmdb895</string>
+ <string id="896">tmdb896</string>
+ <string id="897">tmdb897</string>
+ <string id="898">tmdb898</string>
+ <string id="899">tmdb899</string>
+ <string id="900">tmdb900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
new file mode 100644
index 0000000..5e87256
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API Key from the TMDB site. Sharing the API key is forbidden.</string>
+ <string control="TMDBMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Selected language for TMDB searches</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">If no record is available for selected language try English</string>
+ <string control="TMDBMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="TMDBMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="TMDBMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="TMDBMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="TMDBMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="TMDBMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="TMDBMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="TMDBMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="TMDBMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="TMDBMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="TMDBMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="TMDBMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="TMDBMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
new file mode 100644
index 0000000..cf68bc8
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching TMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching TMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Fall back on english</string>
+ <string id="115">Preferred Language:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Retrieving data from IMDB.com...</string>
+ <string id="118">IMDB.com is not enabled</string>
+ <string id="119">TheMovieDB API is missing or not valid</string>
+ <string id="120">Retrieving data from Fanart.tv...</string>
+ <string id="121">Fanart.tv is not enabled</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..d2a3801
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-Key von der TMDB-Website. Gemeinsame Nutzung des API-Schlüssels ist verboten.</string>
+ <string control="TMDBMovieInfo_chkCertification">Das Scrapen von Altersbeschränkungen einschalten.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Wähle die Sprache in der auf TMDB gesucht werden soll</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Wenn kein Datensatz für die gewählte Sprache verfügbar ist versuche englischen zu nehmen.</string>
+ <string control="TMDBMovieInfo_chkCrew">Das Scrapen von der restlichen Crew einschalten. ("Gesamte Crew Scrapen" muss eingeschaltet sein)</string>
+ <string control="TMDBMovieInfo_chkStudio">Das Scrapen von Studios einschalten.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Das Scrapen von Spielzeiten einschalten.</string>
+ <string control="TMDBMovieInfo_chkPlot">Das Scrapen von Inhaltsangaben einschalten.</string>
+ <string control="TMDBMovieInfo_chkOutline">Das Scrapen von Kurzbeschreibungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkGenre">Das Scrapen von Genres einschalten.</string>
+ <string control="TMDBMovieInfo_chkTagline">Das Scrapen von Taglines einschalten.</string>
+ <string control="TMDBMovieInfo_chkCast">Das Scrapen von Schauspielern einschalten.</string>
+ <string control="TMDBMovieInfo_chkVotes">Das Scrapen von Anzahl Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRating">Das Scrapen von Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRelease">Das Scrapen von Premiere-Daten einschalten.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Das Scrapen von MPAA-Informationen einschalten.</string>
+ <string control="TMDBMovieInfo_chkYear">Das Scrapen von Filmjahren einschalten.</string>
+ <string control="TMDBMovieInfo_chkTitle">Das Scrapen von Filmtiteln einschalten.</string>
+ <string control="TMDBMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanarts mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Aktiviert das Laden von Trailern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Seite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
new file mode 100644
index 0000000..9b8e52e
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der TMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der TMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden.</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden.</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Wähle alle Thumb</string>
+ <string id="42">Wähle alle Mittl.</string>
+ <string id="43">Wähle alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Klein ({0}x{1})</string>
+ <string id="54">Mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Treiler...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Manueller Trailer</string>
+ <string id="67">Direkter Link oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Loakler trailer:</string>
+ <string id="71">Fehler beim generieren der Videoformat Linkliste.</string>
+ <string id="72">Fehler beim Generieren der Videoformat Links.</string>
+ <string id="73">Wähle Format</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der bevorzugten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine bevorzugte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gaststar</string>
+ <string id="83">Die eingegebene ID ist keine gültige TMDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Poster</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen Blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Verwende Englisch wenn nichts verfügbar</string>
+ <string id="115">Bevorzugte Sprache:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Lade Daten von IMDB.com...</string>
+ <string id="118">IMDB.com ist nicht aktiviert.</string>
+ <string id="119">Die TheMovieDB API ist nicht vorhanden oder ungültig</string>
+ <string id="120">Lade Daten von Fanart.tv...</string>
+ <string id="121">Fanart.tv ist nicht aktiviert</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..54809c6
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-nøkkel fra TMDB-siden. Deling av denne nøkkelen er forbudt.</string>
+ <string control="TMDBMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Valgt språk for TMDB-søk.</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Hvis valgt språk ikke blir funnet, prøv engelsk.</string>
+ <string control="TMDBMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="TMDBMovieInfo_chkStudio">Slå på detaljhenting av filmstudio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="TMDBMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="TMDBMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="TMDBMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="TMDBMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="TMDBMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="TMDBMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="TMDBMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="TMDBMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="TMDBMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="TMDBMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="TMDBMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..3ee8a25
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">TMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kan ikke spille av trailer</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episode-fankunst</string>
+ <string id="93">Seriefankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakat</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM TMDB film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Fall tilbake til engelsk</string>
+ <string id="115">Foretrukket språk:</string>
+ <string id="116">TIMDB-ID:</string>
+ <string id="117">Henter data fra IMDB.com...</string>
+ <string id="118">IMDB.com er ikke påslått</string>
+ <string id="119">TheMovieDB API mangler eller er ikke gyldig</string>
+ <string id="120">Henter data fra Fanart.tv...</string>
+ <string id="121">Fanart.tv er ikke påslått</string>
+ <string id="122">Hent din API-nøkkel fra www.themoviedb.org</string>
+ <string id="123">Hent din API-nøkkel fra fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.IMPA.Poster/My Project/Application.Designer.vb b/Addons/scraper.IMPA.Poster/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.IMPA.Poster/My Project/Application.myapp b/Addons/scraper.IMPA.Poster/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.IMPA.Poster/My Project/AssemblyInfo.vb b/Addons/scraper.IMPA.Poster/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..b78251e
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.IMPA.Poster")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.IMPA.Poster")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("9C321BB4-192E-49DB-90B0-A23DCE1075BC")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.IMPA.Poster/My Project/Resources.Designer.vb b/Addons/scraper.IMPA.Poster/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.IMPA.Poster/My Project/Resources.resx b/Addons/scraper.IMPA.Poster/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/My Project/Settings.Designer.vb b/Addons/scraper.IMPA.Poster/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.IMPA.Poster/My Project/Settings.settings b/Addons/scraper.IMPA.Poster/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.IMPA.Poster/Resources/Logo.png b/Addons/scraper.IMPA.Poster/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.IMPA.Poster/Resources/Logo.png differ
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeFANARTTV.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeFANARTTV.vb
new file mode 100644
index 0000000..13c1748
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeFANARTTV.vb
@@ -0,0 +1,173 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+' # HD Movie Logos -> logo.png (choose this first)
+' # ClearLOGOs -> logo.png (use this as a backup if no HD Logo in the lanaguage specified)
+' # ClearART -> clearart.png (use this as a backup if no HD ClearArt, in the language specified)
+' # HDClearART -> clearart.png (choose this first)
+' # cdART -> disc.png
+' # Movie Backgrounds -> Fanart (this is the only fanart.tv artwork that might overlap with 'typical' artwork scraping from IMDB/TMDB)
+' # Movie Banner -> Banner (not poster - Frodo supports both now, <moviename>-poster.jpg/png and <moviename>-banner.jpg/png or poster.jpg/png and banner.jpg/png)
+' # Movie Thumbs -> landscape.png
+' # Special note - the Logos and ClearArts are language-specific and should be tagged with the appropriate language. Will want to have a setting allowing users to specify a language so as not to get a bunch of foreign-language artwork.
+' # 1) Logo.png - to be added at a later stage, today is not possible to save
+' # 2) Clearart.png - to be added at a later stage, today is not possible to save
+' # 3) Disc.png - to be added at a later stage, today is not possible to save
+' # 4) Landscape.png - to be added at a later stage, today is not possible to save
+' # language is in image properties
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports FanartTVAPI
+
+Namespace FANARTTVs
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _FanartTV As FanartTV.V1.FanartTV
+ Friend WithEvents bwFANARTTV As New System.ComponentModel.BackgroundWorker
+ Private _APIInvalid As Boolean = False
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _FanartTV = New FanartTV.V1.FanartTV(_MySettings.FANARTTVApiKey)
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest("1", "JSON", "all", 1, 1))
+ If IsNothing(Result) Then
+ If Not IsNothing(_FanartTV.Error) Then
+ Master.eLog.WriteToErrorLog(_FanartTV.Error, "", "Error")
+ _APIInvalid = True
+ End If
+ End If
+ End Sub
+
+ Public Sub Cancel()
+ If Me.bwFANARTTV.IsBusy Then Me.bwFANARTTV.CancelAsync()
+
+ While Me.bwFANARTTV.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwFANARTTV.IsBusy Then
+ bwFANARTTV.WorkerSupportsCancellation = True
+ bwFANARTTV.WorkerReportsProgress = True
+ bwFANARTTV.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetFANARTTVImages(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ If _APIInvalid Then
+ Return Nothing
+ End If
+ Try
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest(imdbID, "JSON", "all", 1, 2))
+ If bwFANARTTV.CancellationPending Then Return Nothing
+ If IsNothing(Result) Then Return alPoster
+ If IsNothing(Result.movieinfo.moviebackground) Then Return alPoster
+ For Each image In Result.movieinfo.moviebackground
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = image.url})
+ alPoster.Add(New MediaContainers.Image With {.Description = "thumb", .URL = image.url & "/preview"})
+ Next
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwFANARTTVA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTV.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetFANARTTVImages(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTV_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTV.ProgressChanged
+ If Not bwFANARTTV.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwFANARTTV_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTV.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeIMDB.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..ec6d1be
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,174 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Diagnostics
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDBimg
+
+ Public Class Scraper
+
+#Region "Fields"
+
+
+
+ Friend WithEvents bwIMDBimg As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMDBimg.IsBusy Then Me.bwIMDBimg.CancelAsync()
+
+ While Me.bwIMDBimg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMDBimg.IsBusy Then
+ bwIMDBimg.WorkerSupportsCancellation = True
+ bwIMDBimg.WorkerReportsProgress = True
+ bwIMDBimg.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMDBimg.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", imdbID, ""))
+ sHTTP = Nothing
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(1)
+ End If
+
+
+ ' check existence of a line like this
+ ' <a href="/media/rm2995297536/tt0089218?ref_=tt_ov_i" > <img height="317"
+ ' and then return this one
+ ' src = "http://ia.media-imdb.com/images/M/MV5BMTY1Mzk3MTg0M15BMl5BanBnXkFtZTcwOTQzODYyMQ@@._V1_SY317_CR3,0,214,317_.jpg"
+ Dim mcIMDB As MatchCollection = Regex.Matches(HTML, String.Concat("/media/[a-zA-Z0-9]{3,12}/tt", imdbID, "\?ref_=tt_ov_i"), RegexOptions.IgnoreCase)
+ If mcIMDB.Count > 0 Then
+ debug.print("GetIMDBPoster 1 - {0}", mcIMDB(0).Value)
+ 'Dim sUrl1 As String = sHTTP.DownloadData(mcIMDB(0).Value)
+ mcIMDB = Regex.Matches(HTML, "http://ia.media-imdb.com/images/.{3,80}?.jpg")
+ If mcIMDB.Count > 0 Then
+ 'just use the first one if more are found
+ Debug.Print("GetIMDBPoster 2 - {0}", mcIMDB(0).Value)
+ alPoster.Add(New MediaContainers.Image With {.Description = "cover", .URL = mcIMDB(0).Value})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(2)
+ End If
+
+ Dim aSP As String() = Regex.Split(mcIMDB(0).Value, "._V\d+?_SY\d+?_CR\d+?,\d+?,\d+?,\d+?_")
+ Dim sUrl1 = aSP(0) + aSP(1)
+ Debug.Print("GetIMDBPoster 3 - {0}", sUrl1)
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = sUrl1})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMDBimg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBimg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMDBimg_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBimg.ProgressChanged
+ If Not bwIMDBimg.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMDBimg_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBimg.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeIMPA.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..cfe43a1
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,189 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(1)
+ End If
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(2)
+ End If
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeImages.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..d335b62
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeImages.vb
@@ -0,0 +1,1209 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Public Class ScrapeImages
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private TMDB As TMDB.Scraper
+ Private IMPA As New IMPA.Scraper
+ Private MPDB As New MPDB.Scraper
+ Private IMDB As New IMDBimg.Scraper
+ Private FANARTTVs As FANARTTVs.Scraper
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal TMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListIMDB As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMDBX As Images = Nothing
+ Dim tmpIMDBL As Images = Nothing
+ Dim tmpIMDBM As Images = Nothing
+ Dim tmpIMDBS As Images = Nothing
+ Dim tmpIMDBW As Images = Nothing
+ Dim tmpTMDBX As Images = Nothing
+ Dim tmpTMDBL As Images = Nothing
+ Dim tmpTMDBM As Images = Nothing
+ Dim tmpTMDBS As Images = Nothing
+ Dim tmpTMDBW As Images = Nothing
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(TMDBID, "poster"))
+
+ If _MySettings.UseIMPA Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If _MySettings.UseMPDB Then
+ tmpListMPDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ If _MySettings.UseIMDB Then
+ tmpListTMDB.AddRange(IMDB.GetIMDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+
+ If _MySettings.UseIMDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMDB = IMDB.GetIMDBPosters(IMDBID)
+
+ If tmpListIMDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMDBX) Then
+ tmpIMDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMDBL) Then
+ tmpIMDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMDBM) Then
+ tmpIMDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMDBS) Then
+ tmpIMDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMDBW) Then
+ tmpIMDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from IMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseMPDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseIMDB Then
+ If tmpListIMDB.Count > 0 Then
+ If Not IsNothing(tmpIMDBX) Then
+ Image = tmpIMDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBL) Then
+ Image = tmpIMDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBM) Then
+ Image = tmpIMDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBS) Then
+ Image = tmpIMDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBW) Then
+ Image = tmpIMDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseMPDB Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ End If
+ End If
+
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ End If
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+
+ If AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("tUseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0)
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeMPDB.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..cd949ec
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,167 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(2)
+ End If
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "t")
+ alPosters.Add(New MediaContainers.Image With {.Description = "thumb", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeOFDB.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..2e94cca
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,242 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ D = Html.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, "<td width=""99\%""><h2><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h2></td>").Groups(1).Value.ToString))
+ _title = OFDBTitle
+ End If
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+
+ If D > 0 Then
+ W = Html.IndexOf("<a href=""", D + 14)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 14, W - (D + 14)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 14, L - (D + 14)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDB.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..9db6818
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,282 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Private backdrop_names(3) As v3Size
+ Private poster_names(5) As v3Size
+
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ ' v3 does not have description anymore
+ poster_names(0).description = "thumb"
+ poster_names(0).size = "w92"
+ poster_names(0).width = 92
+ poster_names(1).description = "w154"
+ poster_names(1).size = "w154"
+ poster_names(1).width = 154
+ poster_names(2).description = "cover"
+ poster_names(2).size = "w185"
+ poster_names(2).width = 185
+ poster_names(3).description = "w342"
+ poster_names(3).size = "w342"
+ poster_names(3).width = 342
+ poster_names(4).description = "mid"
+ poster_names(4).size = "w500"
+ poster_names(4).width = 500
+ poster_names(5).description = "original"
+ poster_names(5).size = "original"
+ poster_names(5).width = 0
+ backdrop_names(0).description = "thumb"
+ backdrop_names(0).size = "w300"
+ backdrop_names(0).width = 300
+ backdrop_names(1).description = "poster"
+ backdrop_names(1).size = "w780"
+ backdrop_names(1).width = 780
+ backdrop_names(2).description = "w1280"
+ backdrop_names(2).size = "w1280"
+ backdrop_names(2).width = 1280
+ backdrop_names(3).description = "original"
+ backdrop_names(3).size = "original"
+ backdrop_names(3).width = 0
+ End Sub
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim images As V3.TmdbMovieImages
+ Dim aW, aH As Integer
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ images = _TMDBApi.GetMovieImages(CInt(imdbID), _MySettings.TMDBLanguage)
+ If sType = "poster" Then
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ Else
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If sType = "poster" Then
+ For Each tmdbI As V3.Poster In images.posters
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In poster_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ ElseIf sType = "backdrop" Then
+ For Each tmdbI As V3.Backdrop In images.backdrops
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In backdrop_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As List(Of String)
+ Dim trailers As V3.TmdbMovieTrailers
+ Dim YT As New List(Of String)
+
+ Try
+ If bwTMDB.CancellationPending Then Return Nothing
+ trailers = _TMDBApi.GetMovieTrailers(CInt(imdbID), _MySettings.TMDBLanguage)
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ trailers = _TMDBApiE.GetMovieTrailers(CInt(imdbID))
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ Return Nothing
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ 'If bwTMDB.WorkerReportsProgress Then
+ ' bwTMDB.ReportProgress(2)
+ 'End If
+
+ If trailers.youtube.Count > 0 Then
+ For Each trailer In trailers.youtube
+ YT.Add(String.Format("http://www.youtube.com/watch?v={0}{1})", trailer.source, CStr(IIf(trailer.size = "HD", "&hd=1", ""))))
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return YT
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure v3Size
+
+#Region "Fields"
+
+ Dim size As String
+ Dim description As String
+ Dim width As Integer
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDB_old.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDB_old.vb
new file mode 100644
index 0000000..c5bca0a
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDB_old.vb
@@ -0,0 +1,244 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB_old
+
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDBg.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDBg.vb
new file mode 100644
index 0000000..86f6083
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTMDBg.vb
@@ -0,0 +1,723 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDBg
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _Matches As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Matches() As List(Of MediaContainers.Movie)
+ Get
+ Return _Matches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _Matches = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ 'Public IMDBURL As String
+ 'Private _TMDBId As String
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Friend WithEvents bwTMDBg As New System.ComponentModel.BackgroundWorker
+
+ Private _sPoster As String
+
+#End Region 'Fields
+
+#Region "Properties"
+ Public ReadOnly Property TMDBConf() As V3.TmdbConfiguration
+ Get
+ Return _TMDBConf
+ End Get
+ End Property
+#End Region
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As TMDBg.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTMDBg.IsBusy Then bwTMDBg.CancelAsync()
+
+ While bwTMDBg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetMovieID(ByRef DBMovie As Structures.DBMovie)
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+
+ If bwTMDBg.CancellationPending Then Return
+
+ Movie = _TMDBApi.GetMovieByIMDB(DBMovie.Movie.ID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(DBMovie.Movie.ID)
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return
+ End If
+
+ DBMovie.Movie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+ Dim tStr As String
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Strings.Left(strID.ToLower(), 2) = "tt" Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(strID)
+ Else
+ Movie = _TMDBApi.GetMovieInfo(CInt(strID), _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieInfo(CInt(strID))
+ End If
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return False
+ End If
+
+ IMDBMovie.ID = CStr(IIf(String.IsNullOrEmpty(Movie.imdb_id) AndAlso _MySettings.FallBackEng, MovieE.imdb_id, Movie.imdb_id))
+ IMDBMovie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ If bwTMDBg.CancellationPending Or IsNothing(Movie) Then Return Nothing
+
+ Dim Keywords As WatTmdb.V3.TmdbMovieKeywords
+ Keywords = _TMDBApi.GetMovieKeywords(Movie.id)
+ If Not IsNothing(Keywords) AndAlso Not IsNothing(Keywords.keywords) Then
+ If Keywords.keywords.Count <> 0 AndAlso _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ End If
+
+ ' to be added the tags structure
+ '' <movie>
+ '' ...
+ '' <tag>Name of the tag</tag>
+ '' ...
+ '' </movie>
+ If Options.bTitle Then
+ IMDBMovie.OriginalTitle = CStr(IIf(String.IsNullOrEmpty(Movie.original_title) AndAlso _MySettings.FallBackEng, MovieE.original_title, Movie.original_title))
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ IMDBMovie.Title = CStr(IIf(String.IsNullOrEmpty(Movie.title) AndAlso _MySettings.FallBackEng, MovieE.title, Movie.title))
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ ' I will add original always. to be updated if size, TMDBConf.images.poster_sizes(0) &
+ Dim Images As WatTmdb.V3.TmdbMovieImages
+ Images = _TMDBApi.GetMovieImages(Movie.id, _MySettings.TMDBLanguage)
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If (Images.posters.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ End If
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If Images.posters.Count > 0 Then
+ _sPoster = _TMDBConf.images.base_url & "w92" & Images.posters(0).file_path
+ Else
+ _sPoster = ""
+ End If
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Left(CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date)), 4)
+
+ Dim Releases As WatTmdb.V3.TmdbMovieReleases = Nothing
+ If Options.bMPAA Then
+ IMDBMovie.MPAA = ""
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each Country In Releases.countries
+ If Country.iso_3166_1.ToUpper = CStr(IIf(Master.eSettings.CertificationLang = "", "US", Master.eSettings.CertificationLang)) Then
+ IMDBMovie.MPAA = Country.certification
+ Exit For
+ End If
+ Next
+ End If
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ IMDBMovie.ReleaseDate = CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date))
+ End If
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ IMDBMovie.Rating = CStr(IIf(IsNothing(Movie.vote_average) AndAlso Movie.vote_average = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_average, Movie.vote_average))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ Dim Trailers As WatTmdb.V3.TmdbMovieTrailers
+ Trailers = _TMDBApi.GetMovieTrailers(Movie.id)
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If (Trailers.youtube.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ End If
+
+ IMDBMovie.Trailer = ""
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If Trailers.youtube.Count > 0 Then
+ IMDBMovie.Trailer = "http://www.youtube.com/watch?hd=1&v=" & Trailers.youtube(0).source
+ End If
+ End If
+
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then
+ IMDBMovie.Votes = CStr(IIf(IsNothing(Movie.vote_count) AndAlso Movie.vote_count = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_count.ToString(), Movie.vote_count.ToString()))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Dim aCast As WatTmdb.V3.TmdbMovieCast = Nothing
+ If Options.bCast Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.cast.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+
+ Dim Cast As New List(Of MediaContainers.Person)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ For Each aAc As WatTmdb.V3.Cast In aCast.cast
+ Dim aPer As New MediaContainers.Person
+ aPer.Name = aAc.name
+ aPer.Role = aAc.character
+ ' to be added / dialog to choose the size of the images
+ aPer.Thumb = _TMDBConf.images.base_url & "original" & aAc.profile_path
+ Cast.Add(aPer)
+ Next
+ End If
+ IMDBMovie.Actors = Cast
+ End If
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+ IMDBMovie.Tagline = CStr(IIf(String.IsNullOrEmpty(IMDBMovie.Tagline) AndAlso _MySettings.FallBackEng, MovieE.tagline, Movie.tagline))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ If IsNothing(Releases) Then
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Countries.Clear()
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each aCo As WatTmdb.V3.ReleaseCountry In Releases.countries
+ IMDBMovie.Countries.Add(aCo.iso_3166_1)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ IMDBMovie.Genres.Clear()
+ Dim tGen As System.Collections.Generic.List(Of WatTmdb.V3.MovieGenre)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tGen = CType(IIf(Movie.genres.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.genres, Movie.genres), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ Else
+ tGen = CType(IIf(_MySettings.FallBackEng, MovieE.genres, Nothing), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ End If
+
+
+ If Not IsNothing(tGen) Then
+ For Each aGen As WatTmdb.V3.MovieGenre In tGen
+ IMDBMovie.Genres.Add(aGen.name)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+ IMDBMovie.Outline = CStr(IIf(String.IsNullOrEmpty(Movie.overview) AndAlso _MySettings.FallBackEng, MovieE.overview, Movie.overview))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ Else
+ IMDBMovie.Plot = ""
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then
+ IMDBMovie.Runtime = CStr(IIf(IsNothing(Movie.runtime) AndAlso Movie.runtime = 0 AndAlso _MySettings.FallBackEng, MovieE.runtime.ToString(), Movie.runtime.ToString()))
+ End If
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ tStr = ""
+ Dim tPC As System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tPC = CType(IIf(Movie.production_companies.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.production_companies, Movie.production_companies), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ Else
+ tPC = CType(IIf(_MySettings.FallBackEng, MovieE.production_companies, Nothing), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ End If
+
+ If Not IsNothing(tPC) Then
+ For Each aPro As WatTmdb.V3.ProductionCompany In tPC
+ tStr = tStr & " / " & aPro.name
+ Next
+ End If
+ If Len(tStr) > 3 Then
+ tStr = Trim(Right(tStr, Len(tStr) - 3))
+ End If
+ IMDBMovie.Studio = tStr
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Or Options.bWriters Or Options.bDirector Then
+ If IsNothing(aCast) Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.crew.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Credits.Clear()
+ IMDBMovie.Directors.Clear()
+ If Not IsNothing(aCast.crew) Then
+ For Each aAc As WatTmdb.V3.Crew In aCast.crew
+ If FullCrew Then
+ IMDBMovie.Credits.Add(aAc.name)
+ ElseIf Options.bWriters Then
+ If aAc.department = "Writing" AndAlso aAc.job = "Writer" Then
+ IMDBMovie.Credits.Add(aAc.name)
+ End If
+ End If
+ If Options.bDirector Then
+ If aAc.job = "Director" Then
+ IMDBMovie.Directors.Add(aAc.name)
+ End If
+ End If
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ If Movie.production_companies.Count = 0 And _MySettings.FallBackEng Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, "en")
+ End If
+ For Each aComp In Movie.production_companies
+ alStudio.Add(aComp.name)
+ Next
+
+ Return alStudio
+
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgTMDBSearchResults(_MySettings, Me)
+
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.Matches)
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ b = GetMovieInfo(r.Matches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, _
+ .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBg.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(_sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ 'Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ ' Dim fTitle As String = oTitle
+ ' Dim Movie As WatTmdb.V3.TmdbMovie
+
+ ' Try
+ ' '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ ' If Left(strID.ToLower(), 4) = "tt" Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), _MySettings.TMDBLanguage)
+ ' If IsNothing(Movie) And _MySettings.FallBackEng Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), "en")
+ ' End If
+ ' Else
+ ' Movie = _TMDBApi.GetMovieByIMDB(strID)
+ ' End If
+
+ ' fTitle = Movie.title
+
+ ' Return fTitle
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' Return fTitle
+ ' End Try
+ 'End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+ Dim R As New MovieSearchResults
+ Dim Page As Integer = 1
+ Dim Movies As WatTmdb.V3.TmdbMovieSearch
+ Dim TotP As Integer
+ Dim aE As Boolean
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ If Movies.total_results = 0 And _MySettings.FallBackEng Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ aE = True
+ End If
+ If Movies.total_results > 0 Then
+ Dim t1 As String
+ Dim t2 As String
+ Dim t3 As String
+ TotP = Movies.total_pages
+ While Page <= TotP And Page <= 3
+ For Each aMovie In Movies.results
+ Dim aMI As WatTmdb.V3.TmdbMovie
+ aMI = _TMDBApi.GetMovieInfo(aMovie.id)
+ If IsNothing(aMI) Then
+ aMI = _TMDBApiE.GetMovieInfo(aMovie.id)
+ End If
+ If IsNothing(aMI.imdb_id) Then
+ t1 = ""
+ Else
+ t1 = aMI.imdb_id.ToString
+ End If
+ t2 = CStr(IIf(String.IsNullOrEmpty(aMovie.title), "", aMovie.title))
+ t3 = Left(CStr(IIf(String.IsNullOrEmpty(aMovie.release_date), "", aMovie.release_date)), 4)
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(t1, t2, t3, 0)
+ lNewMovie.TMDBID = aMI.id.ToString
+ R.Matches.Add(lNewMovie)
+ Next
+ Page = Page + 1
+ If aE Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ Else
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ End If
+
+ End While
+ End If
+
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+ 'Dim TMDBConf As V3.TmdbConfiguration
+ 'Dim TMDBApi As V3.Tmdb
+ 'Dim FallBackEng As Boolean
+ 'Dim TMDBLang As String
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTrailers.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..72ce5f8
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ Me.Clear()
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim YT As List(Of String)
+
+ YT = TMDB.GetTrailers(_ImdbID)
+
+ If Not YT.Count = 0 Then
+ For Each ast In YT
+ Me._TrailerList.Add(ast)
+ Next
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/clsScrapeYouTube.vb b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..51ed7c4
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,336 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..3c9254c
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,569 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlIMDB = New System.Windows.Forms.Panel()
+ Me.lblDL6Status = New System.Windows.Forms.Label()
+ Me.lblDL6 = New System.Windows.Forms.Label()
+ Me.pbDL6 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlFANARTTV = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlMDB = New System.Windows.Forms.Panel()
+ Me.lblDL5Status = New System.Windows.Forms.Label()
+ Me.lblDL5 = New System.Windows.Forms.Label()
+ Me.pbDL5 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL4Status = New System.Windows.Forms.Label()
+ Me.lblDL4 = New System.Windows.Forms.Label()
+ Me.pbDL4 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTMDB = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlIMDB.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.pnlFANARTTV.SuspendLayout()
+ Me.pnlMDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlTMDB.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 4
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 6
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 5
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 4
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 3
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 2
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 9
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 7
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 8
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 3
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlSinglePic)
+ Me.pnlDLStatus.Controls.Add(Me.pnlFANARTTV)
+ Me.pnlDLStatus.Controls.Add(Me.pnlMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.pnlTMDB)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(253, 98)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(331, 330)
+ Me.pnlDLStatus.TabIndex = 0
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlIMDB
+ '
+ Me.pnlIMDB.Controls.Add(Me.lblDL6Status)
+ Me.pnlIMDB.Controls.Add(Me.lblDL6)
+ Me.pnlIMDB.Controls.Add(Me.pbDL6)
+ Me.pnlIMDB.Location = New System.Drawing.Point(3, 84)
+ Me.pnlIMDB.Name = "pnlIMDB"
+ Me.pnlIMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMDB.TabIndex = 9
+ '
+ 'lblDL6Status
+ '
+ Me.lblDL6Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL6Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL6Status.Name = "lblDL6Status"
+ Me.lblDL6Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6Status.TabIndex = 8
+ '
+ 'lblDL6
+ '
+ Me.lblDL6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL6.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL6.Name = "lblDL6"
+ Me.lblDL6.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6.TabIndex = 7
+ Me.lblDL6.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL6
+ '
+ Me.pbDL6.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL6.Name = "pbDL6"
+ Me.pbDL6.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL6.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL6.TabIndex = 6
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(3, 3)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 9
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 7
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 6
+ '
+ 'pnlFANARTTV
+ '
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3Status)
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3)
+ Me.pnlFANARTTV.Controls.Add(Me.pbDL3)
+ Me.pnlFANARTTV.Location = New System.Drawing.Point(3, 84)
+ Me.pnlFANARTTV.Name = "pnlFANARTTV"
+ Me.pnlFANARTTV.Size = New System.Drawing.Size(321, 75)
+ Me.pnlFANARTTV.TabIndex = 11
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 8
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 7
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 6
+ '
+ 'pnlMDB
+ '
+ Me.pnlMDB.Controls.Add(Me.lblDL5Status)
+ Me.pnlMDB.Controls.Add(Me.lblDL5)
+ Me.pnlMDB.Controls.Add(Me.pbDL5)
+ Me.pnlMDB.Location = New System.Drawing.Point(3, 246)
+ Me.pnlMDB.Name = "pnlMDB"
+ Me.pnlMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMDB.TabIndex = 9
+ '
+ 'lblDL5Status
+ '
+ Me.lblDL5Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL5Status.Name = "lblDL5Status"
+ Me.lblDL5Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5Status.TabIndex = 8
+ '
+ 'lblDL5
+ '
+ Me.lblDL5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL5.Name = "lblDL5"
+ Me.lblDL5.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5.TabIndex = 7
+ Me.lblDL5.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL5
+ '
+ Me.pbDL5.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL5.Name = "pbDL5"
+ Me.pbDL5.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL5.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL5.TabIndex = 6
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.lblDL4Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL4)
+ Me.pnlIMPA.Controls.Add(Me.pbDL4)
+ Me.pnlIMPA.Location = New System.Drawing.Point(3, 165)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 6
+ '
+ 'lblDL4Status
+ '
+ Me.lblDL4Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL4Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL4Status.Name = "lblDL4Status"
+ Me.lblDL4Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4Status.TabIndex = 8
+ '
+ 'lblDL4
+ '
+ Me.lblDL4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL4.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL4.Name = "lblDL4"
+ Me.lblDL4.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4.TabIndex = 7
+ Me.lblDL4.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL4
+ '
+ Me.pbDL4.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL4.Name = "pbDL4"
+ Me.pbDL4.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL4.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL4.TabIndex = 6
+ '
+ 'pnlTMDB
+ '
+ Me.pnlTMDB.Controls.Add(Me.lblDL2Status)
+ Me.pnlTMDB.Controls.Add(Me.lblDL2)
+ Me.pnlTMDB.Controls.Add(Me.pbDL2)
+ Me.pnlTMDB.Location = New System.Drawing.Point(3, 3)
+ Me.pnlTMDB.Name = "pnlTMDB"
+ Me.pnlTMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlTMDB.TabIndex = 10
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 8
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 7
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 6
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlIMDB.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.pnlFANARTTV.ResumeLayout(False)
+ Me.pnlMDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlTMDB.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL4Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL4 As System.Windows.Forms.Label
+ Friend WithEvents pbDL4 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL5Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL5 As System.Windows.Forms.Label
+ Friend WithEvents pbDL5 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+ Friend WithEvents pnlFANARTTV As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL6Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL6 As System.Windows.Forms.Label
+ Friend WithEvents pbDL6 As System.Windows.Forms.ProgressBar
+
+End Class
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.resx b/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..3491405
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.vb b/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..b2e44a9
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1582 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports EmberScraperModule.EmberTMDBScraperModule
+Imports RestSharp
+Imports WatTmdb
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwIMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwFANARTTVDownload As New System.ComponentModel.BackgroundWorker
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Private TMDB As TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+
+ Private IMDB As New IMDBimg.Scraper
+ Private IMDBPosters As New List(Of MediaContainers.Image)
+
+ Private FANARTTVs As FANARTTVs.Scraper
+ Private FANARTTVPosters As New List(Of MediaContainers.Image)
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _imdbDone As Boolean = True
+ Private _fanarttvDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+ Private Event IMDBDone()
+
+ Private Event FANARTTVDone()
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = poster.WebImage.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(poster.URL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone AndAlso Me._imdbDone AndAlso Me._fanarttvDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.TMDBPosters.AddRange(Me.IMDBPosters)
+ Me.TMDBPosters.AddRange(Me.FANARTTVPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+ Me.pnlTMDB.Visible = False
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.pnlDLStatus.Height = 85
+ Me.pnlDLStatus.Top = 185
+
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.IMDBPosters.Count - 1
+ Try
+ If Me.bwIMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMDBDownload.ReportProgress(i + 1, Me.IMDBPosters.Item(i).URL)
+ Try
+ Me.IMDBPosters.Item(i).WebImage.FromWeb(Me.IMDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMDBPosters.Item(i).URL = StringUtils.CleanURL(Me.IMDBPosters.Item(i).URL)
+ Me.IMDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMDBPosters.Item(i).Description, ")_(url=", Me.IMDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL6Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL6.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._imdbDone = True
+ RaiseEvent IMDBDone()
+ End If
+ End Sub
+
+ Private Sub bwFANARTTVDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTVDownload.DoWork
+ '//
+ ' Thread to download FanartTV images from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.FANARTTVPosters.Count - 1
+ Try
+ If Me.bwFANARTTVDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwFANARTTVDownload.ReportProgress(i + 1, Me.FANARTTVPosters.Item(i).URL)
+ Try
+ Me.FANARTTVPosters.Item(i).WebImage.FromWeb(Me.FANARTTVPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.FANARTTVPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.FANARTTVPosters.Item(i).URL = StringUtils.CleanURL(Me.FANARTTVPosters.Item(i).URL)
+ Me.FANARTTVPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.FANARTTVPosters.Item(i).Description, ")_(url=", Me.FANARTTVPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwFANARTTVDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTVDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTVDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTVDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._fanarttvDone = True
+ RaiseEvent FANARTTVDone()
+ End If
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL4Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL4.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPABownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL5Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL5.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = _MySettings.ManualETSize
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress((i + 1), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath, , , False)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+ IMDB.Cancel()
+ FANARTTVs.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+ If bwIMDBDownload.IsBusy Then bwIMDBDownload.CancelAsync()
+ If bwFANARTTVDownload.IsBusy Then bwFANARTTVDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+ IMDB = Nothing
+ FANARTTVs = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ IMDBPosters = Nothing
+ FANARTTVPosters = Nothing
+
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains(_TMDBConf.images.base_url.ToLower) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "backdrop")
+
+ If _MySettings.UseFANARTTV Then
+ Me.lblDL3.Text = Master.eLang.GetString(120, "Retrieving data from Fanart.tv...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._fanarttvDone = False
+
+ Me.FANARTTVs.GetImagesAsync(tMovie.Movie.ID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(121, "Fanart.tv is not enabled")
+ End If
+
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "poster")
+
+ If _MySettings.UseIMDB Then
+ Me.lblDL6.Text = Master.eLang.GetString(117, "Retrieving data from IMDB.com...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._imdbDone = False
+
+ Me.IMDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL6.Text = Master.eLang.GetString(118, "IMDB.com is not enabled")
+ End If
+
+ If _MySettings.UseIMPA Then
+ Me.lblDL4.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL4.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If _MySettings.UseMPDB Then
+ Me.lblDL5.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL5.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVDoneDownloading()
+ Try
+ Me._fanarttvDone = True
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ 'Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.FANARTTVPosters = Posters
+
+ Me.bwFANARTTVDownload.WorkerSupportsCancellation = True
+ Me.bwFANARTTVDownload.WorkerReportsProgress = True
+ Me.bwFANARTTVDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub IMDBDoneDownloading()
+ Try
+ Me._imdbDone = True
+ Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL6.Value = 0
+
+ 'Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = Posters.Count
+
+ Me.IMDBPosters = Posters
+
+ Me.bwIMDBDownload.WorkerSupportsCancellation = True
+ Me.bwIMDBDownload.WorkerReportsProgress = True
+ Me.bwIMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL6.Value = iPercent
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL4.Value = 0
+
+ 'Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL4.Value = iPercent
+ End Sub
+
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL5.Value = 0
+
+ 'Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL5.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.Description, iIndex, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMDB.PostersDownloaded, AddressOf IMDBPostersDownloaded
+ AddHandler IMDB.ProgressUpdated, AddressOf IMDBProgressUpdated
+ AddHandler FANARTTVs.PostersDownloaded, AddressOf FANARTTVPostersDownloaded
+ AddHandler FANARTTVs.ProgressUpdated, AddressOf FANARTTVProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+ AddHandler IMDBDone, AddressOf IMDBDoneDownloading
+ AddHandler FANARTTVDone, AddressOf FANARTTVDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = True
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = True
+ Me.pnlMDB.Visible = True
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 328
+ Me.pnlDLStatus.Top = 82
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = True
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 129
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL5.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL4.Text = Me.lblDL5.Text
+ Me.lblDL3.Text = Me.lblDL5.Text
+ Me.lblDL2.Text = Me.lblDL5.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ Me._tmdbDone = True
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ 'Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.TMDBPosters = Posters
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.Designer.vb b/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..edf9f3b
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.Designer.vb
@@ -0,0 +1,460 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtTMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(497, 401)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(570, 401)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(4, 96)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.ShowLines = False
+ Me.tvResults.ShowPlusMinus = False
+ Me.tvResults.ShowRootLines = False
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 4
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(294, 130)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(291, 70)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(291, 89)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(294, 295)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(472, 130)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(472, 156)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(472, 183)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtTMDBID
+ '
+ Me.txtTMDBID.Enabled = False
+ Me.txtTMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBID.Location = New System.Drawing.Point(139, 399)
+ Me.txtTMDBID.Name = "txtTMDBID"
+ Me.txtTMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTMDBID.TabIndex = 6
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 8
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(257, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(4, 403)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(130, 17)
+ Me.chkManual.TabIndex = 5
+ Me.chkManual.Text = "Manual TMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(245, 399)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 7
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(472, 247)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(37, 13)
+ Me.lblIMDB.TabIndex = 20
+ Me.lblIMDB.Text = "TMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(410, 130)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(33, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(410, 156)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(410, 183)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(410, 247)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(56, 13)
+ Me.lblIMDBHeader.TabIndex = 19
+ Me.lblIMDBHeader.Text = "TMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(291, 279)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(262, 70)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 3
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(4, 71)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 2
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(364, 183)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 18
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(100, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(308, 155)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'dlgTMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 454)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtTMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgTMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+
+End Class
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.resx b/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.resx
new file mode 100644
index 0000000..017a5ad
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK9gAA
+ CvYBwq9wAwAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.vb b/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.vb
new file mode 100644
index 0000000..d05fd0b
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTMDBSearchResults.vb
@@ -0,0 +1,462 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class dlgTMDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private TMDBg As TMDBg.Scraper
+ Private sHTTP As New HTTP
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+ Private MySettings As EmberTMDBScraperModule.sMySettings
+ 'Private TMDBConf As V3.TmdbConfiguration
+ 'Private TMDBApi As V3.Tmdb
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(_MySettings As EmberTMDBScraperModule.sMySettings, _TMDBg As TMDBg.Scraper)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+ 'TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ 'TMDBConf = TMDBApi.GetConfiguration()
+ MySettings = _MySettings
+ TMDBg = _TMDBg
+ End Sub
+
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ 'TMDBg.IMDBURL = TMDBId
+ TMDBg.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As TMDBg.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching TMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ TMDBg.CancelAsync()
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ TMDBg.GetSearchMovieInfoAsync(Me.txtTMDBID.Text, Master.tmpMovie, Master.DefaultOptions)
+
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ TMDBg.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ 'TMDBg.IMDBURL = IMDBURL
+ AddHandler TMDBg.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler TMDBg.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Master.tmpMovie.IMDBID = Me.txtTMDBID.Text
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.TMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.TMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.TMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As TMDBg.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+ 'Dim TnP As New TreeNode
+ 'Dim selNode As New TreeNode
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) AndAlso M.Matches.Count > 0 Then
+
+ 'M.Matches.Sort()
+ For Each Movie As MediaContainers.Movie In M.Matches
+ 'TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Me.tvResults.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.TMDBID})
+ Next
+ 'TnP.Expand()
+ 'Me.tvResults.Nodes.Add(TnP)
+ 'selNode = Me.tvResults.Nodes(0)
+ 'selNode = TnP.FirstNode
+ 'selNode = Me.tvResults.Nodes(0)
+ Me.tvResults.SelectedNode = Me.tvResults.Nodes(0)
+
+ Me._prevnode = -2
+
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual TMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(116, "TMDB ID:")
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching TMDB...")
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..1865dbc
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,279 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(290, 339)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(74, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(369, 339)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(411, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(424, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(112, 82)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(120, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(411, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(376, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(365, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(72, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(392, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(153, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 339)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(106, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(207, 339)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(77, 23)
+ Me.btnSetNfo.TabIndex = 4
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(444, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(450, 366)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.resx b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..2be3cac
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB80lEQVQ4T6XTTWsTQRgH8EGr9GDFm19AseDBgzc9eba0FJqvIOTiRase
+ RAIKtRo9LbbxpYmtggXR2KRFqGLfDio9tDGbdUMrbvc1+57sioiVv7NDLE3MXnTgz8DsPr95dpglAMj/
+ pKVY17QuyzLP2raVoBlybHvIc92EUKmcidukBTBrtasUAC0GLWYJggaWl5dw9056uBPSAtDi8aiYAY4N
+ 13HwLQyxuLiAW6OjyIyPXW5H2gFuZ/cm4HseNFVFsTCD2WIRHz+8P7cb6Qjs7iDqIkLCMEC97kedZWMB
+ egasA8s24TsBQm8bob8N3w3YZzUzFgsYus6ZZo0WhPisvMackGQR5Dm2xnDLjAdUVeF0XUPD/Yl31eu4
+ sURY3orXaDe/EOGGoccDsrzFKYoMz/yON0IaqYVDLPPCTdTtH6D3BKqixANfNjc5SZJga3XMlm5jeP4w
+ S6E0AsdoQJFlbElSPMCXy/ekDQUTK1eQzB/B+cJxlmT+KB6sXID61UBVFDOxh7i+tjbCf+KxXl7FpZeD
+ SOR6WS6+6EepsgpREFHh+XRHYC8hB/r7+k7kshOZ/PSrZ7mn2cnTqd7qqdSxjUdPHk7NPC9OT00+vj84
+ MHByDyEH/yA7F4kC+wgh3dGDaDTnHkK6etrWuum7+/8C/vWX/g1N2vpUAmZdeAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQfZBBoSIQHX+6QX
+ AAACOElEQVQ4T7WSTWvaQRCHozlYNQSiVXwBNSSKKAhqKogo2hx8OeUQpPVY9OBFId+g0IufoQnegslF
+ EEG8qAgeiij4hohoDjkphJAIGg/udGepfyLV3rowLDu788zs/GZv73+st7e35NPT069KpfJaLpdnj4+P
+ nel0+p3mOvhnvoeHh0+j0WieTCbB6XSSYDAIoVAIXC4Xicfj0Ov1IJ/Pf9kKweBisQharZbY7XbweDxg
+ sVjg7OwM8Ix2enpK7u/v4e7u7ttfEJp5QZ3k8PAQ1Go1hMNhyGazIJFIQKVSMd/R0RHgm2azCQqFQsNB
+ FovFFZZLHZz5fD7AlU6nmY/H43F3NpsNWq3WLQeYz+d1JL8H4BfW6+bmZgOO77rd7isHqNfrM3Ty+XzY
+ 399n5vV6WfxqtWL79fX1RiWlUgnPHxlkDRAKhSASiUAsFoPf72eBhBAGeXl5AZlMBgKBgIGoxLirGOD5
+ +blL/0iwSVKpFORyOVxcXHAV0HtUhzUUm4yATqezpPsHBphMJj8uLy9BqVSCRqOB4+NjiEQiDICZUU6d
+ TseUQLjb7YZqtVp6L+UBlREBxGg0soBoNArL5RJQDavVCmazGecAKyTtdhtOTk68G7OQy+W+1mo1MJlM
+ hE4hA2BV5+fnLKPD4QC9Xk8KhQKkUqmfW6cxk8nE6ERCIpFgkxgIBFgzERCLxWAwGOwOXhPpPzWNRuN2
+ PB7P+v0+oA2HwyWVrWIwGD5vzbzDyaN++R+phLsCfwMUR2eb8uMbUAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.vb b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..d63ea34
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailer.vb
@@ -0,0 +1,465 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+Imports EmberScraperModule.EmberTMDBScraperModule
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = TMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ cTrailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..22f1374
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(84, 117)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(154, 117)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(17, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(78, 69)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(53, 2)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(114, 100)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(10, 29)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.pnlStatus)
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(2, 4)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(220, 111)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 143)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.resx b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.vb b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.Designer.vb b/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f610c2c
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.Designer.vb
@@ -0,0 +1,545 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.chkFallBackEng = New System.Windows.Forms.CheckBox()
+ Me.cbTMDBPrefLanguage = New System.Windows.Forms.ComboBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtTMDBApiKey = New System.Windows.Forms.TextBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtFANARTTVApiKey = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.pbTMDB = New System.Windows.Forms.PictureBox()
+ Me.pbFANARTTV = New System.Windows.Forms.PictureBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.pbTMDB)
+ Me.GroupBox30.Controls.Add(Me.chkFallBackEng)
+ Me.GroupBox30.Controls.Add(Me.cbTMDBPrefLanguage)
+ Me.GroupBox30.Controls.Add(Me.Label3)
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtTMDBApiKey)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(309, 123)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "TMDB"
+ '
+ 'chkFallBackEng
+ '
+ Me.chkFallBackEng.AutoSize = True
+ Me.chkFallBackEng.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFallBackEng.Location = New System.Drawing.Point(8, 100)
+ Me.chkFallBackEng.Name = "chkFallBackEng"
+ Me.chkFallBackEng.Size = New System.Drawing.Size(129, 17)
+ Me.chkFallBackEng.TabIndex = 4
+ Me.chkFallBackEng.Text = "Fall back on english"
+ Me.chkFallBackEng.UseVisualStyleBackColor = True
+ '
+ 'cbTMDBPrefLanguage
+ '
+ Me.cbTMDBPrefLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTMDBPrefLanguage.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTMDBPrefLanguage.FormattingEnabled = True
+ Me.cbTMDBPrefLanguage.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTMDBPrefLanguage.Location = New System.Drawing.Point(123, 65)
+ Me.cbTMDBPrefLanguage.Name = "cbTMDBPrefLanguage"
+ Me.cbTMDBPrefLanguage.Size = New System.Drawing.Size(45, 21)
+ Me.cbTMDBPrefLanguage.TabIndex = 3
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label3.Location = New System.Drawing.Point(6, 68)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(111, 13)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "Preferred Language:"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(79, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "TMDB API Key:"
+ '
+ 'txtTMDBApiKey
+ '
+ Me.txtTMDBApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtTMDBApiKey.Name = "txtTMDBApiKey"
+ Me.txtTMDBApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtTMDBApiKey.TabIndex = 1
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pbFANARTTV)
+ Me.GroupBox1.Controls.Add(Me.Label5)
+ Me.GroupBox1.Controls.Add(Me.txtFANARTTVApiKey)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(8, 169)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(309, 71)
+ Me.GroupBox1.TabIndex = 75
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Fanart.tv"
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label5.Location = New System.Drawing.Point(6, 18)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(94, 13)
+ Me.Label5.TabIndex = 0
+ Me.Label5.Text = "Fanart.tv API Key:"
+ '
+ 'txtFANARTTVApiKey
+ '
+ Me.txtFANARTTVApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtFANARTTVApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtFANARTTVApiKey.Name = "txtFANARTTVApiKey"
+ Me.txtFANARTTVApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtFANARTTVApiKey.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(323, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(283, 150)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(225, 17)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(52, 17)
+ Me.chkCrew.TabIndex = 19
+ Me.chkCrew.Text = "Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(131, 123)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 89)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 72)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 89)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 123)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(131, 106)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 106)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 72)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'pbTMDB
+ '
+ Me.pbTMDB.Image = CType(resources.GetObject("pbTMDB.Image"), System.Drawing.Image)
+ Me.pbTMDB.Location = New System.Drawing.Point(287, 34)
+ Me.pbTMDB.Name = "pbTMDB"
+ Me.pbTMDB.Size = New System.Drawing.Size(16, 16)
+ Me.pbTMDB.TabIndex = 5
+ Me.pbTMDB.TabStop = False
+ '
+ 'pbFANARTTV
+ '
+ Me.pbFANARTTV.Image = CType(resources.GetObject("pbFANARTTV.Image"), System.Drawing.Image)
+ Me.pbFANARTTV.Location = New System.Drawing.Point(287, 34)
+ Me.pbFANARTTV.Name = "pbFANARTTV"
+ Me.pbFANARTTV.Size = New System.Drawing.Size(16, 16)
+ Me.pbFANARTTV.TabIndex = 6
+ Me.pbFANARTTV.TabStop = False
+ '
+ 'frmTMDBInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFallBackEng As System.Windows.Forms.CheckBox
+ Friend WithEvents cbTMDBPrefLanguage As System.Windows.Forms.ComboBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label5 As System.Windows.Forms.Label
+ Friend WithEvents txtFANARTTVApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents pbTMDB As System.Windows.Forms.PictureBox
+ Friend WithEvents pbFANARTTV As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.resx b/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.resx
new file mode 100644
index 0000000..b1bac92
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.resx
@@ -0,0 +1,223 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="pbFANARTTV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAABypJREFUWEftlntQlccZxrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj
+ 24wlxabt1PSShFhJEFEuKhxUBAFNRSFq7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7
+ z77v7rufAqBGkhGdXBb+fwH/GxG41NenPr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7Pk
+ ZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2ms
+ e+DyZ5+p/itXRMTopUWL6+gIedmZSIiJQk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGek
+ o7AgH+vYlzU/DakpydomL+ufPnKzMiA+VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB
+ +vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xqQhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQX
+ pv/PSojDRtP6zN+/uU399je/fihg9szpKnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2
+ lL1eipSkROyrr4eloQEMNcpKS3H8zx/gxSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpx
+ eryaHhtdIquODA3WK1yQnYVshlrCWrAwD4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOW
+ yxSmpszWPiNCggRzREigEqwCZPKkGQkSAZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4Cbt
+ btwY0G3hNvvb244gKiwEYUFGc0RwkBKGRCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D5
+ 57jY26tTEGL0N4cHG5kC40MB7FCShpjIcFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr
+ 1IcfgilGcICfOSwoQAnWCLBDzYiLUdHhoSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx
+ 44iPjkSQv6851GhQglUAcy8bUDFHJtksrYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbE
+ RYYj0M/HzCgowSogPipSJURHqciQYFMEN+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD
+ 6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+ytr8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no
+ 660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJoYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJ
+ VgFUJvlXnNzETYL3KnbA0mjBflbE4SBCN71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfm
+ P0gFGXxNAb7eKGfprKutxZ7du4eFiJT8L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUH
+ GSUvJoYG28vL/ysBMulG0wa8qAU0DBEti6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/
+ pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrurq1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5
+ LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wGjVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F
+ 5yOngBuQTpSv57QSUVmzu5qVbRsm2dmgZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQ
+ eK3zwglAU2OjLkwO45/FNhapvXW1oH84T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN
+ +toa/TExLzmJV22mbldWVIgjXL9+Xd90srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x
+ 1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4e
+ L9np2kbGOTP00WHBvIiieBH5N0xzdR0tc8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5
+ usvJYaLQPdH22W7HiXbdzo6TujlG4zx5UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7B
+ An7Alw5U50wms+3Cge7Ek3gTX+JH/ImBBAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm
+ 3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/xKb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVO
+ RK5CYII=
+</value>
+ </data>
+ <data name="pbTMDB.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.vb b/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.vb
new file mode 100644
index 0000000..d17768a
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/frmTMDBInfoSettingsHolder.vb
@@ -0,0 +1,218 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports System.Diagnostics
+
+Public Class frmTMDBInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ Public Event SetupNeedsRestart()
+
+#End Region 'Events
+
+#Region "Fields"
+
+ Private Api1 As String
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFallBackEng_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFallBackEng.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTMDBPrefLanguage_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbTMDBPrefLanguage.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtFANARTTVApiKey_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtFANARTTVApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Enter
+ Api1 = txtTMDBApiKey.Text
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextValidated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Validated
+ If Not (Api1 = txtTMDBApiKey.Text) Then
+ RaiseEvent SetupNeedsRestart()
+ End If
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label18.Text = Master.eLang.GetString(854, "TMDB API Key:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(856, "Cast and Crew", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(859, "MPAA & Certification", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ 'Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkFallBackEng.Text = Master.eLang.GetString(114, "Fall back on english")
+ Me.Label3.Text = Master.eLang.GetString(115, "Preferred Language:")
+
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+
+#End Region 'Methods
+
+ Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles pbTMDB.Click
+ If Master.isWindows Then
+ Process.Start("http://docs.themoviedb.apiary.io/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://docs.themoviedb.apiary.io/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+
+ Private Sub pbFANARTTV_Click(sender As System.Object, e As System.EventArgs) Handles pbFANARTTV.Click
+ If Master.isWindows Then
+ Process.Start("http://fanart.tv/get-an-api-key/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://fanart.tv/get-an-api-key/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.Designer.vb b/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..68e3c03
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.Designer.vb
@@ -0,0 +1,525 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.chkUseFANARTTV = New System.Windows.Forms.CheckBox()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMDBp = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(505, 154)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.chkUseFANARTTV)
+ Me.GroupBox6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox6.Location = New System.Drawing.Point(331, 21)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox6.TabIndex = 96
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Get Fanart From:"
+ '
+ 'chkUseFANARTTV
+ '
+ Me.chkUseFANARTTV.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseFANARTTV.Location = New System.Drawing.Point(6, 21)
+ Me.chkUseFANARTTV.Name = "chkUseFANARTTV"
+ Me.chkUseFANARTTV.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseFANARTTV.TabIndex = 2
+ Me.chkUseFANARTTV.Text = "fanart.tv"
+ Me.chkUseFANARTTV.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMDBp)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 19)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 78)
+ Me.GroupBox9.TabIndex = 5
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Poster From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMDBp
+ '
+ Me.chkUseIMDBp.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMDBp.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseIMDBp.Name = "chkUseIMDBp"
+ Me.chkUseIMDBp.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseIMDBp.TabIndex = 0
+ Me.chkUseIMDBp.Text = "IMDB.com"
+ Me.chkUseIMDBp.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(331, 94)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(12, 21)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(131, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 203)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(464, 126)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.GroupBox5)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(291, 104)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 5
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(123, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 83)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmTMDBMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMDBp As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseFANARTTV As System.Windows.Forms.CheckBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.resx b/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.resx
new file mode 100644
index 0000000..3c46229
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.resx
@@ -0,0 +1,238 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABypJREFUWEftlntQlccZ
+ xrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj24wlxabt1PSShFhJEFEuKhxUBAFNRSFq
+ 7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7z77v7rufAqBGkhGdXBb+fwH/GxG41Nen
+ Pr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7PkZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2
+ vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2mse+DyZ5+p/itXRMTopUWL6+gIedmZSIiJ
+ Qk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGeko7AgH+vYlzU/DakpydomL+ufPnKzMiA+
+ VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB+vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xq
+ QhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQXpv/PSojDRtP6zN+/uU399je/fihg9szp
+ KnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2lL1eipSkROyrr4eloQEMNcpKS3H8zx/g
+ xSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpxeryaHhtdIquODA3WK1yQnYVshlrCWrAw
+ D4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOWyxSmpszWPiNCggRzREigEqwCZPKkGQkS
+ AZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4CbtbtwY0G3hNvvb244gKiwEYUFGc0RwkBKG
+ RCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D557jY26tTEGL0N4cHG5kC40MB7FCShpjI
+ cFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr1IcfgilGcICfOSwoQAnWCLBDzYiLUdHh
+ oSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx44iPjkSQv6851GhQglUAcy8bUDFHJtks
+ rYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbERYYj0M/HzCgowSogPipSJURHqciQYFME
+ N+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+yt
+ r8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJ
+ oYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJVgFUJvlXnNzETYL3KnbA0mjBflbE4SBC
+ N71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfmP0gFGXxNAb7eKGfprKutxZ7du4eFiJT8
+ L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUHGSUvJoYG28vL/ysBMulG0wa8qAU0DBEt
+ i6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrur
+ q1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wG
+ jVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F5yOngBuQTpSv57QSUVmzu5qVbRsm2dmg
+ ZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQeK3zwglAU2OjLkwO45/FNhapvXW1oH84
+ T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN+toa/TExLzmJV22mbldWVIgjXL9+Xd90
+ srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI
+ 1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4eL9np2kbGOTP00WHBvIiieBH5N0xzdR0t
+ c8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5usvJYaLQPdH22W7HiXbdzo6TujlG4zx5
+ UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7BAn7Alw5U50wms+3Cge7Ek3gTX+JH/ImB
+ BAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/x
+ Kb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.vb b/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.vb
new file mode 100644
index 0000000..6ccca98
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/frmTMDBMediaSettingsHolder.vb
@@ -0,0 +1,165 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTMDBMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseFANARTTV_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkUseFANARTTV.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMDBp_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkUseIMDBp.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMDBf_CheckedChanged(sender As System.Object, e As System.EventArgs)
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/packages.config b/Addons/scraper.IMPA.Poster/packages.config
new file mode 100644
index 0000000..9d72b1b
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="RestSharp" version="104.1" targetFramework="net35" />
+ <package id="SharpZipLib" version="0.86.0" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/scraper.IMPA.Poster.vbproj b/Addons/scraper.IMPA.Poster/scraper.IMPA.Poster.vbproj
new file mode 100644
index 0000000..63824a6
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/scraper.IMPA.Poster.vbproj
@@ -0,0 +1,287 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{D9878E03-87D7-429E-AA0C-A7116A31FA7F}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.IMPA.Poster</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ <SccProjectName>
+ </SccProjectName>
+ <SccLocalPath>
+ </SccLocalPath>
+ <SccAuxPath>
+ </SccAuxPath>
+ <SccProvider>
+ </SccProvider>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="RestSharp">
+ <HintPath>..\..\packages\RestSharp.104.1\lib\net35\RestSharp.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeTMDBg.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeFANARTTV.vb" />
+ <Compile Include="Scraper\dlgTMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTMDBMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieTMDBModule.vb" />
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="Scraper\dlgTMDBSearchResults.resx">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBMediaSettingsHolder.resx">
+ <DependentUpon>frmTMDBMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBInfoSettingsHolder.resx">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ <ProjectReference Include="..\..\FanartTVAPI\FanartTVAPI.csproj">
+ <Project>{70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}</Project>
+ <Name>FanartTVAPI</Name>
+ </ProjectReference>
+ <ProjectReference Include="..\..\WatTmdb\WatTmdb.csproj">
+ <Project>{EFC11645-FAB4-4C30-A498-29F5ECDF77E8}</Project>
+ <Name>WatTmdb</Name>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <ItemGroup />
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.IMPA.Poster/scraperMovieTMDBModule.vb b/Addons/scraper.IMPA.Poster/scraperMovieTMDBModule.vb
new file mode 100644
index 0000000..7ac1344
--- /dev/null
+++ b/Addons/scraper.IMPA.Poster/scraperMovieTMDBModule.vb
@@ -0,0 +1,761 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+Imports EmberScraperModule.TMDBg
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberTMDBScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ Private TMDBId As String
+ 'Private IMDBid As String
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private _MySettings As New sMySettings
+ Private _TMDBg As TMDBg.Scraper
+ Private _Name As String = "Ember TMDB Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTMDBInfoSettingsHolder
+ Private _setupPost As frmTMDBMediaSettingsHolder
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ Return True
+ Case Enums.PostScraperCapabilities.Poster
+ Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If _MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.TMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ '' perche' lo crea?
+
+ ''Dim TMDBg As New TMDBg.Scraper
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ studio = _TMDBg.GetMovieStudios(DBMovie.Movie.ID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupNeedsRestart()
+ RaiseEvent SetupNeedsRestart()
+ End Sub
+
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ 'Must be after Load settings to retrieve the correct API key
+ _TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Info")
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ End If
+ End If
+ _TMDBConf = _TMDBApi.GetConfiguration()
+ _TMDBApiE = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey)
+ _TMDBConfE = _TMDBApiE.GetConfiguration()
+ _TMDBg = New TMDBg.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmTMDBMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = _MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = _MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = _MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = _MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseIMDBp.Checked = _MySettings.UseIMDB
+ _setupPost.chkUseIMPA.Checked = _MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = _MySettings.UseMPDB
+ _setupPost.chkUseFANARTTV.Checked = _MySettings.UseFANARTTV
+
+ ' ad size from TMDB
+ '_setupPost.cbManualETSize.Items.Clear()
+ 'If Not IsNothing(_TMDBg.TMDBConf.images) Then
+ ' For Each aSi In _TMDBg.TMDBConf.images.poster_sizes
+ ' _setupPost.cbManualETSize.Items.Add(aSi)
+ ' Next
+ '
+ 'End If
+ _setupPost.cbManualETSize.Text = _MySettings.ManualETSize
+
+ _setupPost.txtTimeout.Text = _MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = _MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ Spanel.Prefix = "TMDBMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return Spanel
+ End Function
+
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTMDBInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkCast.Checked = ConfigOptions.bFullCast
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkCrew.Checked = ConfigOptions.bFullCrew
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+
+ '_setup.chkCertification.Checked = ConfigOptions.bCert
+
+ If String.IsNullOrEmpty(_MySettings.TMDBAPIKey) Then
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ _setup.txtTMDBApiKey.Text = _MySettings.TMDBAPIKey
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.orderChanged()
+ If String.IsNullOrEmpty(_MySettings.FANARTTVApiKey) Then
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _setup.txtFANARTTVApiKey.Text = _MySettings.FANARTTVApiKey
+
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ SPanel.Prefix = "TMDBMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return SPanel
+ End Function
+
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ _MySettings.TMDBAPIKey = AdvancedSettings.GetSetting("TMDBAPIKey", "Get your API Key from http://www.themoviedb.org")
+ _MySettings.FANARTTVApiKey = AdvancedSettings.GetSetting("FANARTTVApiKey", "Get your API Key from http://fanart.tv")
+ _MySettings.FallBackEng = AdvancedSettings.GetBooleanSetting("FallBackEn", False)
+ _MySettings.TMDBLanguage = AdvancedSettings.GetSetting("TMDBLanguage", "en")
+ _MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ _MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ _MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ _MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ _MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ _MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ _MySettings.UseIMDB = AdvancedSettings.GetBooleanSetting("UseIMDB", False)
+ _MySettings.UseFANARTTV = AdvancedSettings.GetBooleanSetting("UseFANARTTV", False)
+ _MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ _MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ _MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As Trailers
+ Dim aScrapeImages As ScrapeImages
+
+ LoadSettings()
+ If String.IsNullOrEmpty(DBMovie.Movie.TMDBID) Then
+ _TMDBg.GetMovieID(DBMovie)
+ End If
+ Trailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Dim doSave As Boolean = False
+
+ aScrapeImages = New ScrapeImages(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ If Master.GlobalScrapeMod.Poster Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If aScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.ID, DBMovie.Movie.TMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApi, _MySettings)
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If aScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, DBMovie.Movie.TMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApi, _MySettings)
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso _MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.TMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ aScrapeImages.GetPreferredFAasET(DBMovie.Movie.TMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", _MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", _MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", _MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", _MySettings.UseTMDBTrailerXBMC)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", _MySettings.UseIMDBTrailer)
+
+ AdvancedSettings.SetSetting("ManualETSize", _MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", _MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+
+ AdvancedSettings.SetSetting("TMDBAPIKey", _MySettings.TMDBAPIKey)
+ AdvancedSettings.SetSetting("FANARTTVApiKey", _MySettings.FANARTTVApiKey)
+ AdvancedSettings.SetBooleanSetting("FallBackEn", _MySettings.FallBackEng)
+ AdvancedSettings.SetSetting("TMDBLanguage", _MySettings.TMDBLanguage)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", _MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", _MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDB", _MySettings.UseIMDB)
+ AdvancedSettings.SetBooleanSetting("UseFANARTTV", _MySettings.UseFANARTTV)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ _MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ _MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ _MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ _MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ _MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ _MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ _MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ _MySettings.UseIMDB = _setupPost.chkUseIMDBp.Checked
+ _MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ _MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ _MySettings.UseFANARTTV = _setupPost.chkUseFANARTTV.Checked
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtTMDBApiKey.Text) Then
+ _MySettings.TMDBAPIKey = _setup.txtTMDBApiKey.Text
+ Else
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ If Not String.IsNullOrEmpty(_setup.txtFANARTTVApiKey.Text) Then
+ _MySettings.FANARTTVApiKey = _setup.txtFANARTTVApiKey.Text
+ Else
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = False
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkCrew.Checked
+ ConfigOptions.bWriters = _setup.chkCrew.Checked
+ ConfigOptions.bProducers = _setup.chkCrew.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkCrew.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = False
+ ConfigOptions.bFullCrew = _setup.chkCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkCast.Checked
+ ConfigOptions.bCert = ConfigOptions.bMPAA
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ ''TMDBg.UseOFDBTitle = MySettings.UseOFDBTitle
+ ''TMDBg.UseOFDBOutline = MySettings.UseOFDBOutline
+ ''TMDBg.UseOFDBPlot = MySettings.UseOFDBPlot
+ ''TMDBg.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = _TMDBg.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgTMDBSearchResults(_MySettings, Me._TMDBg)
+ '' dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If String.IsNullOrEmpty(mMovie.Movie.TMDBID) Then
+ _TMDBg.GetMovieID(mMovie)
+ End If
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ If preload Then
+ dFImgSelect = New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ '' dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure sMySettings
+
+#Region "Fields"
+ Dim DownloadTrailers As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim UseTMDBTrailerPref As String
+ Dim TMDBAPIKey As String
+ Dim FANARTTVApiKey As String
+ Dim TMDBLanguage As String
+ Dim FallBackEng As Boolean
+ Dim UseIMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseFANARTTV As Boolean
+ Dim UseIMDBTrailer As Boolean
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
new file mode 100644
index 0000000..cb66cd5
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">tmdb1</string>
+ <string id="2">tmdb2</string>
+ <string id="3">tmdb3</string>
+ <string id="4">tmdb4</string>
+ <string id="5">tmdb5</string>
+ <string id="6">tmdb6</string>
+ <string id="7">tmdb7</string>
+ <string id="8">tmdb8</string>
+ <string id="9">tmdb9</string>
+ <string id="10">tmdb10</string>
+ <string id="11">tmdb11</string>
+ <string id="12">tmdb12</string>
+ <string id="13">tmdb13</string>
+ <string id="14">tmdb14</string>
+ <string id="15">tmdb15</string>
+ <string id="16">tmdb16</string>
+ <string id="17">tmdb17</string>
+ <string id="18">tmdb18</string>
+ <string id="19">tmdb19</string>
+ <string id="20">tmdb20</string>
+ <string id="21">tmdb21</string>
+ <string id="22">tmdb22</string>
+ <string id="23">tmdb23</string>
+ <string id="24">tmdb24</string>
+ <string id="25">tmdb25</string>
+ <string id="26">tmdb26</string>
+ <string id="27">tmdb27</string>
+ <string id="28">tmdb28</string>
+ <string id="29">tmdb29</string>
+ <string id="30">tmdb30</string>
+ <string id="31">tmdb31</string>
+ <string id="32">tmdb32</string>
+ <string id="33">tmdb33</string>
+ <string id="34">tmdb34</string>
+ <string id="35">tmdb35</string>
+ <string id="36">tmdb36</string>
+ <string id="37">tmdb37</string>
+ <string id="38">tmdb38</string>
+ <string id="39">tmdb39</string>
+ <string id="40">tmdb40</string>
+ <string id="41">tmdb41</string>
+ <string id="42">tmdb42</string>
+ <string id="43">tmdb43</string>
+ <string id="44">tmdb44</string>
+ <string id="45">tmdb45</string>
+ <string id="46">tmdb46</string>
+ <string id="47">tmdb47</string>
+ <string id="48">tmdb48</string>
+ <string id="49">tmdb49</string>
+ <string id="50">tmdb50</string>
+ <string id="51">tmdb51</string>
+ <string id="52">tmdb52</string>
+ <string id="53">tmdb53</string>
+ <string id="54">tmdb54</string>
+ <string id="55">tmdb55</string>
+ <string id="56">tmdb56</string>
+ <string id="57">tmdb57</string>
+ <string id="58">tmdb58</string>
+ <string id="59">tmdb59</string>
+ <string id="60">tmdb60</string>
+ <string id="61">tmdb61</string>
+ <string id="62">tmdb62</string>
+ <string id="63">tmdb63</string>
+ <string id="64">tmdb64</string>
+ <string id="65">tmdb65</string>
+ <string id="66">tmdb66</string>
+ <string id="67">tmdb67</string>
+ <string id="68">tmdb68</string>
+ <string id="69">tmdb69</string>
+ <string id="70">tmdb70</string>
+ <string id="71">tmdb71</string>
+ <string id="72">tmdb72</string>
+ <string id="73">tmdb73</string>
+ <string id="74">tmdb74</string>
+ <string id="75">tmdb75</string>
+ <string id="76">tmdb76</string>
+ <string id="77">tmdb77</string>
+ <string id="78">tmdb78</string>
+ <string id="79">tmdb79</string>
+ <string id="80">tmdb80</string>
+ <string id="81">tmdb81</string>
+ <string id="82">tmdb82</string>
+ <string id="83">tmdb83</string>
+ <string id="84">tmdb84</string>
+ <string id="85">tmdb85</string>
+ <string id="86">tmdb86</string>
+ <string id="87">tmdb87</string>
+ <string id="88">tmdb88</string>
+ <string id="89">tmdb89</string>
+ <string id="90">tmdb90</string>
+ <string id="91">tmdb91</string>
+ <string id="92">tmdb92</string>
+ <string id="93">tmdb93</string>
+ <string id="94">tmdb94</string>
+ <string id="95">tmdb95</string>
+ <string id="96">tmdb96</string>
+ <string id="97">tmdb97</string>
+ <string id="98">tmdb98</string>
+ <string id="99">tmdb99</string>
+ <string id="100">tmdb100</string>
+ <string id="101">tmdb101</string>
+ <string id="102">tmdb102</string>
+ <string id="103">tmdb103</string>
+ <string id="104">tmdb104</string>
+ <string id="105">tmdb105</string>
+ <string id="106">tmdb106</string>
+ <string id="107">tmdb107</string>
+ <string id="108">tmdb108</string>
+ <string id="109">tmdb109</string>
+ <string id="110">tmdb110</string>
+ <string id="111">tmdb111</string>
+ <string id="112">tmdb112</string>
+ <string id="113">tmdb113</string>
+ <string id="114">tmdb114</string>
+ <string id="115">tmdb115</string>
+ <string id="116">tmdb116</string>
+ <string id="117">tmdb117</string>
+ <string id="118">tmdb118</string>
+ <string id="119">tmdb119</string>
+ <string id="120">tmdb120</string>
+ <string id="121">tmdb121</string>
+ <string id="122">tmdb122</string>
+ <string id="123">tmdb123</string>
+ <string id="124">tmdb124</string>
+ <string id="125">tmdb125</string>
+ <string id="126">tmdb126</string>
+ <string id="127">tmdb127</string>
+ <string id="128">tmdb128</string>
+ <string id="129">tmdb129</string>
+ <string id="130">tmdb130</string>
+ <string id="131">tmdb131</string>
+ <string id="132">tmdb132</string>
+ <string id="133">tmdb133</string>
+ <string id="134">tmdb134</string>
+ <string id="135">tmdb135</string>
+ <string id="136">tmdb136</string>
+ <string id="137">tmdb137</string>
+ <string id="138">tmdb138</string>
+ <string id="139">tmdb139</string>
+ <string id="140">tmdb140</string>
+ <string id="141">tmdb141</string>
+ <string id="142">tmdb142</string>
+ <string id="143">tmdb143</string>
+ <string id="144">tmdb144</string>
+ <string id="145">tmdb145</string>
+ <string id="146">tmdb146</string>
+ <string id="147">tmdb147</string>
+ <string id="148">tmdb148</string>
+ <string id="149">tmdb149</string>
+ <string id="150">tmdb150</string>
+ <string id="151">tmdb151</string>
+ <string id="152">tmdb152</string>
+ <string id="153">tmdb153</string>
+ <string id="154">tmdb154</string>
+ <string id="155">tmdb155</string>
+ <string id="156">tmdb156</string>
+ <string id="157">tmdb157</string>
+ <string id="158">tmdb158</string>
+ <string id="159">tmdb159</string>
+ <string id="160">tmdb160</string>
+ <string id="161">tmdb161</string>
+ <string id="162">tmdb162</string>
+ <string id="163">tmdb163</string>
+ <string id="164">tmdb164</string>
+ <string id="165">tmdb165</string>
+ <string id="166">tmdb166</string>
+ <string id="167">tmdb167</string>
+ <string id="168">tmdb168</string>
+ <string id="169">tmdb169</string>
+ <string id="170">tmdb170</string>
+ <string id="171">tmdb171</string>
+ <string id="172">tmdb172</string>
+ <string id="173">tmdb173</string>
+ <string id="174">tmdb174</string>
+ <string id="175">tmdb175</string>
+ <string id="176">tmdb176</string>
+ <string id="177">tmdb177</string>
+ <string id="178">tmdb178</string>
+ <string id="179">tmdb179</string>
+ <string id="180">tmdb180</string>
+ <string id="181">tmdb181</string>
+ <string id="182">tmdb182</string>
+ <string id="183">tmdb183</string>
+ <string id="184">tmdb184</string>
+ <string id="185">tmdb185</string>
+ <string id="186">tmdb186</string>
+ <string id="187">tmdb187</string>
+ <string id="188">tmdb188</string>
+ <string id="189">tmdb189</string>
+ <string id="190">tmdb190</string>
+ <string id="191">tmdb191</string>
+ <string id="192">tmdb192</string>
+ <string id="193">tmdb193</string>
+ <string id="194">tmdb194</string>
+ <string id="195">tmdb195</string>
+ <string id="196">tmdb196</string>
+ <string id="197">tmdb197</string>
+ <string id="198">tmdb198</string>
+ <string id="199">tmdb199</string>
+ <string id="200">tmdb200</string>
+ <string id="201">tmdb201</string>
+ <string id="202">tmdb202</string>
+ <string id="203">tmdb203</string>
+ <string id="204">tmdb204</string>
+ <string id="205">tmdb205</string>
+ <string id="206">tmdb206</string>
+ <string id="207">tmdb207</string>
+ <string id="208">tmdb208</string>
+ <string id="209">tmdb209</string>
+ <string id="210">tmdb210</string>
+ <string id="211">tmdb211</string>
+ <string id="212">tmdb212</string>
+ <string id="213">tmdb213</string>
+ <string id="214">tmdb214</string>
+ <string id="215">tmdb215</string>
+ <string id="216">tmdb216</string>
+ <string id="217">tmdb217</string>
+ <string id="218">tmdb218</string>
+ <string id="219">tmdb219</string>
+ <string id="220">tmdb220</string>
+ <string id="221">tmdb221</string>
+ <string id="222">tmdb222</string>
+ <string id="223">tmdb223</string>
+ <string id="224">tmdb224</string>
+ <string id="225">tmdb225</string>
+ <string id="226">tmdb226</string>
+ <string id="227">tmdb227</string>
+ <string id="228">tmdb228</string>
+ <string id="229">tmdb229</string>
+ <string id="230">tmdb230</string>
+ <string id="231">tmdb231</string>
+ <string id="232">tmdb232</string>
+ <string id="233">tmdb233</string>
+ <string id="234">tmdb234</string>
+ <string id="235">tmdb235</string>
+ <string id="236">tmdb236</string>
+ <string id="237">tmdb237</string>
+ <string id="238">tmdb238</string>
+ <string id="239">tmdb239</string>
+ <string id="240">tmdb240</string>
+ <string id="241">tmdb241</string>
+ <string id="242">tmdb242</string>
+ <string id="243">tmdb243</string>
+ <string id="244">tmdb244</string>
+ <string id="245">tmdb245</string>
+ <string id="246">tmdb246</string>
+ <string id="247">tmdb247</string>
+ <string id="248">tmdb248</string>
+ <string id="249">tmdb249</string>
+ <string id="250">tmdb250</string>
+ <string id="251">tmdb251</string>
+ <string id="252">tmdb252</string>
+ <string id="253">tmdb253</string>
+ <string id="254">tmdb254</string>
+ <string id="255">tmdb255</string>
+ <string id="256">tmdb256</string>
+ <string id="257">tmdb257</string>
+ <string id="258">tmdb258</string>
+ <string id="259">tmdb259</string>
+ <string id="260">tmdb260</string>
+ <string id="261">tmdb261</string>
+ <string id="262">tmdb262</string>
+ <string id="263">tmdb263</string>
+ <string id="264">tmdb264</string>
+ <string id="265">tmdb265</string>
+ <string id="266">tmdb266</string>
+ <string id="267">tmdb267</string>
+ <string id="268">tmdb268</string>
+ <string id="269">tmdb269</string>
+ <string id="270">tmdb270</string>
+ <string id="271">tmdb271</string>
+ <string id="272">tmdb272</string>
+ <string id="273">tmdb273</string>
+ <string id="274">tmdb274</string>
+ <string id="275">tmdb275</string>
+ <string id="276">tmdb276</string>
+ <string id="277">tmdb277</string>
+ <string id="278">tmdb278</string>
+ <string id="279">tmdb279</string>
+ <string id="280">tmdb280</string>
+ <string id="281">tmdb281</string>
+ <string id="282">tmdb282</string>
+ <string id="283">tmdb283</string>
+ <string id="284">tmdb284</string>
+ <string id="285">tmdb285</string>
+ <string id="286">tmdb286</string>
+ <string id="287">tmdb287</string>
+ <string id="288">tmdb288</string>
+ <string id="289">tmdb289</string>
+ <string id="290">tmdb290</string>
+ <string id="291">tmdb291</string>
+ <string id="292">tmdb292</string>
+ <string id="293">tmdb293</string>
+ <string id="294">tmdb294</string>
+ <string id="295">tmdb295</string>
+ <string id="296">tmdb296</string>
+ <string id="297">tmdb297</string>
+ <string id="298">tmdb298</string>
+ <string id="299">tmdb299</string>
+ <string id="300">tmdb300</string>
+ <string id="301">tmdb301</string>
+ <string id="302">tmdb302</string>
+ <string id="303">tmdb303</string>
+ <string id="304">tmdb304</string>
+ <string id="305">tmdb305</string>
+ <string id="306">tmdb306</string>
+ <string id="307">tmdb307</string>
+ <string id="308">tmdb308</string>
+ <string id="309">tmdb309</string>
+ <string id="310">tmdb310</string>
+ <string id="311">tmdb311</string>
+ <string id="312">tmdb312</string>
+ <string id="313">tmdb313</string>
+ <string id="314">tmdb314</string>
+ <string id="315">tmdb315</string>
+ <string id="316">tmdb316</string>
+ <string id="317">tmdb317</string>
+ <string id="318">tmdb318</string>
+ <string id="319">tmdb319</string>
+ <string id="320">tmdb320</string>
+ <string id="321">tmdb321</string>
+ <string id="322">tmdb322</string>
+ <string id="323">tmdb323</string>
+ <string id="324">tmdb324</string>
+ <string id="325">tmdb325</string>
+ <string id="326">tmdb326</string>
+ <string id="327">tmdb327</string>
+ <string id="328">tmdb328</string>
+ <string id="329">tmdb329</string>
+ <string id="330">tmdb330</string>
+ <string id="331">tmdb331</string>
+ <string id="332">tmdb332</string>
+ <string id="333">tmdb333</string>
+ <string id="334">tmdb334</string>
+ <string id="335">tmdb335</string>
+ <string id="336">tmdb336</string>
+ <string id="337">tmdb337</string>
+ <string id="338">tmdb338</string>
+ <string id="339">tmdb339</string>
+ <string id="340">tmdb340</string>
+ <string id="341">tmdb341</string>
+ <string id="342">tmdb342</string>
+ <string id="343">tmdb343</string>
+ <string id="344">tmdb344</string>
+ <string id="345">tmdb345</string>
+ <string id="346">tmdb346</string>
+ <string id="347">tmdb347</string>
+ <string id="348">tmdb348</string>
+ <string id="349">tmdb349</string>
+ <string id="350">tmdb350</string>
+ <string id="351">tmdb351</string>
+ <string id="352">tmdb352</string>
+ <string id="353">tmdb353</string>
+ <string id="354">tmdb354</string>
+ <string id="355">tmdb355</string>
+ <string id="356">tmdb356</string>
+ <string id="357">tmdb357</string>
+ <string id="358">tmdb358</string>
+ <string id="359">tmdb359</string>
+ <string id="360">tmdb360</string>
+ <string id="361">tmdb361</string>
+ <string id="362">tmdb362</string>
+ <string id="363">tmdb363</string>
+ <string id="364">tmdb364</string>
+ <string id="365">tmdb365</string>
+ <string id="366">tmdb366</string>
+ <string id="367">tmdb367</string>
+ <string id="368">tmdb368</string>
+ <string id="369">tmdb369</string>
+ <string id="370">tmdb370</string>
+ <string id="371">tmdb371</string>
+ <string id="372">tmdb372</string>
+ <string id="373">tmdb373</string>
+ <string id="374">tmdb374</string>
+ <string id="375">tmdb375</string>
+ <string id="376">tmdb376</string>
+ <string id="377">tmdb377</string>
+ <string id="378">tmdb378</string>
+ <string id="379">tmdb379</string>
+ <string id="380">tmdb380</string>
+ <string id="381">tmdb381</string>
+ <string id="382">tmdb382</string>
+ <string id="383">tmdb383</string>
+ <string id="384">tmdb384</string>
+ <string id="385">tmdb385</string>
+ <string id="386">tmdb386</string>
+ <string id="387">tmdb387</string>
+ <string id="388">tmdb388</string>
+ <string id="389">tmdb389</string>
+ <string id="390">tmdb390</string>
+ <string id="391">tmdb391</string>
+ <string id="392">tmdb392</string>
+ <string id="393">tmdb393</string>
+ <string id="394">tmdb394</string>
+ <string id="395">tmdb395</string>
+ <string id="396">tmdb396</string>
+ <string id="397">tmdb397</string>
+ <string id="398">tmdb398</string>
+ <string id="399">tmdb399</string>
+ <string id="400">tmdb400</string>
+ <string id="401">tmdb401</string>
+ <string id="402">tmdb402</string>
+ <string id="403">tmdb403</string>
+ <string id="404">tmdb404</string>
+ <string id="405">tmdb405</string>
+ <string id="406">tmdb406</string>
+ <string id="407">tmdb407</string>
+ <string id="408">tmdb408</string>
+ <string id="409">tmdb409</string>
+ <string id="410">tmdb410</string>
+ <string id="411">tmdb411</string>
+ <string id="412">tmdb412</string>
+ <string id="413">tmdb413</string>
+ <string id="414">tmdb414</string>
+ <string id="415">tmdb415</string>
+ <string id="416">tmdb416</string>
+ <string id="417">tmdb417</string>
+ <string id="418">tmdb418</string>
+ <string id="419">tmdb419</string>
+ <string id="420">tmdb420</string>
+ <string id="421">tmdb421</string>
+ <string id="422">tmdb422</string>
+ <string id="423">tmdb423</string>
+ <string id="424">tmdb424</string>
+ <string id="425">tmdb425</string>
+ <string id="426">tmdb426</string>
+ <string id="427">tmdb427</string>
+ <string id="428">tmdb428</string>
+ <string id="429">tmdb429</string>
+ <string id="430">tmdb430</string>
+ <string id="431">tmdb431</string>
+ <string id="432">tmdb432</string>
+ <string id="433">tmdb433</string>
+ <string id="434">tmdb434</string>
+ <string id="435">tmdb435</string>
+ <string id="436">tmdb436</string>
+ <string id="437">tmdb437</string>
+ <string id="438">tmdb438</string>
+ <string id="439">tmdb439</string>
+ <string id="440">tmdb440</string>
+ <string id="441">tmdb441</string>
+ <string id="442">tmdb442</string>
+ <string id="443">tmdb443</string>
+ <string id="444">tmdb444</string>
+ <string id="445">tmdb445</string>
+ <string id="446">tmdb446</string>
+ <string id="447">tmdb447</string>
+ <string id="448">tmdb448</string>
+ <string id="449">tmdb449</string>
+ <string id="450">tmdb450</string>
+ <string id="451">tmdb451</string>
+ <string id="452">tmdb452</string>
+ <string id="453">tmdb453</string>
+ <string id="454">tmdb454</string>
+ <string id="455">tmdb455</string>
+ <string id="456">tmdb456</string>
+ <string id="457">tmdb457</string>
+ <string id="458">tmdb458</string>
+ <string id="459">tmdb459</string>
+ <string id="460">tmdb460</string>
+ <string id="461">tmdb461</string>
+ <string id="462">tmdb462</string>
+ <string id="463">tmdb463</string>
+ <string id="464">tmdb464</string>
+ <string id="465">tmdb465</string>
+ <string id="466">tmdb466</string>
+ <string id="467">tmdb467</string>
+ <string id="468">tmdb468</string>
+ <string id="469">tmdb469</string>
+ <string id="470">tmdb470</string>
+ <string id="471">tmdb471</string>
+ <string id="472">tmdb472</string>
+ <string id="473">tmdb473</string>
+ <string id="474">tmdb474</string>
+ <string id="475">tmdb475</string>
+ <string id="476">tmdb476</string>
+ <string id="477">tmdb477</string>
+ <string id="478">tmdb478</string>
+ <string id="479">tmdb479</string>
+ <string id="480">tmdb480</string>
+ <string id="481">tmdb481</string>
+ <string id="482">tmdb482</string>
+ <string id="483">tmdb483</string>
+ <string id="484">tmdb484</string>
+ <string id="485">tmdb485</string>
+ <string id="486">tmdb486</string>
+ <string id="487">tmdb487</string>
+ <string id="488">tmdb488</string>
+ <string id="489">tmdb489</string>
+ <string id="490">tmdb490</string>
+ <string id="491">tmdb491</string>
+ <string id="492">tmdb492</string>
+ <string id="493">tmdb493</string>
+ <string id="494">tmdb494</string>
+ <string id="495">tmdb495</string>
+ <string id="496">tmdb496</string>
+ <string id="497">tmdb497</string>
+ <string id="498">tmdb498</string>
+ <string id="499">tmdb499</string>
+ <string id="500">tmdb500</string>
+ <string id="501">tmdb501</string>
+ <string id="502">tmdb502</string>
+ <string id="503">tmdb503</string>
+ <string id="504">tmdb504</string>
+ <string id="505">tmdb505</string>
+ <string id="506">tmdb506</string>
+ <string id="507">tmdb507</string>
+ <string id="508">tmdb508</string>
+ <string id="509">tmdb509</string>
+ <string id="510">tmdb510</string>
+ <string id="511">tmdb511</string>
+ <string id="512">tmdb512</string>
+ <string id="513">tmdb513</string>
+ <string id="514">tmdb514</string>
+ <string id="515">tmdb515</string>
+ <string id="516">tmdb516</string>
+ <string id="517">tmdb517</string>
+ <string id="518">tmdb518</string>
+ <string id="519">tmdb519</string>
+ <string id="520">tmdb520</string>
+ <string id="521">tmdb521</string>
+ <string id="522">tmdb522</string>
+ <string id="523">tmdb523</string>
+ <string id="524">tmdb524</string>
+ <string id="525">tmdb525</string>
+ <string id="526">tmdb526</string>
+ <string id="527">tmdb527</string>
+ <string id="528">tmdb528</string>
+ <string id="529">tmdb529</string>
+ <string id="530">tmdb530</string>
+ <string id="531">tmdb531</string>
+ <string id="532">tmdb532</string>
+ <string id="533">tmdb533</string>
+ <string id="534">tmdb534</string>
+ <string id="535">tmdb535</string>
+ <string id="536">tmdb536</string>
+ <string id="537">tmdb537</string>
+ <string id="538">tmdb538</string>
+ <string id="539">tmdb539</string>
+ <string id="540">tmdb540</string>
+ <string id="541">tmdb541</string>
+ <string id="542">tmdb542</string>
+ <string id="543">tmdb543</string>
+ <string id="544">tmdb544</string>
+ <string id="545">tmdb545</string>
+ <string id="546">tmdb546</string>
+ <string id="547">tmdb547</string>
+ <string id="548">tmdb548</string>
+ <string id="549">tmdb549</string>
+ <string id="550">tmdb550</string>
+ <string id="551">tmdb551</string>
+ <string id="552">tmdb552</string>
+ <string id="553">tmdb553</string>
+ <string id="554">tmdb554</string>
+ <string id="555">tmdb555</string>
+ <string id="556">tmdb556</string>
+ <string id="557">tmdb557</string>
+ <string id="558">tmdb558</string>
+ <string id="559">tmdb559</string>
+ <string id="560">tmdb560</string>
+ <string id="561">tmdb561</string>
+ <string id="562">tmdb562</string>
+ <string id="563">tmdb563</string>
+ <string id="564">tmdb564</string>
+ <string id="565">tmdb565</string>
+ <string id="566">tmdb566</string>
+ <string id="567">tmdb567</string>
+ <string id="568">tmdb568</string>
+ <string id="569">tmdb569</string>
+ <string id="570">tmdb570</string>
+ <string id="571">tmdb571</string>
+ <string id="572">tmdb572</string>
+ <string id="573">tmdb573</string>
+ <string id="574">tmdb574</string>
+ <string id="575">tmdb575</string>
+ <string id="576">tmdb576</string>
+ <string id="577">tmdb577</string>
+ <string id="578">tmdb578</string>
+ <string id="579">tmdb579</string>
+ <string id="580">tmdb580</string>
+ <string id="581">tmdb581</string>
+ <string id="582">tmdb582</string>
+ <string id="583">tmdb583</string>
+ <string id="584">tmdb584</string>
+ <string id="585">tmdb585</string>
+ <string id="586">tmdb586</string>
+ <string id="587">tmdb587</string>
+ <string id="588">tmdb588</string>
+ <string id="589">tmdb589</string>
+ <string id="590">tmdb590</string>
+ <string id="591">tmdb591</string>
+ <string id="592">tmdb592</string>
+ <string id="593">tmdb593</string>
+ <string id="594">tmdb594</string>
+ <string id="595">tmdb595</string>
+ <string id="596">tmdb596</string>
+ <string id="597">tmdb597</string>
+ <string id="598">tmdb598</string>
+ <string id="599">tmdb599</string>
+ <string id="600">tmdb600</string>
+ <string id="601">tmdb601</string>
+ <string id="602">tmdb602</string>
+ <string id="603">tmdb603</string>
+ <string id="604">tmdb604</string>
+ <string id="605">tmdb605</string>
+ <string id="606">tmdb606</string>
+ <string id="607">tmdb607</string>
+ <string id="608">tmdb608</string>
+ <string id="609">tmdb609</string>
+ <string id="610">tmdb610</string>
+ <string id="611">tmdb611</string>
+ <string id="612">tmdb612</string>
+ <string id="613">tmdb613</string>
+ <string id="614">tmdb614</string>
+ <string id="615">tmdb615</string>
+ <string id="616">tmdb616</string>
+ <string id="617">tmdb617</string>
+ <string id="618">tmdb618</string>
+ <string id="619">tmdb619</string>
+ <string id="620">tmdb620</string>
+ <string id="621">tmdb621</string>
+ <string id="622">tmdb622</string>
+ <string id="623">tmdb623</string>
+ <string id="624">tmdb624</string>
+ <string id="625">tmdb625</string>
+ <string id="626">tmdb626</string>
+ <string id="627">tmdb627</string>
+ <string id="628">tmdb628</string>
+ <string id="629">tmdb629</string>
+ <string id="630">tmdb630</string>
+ <string id="631">tmdb631</string>
+ <string id="632">tmdb632</string>
+ <string id="633">tmdb633</string>
+ <string id="634">tmdb634</string>
+ <string id="635">tmdb635</string>
+ <string id="636">tmdb636</string>
+ <string id="637">tmdb637</string>
+ <string id="638">tmdb638</string>
+ <string id="639">tmdb639</string>
+ <string id="640">tmdb640</string>
+ <string id="641">tmdb641</string>
+ <string id="642">tmdb642</string>
+ <string id="643">tmdb643</string>
+ <string id="644">tmdb644</string>
+ <string id="645">tmdb645</string>
+ <string id="646">tmdb646</string>
+ <string id="647">tmdb647</string>
+ <string id="648">tmdb648</string>
+ <string id="649">tmdb649</string>
+ <string id="650">tmdb650</string>
+ <string id="651">tmdb651</string>
+ <string id="652">tmdb652</string>
+ <string id="653">tmdb653</string>
+ <string id="654">tmdb654</string>
+ <string id="655">tmdb655</string>
+ <string id="656">tmdb656</string>
+ <string id="657">tmdb657</string>
+ <string id="658">tmdb658</string>
+ <string id="659">tmdb659</string>
+ <string id="660">tmdb660</string>
+ <string id="661">tmdb661</string>
+ <string id="662">tmdb662</string>
+ <string id="663">tmdb663</string>
+ <string id="664">tmdb664</string>
+ <string id="665">tmdb665</string>
+ <string id="666">tmdb666</string>
+ <string id="667">tmdb667</string>
+ <string id="668">tmdb668</string>
+ <string id="669">tmdb669</string>
+ <string id="670">tmdb670</string>
+ <string id="671">tmdb671</string>
+ <string id="672">tmdb672</string>
+ <string id="673">tmdb673</string>
+ <string id="674">tmdb674</string>
+ <string id="675">tmdb675</string>
+ <string id="676">tmdb676</string>
+ <string id="677">tmdb677</string>
+ <string id="678">tmdb678</string>
+ <string id="679">tmdb679</string>
+ <string id="680">tmdb680</string>
+ <string id="681">tmdb681</string>
+ <string id="682">tmdb682</string>
+ <string id="683">tmdb683</string>
+ <string id="684">tmdb684</string>
+ <string id="685">tmdb685</string>
+ <string id="686">tmdb686</string>
+ <string id="687">tmdb687</string>
+ <string id="688">tmdb688</string>
+ <string id="689">tmdb689</string>
+ <string id="690">tmdb690</string>
+ <string id="691">tmdb691</string>
+ <string id="692">tmdb692</string>
+ <string id="693">tmdb693</string>
+ <string id="694">tmdb694</string>
+ <string id="695">tmdb695</string>
+ <string id="696">tmdb696</string>
+ <string id="697">tmdb697</string>
+ <string id="698">tmdb698</string>
+ <string id="699">tmdb699</string>
+ <string id="700">tmdb700</string>
+ <string id="701">tmdb701</string>
+ <string id="702">tmdb702</string>
+ <string id="703">tmdb703</string>
+ <string id="704">tmdb704</string>
+ <string id="705">tmdb705</string>
+ <string id="706">tmdb706</string>
+ <string id="707">tmdb707</string>
+ <string id="708">tmdb708</string>
+ <string id="709">tmdb709</string>
+ <string id="710">tmdb710</string>
+ <string id="711">tmdb711</string>
+ <string id="712">tmdb712</string>
+ <string id="713">tmdb713</string>
+ <string id="714">tmdb714</string>
+ <string id="715">tmdb715</string>
+ <string id="716">tmdb716</string>
+ <string id="717">tmdb717</string>
+ <string id="718">tmdb718</string>
+ <string id="719">tmdb719</string>
+ <string id="720">tmdb720</string>
+ <string id="721">tmdb721</string>
+ <string id="722">tmdb722</string>
+ <string id="723">tmdb723</string>
+ <string id="724">tmdb724</string>
+ <string id="725">tmdb725</string>
+ <string id="726">tmdb726</string>
+ <string id="727">tmdb727</string>
+ <string id="728">tmdb728</string>
+ <string id="729">tmdb729</string>
+ <string id="730">tmdb730</string>
+ <string id="731">tmdb731</string>
+ <string id="732">tmdb732</string>
+ <string id="733">tmdb733</string>
+ <string id="734">tmdb734</string>
+ <string id="735">tmdb735</string>
+ <string id="736">tmdb736</string>
+ <string id="737">tmdb737</string>
+ <string id="738">tmdb738</string>
+ <string id="739">tmdb739</string>
+ <string id="740">tmdb740</string>
+ <string id="741">tmdb741</string>
+ <string id="742">tmdb742</string>
+ <string id="743">tmdb743</string>
+ <string id="744">tmdb744</string>
+ <string id="745">tmdb745</string>
+ <string id="746">tmdb746</string>
+ <string id="747">tmdb747</string>
+ <string id="748">tmdb748</string>
+ <string id="749">tmdb749</string>
+ <string id="750">tmdb750</string>
+ <string id="751">tmdb751</string>
+ <string id="752">tmdb752</string>
+ <string id="753">tmdb753</string>
+ <string id="754">tmdb754</string>
+ <string id="755">tmdb755</string>
+ <string id="756">tmdb756</string>
+ <string id="757">tmdb757</string>
+ <string id="758">tmdb758</string>
+ <string id="759">tmdb759</string>
+ <string id="760">tmdb760</string>
+ <string id="761">tmdb761</string>
+ <string id="762">tmdb762</string>
+ <string id="763">tmdb763</string>
+ <string id="764">tmdb764</string>
+ <string id="765">tmdb765</string>
+ <string id="766">tmdb766</string>
+ <string id="767">tmdb767</string>
+ <string id="768">tmdb768</string>
+ <string id="769">tmdb769</string>
+ <string id="770">tmdb770</string>
+ <string id="771">tmdb771</string>
+ <string id="772">tmdb772</string>
+ <string id="773">tmdb773</string>
+ <string id="774">tmdb774</string>
+ <string id="775">tmdb775</string>
+ <string id="776">tmdb776</string>
+ <string id="777">tmdb777</string>
+ <string id="778">tmdb778</string>
+ <string id="779">tmdb779</string>
+ <string id="780">tmdb780</string>
+ <string id="781">tmdb781</string>
+ <string id="782">tmdb782</string>
+ <string id="783">tmdb783</string>
+ <string id="784">tmdb784</string>
+ <string id="785">tmdb785</string>
+ <string id="786">tmdb786</string>
+ <string id="787">tmdb787</string>
+ <string id="788">tmdb788</string>
+ <string id="789">tmdb789</string>
+ <string id="790">tmdb790</string>
+ <string id="791">tmdb791</string>
+ <string id="792">tmdb792</string>
+ <string id="793">tmdb793</string>
+ <string id="794">tmdb794</string>
+ <string id="795">tmdb795</string>
+ <string id="796">tmdb796</string>
+ <string id="797">tmdb797</string>
+ <string id="798">tmdb798</string>
+ <string id="799">tmdb799</string>
+ <string id="800">tmdb800</string>
+ <string id="801">tmdb801</string>
+ <string id="802">tmdb802</string>
+ <string id="803">tmdb803</string>
+ <string id="804">tmdb804</string>
+ <string id="805">tmdb805</string>
+ <string id="806">tmdb806</string>
+ <string id="807">tmdb807</string>
+ <string id="808">tmdb808</string>
+ <string id="809">tmdb809</string>
+ <string id="810">tmdb810</string>
+ <string id="811">tmdb811</string>
+ <string id="812">tmdb812</string>
+ <string id="813">tmdb813</string>
+ <string id="814">tmdb814</string>
+ <string id="815">tmdb815</string>
+ <string id="816">tmdb816</string>
+ <string id="817">tmdb817</string>
+ <string id="818">tmdb818</string>
+ <string id="819">tmdb819</string>
+ <string id="820">tmdb820</string>
+ <string id="821">tmdb821</string>
+ <string id="822">tmdb822</string>
+ <string id="823">tmdb823</string>
+ <string id="824">tmdb824</string>
+ <string id="825">tmdb825</string>
+ <string id="826">tmdb826</string>
+ <string id="827">tmdb827</string>
+ <string id="828">tmdb828</string>
+ <string id="829">tmdb829</string>
+ <string id="830">tmdb830</string>
+ <string id="831">tmdb831</string>
+ <string id="832">tmdb832</string>
+ <string id="833">tmdb833</string>
+ <string id="834">tmdb834</string>
+ <string id="835">tmdb835</string>
+ <string id="836">tmdb836</string>
+ <string id="837">tmdb837</string>
+ <string id="838">tmdb838</string>
+ <string id="839">tmdb839</string>
+ <string id="840">tmdb840</string>
+ <string id="841">tmdb841</string>
+ <string id="842">tmdb842</string>
+ <string id="843">tmdb843</string>
+ <string id="844">tmdb844</string>
+ <string id="845">tmdb845</string>
+ <string id="846">tmdb846</string>
+ <string id="847">tmdb847</string>
+ <string id="848">tmdb848</string>
+ <string id="849">tmdb849</string>
+ <string id="850">tmdb850</string>
+ <string id="851">tmdb851</string>
+ <string id="852">tmdb852</string>
+ <string id="853">tmdb853</string>
+ <string id="854">tmdb854</string>
+ <string id="855">tmdb855</string>
+ <string id="856">tmdb856</string>
+ <string id="857">tmdb857</string>
+ <string id="858">tmdb858</string>
+ <string id="859">tmdb859</string>
+ <string id="860">tmdb860</string>
+ <string id="861">tmdb861</string>
+ <string id="862">tmdb862</string>
+ <string id="863">tmdb863</string>
+ <string id="864">tmdb864</string>
+ <string id="865">tmdb865</string>
+ <string id="866">tmdb866</string>
+ <string id="867">tmdb867</string>
+ <string id="868">tmdb868</string>
+ <string id="869">tmdb869</string>
+ <string id="870">tmdb870</string>
+ <string id="871">tmdb871</string>
+ <string id="872">tmdb872</string>
+ <string id="873">tmdb873</string>
+ <string id="874">tmdb874</string>
+ <string id="875">tmdb875</string>
+ <string id="876">tmdb876</string>
+ <string id="877">tmdb877</string>
+ <string id="878">tmdb878</string>
+ <string id="879">tmdb879</string>
+ <string id="880">tmdb880</string>
+ <string id="881">tmdb881</string>
+ <string id="882">tmdb882</string>
+ <string id="883">tmdb883</string>
+ <string id="884">tmdb884</string>
+ <string id="885">tmdb885</string>
+ <string id="886">tmdb886</string>
+ <string id="887">tmdb887</string>
+ <string id="888">tmdb888</string>
+ <string id="889">tmdb889</string>
+ <string id="890">tmdb890</string>
+ <string id="891">tmdb891</string>
+ <string id="892">tmdb892</string>
+ <string id="893">tmdb893</string>
+ <string id="894">tmdb894</string>
+ <string id="895">tmdb895</string>
+ <string id="896">tmdb896</string>
+ <string id="897">tmdb897</string>
+ <string id="898">tmdb898</string>
+ <string id="899">tmdb899</string>
+ <string id="900">tmdb900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
new file mode 100644
index 0000000..5e87256
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API Key from the TMDB site. Sharing the API key is forbidden.</string>
+ <string control="TMDBMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Selected language for TMDB searches</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">If no record is available for selected language try English</string>
+ <string control="TMDBMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="TMDBMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="TMDBMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="TMDBMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="TMDBMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="TMDBMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="TMDBMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="TMDBMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="TMDBMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="TMDBMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="TMDBMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="TMDBMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="TMDBMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
new file mode 100644
index 0000000..cf68bc8
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching TMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching TMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Fall back on english</string>
+ <string id="115">Preferred Language:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Retrieving data from IMDB.com...</string>
+ <string id="118">IMDB.com is not enabled</string>
+ <string id="119">TheMovieDB API is missing or not valid</string>
+ <string id="120">Retrieving data from Fanart.tv...</string>
+ <string id="121">Fanart.tv is not enabled</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..d2a3801
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-Key von der TMDB-Website. Gemeinsame Nutzung des API-Schlüssels ist verboten.</string>
+ <string control="TMDBMovieInfo_chkCertification">Das Scrapen von Altersbeschränkungen einschalten.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Wähle die Sprache in der auf TMDB gesucht werden soll</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Wenn kein Datensatz für die gewählte Sprache verfügbar ist versuche englischen zu nehmen.</string>
+ <string control="TMDBMovieInfo_chkCrew">Das Scrapen von der restlichen Crew einschalten. ("Gesamte Crew Scrapen" muss eingeschaltet sein)</string>
+ <string control="TMDBMovieInfo_chkStudio">Das Scrapen von Studios einschalten.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Das Scrapen von Spielzeiten einschalten.</string>
+ <string control="TMDBMovieInfo_chkPlot">Das Scrapen von Inhaltsangaben einschalten.</string>
+ <string control="TMDBMovieInfo_chkOutline">Das Scrapen von Kurzbeschreibungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkGenre">Das Scrapen von Genres einschalten.</string>
+ <string control="TMDBMovieInfo_chkTagline">Das Scrapen von Taglines einschalten.</string>
+ <string control="TMDBMovieInfo_chkCast">Das Scrapen von Schauspielern einschalten.</string>
+ <string control="TMDBMovieInfo_chkVotes">Das Scrapen von Anzahl Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRating">Das Scrapen von Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRelease">Das Scrapen von Premiere-Daten einschalten.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Das Scrapen von MPAA-Informationen einschalten.</string>
+ <string control="TMDBMovieInfo_chkYear">Das Scrapen von Filmjahren einschalten.</string>
+ <string control="TMDBMovieInfo_chkTitle">Das Scrapen von Filmtiteln einschalten.</string>
+ <string control="TMDBMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanarts mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Aktiviert das Laden von Trailern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Seite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
new file mode 100644
index 0000000..9b8e52e
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der TMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der TMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden.</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden.</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Wähle alle Thumb</string>
+ <string id="42">Wähle alle Mittl.</string>
+ <string id="43">Wähle alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Klein ({0}x{1})</string>
+ <string id="54">Mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Treiler...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Manueller Trailer</string>
+ <string id="67">Direkter Link oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Loakler trailer:</string>
+ <string id="71">Fehler beim generieren der Videoformat Linkliste.</string>
+ <string id="72">Fehler beim Generieren der Videoformat Links.</string>
+ <string id="73">Wähle Format</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der bevorzugten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine bevorzugte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gaststar</string>
+ <string id="83">Die eingegebene ID ist keine gültige TMDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Poster</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen Blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Verwende Englisch wenn nichts verfügbar</string>
+ <string id="115">Bevorzugte Sprache:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Lade Daten von IMDB.com...</string>
+ <string id="118">IMDB.com ist nicht aktiviert.</string>
+ <string id="119">Die TheMovieDB API ist nicht vorhanden oder ungültig</string>
+ <string id="120">Lade Daten von Fanart.tv...</string>
+ <string id="121">Fanart.tv ist nicht aktiviert</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..54809c6
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-nøkkel fra TMDB-siden. Deling av denne nøkkelen er forbudt.</string>
+ <string control="TMDBMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Valgt språk for TMDB-søk.</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Hvis valgt språk ikke blir funnet, prøv engelsk.</string>
+ <string control="TMDBMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="TMDBMovieInfo_chkStudio">Slå på detaljhenting av filmstudio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="TMDBMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="TMDBMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="TMDBMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="TMDBMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="TMDBMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="TMDBMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="TMDBMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="TMDBMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="TMDBMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="TMDBMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="TMDBMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..3ee8a25
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">TMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kan ikke spille av trailer</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episode-fankunst</string>
+ <string id="93">Seriefankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakat</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM TMDB film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Fall tilbake til engelsk</string>
+ <string id="115">Foretrukket språk:</string>
+ <string id="116">TIMDB-ID:</string>
+ <string id="117">Henter data fra IMDB.com...</string>
+ <string id="118">IMDB.com er ikke påslått</string>
+ <string id="119">TheMovieDB API mangler eller er ikke gyldig</string>
+ <string id="120">Henter data fra Fanart.tv...</string>
+ <string id="121">Fanart.tv er ikke påslått</string>
+ <string id="122">Hent din API-nøkkel fra www.themoviedb.org</string>
+ <string id="123">Hent din API-nøkkel fra fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.MPDB.Poster/My Project/Application.Designer.vb b/Addons/scraper.MPDB.Poster/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.MPDB.Poster/My Project/Application.myapp b/Addons/scraper.MPDB.Poster/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.MPDB.Poster/My Project/AssemblyInfo.vb b/Addons/scraper.MPDB.Poster/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..2ca9b2f
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.MPDB.Poster")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.MPDB.Poster")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("B7970BB3-03C7-4C37-9EF4-40231DE4D10C")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.MPDB.Poster/My Project/Resources.Designer.vb b/Addons/scraper.MPDB.Poster/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.MPDB.Poster/My Project/Resources.resx b/Addons/scraper.MPDB.Poster/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/My Project/Settings.Designer.vb b/Addons/scraper.MPDB.Poster/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.MPDB.Poster/My Project/Settings.settings b/Addons/scraper.MPDB.Poster/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.MPDB.Poster/Resources/Logo.png b/Addons/scraper.MPDB.Poster/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.MPDB.Poster/Resources/Logo.png differ
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeFANARTTV.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeFANARTTV.vb
new file mode 100644
index 0000000..13c1748
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeFANARTTV.vb
@@ -0,0 +1,173 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+' # HD Movie Logos -> logo.png (choose this first)
+' # ClearLOGOs -> logo.png (use this as a backup if no HD Logo in the lanaguage specified)
+' # ClearART -> clearart.png (use this as a backup if no HD ClearArt, in the language specified)
+' # HDClearART -> clearart.png (choose this first)
+' # cdART -> disc.png
+' # Movie Backgrounds -> Fanart (this is the only fanart.tv artwork that might overlap with 'typical' artwork scraping from IMDB/TMDB)
+' # Movie Banner -> Banner (not poster - Frodo supports both now, <moviename>-poster.jpg/png and <moviename>-banner.jpg/png or poster.jpg/png and banner.jpg/png)
+' # Movie Thumbs -> landscape.png
+' # Special note - the Logos and ClearArts are language-specific and should be tagged with the appropriate language. Will want to have a setting allowing users to specify a language so as not to get a bunch of foreign-language artwork.
+' # 1) Logo.png - to be added at a later stage, today is not possible to save
+' # 2) Clearart.png - to be added at a later stage, today is not possible to save
+' # 3) Disc.png - to be added at a later stage, today is not possible to save
+' # 4) Landscape.png - to be added at a later stage, today is not possible to save
+' # language is in image properties
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports FanartTVAPI
+
+Namespace FANARTTVs
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _FanartTV As FanartTV.V1.FanartTV
+ Friend WithEvents bwFANARTTV As New System.ComponentModel.BackgroundWorker
+ Private _APIInvalid As Boolean = False
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _FanartTV = New FanartTV.V1.FanartTV(_MySettings.FANARTTVApiKey)
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest("1", "JSON", "all", 1, 1))
+ If IsNothing(Result) Then
+ If Not IsNothing(_FanartTV.Error) Then
+ Master.eLog.WriteToErrorLog(_FanartTV.Error, "", "Error")
+ _APIInvalid = True
+ End If
+ End If
+ End Sub
+
+ Public Sub Cancel()
+ If Me.bwFANARTTV.IsBusy Then Me.bwFANARTTV.CancelAsync()
+
+ While Me.bwFANARTTV.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwFANARTTV.IsBusy Then
+ bwFANARTTV.WorkerSupportsCancellation = True
+ bwFANARTTV.WorkerReportsProgress = True
+ bwFANARTTV.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetFANARTTVImages(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ If _APIInvalid Then
+ Return Nothing
+ End If
+ Try
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest(imdbID, "JSON", "all", 1, 2))
+ If bwFANARTTV.CancellationPending Then Return Nothing
+ If IsNothing(Result) Then Return alPoster
+ If IsNothing(Result.movieinfo.moviebackground) Then Return alPoster
+ For Each image In Result.movieinfo.moviebackground
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = image.url})
+ alPoster.Add(New MediaContainers.Image With {.Description = "thumb", .URL = image.url & "/preview"})
+ Next
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwFANARTTVA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTV.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetFANARTTVImages(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTV_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTV.ProgressChanged
+ If Not bwFANARTTV.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwFANARTTV_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTV.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeIMDB.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..ec6d1be
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,174 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Diagnostics
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDBimg
+
+ Public Class Scraper
+
+#Region "Fields"
+
+
+
+ Friend WithEvents bwIMDBimg As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMDBimg.IsBusy Then Me.bwIMDBimg.CancelAsync()
+
+ While Me.bwIMDBimg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMDBimg.IsBusy Then
+ bwIMDBimg.WorkerSupportsCancellation = True
+ bwIMDBimg.WorkerReportsProgress = True
+ bwIMDBimg.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMDBimg.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", imdbID, ""))
+ sHTTP = Nothing
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(1)
+ End If
+
+
+ ' check existence of a line like this
+ ' <a href="/media/rm2995297536/tt0089218?ref_=tt_ov_i" > <img height="317"
+ ' and then return this one
+ ' src = "http://ia.media-imdb.com/images/M/MV5BMTY1Mzk3MTg0M15BMl5BanBnXkFtZTcwOTQzODYyMQ@@._V1_SY317_CR3,0,214,317_.jpg"
+ Dim mcIMDB As MatchCollection = Regex.Matches(HTML, String.Concat("/media/[a-zA-Z0-9]{3,12}/tt", imdbID, "\?ref_=tt_ov_i"), RegexOptions.IgnoreCase)
+ If mcIMDB.Count > 0 Then
+ debug.print("GetIMDBPoster 1 - {0}", mcIMDB(0).Value)
+ 'Dim sUrl1 As String = sHTTP.DownloadData(mcIMDB(0).Value)
+ mcIMDB = Regex.Matches(HTML, "http://ia.media-imdb.com/images/.{3,80}?.jpg")
+ If mcIMDB.Count > 0 Then
+ 'just use the first one if more are found
+ Debug.Print("GetIMDBPoster 2 - {0}", mcIMDB(0).Value)
+ alPoster.Add(New MediaContainers.Image With {.Description = "cover", .URL = mcIMDB(0).Value})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(2)
+ End If
+
+ Dim aSP As String() = Regex.Split(mcIMDB(0).Value, "._V\d+?_SY\d+?_CR\d+?,\d+?,\d+?,\d+?_")
+ Dim sUrl1 = aSP(0) + aSP(1)
+ Debug.Print("GetIMDBPoster 3 - {0}", sUrl1)
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = sUrl1})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMDBimg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBimg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMDBimg_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBimg.ProgressChanged
+ If Not bwIMDBimg.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMDBimg_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBimg.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeIMPA.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..cfe43a1
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,189 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(1)
+ End If
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(2)
+ End If
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeImages.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..d335b62
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeImages.vb
@@ -0,0 +1,1209 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Public Class ScrapeImages
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private TMDB As TMDB.Scraper
+ Private IMPA As New IMPA.Scraper
+ Private MPDB As New MPDB.Scraper
+ Private IMDB As New IMDBimg.Scraper
+ Private FANARTTVs As FANARTTVs.Scraper
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal TMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListIMDB As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMDBX As Images = Nothing
+ Dim tmpIMDBL As Images = Nothing
+ Dim tmpIMDBM As Images = Nothing
+ Dim tmpIMDBS As Images = Nothing
+ Dim tmpIMDBW As Images = Nothing
+ Dim tmpTMDBX As Images = Nothing
+ Dim tmpTMDBL As Images = Nothing
+ Dim tmpTMDBM As Images = Nothing
+ Dim tmpTMDBS As Images = Nothing
+ Dim tmpTMDBW As Images = Nothing
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(TMDBID, "poster"))
+
+ If _MySettings.UseIMPA Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If _MySettings.UseMPDB Then
+ tmpListMPDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ If _MySettings.UseIMDB Then
+ tmpListTMDB.AddRange(IMDB.GetIMDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+
+ If _MySettings.UseIMDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMDB = IMDB.GetIMDBPosters(IMDBID)
+
+ If tmpListIMDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMDBX) Then
+ tmpIMDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMDBL) Then
+ tmpIMDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMDBM) Then
+ tmpIMDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMDBS) Then
+ tmpIMDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMDBW) Then
+ tmpIMDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from IMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseMPDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseIMDB Then
+ If tmpListIMDB.Count > 0 Then
+ If Not IsNothing(tmpIMDBX) Then
+ Image = tmpIMDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBL) Then
+ Image = tmpIMDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBM) Then
+ Image = tmpIMDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBS) Then
+ Image = tmpIMDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBW) Then
+ Image = tmpIMDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseMPDB Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ End If
+ End If
+
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ End If
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+
+ If AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("tUseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0)
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeMPDB.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..cd949ec
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,167 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(2)
+ End If
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "t")
+ alPosters.Add(New MediaContainers.Image With {.Description = "thumb", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeOFDB.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..2e94cca
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,242 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ D = Html.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, "<td width=""99\%""><h2><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h2></td>").Groups(1).Value.ToString))
+ _title = OFDBTitle
+ End If
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+
+ If D > 0 Then
+ W = Html.IndexOf("<a href=""", D + 14)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 14, W - (D + 14)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 14, L - (D + 14)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDB.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..9db6818
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,282 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Private backdrop_names(3) As v3Size
+ Private poster_names(5) As v3Size
+
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ ' v3 does not have description anymore
+ poster_names(0).description = "thumb"
+ poster_names(0).size = "w92"
+ poster_names(0).width = 92
+ poster_names(1).description = "w154"
+ poster_names(1).size = "w154"
+ poster_names(1).width = 154
+ poster_names(2).description = "cover"
+ poster_names(2).size = "w185"
+ poster_names(2).width = 185
+ poster_names(3).description = "w342"
+ poster_names(3).size = "w342"
+ poster_names(3).width = 342
+ poster_names(4).description = "mid"
+ poster_names(4).size = "w500"
+ poster_names(4).width = 500
+ poster_names(5).description = "original"
+ poster_names(5).size = "original"
+ poster_names(5).width = 0
+ backdrop_names(0).description = "thumb"
+ backdrop_names(0).size = "w300"
+ backdrop_names(0).width = 300
+ backdrop_names(1).description = "poster"
+ backdrop_names(1).size = "w780"
+ backdrop_names(1).width = 780
+ backdrop_names(2).description = "w1280"
+ backdrop_names(2).size = "w1280"
+ backdrop_names(2).width = 1280
+ backdrop_names(3).description = "original"
+ backdrop_names(3).size = "original"
+ backdrop_names(3).width = 0
+ End Sub
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim images As V3.TmdbMovieImages
+ Dim aW, aH As Integer
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ images = _TMDBApi.GetMovieImages(CInt(imdbID), _MySettings.TMDBLanguage)
+ If sType = "poster" Then
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ Else
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If sType = "poster" Then
+ For Each tmdbI As V3.Poster In images.posters
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In poster_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ ElseIf sType = "backdrop" Then
+ For Each tmdbI As V3.Backdrop In images.backdrops
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In backdrop_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As List(Of String)
+ Dim trailers As V3.TmdbMovieTrailers
+ Dim YT As New List(Of String)
+
+ Try
+ If bwTMDB.CancellationPending Then Return Nothing
+ trailers = _TMDBApi.GetMovieTrailers(CInt(imdbID), _MySettings.TMDBLanguage)
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ trailers = _TMDBApiE.GetMovieTrailers(CInt(imdbID))
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ Return Nothing
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ 'If bwTMDB.WorkerReportsProgress Then
+ ' bwTMDB.ReportProgress(2)
+ 'End If
+
+ If trailers.youtube.Count > 0 Then
+ For Each trailer In trailers.youtube
+ YT.Add(String.Format("http://www.youtube.com/watch?v={0}{1})", trailer.source, CStr(IIf(trailer.size = "HD", "&hd=1", ""))))
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return YT
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure v3Size
+
+#Region "Fields"
+
+ Dim size As String
+ Dim description As String
+ Dim width As Integer
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDB_old.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDB_old.vb
new file mode 100644
index 0000000..c5bca0a
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDB_old.vb
@@ -0,0 +1,244 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB_old
+
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDBg.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDBg.vb
new file mode 100644
index 0000000..86f6083
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTMDBg.vb
@@ -0,0 +1,723 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDBg
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _Matches As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Matches() As List(Of MediaContainers.Movie)
+ Get
+ Return _Matches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _Matches = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ 'Public IMDBURL As String
+ 'Private _TMDBId As String
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Friend WithEvents bwTMDBg As New System.ComponentModel.BackgroundWorker
+
+ Private _sPoster As String
+
+#End Region 'Fields
+
+#Region "Properties"
+ Public ReadOnly Property TMDBConf() As V3.TmdbConfiguration
+ Get
+ Return _TMDBConf
+ End Get
+ End Property
+#End Region
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As TMDBg.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTMDBg.IsBusy Then bwTMDBg.CancelAsync()
+
+ While bwTMDBg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetMovieID(ByRef DBMovie As Structures.DBMovie)
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+
+ If bwTMDBg.CancellationPending Then Return
+
+ Movie = _TMDBApi.GetMovieByIMDB(DBMovie.Movie.ID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(DBMovie.Movie.ID)
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return
+ End If
+
+ DBMovie.Movie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+ Dim tStr As String
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Strings.Left(strID.ToLower(), 2) = "tt" Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(strID)
+ Else
+ Movie = _TMDBApi.GetMovieInfo(CInt(strID), _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieInfo(CInt(strID))
+ End If
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return False
+ End If
+
+ IMDBMovie.ID = CStr(IIf(String.IsNullOrEmpty(Movie.imdb_id) AndAlso _MySettings.FallBackEng, MovieE.imdb_id, Movie.imdb_id))
+ IMDBMovie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ If bwTMDBg.CancellationPending Or IsNothing(Movie) Then Return Nothing
+
+ Dim Keywords As WatTmdb.V3.TmdbMovieKeywords
+ Keywords = _TMDBApi.GetMovieKeywords(Movie.id)
+ If Not IsNothing(Keywords) AndAlso Not IsNothing(Keywords.keywords) Then
+ If Keywords.keywords.Count <> 0 AndAlso _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ End If
+
+ ' to be added the tags structure
+ '' <movie>
+ '' ...
+ '' <tag>Name of the tag</tag>
+ '' ...
+ '' </movie>
+ If Options.bTitle Then
+ IMDBMovie.OriginalTitle = CStr(IIf(String.IsNullOrEmpty(Movie.original_title) AndAlso _MySettings.FallBackEng, MovieE.original_title, Movie.original_title))
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ IMDBMovie.Title = CStr(IIf(String.IsNullOrEmpty(Movie.title) AndAlso _MySettings.FallBackEng, MovieE.title, Movie.title))
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ ' I will add original always. to be updated if size, TMDBConf.images.poster_sizes(0) &
+ Dim Images As WatTmdb.V3.TmdbMovieImages
+ Images = _TMDBApi.GetMovieImages(Movie.id, _MySettings.TMDBLanguage)
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If (Images.posters.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ End If
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If Images.posters.Count > 0 Then
+ _sPoster = _TMDBConf.images.base_url & "w92" & Images.posters(0).file_path
+ Else
+ _sPoster = ""
+ End If
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Left(CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date)), 4)
+
+ Dim Releases As WatTmdb.V3.TmdbMovieReleases = Nothing
+ If Options.bMPAA Then
+ IMDBMovie.MPAA = ""
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each Country In Releases.countries
+ If Country.iso_3166_1.ToUpper = CStr(IIf(Master.eSettings.CertificationLang = "", "US", Master.eSettings.CertificationLang)) Then
+ IMDBMovie.MPAA = Country.certification
+ Exit For
+ End If
+ Next
+ End If
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ IMDBMovie.ReleaseDate = CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date))
+ End If
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ IMDBMovie.Rating = CStr(IIf(IsNothing(Movie.vote_average) AndAlso Movie.vote_average = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_average, Movie.vote_average))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ Dim Trailers As WatTmdb.V3.TmdbMovieTrailers
+ Trailers = _TMDBApi.GetMovieTrailers(Movie.id)
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If (Trailers.youtube.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ End If
+
+ IMDBMovie.Trailer = ""
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If Trailers.youtube.Count > 0 Then
+ IMDBMovie.Trailer = "http://www.youtube.com/watch?hd=1&v=" & Trailers.youtube(0).source
+ End If
+ End If
+
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then
+ IMDBMovie.Votes = CStr(IIf(IsNothing(Movie.vote_count) AndAlso Movie.vote_count = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_count.ToString(), Movie.vote_count.ToString()))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Dim aCast As WatTmdb.V3.TmdbMovieCast = Nothing
+ If Options.bCast Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.cast.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+
+ Dim Cast As New List(Of MediaContainers.Person)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ For Each aAc As WatTmdb.V3.Cast In aCast.cast
+ Dim aPer As New MediaContainers.Person
+ aPer.Name = aAc.name
+ aPer.Role = aAc.character
+ ' to be added / dialog to choose the size of the images
+ aPer.Thumb = _TMDBConf.images.base_url & "original" & aAc.profile_path
+ Cast.Add(aPer)
+ Next
+ End If
+ IMDBMovie.Actors = Cast
+ End If
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+ IMDBMovie.Tagline = CStr(IIf(String.IsNullOrEmpty(IMDBMovie.Tagline) AndAlso _MySettings.FallBackEng, MovieE.tagline, Movie.tagline))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ If IsNothing(Releases) Then
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Countries.Clear()
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each aCo As WatTmdb.V3.ReleaseCountry In Releases.countries
+ IMDBMovie.Countries.Add(aCo.iso_3166_1)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ IMDBMovie.Genres.Clear()
+ Dim tGen As System.Collections.Generic.List(Of WatTmdb.V3.MovieGenre)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tGen = CType(IIf(Movie.genres.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.genres, Movie.genres), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ Else
+ tGen = CType(IIf(_MySettings.FallBackEng, MovieE.genres, Nothing), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ End If
+
+
+ If Not IsNothing(tGen) Then
+ For Each aGen As WatTmdb.V3.MovieGenre In tGen
+ IMDBMovie.Genres.Add(aGen.name)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+ IMDBMovie.Outline = CStr(IIf(String.IsNullOrEmpty(Movie.overview) AndAlso _MySettings.FallBackEng, MovieE.overview, Movie.overview))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ Else
+ IMDBMovie.Plot = ""
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then
+ IMDBMovie.Runtime = CStr(IIf(IsNothing(Movie.runtime) AndAlso Movie.runtime = 0 AndAlso _MySettings.FallBackEng, MovieE.runtime.ToString(), Movie.runtime.ToString()))
+ End If
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ tStr = ""
+ Dim tPC As System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tPC = CType(IIf(Movie.production_companies.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.production_companies, Movie.production_companies), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ Else
+ tPC = CType(IIf(_MySettings.FallBackEng, MovieE.production_companies, Nothing), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ End If
+
+ If Not IsNothing(tPC) Then
+ For Each aPro As WatTmdb.V3.ProductionCompany In tPC
+ tStr = tStr & " / " & aPro.name
+ Next
+ End If
+ If Len(tStr) > 3 Then
+ tStr = Trim(Right(tStr, Len(tStr) - 3))
+ End If
+ IMDBMovie.Studio = tStr
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Or Options.bWriters Or Options.bDirector Then
+ If IsNothing(aCast) Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.crew.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Credits.Clear()
+ IMDBMovie.Directors.Clear()
+ If Not IsNothing(aCast.crew) Then
+ For Each aAc As WatTmdb.V3.Crew In aCast.crew
+ If FullCrew Then
+ IMDBMovie.Credits.Add(aAc.name)
+ ElseIf Options.bWriters Then
+ If aAc.department = "Writing" AndAlso aAc.job = "Writer" Then
+ IMDBMovie.Credits.Add(aAc.name)
+ End If
+ End If
+ If Options.bDirector Then
+ If aAc.job = "Director" Then
+ IMDBMovie.Directors.Add(aAc.name)
+ End If
+ End If
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ If Movie.production_companies.Count = 0 And _MySettings.FallBackEng Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, "en")
+ End If
+ For Each aComp In Movie.production_companies
+ alStudio.Add(aComp.name)
+ Next
+
+ Return alStudio
+
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgTMDBSearchResults(_MySettings, Me)
+
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.Matches)
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ b = GetMovieInfo(r.Matches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, _
+ .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBg.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(_sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ 'Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ ' Dim fTitle As String = oTitle
+ ' Dim Movie As WatTmdb.V3.TmdbMovie
+
+ ' Try
+ ' '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ ' If Left(strID.ToLower(), 4) = "tt" Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), _MySettings.TMDBLanguage)
+ ' If IsNothing(Movie) And _MySettings.FallBackEng Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), "en")
+ ' End If
+ ' Else
+ ' Movie = _TMDBApi.GetMovieByIMDB(strID)
+ ' End If
+
+ ' fTitle = Movie.title
+
+ ' Return fTitle
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' Return fTitle
+ ' End Try
+ 'End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+ Dim R As New MovieSearchResults
+ Dim Page As Integer = 1
+ Dim Movies As WatTmdb.V3.TmdbMovieSearch
+ Dim TotP As Integer
+ Dim aE As Boolean
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ If Movies.total_results = 0 And _MySettings.FallBackEng Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ aE = True
+ End If
+ If Movies.total_results > 0 Then
+ Dim t1 As String
+ Dim t2 As String
+ Dim t3 As String
+ TotP = Movies.total_pages
+ While Page <= TotP And Page <= 3
+ For Each aMovie In Movies.results
+ Dim aMI As WatTmdb.V3.TmdbMovie
+ aMI = _TMDBApi.GetMovieInfo(aMovie.id)
+ If IsNothing(aMI) Then
+ aMI = _TMDBApiE.GetMovieInfo(aMovie.id)
+ End If
+ If IsNothing(aMI.imdb_id) Then
+ t1 = ""
+ Else
+ t1 = aMI.imdb_id.ToString
+ End If
+ t2 = CStr(IIf(String.IsNullOrEmpty(aMovie.title), "", aMovie.title))
+ t3 = Left(CStr(IIf(String.IsNullOrEmpty(aMovie.release_date), "", aMovie.release_date)), 4)
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(t1, t2, t3, 0)
+ lNewMovie.TMDBID = aMI.id.ToString
+ R.Matches.Add(lNewMovie)
+ Next
+ Page = Page + 1
+ If aE Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ Else
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ End If
+
+ End While
+ End If
+
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+ 'Dim TMDBConf As V3.TmdbConfiguration
+ 'Dim TMDBApi As V3.Tmdb
+ 'Dim FallBackEng As Boolean
+ 'Dim TMDBLang As String
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTrailers.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..72ce5f8
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ Me.Clear()
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim YT As List(Of String)
+
+ YT = TMDB.GetTrailers(_ImdbID)
+
+ If Not YT.Count = 0 Then
+ For Each ast In YT
+ Me._TrailerList.Add(ast)
+ Next
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/clsScrapeYouTube.vb b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..51ed7c4
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,336 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..3c9254c
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,569 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlIMDB = New System.Windows.Forms.Panel()
+ Me.lblDL6Status = New System.Windows.Forms.Label()
+ Me.lblDL6 = New System.Windows.Forms.Label()
+ Me.pbDL6 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlFANARTTV = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlMDB = New System.Windows.Forms.Panel()
+ Me.lblDL5Status = New System.Windows.Forms.Label()
+ Me.lblDL5 = New System.Windows.Forms.Label()
+ Me.pbDL5 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL4Status = New System.Windows.Forms.Label()
+ Me.lblDL4 = New System.Windows.Forms.Label()
+ Me.pbDL4 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTMDB = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlIMDB.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.pnlFANARTTV.SuspendLayout()
+ Me.pnlMDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlTMDB.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 4
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 6
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 5
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 4
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 3
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 2
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 9
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 7
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 8
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 3
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlSinglePic)
+ Me.pnlDLStatus.Controls.Add(Me.pnlFANARTTV)
+ Me.pnlDLStatus.Controls.Add(Me.pnlMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.pnlTMDB)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(253, 98)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(331, 330)
+ Me.pnlDLStatus.TabIndex = 0
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlIMDB
+ '
+ Me.pnlIMDB.Controls.Add(Me.lblDL6Status)
+ Me.pnlIMDB.Controls.Add(Me.lblDL6)
+ Me.pnlIMDB.Controls.Add(Me.pbDL6)
+ Me.pnlIMDB.Location = New System.Drawing.Point(3, 84)
+ Me.pnlIMDB.Name = "pnlIMDB"
+ Me.pnlIMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMDB.TabIndex = 9
+ '
+ 'lblDL6Status
+ '
+ Me.lblDL6Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL6Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL6Status.Name = "lblDL6Status"
+ Me.lblDL6Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6Status.TabIndex = 8
+ '
+ 'lblDL6
+ '
+ Me.lblDL6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL6.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL6.Name = "lblDL6"
+ Me.lblDL6.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6.TabIndex = 7
+ Me.lblDL6.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL6
+ '
+ Me.pbDL6.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL6.Name = "pbDL6"
+ Me.pbDL6.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL6.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL6.TabIndex = 6
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(3, 3)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 9
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 7
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 6
+ '
+ 'pnlFANARTTV
+ '
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3Status)
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3)
+ Me.pnlFANARTTV.Controls.Add(Me.pbDL3)
+ Me.pnlFANARTTV.Location = New System.Drawing.Point(3, 84)
+ Me.pnlFANARTTV.Name = "pnlFANARTTV"
+ Me.pnlFANARTTV.Size = New System.Drawing.Size(321, 75)
+ Me.pnlFANARTTV.TabIndex = 11
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 8
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 7
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 6
+ '
+ 'pnlMDB
+ '
+ Me.pnlMDB.Controls.Add(Me.lblDL5Status)
+ Me.pnlMDB.Controls.Add(Me.lblDL5)
+ Me.pnlMDB.Controls.Add(Me.pbDL5)
+ Me.pnlMDB.Location = New System.Drawing.Point(3, 246)
+ Me.pnlMDB.Name = "pnlMDB"
+ Me.pnlMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMDB.TabIndex = 9
+ '
+ 'lblDL5Status
+ '
+ Me.lblDL5Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL5Status.Name = "lblDL5Status"
+ Me.lblDL5Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5Status.TabIndex = 8
+ '
+ 'lblDL5
+ '
+ Me.lblDL5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL5.Name = "lblDL5"
+ Me.lblDL5.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5.TabIndex = 7
+ Me.lblDL5.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL5
+ '
+ Me.pbDL5.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL5.Name = "pbDL5"
+ Me.pbDL5.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL5.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL5.TabIndex = 6
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.lblDL4Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL4)
+ Me.pnlIMPA.Controls.Add(Me.pbDL4)
+ Me.pnlIMPA.Location = New System.Drawing.Point(3, 165)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 6
+ '
+ 'lblDL4Status
+ '
+ Me.lblDL4Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL4Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL4Status.Name = "lblDL4Status"
+ Me.lblDL4Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4Status.TabIndex = 8
+ '
+ 'lblDL4
+ '
+ Me.lblDL4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL4.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL4.Name = "lblDL4"
+ Me.lblDL4.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4.TabIndex = 7
+ Me.lblDL4.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL4
+ '
+ Me.pbDL4.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL4.Name = "pbDL4"
+ Me.pbDL4.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL4.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL4.TabIndex = 6
+ '
+ 'pnlTMDB
+ '
+ Me.pnlTMDB.Controls.Add(Me.lblDL2Status)
+ Me.pnlTMDB.Controls.Add(Me.lblDL2)
+ Me.pnlTMDB.Controls.Add(Me.pbDL2)
+ Me.pnlTMDB.Location = New System.Drawing.Point(3, 3)
+ Me.pnlTMDB.Name = "pnlTMDB"
+ Me.pnlTMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlTMDB.TabIndex = 10
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 8
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 7
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 6
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlIMDB.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.pnlFANARTTV.ResumeLayout(False)
+ Me.pnlMDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlTMDB.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL4Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL4 As System.Windows.Forms.Label
+ Friend WithEvents pbDL4 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL5Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL5 As System.Windows.Forms.Label
+ Friend WithEvents pbDL5 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+ Friend WithEvents pnlFANARTTV As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL6Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL6 As System.Windows.Forms.Label
+ Friend WithEvents pbDL6 As System.Windows.Forms.ProgressBar
+
+End Class
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.resx b/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..3491405
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.vb b/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..b2e44a9
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1582 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports EmberScraperModule.EmberTMDBScraperModule
+Imports RestSharp
+Imports WatTmdb
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwIMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwFANARTTVDownload As New System.ComponentModel.BackgroundWorker
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Private TMDB As TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+
+ Private IMDB As New IMDBimg.Scraper
+ Private IMDBPosters As New List(Of MediaContainers.Image)
+
+ Private FANARTTVs As FANARTTVs.Scraper
+ Private FANARTTVPosters As New List(Of MediaContainers.Image)
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _imdbDone As Boolean = True
+ Private _fanarttvDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+ Private Event IMDBDone()
+
+ Private Event FANARTTVDone()
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = poster.WebImage.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(poster.URL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone AndAlso Me._imdbDone AndAlso Me._fanarttvDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.TMDBPosters.AddRange(Me.IMDBPosters)
+ Me.TMDBPosters.AddRange(Me.FANARTTVPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+ Me.pnlTMDB.Visible = False
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.pnlDLStatus.Height = 85
+ Me.pnlDLStatus.Top = 185
+
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.IMDBPosters.Count - 1
+ Try
+ If Me.bwIMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMDBDownload.ReportProgress(i + 1, Me.IMDBPosters.Item(i).URL)
+ Try
+ Me.IMDBPosters.Item(i).WebImage.FromWeb(Me.IMDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMDBPosters.Item(i).URL = StringUtils.CleanURL(Me.IMDBPosters.Item(i).URL)
+ Me.IMDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMDBPosters.Item(i).Description, ")_(url=", Me.IMDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL6Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL6.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._imdbDone = True
+ RaiseEvent IMDBDone()
+ End If
+ End Sub
+
+ Private Sub bwFANARTTVDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTVDownload.DoWork
+ '//
+ ' Thread to download FanartTV images from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.FANARTTVPosters.Count - 1
+ Try
+ If Me.bwFANARTTVDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwFANARTTVDownload.ReportProgress(i + 1, Me.FANARTTVPosters.Item(i).URL)
+ Try
+ Me.FANARTTVPosters.Item(i).WebImage.FromWeb(Me.FANARTTVPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.FANARTTVPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.FANARTTVPosters.Item(i).URL = StringUtils.CleanURL(Me.FANARTTVPosters.Item(i).URL)
+ Me.FANARTTVPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.FANARTTVPosters.Item(i).Description, ")_(url=", Me.FANARTTVPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwFANARTTVDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTVDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTVDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTVDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._fanarttvDone = True
+ RaiseEvent FANARTTVDone()
+ End If
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL4Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL4.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPABownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL5Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL5.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = _MySettings.ManualETSize
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress((i + 1), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath, , , False)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+ IMDB.Cancel()
+ FANARTTVs.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+ If bwIMDBDownload.IsBusy Then bwIMDBDownload.CancelAsync()
+ If bwFANARTTVDownload.IsBusy Then bwFANARTTVDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+ IMDB = Nothing
+ FANARTTVs = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ IMDBPosters = Nothing
+ FANARTTVPosters = Nothing
+
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains(_TMDBConf.images.base_url.ToLower) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "backdrop")
+
+ If _MySettings.UseFANARTTV Then
+ Me.lblDL3.Text = Master.eLang.GetString(120, "Retrieving data from Fanart.tv...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._fanarttvDone = False
+
+ Me.FANARTTVs.GetImagesAsync(tMovie.Movie.ID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(121, "Fanart.tv is not enabled")
+ End If
+
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "poster")
+
+ If _MySettings.UseIMDB Then
+ Me.lblDL6.Text = Master.eLang.GetString(117, "Retrieving data from IMDB.com...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._imdbDone = False
+
+ Me.IMDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL6.Text = Master.eLang.GetString(118, "IMDB.com is not enabled")
+ End If
+
+ If _MySettings.UseIMPA Then
+ Me.lblDL4.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL4.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If _MySettings.UseMPDB Then
+ Me.lblDL5.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL5.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVDoneDownloading()
+ Try
+ Me._fanarttvDone = True
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ 'Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.FANARTTVPosters = Posters
+
+ Me.bwFANARTTVDownload.WorkerSupportsCancellation = True
+ Me.bwFANARTTVDownload.WorkerReportsProgress = True
+ Me.bwFANARTTVDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub IMDBDoneDownloading()
+ Try
+ Me._imdbDone = True
+ Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL6.Value = 0
+
+ 'Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = Posters.Count
+
+ Me.IMDBPosters = Posters
+
+ Me.bwIMDBDownload.WorkerSupportsCancellation = True
+ Me.bwIMDBDownload.WorkerReportsProgress = True
+ Me.bwIMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL6.Value = iPercent
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL4.Value = 0
+
+ 'Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL4.Value = iPercent
+ End Sub
+
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL5.Value = 0
+
+ 'Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL5.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.Description, iIndex, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMDB.PostersDownloaded, AddressOf IMDBPostersDownloaded
+ AddHandler IMDB.ProgressUpdated, AddressOf IMDBProgressUpdated
+ AddHandler FANARTTVs.PostersDownloaded, AddressOf FANARTTVPostersDownloaded
+ AddHandler FANARTTVs.ProgressUpdated, AddressOf FANARTTVProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+ AddHandler IMDBDone, AddressOf IMDBDoneDownloading
+ AddHandler FANARTTVDone, AddressOf FANARTTVDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = True
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = True
+ Me.pnlMDB.Visible = True
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 328
+ Me.pnlDLStatus.Top = 82
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = True
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 129
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL5.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL4.Text = Me.lblDL5.Text
+ Me.lblDL3.Text = Me.lblDL5.Text
+ Me.lblDL2.Text = Me.lblDL5.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ Me._tmdbDone = True
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ 'Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.TMDBPosters = Posters
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb b/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..edf9f3b
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb
@@ -0,0 +1,460 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtTMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(497, 401)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(570, 401)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(4, 96)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.ShowLines = False
+ Me.tvResults.ShowPlusMinus = False
+ Me.tvResults.ShowRootLines = False
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 4
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(294, 130)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(291, 70)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(291, 89)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(294, 295)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(472, 130)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(472, 156)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(472, 183)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtTMDBID
+ '
+ Me.txtTMDBID.Enabled = False
+ Me.txtTMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBID.Location = New System.Drawing.Point(139, 399)
+ Me.txtTMDBID.Name = "txtTMDBID"
+ Me.txtTMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTMDBID.TabIndex = 6
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 8
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(257, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(4, 403)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(130, 17)
+ Me.chkManual.TabIndex = 5
+ Me.chkManual.Text = "Manual TMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(245, 399)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 7
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(472, 247)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(37, 13)
+ Me.lblIMDB.TabIndex = 20
+ Me.lblIMDB.Text = "TMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(410, 130)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(33, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(410, 156)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(410, 183)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(410, 247)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(56, 13)
+ Me.lblIMDBHeader.TabIndex = 19
+ Me.lblIMDBHeader.Text = "TMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(291, 279)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(262, 70)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 3
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(4, 71)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 2
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(364, 183)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 18
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(100, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(308, 155)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'dlgTMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 454)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtTMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgTMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+
+End Class
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.resx b/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.resx
new file mode 100644
index 0000000..017a5ad
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK9gAA
+ CvYBwq9wAwAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.vb b/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.vb
new file mode 100644
index 0000000..d05fd0b
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTMDBSearchResults.vb
@@ -0,0 +1,462 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class dlgTMDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private TMDBg As TMDBg.Scraper
+ Private sHTTP As New HTTP
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+ Private MySettings As EmberTMDBScraperModule.sMySettings
+ 'Private TMDBConf As V3.TmdbConfiguration
+ 'Private TMDBApi As V3.Tmdb
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(_MySettings As EmberTMDBScraperModule.sMySettings, _TMDBg As TMDBg.Scraper)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+ 'TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ 'TMDBConf = TMDBApi.GetConfiguration()
+ MySettings = _MySettings
+ TMDBg = _TMDBg
+ End Sub
+
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ 'TMDBg.IMDBURL = TMDBId
+ TMDBg.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As TMDBg.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching TMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ TMDBg.CancelAsync()
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ TMDBg.GetSearchMovieInfoAsync(Me.txtTMDBID.Text, Master.tmpMovie, Master.DefaultOptions)
+
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ TMDBg.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ 'TMDBg.IMDBURL = IMDBURL
+ AddHandler TMDBg.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler TMDBg.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Master.tmpMovie.IMDBID = Me.txtTMDBID.Text
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.TMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.TMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.TMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As TMDBg.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+ 'Dim TnP As New TreeNode
+ 'Dim selNode As New TreeNode
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) AndAlso M.Matches.Count > 0 Then
+
+ 'M.Matches.Sort()
+ For Each Movie As MediaContainers.Movie In M.Matches
+ 'TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Me.tvResults.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.TMDBID})
+ Next
+ 'TnP.Expand()
+ 'Me.tvResults.Nodes.Add(TnP)
+ 'selNode = Me.tvResults.Nodes(0)
+ 'selNode = TnP.FirstNode
+ 'selNode = Me.tvResults.Nodes(0)
+ Me.tvResults.SelectedNode = Me.tvResults.Nodes(0)
+
+ Me._prevnode = -2
+
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual TMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(116, "TMDB ID:")
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching TMDB...")
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..1865dbc
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,279 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(290, 339)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(74, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(369, 339)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(411, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(424, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(112, 82)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(120, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(411, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(376, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(365, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(72, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(392, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(153, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 339)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(106, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(207, 339)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(77, 23)
+ Me.btnSetNfo.TabIndex = 4
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(444, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(450, 366)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.resx b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..2be3cac
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB80lEQVQ4T6XTTWsTQRgH8EGr9GDFm19AseDBgzc9eba0FJqvIOTiRase
+ RAIKtRo9LbbxpYmtggXR2KRFqGLfDio9tDGbdUMrbvc1+57sioiVv7NDLE3MXnTgz8DsPr95dpglAMj/
+ pKVY17QuyzLP2raVoBlybHvIc92EUKmcidukBTBrtasUAC0GLWYJggaWl5dw9056uBPSAtDi8aiYAY4N
+ 13HwLQyxuLiAW6OjyIyPXW5H2gFuZ/cm4HseNFVFsTCD2WIRHz+8P7cb6Qjs7iDqIkLCMEC97kedZWMB
+ egasA8s24TsBQm8bob8N3w3YZzUzFgsYus6ZZo0WhPisvMackGQR5Dm2xnDLjAdUVeF0XUPD/Yl31eu4
+ sURY3orXaDe/EOGGoccDsrzFKYoMz/yON0IaqYVDLPPCTdTtH6D3BKqixANfNjc5SZJga3XMlm5jeP4w
+ S6E0AsdoQJFlbElSPMCXy/ekDQUTK1eQzB/B+cJxlmT+KB6sXID61UBVFDOxh7i+tjbCf+KxXl7FpZeD
+ SOR6WS6+6EepsgpREFHh+XRHYC8hB/r7+k7kshOZ/PSrZ7mn2cnTqd7qqdSxjUdPHk7NPC9OT00+vj84
+ MHByDyEH/yA7F4kC+wgh3dGDaDTnHkK6etrWuum7+/8C/vWX/g1N2vpUAmZdeAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQfZBBoSIQHX+6QX
+ AAACOElEQVQ4T7WSTWvaQRCHozlYNQSiVXwBNSSKKAhqKogo2hx8OeUQpPVY9OBFId+g0IufoQnegslF
+ EEG8qAgeiij4hohoDjkphJAIGg/udGepfyLV3rowLDu788zs/GZv73+st7e35NPT069KpfJaLpdnj4+P
+ nel0+p3mOvhnvoeHh0+j0WieTCbB6XSSYDAIoVAIXC4Xicfj0Ov1IJ/Pf9kKweBisQharZbY7XbweDxg
+ sVjg7OwM8Ix2enpK7u/v4e7u7ttfEJp5QZ3k8PAQ1Go1hMNhyGazIJFIQKVSMd/R0RHgm2azCQqFQsNB
+ FovFFZZLHZz5fD7AlU6nmY/H43F3NpsNWq3WLQeYz+d1JL8H4BfW6+bmZgOO77rd7isHqNfrM3Ty+XzY
+ 399n5vV6WfxqtWL79fX1RiWlUgnPHxlkDRAKhSASiUAsFoPf72eBhBAGeXl5AZlMBgKBgIGoxLirGOD5
+ +blL/0iwSVKpFORyOVxcXHAV0HtUhzUUm4yATqezpPsHBphMJj8uLy9BqVSCRqOB4+NjiEQiDICZUU6d
+ TseUQLjb7YZqtVp6L+UBlREBxGg0soBoNArL5RJQDavVCmazGecAKyTtdhtOTk68G7OQy+W+1mo1MJlM
+ hE4hA2BV5+fnLKPD4QC9Xk8KhQKkUqmfW6cxk8nE6ERCIpFgkxgIBFgzERCLxWAwGOwOXhPpPzWNRuN2
+ PB7P+v0+oA2HwyWVrWIwGD5vzbzDyaN++R+phLsCfwMUR2eb8uMbUAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.vb b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..d63ea34
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailer.vb
@@ -0,0 +1,465 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+Imports EmberScraperModule.EmberTMDBScraperModule
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = TMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ cTrailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..22f1374
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(84, 117)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(154, 117)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(17, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(78, 69)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(53, 2)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(114, 100)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(10, 29)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.pnlStatus)
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(2, 4)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(220, 111)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 143)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.resx b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.vb b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb b/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f610c2c
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb
@@ -0,0 +1,545 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.chkFallBackEng = New System.Windows.Forms.CheckBox()
+ Me.cbTMDBPrefLanguage = New System.Windows.Forms.ComboBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtTMDBApiKey = New System.Windows.Forms.TextBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtFANARTTVApiKey = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.pbTMDB = New System.Windows.Forms.PictureBox()
+ Me.pbFANARTTV = New System.Windows.Forms.PictureBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.pbTMDB)
+ Me.GroupBox30.Controls.Add(Me.chkFallBackEng)
+ Me.GroupBox30.Controls.Add(Me.cbTMDBPrefLanguage)
+ Me.GroupBox30.Controls.Add(Me.Label3)
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtTMDBApiKey)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(309, 123)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "TMDB"
+ '
+ 'chkFallBackEng
+ '
+ Me.chkFallBackEng.AutoSize = True
+ Me.chkFallBackEng.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFallBackEng.Location = New System.Drawing.Point(8, 100)
+ Me.chkFallBackEng.Name = "chkFallBackEng"
+ Me.chkFallBackEng.Size = New System.Drawing.Size(129, 17)
+ Me.chkFallBackEng.TabIndex = 4
+ Me.chkFallBackEng.Text = "Fall back on english"
+ Me.chkFallBackEng.UseVisualStyleBackColor = True
+ '
+ 'cbTMDBPrefLanguage
+ '
+ Me.cbTMDBPrefLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTMDBPrefLanguage.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTMDBPrefLanguage.FormattingEnabled = True
+ Me.cbTMDBPrefLanguage.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTMDBPrefLanguage.Location = New System.Drawing.Point(123, 65)
+ Me.cbTMDBPrefLanguage.Name = "cbTMDBPrefLanguage"
+ Me.cbTMDBPrefLanguage.Size = New System.Drawing.Size(45, 21)
+ Me.cbTMDBPrefLanguage.TabIndex = 3
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label3.Location = New System.Drawing.Point(6, 68)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(111, 13)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "Preferred Language:"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(79, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "TMDB API Key:"
+ '
+ 'txtTMDBApiKey
+ '
+ Me.txtTMDBApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtTMDBApiKey.Name = "txtTMDBApiKey"
+ Me.txtTMDBApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtTMDBApiKey.TabIndex = 1
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pbFANARTTV)
+ Me.GroupBox1.Controls.Add(Me.Label5)
+ Me.GroupBox1.Controls.Add(Me.txtFANARTTVApiKey)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(8, 169)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(309, 71)
+ Me.GroupBox1.TabIndex = 75
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Fanart.tv"
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label5.Location = New System.Drawing.Point(6, 18)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(94, 13)
+ Me.Label5.TabIndex = 0
+ Me.Label5.Text = "Fanart.tv API Key:"
+ '
+ 'txtFANARTTVApiKey
+ '
+ Me.txtFANARTTVApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtFANARTTVApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtFANARTTVApiKey.Name = "txtFANARTTVApiKey"
+ Me.txtFANARTTVApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtFANARTTVApiKey.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(323, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(283, 150)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(225, 17)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(52, 17)
+ Me.chkCrew.TabIndex = 19
+ Me.chkCrew.Text = "Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(131, 123)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 89)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 72)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 89)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 123)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(131, 106)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 106)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 72)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'pbTMDB
+ '
+ Me.pbTMDB.Image = CType(resources.GetObject("pbTMDB.Image"), System.Drawing.Image)
+ Me.pbTMDB.Location = New System.Drawing.Point(287, 34)
+ Me.pbTMDB.Name = "pbTMDB"
+ Me.pbTMDB.Size = New System.Drawing.Size(16, 16)
+ Me.pbTMDB.TabIndex = 5
+ Me.pbTMDB.TabStop = False
+ '
+ 'pbFANARTTV
+ '
+ Me.pbFANARTTV.Image = CType(resources.GetObject("pbFANARTTV.Image"), System.Drawing.Image)
+ Me.pbFANARTTV.Location = New System.Drawing.Point(287, 34)
+ Me.pbFANARTTV.Name = "pbFANARTTV"
+ Me.pbFANARTTV.Size = New System.Drawing.Size(16, 16)
+ Me.pbFANARTTV.TabIndex = 6
+ Me.pbFANARTTV.TabStop = False
+ '
+ 'frmTMDBInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFallBackEng As System.Windows.Forms.CheckBox
+ Friend WithEvents cbTMDBPrefLanguage As System.Windows.Forms.ComboBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label5 As System.Windows.Forms.Label
+ Friend WithEvents txtFANARTTVApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents pbTMDB As System.Windows.Forms.PictureBox
+ Friend WithEvents pbFANARTTV As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.resx b/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.resx
new file mode 100644
index 0000000..b1bac92
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.resx
@@ -0,0 +1,223 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="pbFANARTTV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAABypJREFUWEftlntQlccZxrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj
+ 24wlxabt1PSShFhJEFEuKhxUBAFNRSFq7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7
+ z77v7rufAqBGkhGdXBb+fwH/GxG41NenPr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7Pk
+ ZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2ms
+ e+DyZ5+p/itXRMTopUWL6+gIedmZSIiJQk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGek
+ o7AgH+vYlzU/DakpydomL+ufPnKzMiA+VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB
+ +vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xqQhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQX
+ pv/PSojDRtP6zN+/uU399je/fihg9szpKnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2
+ lL1eipSkROyrr4eloQEMNcpKS3H8zx/gxSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpx
+ eryaHhtdIquODA3WK1yQnYVshlrCWrAwD4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOW
+ yxSmpszWPiNCggRzREigEqwCZPKkGQkSAZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4Cbt
+ btwY0G3hNvvb244gKiwEYUFGc0RwkBKGRCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D5
+ 57jY26tTEGL0N4cHG5kC40MB7FCShpjIcFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr
+ 1IcfgilGcICfOSwoQAnWCLBDzYiLUdHhoSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx
+ 44iPjkSQv6851GhQglUAcy8bUDFHJtksrYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbE
+ RYYj0M/HzCgowSogPipSJURHqciQYFMEN+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD
+ 6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+ytr8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no
+ 660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJoYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJ
+ VgFUJvlXnNzETYL3KnbA0mjBflbE4SBCN71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfm
+ P0gFGXxNAb7eKGfprKutxZ7du4eFiJT8L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUH
+ GSUvJoYG28vL/ysBMulG0wa8qAU0DBEti6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/
+ pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrurq1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5
+ LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wGjVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F
+ 5yOngBuQTpSv57QSUVmzu5qVbRsm2dmgZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQ
+ eK3zwglAU2OjLkwO45/FNhapvXW1oH84T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN
+ +toa/TExLzmJV22mbldWVIgjXL9+Xd90srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x
+ 1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4e
+ L9np2kbGOTP00WHBvIiieBH5N0xzdR0tc8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5
+ usvJYaLQPdH22W7HiXbdzo6TujlG4zx5UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7B
+ An7Alw5U50wms+3Cge7Ek3gTX+JH/ImBBAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm
+ 3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/xKb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVO
+ RK5CYII=
+</value>
+ </data>
+ <data name="pbTMDB.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.vb b/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.vb
new file mode 100644
index 0000000..d17768a
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/frmTMDBInfoSettingsHolder.vb
@@ -0,0 +1,218 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports System.Diagnostics
+
+Public Class frmTMDBInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ Public Event SetupNeedsRestart()
+
+#End Region 'Events
+
+#Region "Fields"
+
+ Private Api1 As String
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFallBackEng_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFallBackEng.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTMDBPrefLanguage_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbTMDBPrefLanguage.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtFANARTTVApiKey_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtFANARTTVApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Enter
+ Api1 = txtTMDBApiKey.Text
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextValidated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Validated
+ If Not (Api1 = txtTMDBApiKey.Text) Then
+ RaiseEvent SetupNeedsRestart()
+ End If
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label18.Text = Master.eLang.GetString(854, "TMDB API Key:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(856, "Cast and Crew", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(859, "MPAA & Certification", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ 'Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkFallBackEng.Text = Master.eLang.GetString(114, "Fall back on english")
+ Me.Label3.Text = Master.eLang.GetString(115, "Preferred Language:")
+
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+
+#End Region 'Methods
+
+ Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles pbTMDB.Click
+ If Master.isWindows Then
+ Process.Start("http://docs.themoviedb.apiary.io/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://docs.themoviedb.apiary.io/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+
+ Private Sub pbFANARTTV_Click(sender As System.Object, e As System.EventArgs) Handles pbFANARTTV.Click
+ If Master.isWindows Then
+ Process.Start("http://fanart.tv/get-an-api-key/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://fanart.tv/get-an-api-key/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb b/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..68e3c03
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb
@@ -0,0 +1,525 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.chkUseFANARTTV = New System.Windows.Forms.CheckBox()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMDBp = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(505, 154)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.chkUseFANARTTV)
+ Me.GroupBox6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox6.Location = New System.Drawing.Point(331, 21)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox6.TabIndex = 96
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Get Fanart From:"
+ '
+ 'chkUseFANARTTV
+ '
+ Me.chkUseFANARTTV.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseFANARTTV.Location = New System.Drawing.Point(6, 21)
+ Me.chkUseFANARTTV.Name = "chkUseFANARTTV"
+ Me.chkUseFANARTTV.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseFANARTTV.TabIndex = 2
+ Me.chkUseFANARTTV.Text = "fanart.tv"
+ Me.chkUseFANARTTV.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMDBp)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 19)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 78)
+ Me.GroupBox9.TabIndex = 5
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Poster From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMDBp
+ '
+ Me.chkUseIMDBp.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMDBp.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseIMDBp.Name = "chkUseIMDBp"
+ Me.chkUseIMDBp.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseIMDBp.TabIndex = 0
+ Me.chkUseIMDBp.Text = "IMDB.com"
+ Me.chkUseIMDBp.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(331, 94)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(12, 21)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(131, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 203)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(464, 126)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.GroupBox5)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(291, 104)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 5
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(123, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 83)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmTMDBMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMDBp As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseFANARTTV As System.Windows.Forms.CheckBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.resx b/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.resx
new file mode 100644
index 0000000..3c46229
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.resx
@@ -0,0 +1,238 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABypJREFUWEftlntQlccZ
+ xrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj24wlxabt1PSShFhJEFEuKhxUBAFNRSFq
+ 7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7z77v7rufAqBGkhGdXBb+fwH/GxG41Nen
+ Pr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7PkZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2
+ vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2mse+DyZ5+p/itXRMTopUWL6+gIedmZSIiJ
+ Qk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGeko7AgH+vYlzU/DakpydomL+ufPnKzMiA+
+ VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB+vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xq
+ QhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQXpv/PSojDRtP6zN+/uU399je/fihg9szp
+ KnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2lL1eipSkROyrr4eloQEMNcpKS3H8zx/g
+ xSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpxeryaHhtdIquODA3WK1yQnYVshlrCWrAw
+ D4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOWyxSmpszWPiNCggRzREigEqwCZPKkGQkS
+ AZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4CbtbtwY0G3hNvvb244gKiwEYUFGc0RwkBKG
+ RCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D557jY26tTEGL0N4cHG5kC40MB7FCShpjI
+ cFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr1IcfgilGcICfOSwoQAnWCLBDzYiLUdHh
+ oSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx44iPjkSQv6851GhQglUAcy8bUDFHJtks
+ rYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbERYYj0M/HzCgowSogPipSJURHqciQYFME
+ N+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+yt
+ r8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJ
+ oYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJVgFUJvlXnNzETYL3KnbA0mjBflbE4SBC
+ N71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfmP0gFGXxNAb7eKGfprKutxZ7du4eFiJT8
+ L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUHGSUvJoYG28vL/ysBMulG0wa8qAU0DBEt
+ i6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrur
+ q1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wG
+ jVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F5yOngBuQTpSv57QSUVmzu5qVbRsm2dmg
+ ZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQeK3zwglAU2OjLkwO45/FNhapvXW1oH84
+ T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN+toa/TExLzmJV22mbldWVIgjXL9+Xd90
+ srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI
+ 1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4eL9np2kbGOTP00WHBvIiieBH5N0xzdR0t
+ c8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5usvJYaLQPdH22W7HiXbdzo6TujlG4zx5
+ UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7BAn7Alw5U50wms+3Cge7Ek3gTX+JH/ImB
+ BAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/x
+ Kb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.vb b/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.vb
new file mode 100644
index 0000000..6ccca98
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/frmTMDBMediaSettingsHolder.vb
@@ -0,0 +1,165 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTMDBMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseFANARTTV_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkUseFANARTTV.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMDBp_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkUseIMDBp.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMDBf_CheckedChanged(sender As System.Object, e As System.EventArgs)
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/packages.config b/Addons/scraper.MPDB.Poster/packages.config
new file mode 100644
index 0000000..9d72b1b
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="RestSharp" version="104.1" targetFramework="net35" />
+ <package id="SharpZipLib" version="0.86.0" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/scraper.MPDB.Poster.vbproj b/Addons/scraper.MPDB.Poster/scraper.MPDB.Poster.vbproj
new file mode 100644
index 0000000..523e219
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/scraper.MPDB.Poster.vbproj
@@ -0,0 +1,287 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{72A8EF23-3379-4C72-B212-A14A3C286D9C}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.MPDB.Poster</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ <SccProjectName>
+ </SccProjectName>
+ <SccLocalPath>
+ </SccLocalPath>
+ <SccAuxPath>
+ </SccAuxPath>
+ <SccProvider>
+ </SccProvider>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="RestSharp">
+ <HintPath>..\..\packages\RestSharp.104.1\lib\net35\RestSharp.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeTMDBg.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeFANARTTV.vb" />
+ <Compile Include="Scraper\dlgTMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTMDBMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieTMDBModule.vb" />
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="Scraper\dlgTMDBSearchResults.resx">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBMediaSettingsHolder.resx">
+ <DependentUpon>frmTMDBMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBInfoSettingsHolder.resx">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ <ProjectReference Include="..\..\FanartTVAPI\FanartTVAPI.csproj">
+ <Project>{70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}</Project>
+ <Name>FanartTVAPI</Name>
+ </ProjectReference>
+ <ProjectReference Include="..\..\WatTmdb\WatTmdb.csproj">
+ <Project>{EFC11645-FAB4-4C30-A498-29F5ECDF77E8}</Project>
+ <Name>WatTmdb</Name>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <ItemGroup />
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.MPDB.Poster/scraperMovieTMDBModule.vb b/Addons/scraper.MPDB.Poster/scraperMovieTMDBModule.vb
new file mode 100644
index 0000000..7ac1344
--- /dev/null
+++ b/Addons/scraper.MPDB.Poster/scraperMovieTMDBModule.vb
@@ -0,0 +1,761 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+Imports EmberScraperModule.TMDBg
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberTMDBScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ Private TMDBId As String
+ 'Private IMDBid As String
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private _MySettings As New sMySettings
+ Private _TMDBg As TMDBg.Scraper
+ Private _Name As String = "Ember TMDB Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTMDBInfoSettingsHolder
+ Private _setupPost As frmTMDBMediaSettingsHolder
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ Return True
+ Case Enums.PostScraperCapabilities.Poster
+ Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If _MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.TMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ '' perche' lo crea?
+
+ ''Dim TMDBg As New TMDBg.Scraper
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ studio = _TMDBg.GetMovieStudios(DBMovie.Movie.ID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupNeedsRestart()
+ RaiseEvent SetupNeedsRestart()
+ End Sub
+
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ 'Must be after Load settings to retrieve the correct API key
+ _TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Info")
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ End If
+ End If
+ _TMDBConf = _TMDBApi.GetConfiguration()
+ _TMDBApiE = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey)
+ _TMDBConfE = _TMDBApiE.GetConfiguration()
+ _TMDBg = New TMDBg.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmTMDBMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = _MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = _MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = _MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = _MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseIMDBp.Checked = _MySettings.UseIMDB
+ _setupPost.chkUseIMPA.Checked = _MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = _MySettings.UseMPDB
+ _setupPost.chkUseFANARTTV.Checked = _MySettings.UseFANARTTV
+
+ ' ad size from TMDB
+ '_setupPost.cbManualETSize.Items.Clear()
+ 'If Not IsNothing(_TMDBg.TMDBConf.images) Then
+ ' For Each aSi In _TMDBg.TMDBConf.images.poster_sizes
+ ' _setupPost.cbManualETSize.Items.Add(aSi)
+ ' Next
+ '
+ 'End If
+ _setupPost.cbManualETSize.Text = _MySettings.ManualETSize
+
+ _setupPost.txtTimeout.Text = _MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = _MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ Spanel.Prefix = "TMDBMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return Spanel
+ End Function
+
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTMDBInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkCast.Checked = ConfigOptions.bFullCast
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkCrew.Checked = ConfigOptions.bFullCrew
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+
+ '_setup.chkCertification.Checked = ConfigOptions.bCert
+
+ If String.IsNullOrEmpty(_MySettings.TMDBAPIKey) Then
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ _setup.txtTMDBApiKey.Text = _MySettings.TMDBAPIKey
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.orderChanged()
+ If String.IsNullOrEmpty(_MySettings.FANARTTVApiKey) Then
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _setup.txtFANARTTVApiKey.Text = _MySettings.FANARTTVApiKey
+
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ SPanel.Prefix = "TMDBMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return SPanel
+ End Function
+
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ _MySettings.TMDBAPIKey = AdvancedSettings.GetSetting("TMDBAPIKey", "Get your API Key from http://www.themoviedb.org")
+ _MySettings.FANARTTVApiKey = AdvancedSettings.GetSetting("FANARTTVApiKey", "Get your API Key from http://fanart.tv")
+ _MySettings.FallBackEng = AdvancedSettings.GetBooleanSetting("FallBackEn", False)
+ _MySettings.TMDBLanguage = AdvancedSettings.GetSetting("TMDBLanguage", "en")
+ _MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ _MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ _MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ _MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ _MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ _MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ _MySettings.UseIMDB = AdvancedSettings.GetBooleanSetting("UseIMDB", False)
+ _MySettings.UseFANARTTV = AdvancedSettings.GetBooleanSetting("UseFANARTTV", False)
+ _MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ _MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ _MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As Trailers
+ Dim aScrapeImages As ScrapeImages
+
+ LoadSettings()
+ If String.IsNullOrEmpty(DBMovie.Movie.TMDBID) Then
+ _TMDBg.GetMovieID(DBMovie)
+ End If
+ Trailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Dim doSave As Boolean = False
+
+ aScrapeImages = New ScrapeImages(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ If Master.GlobalScrapeMod.Poster Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If aScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.ID, DBMovie.Movie.TMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApi, _MySettings)
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If aScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, DBMovie.Movie.TMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApi, _MySettings)
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso _MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.TMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ aScrapeImages.GetPreferredFAasET(DBMovie.Movie.TMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", _MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", _MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", _MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", _MySettings.UseTMDBTrailerXBMC)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", _MySettings.UseIMDBTrailer)
+
+ AdvancedSettings.SetSetting("ManualETSize", _MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", _MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+
+ AdvancedSettings.SetSetting("TMDBAPIKey", _MySettings.TMDBAPIKey)
+ AdvancedSettings.SetSetting("FANARTTVApiKey", _MySettings.FANARTTVApiKey)
+ AdvancedSettings.SetBooleanSetting("FallBackEn", _MySettings.FallBackEng)
+ AdvancedSettings.SetSetting("TMDBLanguage", _MySettings.TMDBLanguage)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", _MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", _MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDB", _MySettings.UseIMDB)
+ AdvancedSettings.SetBooleanSetting("UseFANARTTV", _MySettings.UseFANARTTV)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ _MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ _MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ _MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ _MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ _MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ _MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ _MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ _MySettings.UseIMDB = _setupPost.chkUseIMDBp.Checked
+ _MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ _MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ _MySettings.UseFANARTTV = _setupPost.chkUseFANARTTV.Checked
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtTMDBApiKey.Text) Then
+ _MySettings.TMDBAPIKey = _setup.txtTMDBApiKey.Text
+ Else
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ If Not String.IsNullOrEmpty(_setup.txtFANARTTVApiKey.Text) Then
+ _MySettings.FANARTTVApiKey = _setup.txtFANARTTVApiKey.Text
+ Else
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = False
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkCrew.Checked
+ ConfigOptions.bWriters = _setup.chkCrew.Checked
+ ConfigOptions.bProducers = _setup.chkCrew.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkCrew.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = False
+ ConfigOptions.bFullCrew = _setup.chkCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkCast.Checked
+ ConfigOptions.bCert = ConfigOptions.bMPAA
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ ''TMDBg.UseOFDBTitle = MySettings.UseOFDBTitle
+ ''TMDBg.UseOFDBOutline = MySettings.UseOFDBOutline
+ ''TMDBg.UseOFDBPlot = MySettings.UseOFDBPlot
+ ''TMDBg.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = _TMDBg.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgTMDBSearchResults(_MySettings, Me._TMDBg)
+ '' dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If String.IsNullOrEmpty(mMovie.Movie.TMDBID) Then
+ _TMDBg.GetMovieID(mMovie)
+ End If
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ If preload Then
+ dFImgSelect = New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ '' dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure sMySettings
+
+#Region "Fields"
+ Dim DownloadTrailers As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim UseTMDBTrailerPref As String
+ Dim TMDBAPIKey As String
+ Dim FANARTTVApiKey As String
+ Dim TMDBLanguage As String
+ Dim FallBackEng As Boolean
+ Dim UseIMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseFANARTTV As Boolean
+ Dim UseIMDBTrailer As Boolean
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/AssemblyInfo.vb b/Addons/scraper.OFDB.Data/AssemblyInfo.vb
new file mode 100644
index 0000000..1b59a44
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.EmberCore")>
+<Assembly: AssemblyDescription("www.embermm.com")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.EmberCore")>
+<Assembly: AssemblyCopyright("Copyright © 2011")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("4c4e9cbd-06e2-44ed-bbed-0f51f6c3f4ef")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.5")>
+<Assembly: AssemblyFileVersion("1.3.0.5")>
diff --git a/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml
new file mode 100644
index 0000000..0fba5b0
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">native1</string>
+ <string id="2">native2</string>
+ <string id="3">native3</string>
+ <string id="4">native4</string>
+ <string id="5">native5</string>
+ <string id="6">native6</string>
+ <string id="7">native7</string>
+ <string id="8">native8</string>
+ <string id="9">native9</string>
+ <string id="10">native10</string>
+ <string id="11">native11</string>
+ <string id="12">native12</string>
+ <string id="13">native13</string>
+ <string id="14">native14</string>
+ <string id="15">native15</string>
+ <string id="16">native16</string>
+ <string id="17">native17</string>
+ <string id="18">native18</string>
+ <string id="19">native19</string>
+ <string id="20">native20</string>
+ <string id="21">native21</string>
+ <string id="22">native22</string>
+ <string id="23">native23</string>
+ <string id="24">native24</string>
+ <string id="25">native25</string>
+ <string id="26">native26</string>
+ <string id="27">native27</string>
+ <string id="28">native28</string>
+ <string id="29">native29</string>
+ <string id="30">native30</string>
+ <string id="31">native31</string>
+ <string id="32">native32</string>
+ <string id="33">native33</string>
+ <string id="34">native34</string>
+ <string id="35">native35</string>
+ <string id="36">native36</string>
+ <string id="37">native37</string>
+ <string id="38">native38</string>
+ <string id="39">native39</string>
+ <string id="40">native40</string>
+ <string id="41">native41</string>
+ <string id="42">native42</string>
+ <string id="43">native43</string>
+ <string id="44">native44</string>
+ <string id="45">native45</string>
+ <string id="46">native46</string>
+ <string id="47">native47</string>
+ <string id="48">native48</string>
+ <string id="49">native49</string>
+ <string id="50">native50</string>
+ <string id="51">native51</string>
+ <string id="52">native52</string>
+ <string id="53">native53</string>
+ <string id="54">native54</string>
+ <string id="55">native55</string>
+ <string id="56">native56</string>
+ <string id="57">native57</string>
+ <string id="58">native58</string>
+ <string id="59">native59</string>
+ <string id="60">native60</string>
+ <string id="61">native61</string>
+ <string id="62">native62</string>
+ <string id="63">native63</string>
+ <string id="64">native64</string>
+ <string id="65">native65</string>
+ <string id="66">native66</string>
+ <string id="67">native67</string>
+ <string id="68">native68</string>
+ <string id="69">native69</string>
+ <string id="70">native70</string>
+ <string id="71">native71</string>
+ <string id="72">native72</string>
+ <string id="73">native73</string>
+ <string id="74">native74</string>
+ <string id="75">native75</string>
+ <string id="76">native76</string>
+ <string id="77">native77</string>
+ <string id="78">native78</string>
+ <string id="79">native79</string>
+ <string id="80">native80</string>
+ <string id="81">native81</string>
+ <string id="82">native82</string>
+ <string id="83">native83</string>
+ <string id="84">native84</string>
+ <string id="85">native85</string>
+ <string id="86">native86</string>
+ <string id="87">native87</string>
+ <string id="88">native88</string>
+ <string id="89">native89</string>
+ <string id="90">native90</string>
+ <string id="91">native91</string>
+ <string id="92">native92</string>
+ <string id="93">native93</string>
+ <string id="94">native94</string>
+ <string id="95">native95</string>
+ <string id="96">native96</string>
+ <string id="97">native97</string>
+ <string id="98">native98</string>
+ <string id="99">native99</string>
+ <string id="100">native100</string>
+ <string id="101">native101</string>
+ <string id="102">native102</string>
+ <string id="103">native103</string>
+ <string id="104">native104</string>
+ <string id="105">native105</string>
+ <string id="106">native106</string>
+ <string id="107">native107</string>
+ <string id="108">native108</string>
+ <string id="109">native109</string>
+ <string id="110">native110</string>
+ <string id="111">native111</string>
+ <string id="112">native112</string>
+ <string id="113">native113</string>
+ <string id="114">native114</string>
+ <string id="115">native115</string>
+ <string id="116">native116</string>
+ <string id="117">native117</string>
+ <string id="118">native118</string>
+ <string id="119">native119</string>
+ <string id="120">native120</string>
+ <string id="121">native121</string>
+ <string id="122">native122</string>
+ <string id="123">native123</string>
+ <string id="124">native124</string>
+ <string id="125">native125</string>
+ <string id="126">native126</string>
+ <string id="127">native127</string>
+ <string id="128">native128</string>
+ <string id="129">native129</string>
+ <string id="130">native130</string>
+ <string id="131">native131</string>
+ <string id="132">native132</string>
+ <string id="133">native133</string>
+ <string id="134">native134</string>
+ <string id="135">native135</string>
+ <string id="136">native136</string>
+ <string id="137">native137</string>
+ <string id="138">native138</string>
+ <string id="139">native139</string>
+ <string id="140">native140</string>
+ <string id="141">native141</string>
+ <string id="142">native142</string>
+ <string id="143">native143</string>
+ <string id="144">native144</string>
+ <string id="145">native145</string>
+ <string id="146">native146</string>
+ <string id="147">native147</string>
+ <string id="148">native148</string>
+ <string id="149">native149</string>
+ <string id="150">native150</string>
+ <string id="151">native151</string>
+ <string id="152">native152</string>
+ <string id="153">native153</string>
+ <string id="154">native154</string>
+ <string id="155">native155</string>
+ <string id="156">native156</string>
+ <string id="157">native157</string>
+ <string id="158">native158</string>
+ <string id="159">native159</string>
+ <string id="160">native160</string>
+ <string id="161">native161</string>
+ <string id="162">native162</string>
+ <string id="163">native163</string>
+ <string id="164">native164</string>
+ <string id="165">native165</string>
+ <string id="166">native166</string>
+ <string id="167">native167</string>
+ <string id="168">native168</string>
+ <string id="169">native169</string>
+ <string id="170">native170</string>
+ <string id="171">native171</string>
+ <string id="172">native172</string>
+ <string id="173">native173</string>
+ <string id="174">native174</string>
+ <string id="175">native175</string>
+ <string id="176">native176</string>
+ <string id="177">native177</string>
+ <string id="178">native178</string>
+ <string id="179">native179</string>
+ <string id="180">native180</string>
+ <string id="181">native181</string>
+ <string id="182">native182</string>
+ <string id="183">native183</string>
+ <string id="184">native184</string>
+ <string id="185">native185</string>
+ <string id="186">native186</string>
+ <string id="187">native187</string>
+ <string id="188">native188</string>
+ <string id="189">native189</string>
+ <string id="190">native190</string>
+ <string id="191">native191</string>
+ <string id="192">native192</string>
+ <string id="193">native193</string>
+ <string id="194">native194</string>
+ <string id="195">native195</string>
+ <string id="196">native196</string>
+ <string id="197">native197</string>
+ <string id="198">native198</string>
+ <string id="199">native199</string>
+ <string id="200">native200</string>
+ <string id="201">native201</string>
+ <string id="202">native202</string>
+ <string id="203">native203</string>
+ <string id="204">native204</string>
+ <string id="205">native205</string>
+ <string id="206">native206</string>
+ <string id="207">native207</string>
+ <string id="208">native208</string>
+ <string id="209">native209</string>
+ <string id="210">native210</string>
+ <string id="211">native211</string>
+ <string id="212">native212</string>
+ <string id="213">native213</string>
+ <string id="214">native214</string>
+ <string id="215">native215</string>
+ <string id="216">native216</string>
+ <string id="217">native217</string>
+ <string id="218">native218</string>
+ <string id="219">native219</string>
+ <string id="220">native220</string>
+ <string id="221">native221</string>
+ <string id="222">native222</string>
+ <string id="223">native223</string>
+ <string id="224">native224</string>
+ <string id="225">native225</string>
+ <string id="226">native226</string>
+ <string id="227">native227</string>
+ <string id="228">native228</string>
+ <string id="229">native229</string>
+ <string id="230">native230</string>
+ <string id="231">native231</string>
+ <string id="232">native232</string>
+ <string id="233">native233</string>
+ <string id="234">native234</string>
+ <string id="235">native235</string>
+ <string id="236">native236</string>
+ <string id="237">native237</string>
+ <string id="238">native238</string>
+ <string id="239">native239</string>
+ <string id="240">native240</string>
+ <string id="241">native241</string>
+ <string id="242">native242</string>
+ <string id="243">native243</string>
+ <string id="244">native244</string>
+ <string id="245">native245</string>
+ <string id="246">native246</string>
+ <string id="247">native247</string>
+ <string id="248">native248</string>
+ <string id="249">native249</string>
+ <string id="250">native250</string>
+ <string id="251">native251</string>
+ <string id="252">native252</string>
+ <string id="253">native253</string>
+ <string id="254">native254</string>
+ <string id="255">native255</string>
+ <string id="256">native256</string>
+ <string id="257">native257</string>
+ <string id="258">native258</string>
+ <string id="259">native259</string>
+ <string id="260">native260</string>
+ <string id="261">native261</string>
+ <string id="262">native262</string>
+ <string id="263">native263</string>
+ <string id="264">native264</string>
+ <string id="265">native265</string>
+ <string id="266">native266</string>
+ <string id="267">native267</string>
+ <string id="268">native268</string>
+ <string id="269">native269</string>
+ <string id="270">native270</string>
+ <string id="271">native271</string>
+ <string id="272">native272</string>
+ <string id="273">native273</string>
+ <string id="274">native274</string>
+ <string id="275">native275</string>
+ <string id="276">native276</string>
+ <string id="277">native277</string>
+ <string id="278">native278</string>
+ <string id="279">native279</string>
+ <string id="280">native280</string>
+ <string id="281">native281</string>
+ <string id="282">native282</string>
+ <string id="283">native283</string>
+ <string id="284">native284</string>
+ <string id="285">native285</string>
+ <string id="286">native286</string>
+ <string id="287">native287</string>
+ <string id="288">native288</string>
+ <string id="289">native289</string>
+ <string id="290">native290</string>
+ <string id="291">native291</string>
+ <string id="292">native292</string>
+ <string id="293">native293</string>
+ <string id="294">native294</string>
+ <string id="295">native295</string>
+ <string id="296">native296</string>
+ <string id="297">native297</string>
+ <string id="298">native298</string>
+ <string id="299">native299</string>
+ <string id="300">native300</string>
+ <string id="301">native301</string>
+ <string id="302">native302</string>
+ <string id="303">native303</string>
+ <string id="304">native304</string>
+ <string id="305">native305</string>
+ <string id="306">native306</string>
+ <string id="307">native307</string>
+ <string id="308">native308</string>
+ <string id="309">native309</string>
+ <string id="310">native310</string>
+ <string id="311">native311</string>
+ <string id="312">native312</string>
+ <string id="313">native313</string>
+ <string id="314">native314</string>
+ <string id="315">native315</string>
+ <string id="316">native316</string>
+ <string id="317">native317</string>
+ <string id="318">native318</string>
+ <string id="319">native319</string>
+ <string id="320">native320</string>
+ <string id="321">native321</string>
+ <string id="322">native322</string>
+ <string id="323">native323</string>
+ <string id="324">native324</string>
+ <string id="325">native325</string>
+ <string id="326">native326</string>
+ <string id="327">native327</string>
+ <string id="328">native328</string>
+ <string id="329">native329</string>
+ <string id="330">native330</string>
+ <string id="331">native331</string>
+ <string id="332">native332</string>
+ <string id="333">native333</string>
+ <string id="334">native334</string>
+ <string id="335">native335</string>
+ <string id="336">native336</string>
+ <string id="337">native337</string>
+ <string id="338">native338</string>
+ <string id="339">native339</string>
+ <string id="340">native340</string>
+ <string id="341">native341</string>
+ <string id="342">native342</string>
+ <string id="343">native343</string>
+ <string id="344">native344</string>
+ <string id="345">native345</string>
+ <string id="346">native346</string>
+ <string id="347">native347</string>
+ <string id="348">native348</string>
+ <string id="349">native349</string>
+ <string id="350">native350</string>
+ <string id="351">native351</string>
+ <string id="352">native352</string>
+ <string id="353">native353</string>
+ <string id="354">native354</string>
+ <string id="355">native355</string>
+ <string id="356">native356</string>
+ <string id="357">native357</string>
+ <string id="358">native358</string>
+ <string id="359">native359</string>
+ <string id="360">native360</string>
+ <string id="361">native361</string>
+ <string id="362">native362</string>
+ <string id="363">native363</string>
+ <string id="364">native364</string>
+ <string id="365">native365</string>
+ <string id="366">native366</string>
+ <string id="367">native367</string>
+ <string id="368">native368</string>
+ <string id="369">native369</string>
+ <string id="370">native370</string>
+ <string id="371">native371</string>
+ <string id="372">native372</string>
+ <string id="373">native373</string>
+ <string id="374">native374</string>
+ <string id="375">native375</string>
+ <string id="376">native376</string>
+ <string id="377">native377</string>
+ <string id="378">native378</string>
+ <string id="379">native379</string>
+ <string id="380">native380</string>
+ <string id="381">native381</string>
+ <string id="382">native382</string>
+ <string id="383">native383</string>
+ <string id="384">native384</string>
+ <string id="385">native385</string>
+ <string id="386">native386</string>
+ <string id="387">native387</string>
+ <string id="388">native388</string>
+ <string id="389">native389</string>
+ <string id="390">native390</string>
+ <string id="391">native391</string>
+ <string id="392">native392</string>
+ <string id="393">native393</string>
+ <string id="394">native394</string>
+ <string id="395">native395</string>
+ <string id="396">native396</string>
+ <string id="397">native397</string>
+ <string id="398">native398</string>
+ <string id="399">native399</string>
+ <string id="400">native400</string>
+ <string id="401">native401</string>
+ <string id="402">native402</string>
+ <string id="403">native403</string>
+ <string id="404">native404</string>
+ <string id="405">native405</string>
+ <string id="406">native406</string>
+ <string id="407">native407</string>
+ <string id="408">native408</string>
+ <string id="409">native409</string>
+ <string id="410">native410</string>
+ <string id="411">native411</string>
+ <string id="412">native412</string>
+ <string id="413">native413</string>
+ <string id="414">native414</string>
+ <string id="415">native415</string>
+ <string id="416">native416</string>
+ <string id="417">native417</string>
+ <string id="418">native418</string>
+ <string id="419">native419</string>
+ <string id="420">native420</string>
+ <string id="421">native421</string>
+ <string id="422">native422</string>
+ <string id="423">native423</string>
+ <string id="424">native424</string>
+ <string id="425">native425</string>
+ <string id="426">native426</string>
+ <string id="427">native427</string>
+ <string id="428">native428</string>
+ <string id="429">native429</string>
+ <string id="430">native430</string>
+ <string id="431">native431</string>
+ <string id="432">native432</string>
+ <string id="433">native433</string>
+ <string id="434">native434</string>
+ <string id="435">native435</string>
+ <string id="436">native436</string>
+ <string id="437">native437</string>
+ <string id="438">native438</string>
+ <string id="439">native439</string>
+ <string id="440">native440</string>
+ <string id="441">native441</string>
+ <string id="442">native442</string>
+ <string id="443">native443</string>
+ <string id="444">native444</string>
+ <string id="445">native445</string>
+ <string id="446">native446</string>
+ <string id="447">native447</string>
+ <string id="448">native448</string>
+ <string id="449">native449</string>
+ <string id="450">native450</string>
+ <string id="451">native451</string>
+ <string id="452">native452</string>
+ <string id="453">native453</string>
+ <string id="454">native454</string>
+ <string id="455">native455</string>
+ <string id="456">native456</string>
+ <string id="457">native457</string>
+ <string id="458">native458</string>
+ <string id="459">native459</string>
+ <string id="460">native460</string>
+ <string id="461">native461</string>
+ <string id="462">native462</string>
+ <string id="463">native463</string>
+ <string id="464">native464</string>
+ <string id="465">native465</string>
+ <string id="466">native466</string>
+ <string id="467">native467</string>
+ <string id="468">native468</string>
+ <string id="469">native469</string>
+ <string id="470">native470</string>
+ <string id="471">native471</string>
+ <string id="472">native472</string>
+ <string id="473">native473</string>
+ <string id="474">native474</string>
+ <string id="475">native475</string>
+ <string id="476">native476</string>
+ <string id="477">native477</string>
+ <string id="478">native478</string>
+ <string id="479">native479</string>
+ <string id="480">native480</string>
+ <string id="481">native481</string>
+ <string id="482">native482</string>
+ <string id="483">native483</string>
+ <string id="484">native484</string>
+ <string id="485">native485</string>
+ <string id="486">native486</string>
+ <string id="487">native487</string>
+ <string id="488">native488</string>
+ <string id="489">native489</string>
+ <string id="490">native490</string>
+ <string id="491">native491</string>
+ <string id="492">native492</string>
+ <string id="493">native493</string>
+ <string id="494">native494</string>
+ <string id="495">native495</string>
+ <string id="496">native496</string>
+ <string id="497">native497</string>
+ <string id="498">native498</string>
+ <string id="499">native499</string>
+ <string id="500">native500</string>
+ <string id="501">native501</string>
+ <string id="502">native502</string>
+ <string id="503">native503</string>
+ <string id="504">native504</string>
+ <string id="505">native505</string>
+ <string id="506">native506</string>
+ <string id="507">native507</string>
+ <string id="508">native508</string>
+ <string id="509">native509</string>
+ <string id="510">native510</string>
+ <string id="511">native511</string>
+ <string id="512">native512</string>
+ <string id="513">native513</string>
+ <string id="514">native514</string>
+ <string id="515">native515</string>
+ <string id="516">native516</string>
+ <string id="517">native517</string>
+ <string id="518">native518</string>
+ <string id="519">native519</string>
+ <string id="520">native520</string>
+ <string id="521">native521</string>
+ <string id="522">native522</string>
+ <string id="523">native523</string>
+ <string id="524">native524</string>
+ <string id="525">native525</string>
+ <string id="526">native526</string>
+ <string id="527">native527</string>
+ <string id="528">native528</string>
+ <string id="529">native529</string>
+ <string id="530">native530</string>
+ <string id="531">native531</string>
+ <string id="532">native532</string>
+ <string id="533">native533</string>
+ <string id="534">native534</string>
+ <string id="535">native535</string>
+ <string id="536">native536</string>
+ <string id="537">native537</string>
+ <string id="538">native538</string>
+ <string id="539">native539</string>
+ <string id="540">native540</string>
+ <string id="541">native541</string>
+ <string id="542">native542</string>
+ <string id="543">native543</string>
+ <string id="544">native544</string>
+ <string id="545">native545</string>
+ <string id="546">native546</string>
+ <string id="547">native547</string>
+ <string id="548">native548</string>
+ <string id="549">native549</string>
+ <string id="550">native550</string>
+ <string id="551">native551</string>
+ <string id="552">native552</string>
+ <string id="553">native553</string>
+ <string id="554">native554</string>
+ <string id="555">native555</string>
+ <string id="556">native556</string>
+ <string id="557">native557</string>
+ <string id="558">native558</string>
+ <string id="559">native559</string>
+ <string id="560">native560</string>
+ <string id="561">native561</string>
+ <string id="562">native562</string>
+ <string id="563">native563</string>
+ <string id="564">native564</string>
+ <string id="565">native565</string>
+ <string id="566">native566</string>
+ <string id="567">native567</string>
+ <string id="568">native568</string>
+ <string id="569">native569</string>
+ <string id="570">native570</string>
+ <string id="571">native571</string>
+ <string id="572">native572</string>
+ <string id="573">native573</string>
+ <string id="574">native574</string>
+ <string id="575">native575</string>
+ <string id="576">native576</string>
+ <string id="577">native577</string>
+ <string id="578">native578</string>
+ <string id="579">native579</string>
+ <string id="580">native580</string>
+ <string id="581">native581</string>
+ <string id="582">native582</string>
+ <string id="583">native583</string>
+ <string id="584">native584</string>
+ <string id="585">native585</string>
+ <string id="586">native586</string>
+ <string id="587">native587</string>
+ <string id="588">native588</string>
+ <string id="589">native589</string>
+ <string id="590">native590</string>
+ <string id="591">native591</string>
+ <string id="592">native592</string>
+ <string id="593">native593</string>
+ <string id="594">native594</string>
+ <string id="595">native595</string>
+ <string id="596">native596</string>
+ <string id="597">native597</string>
+ <string id="598">native598</string>
+ <string id="599">native599</string>
+ <string id="600">native600</string>
+ <string id="601">native601</string>
+ <string id="602">native602</string>
+ <string id="603">native603</string>
+ <string id="604">native604</string>
+ <string id="605">native605</string>
+ <string id="606">native606</string>
+ <string id="607">native607</string>
+ <string id="608">native608</string>
+ <string id="609">native609</string>
+ <string id="610">native610</string>
+ <string id="611">native611</string>
+ <string id="612">native612</string>
+ <string id="613">native613</string>
+ <string id="614">native614</string>
+ <string id="615">native615</string>
+ <string id="616">native616</string>
+ <string id="617">native617</string>
+ <string id="618">native618</string>
+ <string id="619">native619</string>
+ <string id="620">native620</string>
+ <string id="621">native621</string>
+ <string id="622">native622</string>
+ <string id="623">native623</string>
+ <string id="624">native624</string>
+ <string id="625">native625</string>
+ <string id="626">native626</string>
+ <string id="627">native627</string>
+ <string id="628">native628</string>
+ <string id="629">native629</string>
+ <string id="630">native630</string>
+ <string id="631">native631</string>
+ <string id="632">native632</string>
+ <string id="633">native633</string>
+ <string id="634">native634</string>
+ <string id="635">native635</string>
+ <string id="636">native636</string>
+ <string id="637">native637</string>
+ <string id="638">native638</string>
+ <string id="639">native639</string>
+ <string id="640">native640</string>
+ <string id="641">native641</string>
+ <string id="642">native642</string>
+ <string id="643">native643</string>
+ <string id="644">native644</string>
+ <string id="645">native645</string>
+ <string id="646">native646</string>
+ <string id="647">native647</string>
+ <string id="648">native648</string>
+ <string id="649">native649</string>
+ <string id="650">native650</string>
+ <string id="651">native651</string>
+ <string id="652">native652</string>
+ <string id="653">native653</string>
+ <string id="654">native654</string>
+ <string id="655">native655</string>
+ <string id="656">native656</string>
+ <string id="657">native657</string>
+ <string id="658">native658</string>
+ <string id="659">native659</string>
+ <string id="660">native660</string>
+ <string id="661">native661</string>
+ <string id="662">native662</string>
+ <string id="663">native663</string>
+ <string id="664">native664</string>
+ <string id="665">native665</string>
+ <string id="666">native666</string>
+ <string id="667">native667</string>
+ <string id="668">native668</string>
+ <string id="669">native669</string>
+ <string id="670">native670</string>
+ <string id="671">native671</string>
+ <string id="672">native672</string>
+ <string id="673">native673</string>
+ <string id="674">native674</string>
+ <string id="675">native675</string>
+ <string id="676">native676</string>
+ <string id="677">native677</string>
+ <string id="678">native678</string>
+ <string id="679">native679</string>
+ <string id="680">native680</string>
+ <string id="681">native681</string>
+ <string id="682">native682</string>
+ <string id="683">native683</string>
+ <string id="684">native684</string>
+ <string id="685">native685</string>
+ <string id="686">native686</string>
+ <string id="687">native687</string>
+ <string id="688">native688</string>
+ <string id="689">native689</string>
+ <string id="690">native690</string>
+ <string id="691">native691</string>
+ <string id="692">native692</string>
+ <string id="693">native693</string>
+ <string id="694">native694</string>
+ <string id="695">native695</string>
+ <string id="696">native696</string>
+ <string id="697">native697</string>
+ <string id="698">native698</string>
+ <string id="699">native699</string>
+ <string id="700">native700</string>
+ <string id="701">native701</string>
+ <string id="702">native702</string>
+ <string id="703">native703</string>
+ <string id="704">native704</string>
+ <string id="705">native705</string>
+ <string id="706">native706</string>
+ <string id="707">native707</string>
+ <string id="708">native708</string>
+ <string id="709">native709</string>
+ <string id="710">native710</string>
+ <string id="711">native711</string>
+ <string id="712">native712</string>
+ <string id="713">native713</string>
+ <string id="714">native714</string>
+ <string id="715">native715</string>
+ <string id="716">native716</string>
+ <string id="717">native717</string>
+ <string id="718">native718</string>
+ <string id="719">native719</string>
+ <string id="720">native720</string>
+ <string id="721">native721</string>
+ <string id="722">native722</string>
+ <string id="723">native723</string>
+ <string id="724">native724</string>
+ <string id="725">native725</string>
+ <string id="726">native726</string>
+ <string id="727">native727</string>
+ <string id="728">native728</string>
+ <string id="729">native729</string>
+ <string id="730">native730</string>
+ <string id="731">native731</string>
+ <string id="732">native732</string>
+ <string id="733">native733</string>
+ <string id="734">native734</string>
+ <string id="735">native735</string>
+ <string id="736">native736</string>
+ <string id="737">native737</string>
+ <string id="738">native738</string>
+ <string id="739">native739</string>
+ <string id="740">native740</string>
+ <string id="741">native741</string>
+ <string id="742">native742</string>
+ <string id="743">native743</string>
+ <string id="744">native744</string>
+ <string id="745">native745</string>
+ <string id="746">native746</string>
+ <string id="747">native747</string>
+ <string id="748">native748</string>
+ <string id="749">native749</string>
+ <string id="750">native750</string>
+ <string id="751">native751</string>
+ <string id="752">native752</string>
+ <string id="753">native753</string>
+ <string id="754">native754</string>
+ <string id="755">native755</string>
+ <string id="756">native756</string>
+ <string id="757">native757</string>
+ <string id="758">native758</string>
+ <string id="759">native759</string>
+ <string id="760">native760</string>
+ <string id="761">native761</string>
+ <string id="762">native762</string>
+ <string id="763">native763</string>
+ <string id="764">native764</string>
+ <string id="765">native765</string>
+ <string id="766">native766</string>
+ <string id="767">native767</string>
+ <string id="768">native768</string>
+ <string id="769">native769</string>
+ <string id="770">native770</string>
+ <string id="771">native771</string>
+ <string id="772">native772</string>
+ <string id="773">native773</string>
+ <string id="774">native774</string>
+ <string id="775">native775</string>
+ <string id="776">native776</string>
+ <string id="777">native777</string>
+ <string id="778">native778</string>
+ <string id="779">native779</string>
+ <string id="780">native780</string>
+ <string id="781">native781</string>
+ <string id="782">native782</string>
+ <string id="783">native783</string>
+ <string id="784">native784</string>
+ <string id="785">native785</string>
+ <string id="786">native786</string>
+ <string id="787">native787</string>
+ <string id="788">native788</string>
+ <string id="789">native789</string>
+ <string id="790">native790</string>
+ <string id="791">native791</string>
+ <string id="792">native792</string>
+ <string id="793">native793</string>
+ <string id="794">native794</string>
+ <string id="795">native795</string>
+ <string id="796">native796</string>
+ <string id="797">native797</string>
+ <string id="798">native798</string>
+ <string id="799">native799</string>
+ <string id="800">native800</string>
+ <string id="801">native801</string>
+ <string id="802">native802</string>
+ <string id="803">native803</string>
+ <string id="804">native804</string>
+ <string id="805">native805</string>
+ <string id="806">native806</string>
+ <string id="807">native807</string>
+ <string id="808">native808</string>
+ <string id="809">native809</string>
+ <string id="810">native810</string>
+ <string id="811">native811</string>
+ <string id="812">native812</string>
+ <string id="813">native813</string>
+ <string id="814">native814</string>
+ <string id="815">native815</string>
+ <string id="816">native816</string>
+ <string id="817">native817</string>
+ <string id="818">native818</string>
+ <string id="819">native819</string>
+ <string id="820">native820</string>
+ <string id="821">native821</string>
+ <string id="822">native822</string>
+ <string id="823">native823</string>
+ <string id="824">native824</string>
+ <string id="825">native825</string>
+ <string id="826">native826</string>
+ <string id="827">native827</string>
+ <string id="828">native828</string>
+ <string id="829">native829</string>
+ <string id="830">native830</string>
+ <string id="831">native831</string>
+ <string id="832">native832</string>
+ <string id="833">native833</string>
+ <string id="834">native834</string>
+ <string id="835">native835</string>
+ <string id="836">native836</string>
+ <string id="837">native837</string>
+ <string id="838">native838</string>
+ <string id="839">native839</string>
+ <string id="840">native840</string>
+ <string id="841">native841</string>
+ <string id="842">native842</string>
+ <string id="843">native843</string>
+ <string id="844">native844</string>
+ <string id="845">native845</string>
+ <string id="846">native846</string>
+ <string id="847">native847</string>
+ <string id="848">native848</string>
+ <string id="849">native849</string>
+ <string id="850">native850</string>
+ <string id="851">native851</string>
+ <string id="852">native852</string>
+ <string id="853">native853</string>
+ <string id="854">native854</string>
+ <string id="855">native855</string>
+ <string id="856">native856</string>
+ <string id="857">native857</string>
+ <string id="858">native858</string>
+ <string id="859">native859</string>
+ <string id="860">native860</string>
+ <string id="861">native861</string>
+ <string id="862">native862</string>
+ <string id="863">native863</string>
+ <string id="864">native864</string>
+ <string id="865">native865</string>
+ <string id="866">native866</string>
+ <string id="867">native867</string>
+ <string id="868">native868</string>
+ <string id="869">native869</string>
+ <string id="870">native870</string>
+ <string id="871">native871</string>
+ <string id="872">native872</string>
+ <string id="873">native873</string>
+ <string id="874">native874</string>
+ <string id="875">native875</string>
+ <string id="876">native876</string>
+ <string id="877">native877</string>
+ <string id="878">native878</string>
+ <string id="879">native879</string>
+ <string id="880">native880</string>
+ <string id="881">native881</string>
+ <string id="882">native882</string>
+ <string id="883">native883</string>
+ <string id="884">native884</string>
+ <string id="885">native885</string>
+ <string id="886">native886</string>
+ <string id="887">native887</string>
+ <string id="888">native888</string>
+ <string id="889">native889</string>
+ <string id="890">native890</string>
+ <string id="891">native891</string>
+ <string id="892">native892</string>
+ <string id="893">native893</string>
+ <string id="894">native894</string>
+ <string id="895">native895</string>
+ <string id="896">native896</string>
+ <string id="897">native897</string>
+ <string id="898">native898</string>
+ <string id="899">native899</string>
+ <string id="900">native900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml
new file mode 100644
index 0000000..1705beb
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="NativeMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Enter the mirror to use when retrieving information from IMDB.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">If enabled, Ember will attempt to retreive the movie title from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">If enabled, Ember will attempt to retreive the movie outline from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">If enabled, Ember will attempt to retreive the movie plot from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">If enabled, Ember will attempt to retreive the movie genre from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="NativeMovieInfo_chkTop250">Enable scraping movie Top 250 ranking.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Limit the number of scraped genres to the entered value.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Limit the number of scraped actors to the entered value.</string>
+ <string control="NativeMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Enable scraping movie musicians. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkProducers">Enable scraping movie producers. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkWriters">Enable scraping movie writers.</string>
+ <string control="NativeMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="NativeMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="NativeMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="NativeMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="NativeMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="NativeMovieInfo_chkDirector">Enable scraping movie director.</string>
+ <string control="NativeMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="NativeMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="NativeMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="NativeMovieInfo_chkTrailer">Enable scraping movie trailer url.</string>
+ <string control="NativeMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="NativeMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="NativeMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="NativeMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="NativeMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="NativeMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="NativeMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Enable retrieving images from theMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Enable retrieving images from</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Enable retrieving images from MoviePosterDB.com.</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Enable automatic extraction of extrathumbs from this module. (Refer to global extrathumb settings for more options)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="NativeMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.English_(en_US).xml b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.English_(en_US).xml
new file mode 100644
index 0000000..87a19b5
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.English_(en_US).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">IMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching IMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17">Partial Matches ({0})</string>
+ <string id="18">Exact Matches ({0})</string>
+ <string id="19">Popular Titles ({0})</string>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching IMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember Native Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Open In Browser</string>
+</strings>
diff --git a/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..f4c930d
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Aktiviert dieses Modul.</string>
+ <string control="NativeMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Gib den Mirror ein über den Ember mit der IMDB kommunizieren soll.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">Wenn aktiviert versucht Ember den Titel von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">Wenn aktiviert versucht Ember die Kurzebschreibung von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">Wenn aktiviert versucht Ember die Inhaltsangabe von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">Wenn aktiviert versucht Ember die Genres von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkCertification">Aktiviert das Scrapen der Altersbeschränkung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTop250">Aktiviert das Scrapen der IMDB Top250 mit diesem Modul.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Die Anzahl der gescrapten Genres limitieren.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Die Anzahl der gescrapten Schauspieler limitieren.</string>
+ <string control="NativeMovieInfo_chkCrew">Aktiviert das Scrapen der Sonstigen Crew mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Aktiviert das Scrapen der Musiker mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkProducers">Aktiviert das Scrapen der Produzenten mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkWriters">Aktiviert das Scrapen der Autoren mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkStudio">Aktiviert das Scrapen des Studios mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRuntime">Aktiviert das Scrapen der Spielzeit mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkPlot">Aktiviert das Scrapen des Inhalts mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkOutline">Aktiviert das Scrapen der Kurzbeschreibung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkGenre">Aktiviert das Scrapen von Genre mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkDirector">Aktiviert das Scrapen des Regisseurs mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTagline">Aktiviert das Scrapen der Tagline mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkCast">Aktiviert das Scrapen der Schauspieler mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkVotes">Aktiviert das Scrapen der Anzahl Bewertungen mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTrailer">Aktiviert das Scrapen von Trailern mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRating">Aktiviert das Scrapen der Bewertung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRelease">Aktiviert das Scrapen des Premiere Datums mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkMPAA">Aktiviert das Scrapen der MPAA Bewertung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkYear">Aktiviert das Scrapen des Jahres mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTitle">Aktiviert das Scrapen des Titels mit diesem Modul.</string>
+ <string control="NativeMovieMedia_cbEnabled">Aktiviert dieses Modul.</string>
+ <string control="NativeMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanart mit diesem Modul. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Aktiviert das Laden von Bildern von TheMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Aktiviert das Laden von Bildern von IMPA</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Aktiviert das Laden von Bildern von MoviePosterDB.com.</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Automatische Frame extraktion mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Trailer laden mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Zeite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml
new file mode 100644
index 0000000..0349557
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">IMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der IMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17">Teil Treffer ({0})</string>
+ <string id="18">Exakte Treffer({0})</string>
+ <string id="19">Populäre Titel ({0})</string>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der IMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert.</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert.</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert.</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Alle Thumbs</string>
+ <string id="42">Alle Mittl.</string>
+ <string id="43">Alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">mittel</string>
+ <string id="50">klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">klein ({0}x{1})</string>
+ <string id="54">mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Trailer...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Man. Trailer</string>
+ <string id="67">Direktlink oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Lokaler Trailer:</string>
+ <string id="71">Die Videoformat Linkliste konnte nicht generiert werden.</string>
+ <string id="72">Fehler beim generieren der Videoformat Linkliste</string>
+ <string id="73">Format wählen</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine gewünschte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gast Star</string>
+ <string id="83">Die eingegebene ID ist keine gültige TVDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Posters</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember Nativer Film Scraper</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Im Browser öffnen</string>
+</strings>
diff --git a/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..79a98bf
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Slå modulen av eller på.</string>
+ <string control="NativeMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Før inn speilserver til IMDB.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">Hvis påslått, EMM vil å prøve å finne filmtittel fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">Hvis påslått, EMM vil prøve å finne beskrivelse av filmen på OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">Hvis påslått, EMM vil hente filmhistorien fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">Hvis påslått, EMM vil hente filmsjanger fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="NativeMovieInfo_chkTop250">Slå på detaljhenting av IMDB Top 250-plassering.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Begrens antall detaljhentede sjangre.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Begrens antall skuespillere.</string>
+ <string control="NativeMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Slå på detaljhenting av musikere. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkProducers">Slå på detaljhenting av filmprodusenter. (Detaljhenting av full crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkWriters">Slå på detaljhenting av manusforfattere.</string>
+ <string control="NativeMovieInfo_chkStudio">Slå på detaljhenting av studio.</string>
+ <string control="NativeMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="NativeMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="NativeMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="NativeMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="NativeMovieInfo_chkDirector">Slå på detaljhetning av filmens regissør.</string>
+ <string control="NativeMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="NativeMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="NativeMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="NativeMovieInfo_chkTrailer">Slå på detaljhetning av filmens trailer URL.</string>
+ <string control="NativeMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="NativeMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="NativeMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="NativeMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="NativeMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="NativeMovieMedia_cbEnabled">Slå modulen av eller på.</string>
+ <string control="NativeMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Slå på bildehenting fra theMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Slå på bildehenting fra</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Slå på bildehenting fra MoviePosterDB.com</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Slå på automatisk henting av ekstrakunst fra denne modulen. (Se globale ekstrakunstinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..52370c3
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">IMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17">Delvise treff ({0})</string>
+ <string id="18">Eksakte treff ({0})</string>
+ <string id="19">Populære titler ({0})</string>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover {0}x{1}</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kunne spille av trailer.</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episodefankunst</string>
+ <string id="93">Vis fankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakater</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Åpne i nettleser</string>
+</strings>
diff --git a/Addons/scraper.OFDB.Data/My Project/Application.Designer.vb b/Addons/scraper.OFDB.Data/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.OFDB.Data/My Project/Application.myapp b/Addons/scraper.OFDB.Data/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.OFDB.Data/My Project/AssemblyInfo.vb b/Addons/scraper.OFDB.Data/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..12730d1
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.OFDB.Data")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.OFDB.Data")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("E24E069F-D892-447B-80D4-28445B107A35")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.OFDB.Data/My Project/Resources.Designer.vb b/Addons/scraper.OFDB.Data/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.OFDB.Data/My Project/Resources.resx b/Addons/scraper.OFDB.Data/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/My Project/Settings.Designer.vb b/Addons/scraper.OFDB.Data/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.OFDB.Data/My Project/Settings.settings b/Addons/scraper.OFDB.Data/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.OFDB.Data/Resources/Logo.png b/Addons/scraper.OFDB.Data/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.OFDB.Data/Resources/Logo.png differ
diff --git a/Addons/scraper.OFDB.Data/Scraper/clsScrapeIMDB.vb b/Addons/scraper.OFDB.Data/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..06e23c6
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,1126 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDB
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _ExactMatches As New List(Of MediaContainers.Movie)
+ Private _PartialMatches As New List(Of MediaContainers.Movie)
+ Private _PopularTitles As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property ExactMatches() As List(Of MediaContainers.Movie)
+ Get
+ Return _ExactMatches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _ExactMatches = value
+ End Set
+ End Property
+
+ Public Property PartialMatches() As List(Of MediaContainers.Movie)
+ Get
+ Return _PartialMatches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _PartialMatches = value
+ End Set
+ End Property
+
+ Public Property PopularTitles() As List(Of MediaContainers.Movie)
+ Get
+ Return _PopularTitles
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _PopularTitles = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+ Public UseOFDBGenre As Boolean
+ Public UseOFDBOutline As Boolean
+ Public UseOFDBPlot As Boolean
+ Public UseOFDBTitle As Boolean
+
+ Friend WithEvents bwIMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const LINK_PATTERN As String = "<a[\s]+[^>]*?href[\s]?=[\s\""\']*(?<url>.*?)[\""\']*.*?>(?<name>[^<]+|.*?)?<\/a>"
+
+ Private Const ACTORTABLE_PATTERN As String = "<table class=""cast"">(.*?)</table>"
+ Private Const HREF_PATTERN As String = "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>"
+ Private Const HREF_PATTERN_2 As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>"
+ Private Const HREF_PATTERN_3 As String = "<a href=""/search/title\?certificates=[^""]*"">([^<]*):([^<]*)</a>[^<]*(<i>([^<]*)</i>)?"
+ Private Const HREF_PATTERN_4 As String = "<a.*?href=[""']/(title/tt\d{7}/|name/nm\d{7}/)[""'].*?>(?<text>.*?)</a>"
+ Private Const IMDB_ID_REGEX As String = "tt\d\d\d\d\d\d\d"
+ Private Const IMG_PATTERN As String = "<img src=""(?<thumb>.*?)"" width=""\d{1,3}"" height=""\d{1,3}"" border="".{1,3}"">"
+ Private Const MOVIE_TITLE_PATTERN As String = "(?<=<(title)>).*(?=<\/\1>)"
+ Private Const TABLE_PATTERN As String = "<table.*?>\n?(.*?)</table>"
+ Private Const TD_PATTERN_1 As String = "<td\sclass=""nm"">(.*?)</td>"
+ Private Const TD_PATTERN_2 As String = "(?<=<td\sclass=""char"">)(.*?)(?=</td>)(\s\(.*?\))?"
+ Private Const TD_PATTERN_3 As String = "<td\sclass=""hs"">(.*?)</td>"
+ Private Const TD_PATTERN_4 As String = "<td>(?<title>.*?)</td>"
+ Private Const TITLE_PATTERN As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>((\s)+?(\((?<year>\d{4})(\/.*?)?\)))?((\s)+?(\((?<type>.*?)\)))?"
+ Private Const TR_PATTERN As String = "<tr\sclass="".*?"">(.*?)</tr>"
+
+ Private sPoster As String
+
+#End Region 'Fields
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As IMDB.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwIMDB.IsBusy Then bwIMDB.CancelAsync()
+
+ While bwIMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim ofdbTitle As String = String.Empty
+ Dim ofdbOutline As String = String.Empty
+ Dim ofdbPlot As String = String.Empty
+ Dim ofdbGenre As String = String.Empty
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If (UseOFDBTitle AndAlso Options.bTitle) OrElse (UseOFDBOutline AndAlso Options.bOutline) OrElse _
+ (UseOFDBPlot AndAlso Options.bPlot) OrElse (UseOFDBGenre AndAlso Options.bGenre) Then
+ Dim OFDBScrape As New OFDB(strID, IMDBMovie)
+ If UseOFDBTitle AndAlso Options.bTitle Then ofdbTitle = OFDBScrape.Title
+ If UseOFDBOutline AndAlso Options.bOutline Then ofdbOutline = OFDBScrape.Outline
+ If UseOFDBPlot AndAlso Options.bPlot Then ofdbPlot = OFDBScrape.Plot
+ If UseOFDBGenre AndAlso Options.bGenre Then ofdbGenre = OFDBScrape.Genre
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sPlot As New HTTP
+ Dim PlotHtml As String = sPlot.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/plotsummary"))
+ sPlot = Nothing
+
+ IMDBMovie.IMDBID = strID
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim OriginalTitle As String = Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString
+ If Options.bTitle Then
+ Dim oldOTitle As String = IMDBMovie.OriginalTitle
+ IMDBMovie.OriginalTitle = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(OriginalTitle, ".*(?=\s\(\d+.*?\))").ToString)).Trim
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ If Not String.IsNullOrEmpty(ofdbTitle) Then
+ IMDBMovie.Title = ofdbTitle.Trim
+ Else
+ If Not String.IsNullOrEmpty(Master.eSettings.ForceTitle) Then
+ IMDBMovie.Title = GetForcedTitle(strID, IMDBMovie.OriginalTitle)
+ Else
+ IMDBMovie.Title = IMDBMovie.OriginalTitle.Trim
+ End If
+ End If
+ If String.IsNullOrEmpty(oldOTitle) OrElse Not oldOTitle = IMDBMovie.OriginalTitle Then
+ IMDBMovie.SortTitle = String.Empty
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ sPoster = Regex.Match(Regex.Match(HTML, "(?<=\b(name=""poster"")).*\b[</a>]\b").ToString, "(?<=\b(src=)).*\b(?=[</a>])").ToString.Replace("""", String.Empty).Replace("/></", String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Regex.Match(OriginalTitle, "(?<=\()\d+(?=.*\))", RegexOptions.RightToLeft).ToString
+
+ Dim D, W, tempD As Integer
+
+ If Options.bMPAA AndAlso (String.IsNullOrEmpty(IMDBMovie.MPAA) OrElse Not Master.eSettings.LockMPAA) Then
+ tempD = If(HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>") > 0, HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ W = If(D > 0, HTML.IndexOf("</div", D), 0)
+
+ IMDBMovie.MPAA = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Remove(0, 26)).Trim(), String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCert AndAlso (String.IsNullOrEmpty(IMDBMovie.Certification) OrElse Not Master.eSettings.LockMPAA) Then
+ 'get certifications
+ D = HTML.IndexOf("<h5>Certification:</h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Dim rCert As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN_3)
+
+ If rCert.Count > 0 Then
+ Dim Cert = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(Master.eSettings.CertificationLang)
+
+ If Not String.IsNullOrEmpty(Master.eSettings.CertificationLang) Then
+ If Cert.Count > 0 Then
+ IMDBMovie.Certification = Cert(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA AndAlso (Not Master.eSettings.CertificationLang = "USA" OrElse (Master.eSettings.CertificationLang = "USA" AndAlso String.IsNullOrEmpty(IMDBMovie.MPAA))) Then
+ IMDBMovie.MPAA = If(Master.eSettings.CertificationLang = "USA", StringUtils.USACertToMPAA(IMDBMovie.Certification), If(Master.eSettings.OnlyValueForCert, IMDBMovie.Certification.Split(Convert.ToChar(":"))(1), IMDBMovie.Certification))
+ End If
+
+
+ Else
+ 'No FSK Rating was found -> Alternative: Set USA Rating instead as fallback, MPAA will be converted to FSK, Certification from USA will be used, so people can see that US info was used!
+ If Master.eSettings.UseMPAAForFSK Then
+ Try
+ If Master.eSettings.CertificationLang = "Germany" AndAlso (IMDBMovie.MPAA.ToLower.Contains("usa") Or IMDBMovie.MPAA.ToLower.Contains("rated")) Then
+ Dim LANGRATING As String = "USA"
+ Dim Cert2 = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(LANGRATING)
+ If Cert2.Count > 0 Then
+ IMDBMovie.Certification = Cert2(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA Then
+ If IMDBMovie.MPAA.ToLower.Contains("usa:g") Or IMDBMovie.MPAA.ToLower.Contains("rated g") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:0"
+ Else
+ IMDBMovie.MPAA = "0"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg-13") Or IMDBMovie.MPAA.ToLower.Contains("rated pg-13") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:16"
+ Else
+ IMDBMovie.MPAA = "16"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg") Or IMDBMovie.MPAA.ToLower.Contains("rated pg") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:12"
+ Else
+ IMDBMovie.MPAA = "12"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:r") Or IMDBMovie.Certification.ToLower.Contains("rated r") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:nc-17") Or IMDBMovie.Certification.ToLower.Contains("rated nc") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End If
+ End If
+
+
+ Else
+
+ IMDBMovie.Certification = Strings.Join(Cert.ToArray, " / ").Trim
+
+
+ End If
+ End If
+ End If
+
+ If String.IsNullOrEmpty(IMDBMovie.Certification) AndAlso Not String.IsNullOrEmpty(IMDBMovie.MPAA) Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ Dim RelDate As Date
+ Dim sRelDate As String = Regex.Match(HTML, "\d+\s\w+\s\d\d\d\d\s").ToString.Trim
+ If Not sRelDate = String.Empty Then
+ If Date.TryParse(sRelDate, RelDate) Then
+ IMDBMovie.ReleaseDate = Strings.FormatDateTime(RelDate, DateFormat.ShortDate).ToString
+ End If
+ Else
+ IMDBMovie.ReleaseDate = Nothing
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ Dim RegexRating As String = Regex.Match(HTML, "\b\d\W\d/\d\d").ToString
+ If String.IsNullOrEmpty(RegexRating) Then
+ IMDBMovie.Rating = String.Empty
+ Else
+ IMDBMovie.Rating = RegexRating.Split(Convert.ToChar("/")).First.Trim
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ 'Get first IMDB trailer if possible
+ Dim trailers As List(Of String) = GetTrailers(IMDBMovie.IMDBID)
+ 'Dim TMDB As New TMDB.Scraper
+ 'Dim YT As String = TMDB.GetTrailers(IMDBMovie.IMDBID)
+
+ 'Dim sTrailerUrl As String = Regex.Match(HTML, "href=""(.*?/video/imdb/vi.*?)""").Groups(1).Value.Trim
+ 'If Not sTrailerUrl = String.Empty Then
+ 'Dim sTrailerURL2 As String = String.Empty
+ 'sTrailerUrl = String.Concat("http://", IMDBURL, sTrailerUrl, "player")
+ 'Dim HTTPTrailer As New HTTP
+ 'Dim HtmlTrailer As String = HTTPTrailer.DownloadData(sTrailerUrl)
+ 'HTTPTrailer = Nothing
+
+ 'sTrailerUrl = Regex.Match(HtmlTrailer, "so.addVariable\(""id"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'If sTrailerUrl = String.Empty Then
+ 'sTrailerURL2 = Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'Else
+ 'sTrailerURL2 = String.Concat(Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim, sTrailerUrl)
+ 'End If
+ 'IMDBMovie.Trailer = Web.HttpUtility.UrlDecode(sTrailerURL2)
+ 'End If
+ IMDBMovie.Trailer = trailers.FirstOrDefault()
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then IMDBMovie.Votes = Regex.Match(HTML, "class=""tn15more"">([0-9,]+) votes</a>").Groups(1).Value.Trim
+
+ 'Top250
+ 'ie: <a href="/chart/top?tt0167260">Top 250: #13</a>
+ If Options.bTop250 Then IMDBMovie.Top250 = Regex.Match(HTML, String.Concat("/chart/top\?tt", IMDBMovie.IMDBID, """>Top 250: #([0-9]+)</a>")).Groups(1).Value.Trim
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCast Then
+ 'Find all cast of the movie
+ 'Match the table only 1 time
+ Dim ActorsTable As String = Regex.Match(HTML, ACTORTABLE_PATTERN).ToString
+ Dim ThumbsSize = AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400")
+
+ Dim rCast As MatchCollection = Regex.Matches(ActorsTable, TR_PATTERN)
+
+ Dim Cast1 = From M In rCast _
+ Let m1 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_1).ToString, HREF_PATTERN) _
+ Let m2 = Regex.Match(M.ToString, TD_PATTERN_2).ToString _
+ Let m3 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_3).ToString, IMG_PATTERN) _
+ Select New MediaContainers.Person(Web.HttpUtility.HtmlDecode(m1.Groups("name").ToString.Trim), _
+ Web.HttpUtility.HtmlDecode(m2.ToString.Trim), _
+ If(m3.Groups("thumb").ToString.IndexOf("addtiny") > 0 OrElse m3.Groups("thumb").ToString.IndexOf("no_photo") > 0, String.Empty, Strings.Replace(Web.HttpUtility.HtmlDecode(m3.Groups("thumb").ToString.Trim), _
+ "._SX23_SY30_.jpg", String.Concat("._", ThumbsSize, "_.jpg")))) Take If(Master.eSettings.ActorLimit > 0, Master.eSettings.ActorLimit, 999999)
+
+ If Master.eSettings.CastImagesOnly Then
+ Cast1 = Cast1.Where(Function(p As MediaContainers.Person) (Not String.IsNullOrEmpty(p.Thumb)))
+ End If
+
+ Dim Cast As List(Of MediaContainers.Person) = Cast1.ToList
+
+ 'Clean up the actors list
+ For Each Ps As MediaContainers.Person In Cast
+ For Each sMatch As Match In Regex.Matches(Ps.Role, HREF_PATTERN)
+ Ps.Role = Ps.Role.Replace(sMatch.Value, sMatch.Groups("name").Value.ToString.Trim)
+ Next
+ ' Dim a_patterRegex = Regex.Match(Ps.Role, HREF_PATTERN)
+ ' If a_patterRegex.Success Then Ps.Role = a_patterRegex.Groups("name").ToString.Trim
+ Next
+
+ IMDBMovie.Actors = Cast
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ D = 0 : W = 0
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+
+ tempD = If(HTML.IndexOf("<h5>Tagline:</h5>") > 0, HTML.IndexOf("<h5>Tagline:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ Dim lHtmlIndexOf As Integer = If(D > 0, HTML.IndexOf("<a class=""tn15more inline""", D), 0)
+ Dim TagLineEnd As Integer = If(lHtmlIndexOf > 0, lHtmlIndexOf, 0)
+ If D > 0 Then W = If(TagLineEnd > 0, TagLineEnd, HTML.IndexOf("</div>", D))
+
+ IMDBMovie.Tagline = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Replace("<h5>Tagline:</h5>", String.Empty).Split(vbCrLf.ToCharArray)(1)).Trim, String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bDirector Then
+ 'Get the directors
+ D = If(HTML.IndexOf("<h5>Director:</h5>") > 0, HTML.IndexOf("<h5>Director:</h5>"), HTML.IndexOf("<h5>Directors:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any director(s) ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first director's name
+ Dim rDir As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Dir = From M In rDir Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Dir.Count > 0 Then
+ IMDBMovie.Director = Strings.Join(Dir.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ 'Get the countries
+ D = If(HTML.IndexOf("<h5>Country:</h5>") > 0, HTML.IndexOf("<h5>Country:</h5>"), HTML.IndexOf("<h5>Countries:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any country ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first country's name
+ Dim rCou As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Cou = From M In rCou Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Cou.Count > 0 Then
+
+ 'fix for display country flag in XBMC!
+ If Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("USA") Then
+ IMDBMovie.Country = "United States of America"
+ ElseIf Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("UK") Then
+ IMDBMovie.Country = "United Kingdom"
+ Else
+ IMDBMovie.Country = Strings.Join(Cou.ToArray, " / ").Trim()
+ End If
+
+ End If
+ End If
+
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ If Not String.IsNullOrEmpty(ofdbGenre) Then
+ IMDBMovie.Genre = ofdbGenre
+ Else
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Genre:</h5>")
+ 'Check if doesnt find genres
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString) Where Not N.Contains("more") Take If(Master.eSettings.GenreLimit > 0, Master.eSettings.GenreLimit, 999999)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ IMDBMovie.Genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+
+ If Not String.IsNullOrEmpty(ofdbOutline) Then
+ IMDBMovie.Outline = ofdbOutline
+ Else
+ 'Get the Plot Outline
+ D = 0 : W = 0
+
+ Try
+ If IMDBMovie.Title.Contains("(VG)") Then
+ D = If(HTML.IndexOf("<h5>Plot Summary:</h5>") > 0, HTML.IndexOf("<h5>Plot Summary:</h5>"), HTML.IndexOf("<h5>Tagline:</h5>"))
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ Else
+ tempD = If(HTML.IndexOf("<h5>Plot:</h5>") > 0, HTML.IndexOf("<h5>Plot:</h5>"), HTML.IndexOf("<h5>Plot Summary:</h5>"))
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+ If D <= 0 Then D = HTML.IndexOf("<h5>Plot Synopsis:</h5>")
+ If D > 0 Then
+ W = HTML.IndexOf("<a class=", D)
+ If W > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mplot
+ End If
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mPlot 'This plot synopsis is empty
+ End If
+ End If
+ Dim PlotOutline As String = HTML.Substring(D, W - D).Remove(0, 26)
+
+ PlotOutline = Web.HttpUtility.HtmlDecode(If(PlotOutline.Contains("is empty") OrElse PlotOutline.Contains("View full synopsis") _
+ , String.Empty, PlotOutline.Replace("|", String.Empty).Replace("»", String.Empty)).Trim)
+ 'check if outline has links to other IMDB entry
+ If Not String.IsNullOrEmpty(PlotOutline) Then
+ For Each rMatch As Match In Regex.Matches(PlotOutline, HREF_PATTERN_4)
+ PlotOutline = PlotOutline.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Outline = Regex.Replace(PlotOutline, HREF_PATTERN, String.Empty).Trim
+ Else
+ IMDBMovie.Outline = String.Empty
+ End If
+
+ Catch ex As Exception
+ IMDBMovie.Outline = String.Empty
+ End Try
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+mPlot:
+ 'Get the full Plot
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Not String.IsNullOrEmpty(ofdbPlot) Then
+ IMDBMovie.Plot = ofdbPlot
+ Else
+ Dim FullPlotP As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)</p>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlotI As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)<i>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlot As String = If(FullPlotI.Length < FullPlotP.Length, FullPlotI, FullPlotP)
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ For Each rMatch As Match In Regex.Matches(FullPlot, HREF_PATTERN_4)
+ FullPlot = FullPlot.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Plot = Web.HttpUtility.HtmlDecode(FullPlot.Replace("|", String.Empty)).Trim
+ End If
+
+ End If
+
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then IMDBMovie.Runtime = Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<h5>Runtime:</h5>[^0-9]*([^<]*)").Groups(1).Value.Trim)
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ D = 0 : W = 0
+ If FullCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ 'only get the first one
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString) Take 1
+ IMDBMovie.Studio = Ps(0).ToString.Trim
+ End If
+ Else
+ D = HTML.IndexOf("<h5>Company:</h5>")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ IMDBMovie.Studio = Web.HttpUtility.HtmlDecode(Regex.Match(HTML.Substring(D, W - D), HREF_PATTERN).Groups("name").ToString.Trim)
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get Writers
+ If Options.bWriters Then
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Writer")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim q = From M In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(M, Match).Groups("name").ToString.Trim = "more" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "(more)" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "WGA" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim.Contains("see more") _
+ Select Writer = Web.HttpUtility.HtmlDecode(String.Concat(DirectCast(M, Match).Groups("name").ToString, If(FullCrew, " (writer)", String.Empty)))
+
+ If q.Count > 0 Then
+ IMDBMovie.OldCredits = Strings.Join(q.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Then
+
+ D = 0 : W = 0
+ D = HTML.IndexOf("Directed by</a></h5>")
+ If D > 0 Then W = HTML.IndexOf("</body>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim qTables As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TABLE_PATTERN)
+
+ For Each M As Match In qTables
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Producers
+ If Options.bProducers AndAlso M.ToString.Contains("Produced by</a></h5>") Then
+ Dim Pr = From Po In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Where Not Po.ToString.Contains(String.Concat("http://", IMDBURL, "/Glossary/")) _
+ Let P1 = Regex.Match(Po.ToString, HREF_PATTERN_2) _
+ Where Not String.IsNullOrEmpty(P1.Groups("name").ToString) _
+ Select Producer = Web.HttpUtility.HtmlDecode(String.Concat(P1.Groups("name").ToString, " (producer)"))
+
+ If Pr.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Pr.ToArray, " / ").Trim)
+ End If
+ End If
+
+ 'Music by
+ If Options.bMusicBy AndAlso M.ToString.Contains("Original Music by</a></h5>") Then
+ Dim Mu = From Mo In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Let M1 = Regex.Match(Mo.ToString, HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(M1.Groups("name").ToString) _
+ Select Musician = Web.HttpUtility.HtmlDecode(String.Concat(M1.Groups("name").ToString, " (music by)"))
+
+ If Mu.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Mu.ToArray, " / ").Trim)
+ End If
+ End If
+
+ Next
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Special Effects
+ If Options.bOtherCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Special Effects</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(DirectCast(P1, Match).Groups("name").ToString) _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ If Ps.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Ps.ToArray, " / ").Trim)
+ End If
+ End If
+ End If
+ End If
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ alStudio.AddRange(Ps.ToArray)
+ End If
+
+ Return alStudio
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ 'r.PopularTitles.Sort()
+ 'r.ExactMatches.Sort()
+ 'r.PartialMatches.Sort()
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.ExactMatches.Count = 1 Then 'AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count = 1 AndAlso r.PopularTitles(0).Lev <= 5 Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count = 1 AndAlso r.ExactMatches(0).Lev <= 5 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgIMDBSearchResults
+ dIMDB.IMDBURL = IMDBURL
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+
+ 'check if ALL results are over lev value
+ Dim useAnyway As Boolean = False
+ If ((r.PopularTitles.Count > 0 AndAlso r.PopularTitles(0).Lev > 5) OrElse r.PopularTitles.Count = 0) AndAlso _
+ ((r.ExactMatches.Count > 0 AndAlso r.ExactMatches(0).Lev > 5) OrElse r.ExactMatches.Count = 0) AndAlso _
+ ((r.PartialMatches.Count > 0 AndAlso r.PartialMatches(0).Lev > 5) OrElse r.PartialMatches.Count = 0) Then
+ useAnyway = True
+ End If
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.ExactMatches)
+ Dim popularHaveYear As Integer = FindYear(dbMovie.Filename, r.PopularTitles)
+ 'it seems "popular matches" is a better result than "exact matches" ..... nope
+ 'If r.ExactMatches.Count = 1 AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ ' b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf (popularHaveYear >= 0 OrElse exactHaveYear = -1) AndAlso r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(If(popularHaveYear >= 0, popularHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.PopularTitles.Item(If(popularHaveYear >= 0, popularHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(If(exactHaveYear >= 0, exactHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.ExactMatches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.PartialMatches.Count > 0 Then
+ ' b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'End If
+ If r.ExactMatches.Count = 1 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count > 1 AndAlso exactHaveYear >= 0 Then
+ b = GetMovieInfo(r.ExactMatches.Item(exactHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso popularHaveYear >= 0 Then
+ b = GetMovieInfo(r.PopularTitles.Item(popularHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCrew, False, Options, True)
+ ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PartialMatches.Count > 0 AndAlso (r.PartialMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ Dim fTitle As String = oTitle
+
+ Try
+ If bwIMDB.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/releaseinfo#akas"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<h5><a name=""akas"">Also Known As (AKA)</a></h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ Dim rTitles As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TD_PATTERN_4, RegexOptions.Multiline Or RegexOptions.IgnorePatternWhitespace)
+
+ If rTitles.Count > 0 Then
+ For i As Integer = 1 To rTitles.Count - 1 Step 2
+ If rTitles(i).Value.ToString.Contains(Master.eSettings.ForceTitle) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (working title)")) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (fake working title)")) Then
+ fTitle = CleanTitle(Web.HttpUtility.HtmlDecode(rTitles(i - 1).Groups("title").Value.ToString.Trim))
+ Exit For
+ End If
+ Next
+ End If
+
+ End If
+
+ Return fTitle
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return fTitle
+ End Try
+ End Function
+
+ Private Function GetMovieID(ByVal strObj As String) As String
+ Return Regex.Match(strObj, IMDB_ID_REGEX).ToString.Replace("tt", String.Empty)
+ End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+
+ Dim D, W As Integer
+ Dim R As New MovieSearchResults
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft"))
+ Dim HTMLp As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_tt_pop"))
+ Dim HTMLm As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_ft"))
+ Dim HTMLe As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&exact=true&ref_=fn_tt_ex"))
+ Dim rUri As String = sHTTP.ResponseUri
+ sHTTP = Nothing
+
+ 'Check if we've been redirected straight to the movie page
+ If Regex.IsMatch(rUri, IMDB_ID_REGEX) Then
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(Regex.Match(rUri, IMDB_ID_REGEX).ToString, _
+ StringUtils.ProperCase(sMovie), Regex.Match(Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString, "(?<=\()\d+(?=.*\))").ToString, 0)
+ R.ExactMatches.Add(lNewMovie)
+ Return R
+ End If
+
+ 'popular titles
+ D = HTMLp.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mPartial
+ W = HTMLp.IndexOf("</table>", D) + 8
+
+ Dim Table As String = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qPopular = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PopularTitles = qPopular.ToList
+mPartial:
+
+ D = HTMLm.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mExact
+ W = HTMLm.IndexOf("</table>", D) + 8
+
+ Table = Regex.Match(HTMLm.Substring(D, W - D), TABLE_PATTERN).ToString
+ Dim qpartial = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PartialMatches = qpartial.ToList
+ 'mApprox:
+
+ ' 'Now process "Approx Matches" and merge both Partial and Approx matches
+ ' D = HTML.IndexOf("Titles (Approx Matches)")
+ ' If D <= 0 Then GoTo mExact
+ ' W = HTML.IndexOf("</table>", D) + 8
+
+ ' Table = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ ' Dim qApprox = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ ' Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ ' Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ ' Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ ' If Not IsNothing(R.PartialMatches) Then
+ ' R.PartialMatches = R.PartialMatches.Union(qApprox.ToList).ToList
+ ' Else
+ ' R.PartialMatches = qApprox.ToList
+ ' End If
+
+mExact:
+
+ D = HTMLe.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mResult
+ W = HTMLe.IndexOf("</table>", D) + 8
+
+ Table = String.Empty
+ Table = Regex.Match(HTMLe.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qExact = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString.ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.ExactMatches = qExact.ToList
+
+mResult:
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+ Public Function GetTrailers(imdbID As String) As List(Of String)
+ Dim TrailerList As New List(Of String)
+ Dim TrailerNumber As Integer = 0
+ Dim Links As MatchCollection
+ Dim trailerPage As String
+ Dim trailerUrl As String
+ Dim Link As Match
+ Dim currPage As Integer = 0
+
+ Dim WebPage As New HTTP
+ Dim _ImdbTrailerPage As String = String.Empty
+
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer"))
+ If _ImdbTrailerPage.ToLower.Contains("page not found") Then
+ _ImdbTrailerPage = String.Empty
+ End If
+
+ If Not String.IsNullOrEmpty(_ImdbTrailerPage) Then
+ Link = Regex.Match(_ImdbTrailerPage, "of [0-9]{1,3}")
+
+ If Link.Success Then
+ TrailerNumber = Convert.ToInt32(Link.Value.Substring(3))
+
+ If TrailerNumber > 0 Then
+ currPage = Convert.ToInt32(Math.Ceiling(TrailerNumber / 10))
+
+ For i As Integer = 1 To currPage
+ If Not i = 1 Then
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer?page=", i))
+ End If
+
+ Links = Regex.Matches(_ImdbTrailerPage, "screenplay/(vi[0-9]+)/")
+ Dim linksCollection As String() = From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()
+
+ Links = Regex.Matches(_ImdbTrailerPage, "imdb/(vi[0-9]+)/")
+ linksCollection = linksCollection.Concat(From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()).ToArray
+
+ For Each value As String In linksCollection
+ If value.Contains("screenplay") Then
+ trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player"))
+ trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ TrailerList.Add(trailerUrl)
+ End If
+ Else
+ ''480p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=2"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+
+ ''720p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=3"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+ End If
+ Next
+ Next
+ End If
+ End If
+ End If
+ Return TrailerList
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.OFDB.Data/Scraper/clsScrapeIMPA.vb b/Addons/scraper.OFDB.Data/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..5f052ed
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,179 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.OFDB.Data/Scraper/clsScrapeImages.vb b/Addons/scraper.OFDB.Data/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..7bdb821
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/clsScrapeImages.vb
@@ -0,0 +1,940 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class ScrapeImages
+
+#Region "Methods"
+
+ Public Shared Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(IMDBID, "poster"))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ tmpListTMDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ TMDB = Nothing
+ IMPA = Nothing
+ MPDB = Nothing
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Shared Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("UseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+ ' Duplicate of clsImage
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0, Optional ByVal sUrl As String = "")
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' If Not sUrl = "" Then
+ ' Dim stroriginalurl As String = sUrl
+
+ ' 'Image Download from tmdb is special, need original size
+ ' If Not sUrl.Contains("impawards") AndAlso Not sUrl.Contains("movieposterdb") Then
+ ' 'Always get original image...
+ ' 'links to images (tmdb) have following structure: 'example: http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w92/x65b4vsFKYuA878pLN1mJiAsgIP.jpg
+ ' Dim stringArray() As String = Split(stroriginalurl, "/")
+ ' If stringArray.Length > 4 Then
+ ' ' stringArray(5) contains values like "w185","original", "w154"...-->size -> we want original!
+ ' stringArray(5) = "original"
+ ' stroriginalurl = Join(stringArray, "/")
+ ' End If
+ ' End If
+ ' Dim webclient As New Net.WebClient
+ ' webclient.DownloadFile(stroriginalurl, sPath)
+ ' Else
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+ ' End If
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/clsScrapeMPDB.vb b/Addons/scraper.OFDB.Data/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..7a7e13b
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,160 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.OFDB.Data/Scraper/clsScrapeOFDB.vb b/Addons/scraper.OFDB.Data/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..a220a06
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,280 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, Wq, Wqq, B As Integer
+ Dim tmpHTML As String
+
+ D = HTML.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ Wq = tmpHTML.IndexOf("<b>Quelle:</b>")
+ If Wq > 0 Then
+ Wqq = tmpHTML.IndexOf("<br><br>", Wq)
+ B = tmpHTML.IndexOf("</font></p>", Wqq + 8)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(Wqq + 8, B - (Wqq + 8)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<td width=""99\%""><h1 itemprop=""name""><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h1></td>").Groups(1).Value.ToString))
+ If OFDBTitle.EndsWith(", Der") Then
+ _title = String.Concat("Der ", OFDBTitle.Replace(", Der", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Die") Then
+ _title = String.Concat("Die ", OFDBTitle.Replace(", Die", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Das") Then
+ _title = String.Concat("Das ", OFDBTitle.Replace(", Das", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", The") Then
+ _title = String.Concat("The ", OFDBTitle.Replace(", The", " ")).Trim
+ Else
+ _title = OFDBTitle
+ End If
+ End If
+
+ Dim D, Dq, W, Wq, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Wq = HTML.IndexOf("<span itemprop=""description"">", Dq)
+ W = HTML.IndexOf("<a href=""plot", Wq + 29)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(Wq + 29, W - (Wq + 29)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf D > 0 Then
+ W = HTML.IndexOf("<a href=""", D + 44)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 44, W - (D + 44)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : Dq = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 197, L - (D + 197)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ ElseIf D > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 44, L - (D + 44)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?><span itemprop=""genre"">(?<name>.*?)</span></a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/clsScrapeTMDB.vb b/Addons/scraper.OFDB.Data/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..d40e628
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,243 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Debug.Print("{0}/t{1}", tmdbI.@size, tmdbI.@url)
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/clsScrapeTrailers.vb b/Addons/scraper.OFDB.Data/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..19327b4
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", False) Then
+ Me.GetImdbTrailer()
+ End If
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetIMDBTrailer()
+ Dim IMDB As New IMDB.Scraper
+ IMDB.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ Dim results As List(Of String) = IMDB.GetTrailers(_ImdbID)
+
+ Me._TrailerList.AddRange(results)
+
+ IMDB = Nothing
+ End Sub
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper
+ Dim YT As String = TMDB.GetTrailers(_ImdbID)
+
+ If Not String.IsNullOrEmpty(YT) Then
+ Me._TrailerList.Add(YT)
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/clsScrapeYouTube.vb b/Addons/scraper.OFDB.Data/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..b4603fd
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,335 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb b/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..6d0924e
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb
@@ -0,0 +1,480 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgIMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgIMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtIMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.txtFileName = New System.Windows.Forms.TextBox()
+ Me.btnOpenFolder = New System.Windows.Forms.Button()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(501, 431)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(574, 431)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(8, 126)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 5
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(298, 160)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(295, 100)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(295, 119)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(298, 325)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(476, 160)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(476, 186)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(476, 213)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtIMDBID
+ '
+ Me.txtIMDBID.Enabled = False
+ Me.txtIMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBID.Location = New System.Drawing.Point(143, 429)
+ Me.txtIMDBID.Name = "txtIMDBID"
+ Me.txtIMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtIMDBID.TabIndex = 7
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(647, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(256, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(8, 433)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(128, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual IMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(249, 429)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(476, 277)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(35, 13)
+ Me.lblIMDB.TabIndex = 19
+ Me.lblIMDB.Text = "IMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(414, 160)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(32, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(414, 186)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(414, 213)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(414, 277)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(53, 13)
+ Me.lblIMDBHeader.TabIndex = 18
+ Me.lblIMDBHeader.Text = "IMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(295, 309)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(266, 100)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(8, 101)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(368, 213)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 20
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching IMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(312, 185)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtFileName
+ '
+ Me.txtFileName.Enabled = False
+ Me.txtFileName.Location = New System.Drawing.Point(8, 73)
+ Me.txtFileName.Name = "txtFileName"
+ Me.txtFileName.Size = New System.Drawing.Size(598, 22)
+ Me.txtFileName.TabIndex = 3
+ '
+ 'btnOpenFolder
+ '
+ Me.btnOpenFolder.Location = New System.Drawing.Point(612, 73)
+ Me.btnOpenFolder.Name = "btnOpenFolder"
+ Me.btnOpenFolder.Size = New System.Drawing.Size(29, 23)
+ Me.btnOpenFolder.TabIndex = 23
+ Me.btnOpenFolder.Text = "..."
+ Me.btnOpenFolder.UseVisualStyleBackColor = True
+ '
+ 'dlgIMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(647, 492)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnOpenFolder)
+ Me.Controls.Add(Me.txtFileName)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtIMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgIMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+ Friend WithEvents txtFileName As System.Windows.Forms.TextBox
+ Friend WithEvents btnOpenFolder As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.resx b/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.resx
new file mode 100644
index 0000000..fc0d614
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.resx
@@ -0,0 +1,190 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr5AAAK+QG0Yd4ZAAALEUlE
+ QVRoQ+1YCVCU5xle5Qa55JDTRA4XWMIpKsgRLgFRVOQGAbl21+VabuWSS0A0chiPIB5RquKRkIR4VI1N
+ SMxMjW1sik2maWOSydFOkknTZprD/+n7/i4Gcrad1CYzvDPP/N/u/v/3v+fzvt9KZmRGZmRGZmRGZmRG
+ fgZi7+CoWf2ExN5xvmb1lXh6eRsFh4TMc5fJQpycnXvs7OxbLa2s7zeznDdLc8v/X76u+KKAALeNKlW6
+ UqnsycrKurQiPv6jZcuWwd3dHXZ2dphrYfHmPBubATs7h04bW9t6Xz+/Cnom38PD8z7NFpLszCyJmflc
+ zSeJxNTMXLP6kWWq8mXl6tbevv7Xe/v6PtizZ89nnZ2dKCkpQXJyMoKDg7Fq1SohISFBWJeYiFUJCVjg
+ 5CRC6uYmkIFfBAYFfbg0MGjU1s5+iWbLaWLn4Oi2UOoeovkoMTA00qz+TVm7dq0OKaGXlpFhVFJWZqbc
+ qLLKy8uz9fPzX5Cdk/P86OgoJiYmcOvWLeHRI0fQ0NCA4uJiJCUlITQ0VMTixYtFg/Lz8rBx40ZwZHx9
+ fREVFSWUlpYK6enpoKghMTFxYllwSGpo2IPOUdHR+0NCQz+IioqGXKHA8uXL37W0tvYilb47DcMjIjUr
+ iU5waFjgvn37Snp7e49WVFScpk0u7d69+8aOHQ+9U1VV9UVOTg7i4uIgk8kEPz8/HDt2DNevX0dfXx8y
+ MjJYGaTTNTc3V7zGxMYibsUKqCsqRCPYMDYkLS0d5eXloD1RUVmJuro6lJWV31bRPRQ5NlSwsrIWvLy9
+ 4eLi8q6ugYEL6adFmG5IWHiEeI2IiMpvbGx8p7u7++OGxobbtEZ9fT02bNgA9lR/fz86OjqgIK9weixa
+ tEjMcUtLS5w/fx5nz55FkVyO+PiVpEgZUlNTERERgRWkfHh4OBLXraMoNVKalUKlKhYNZIOy1q9HS1sb
+ 2js6hO09PfydQPuDnWNrawsDAwPBxs7uS30Dg0pS04AwW1R4qjwYEZnd2dWF/Px8gdJEKKaX7HjkGIrV
+ VWCPR0ZGghVmg6hY2QDxs6OjI7S1tcUc55Q6fPgwVq5KAO2BNWvWiNHgFOFn2AiKLI5QuvG7mrdsQUtL
+ C65du4YrV65gbGwM1TU1KCoqEvdnA9hBurq60NLShomp6VZSlSudjeBI3BXt9vaOtwoLC8XQcR7nFynR
+ 99Tv0f/0BJQV9Yh4MExkFR8fH8jJy1MN0NfXF6Nw8OBBMUpsZExsHDIzM0VlONe5PlauXCkcOnQIZ86c
+ wdGjR8nYRzE+Po6LFy+K0WMHnDhxQiQCuneaAbNmzYKxsfFL2jo6HqSvDcGY9WblJcTb3vTijzgt2ACV
+ SoXcfDlaj19D44lXUHfoKhJTsyjnPWBtbY3o6GjR0KkG0OboIq+2USrU1tYiOSUF/vQ7O4PTLicnF8xS
+ rOjQ0JBY9M899xwuXbqEkZERMroB+QUFFLl8bNq8GfFkgL+//10DSE3MnTsX7h6yEVo7aGBCkEiSklOW
+ dG/b9jHnKnuWc1OuLIaq5wkU9b2A7O3jSK/sxwNeXrCwsICrqyvlefykAQIbYGVlhda2NqG6upojJGRk
+ ZAruHh4g/v+bk5NTF73GxcfXt6qxqeldVp4N6aNoNVCdscOUSgXWUY2EhoZg4UIpqFdA5uk51QDB3Nyc
+ i/8WrZnLFxDuNAsPT0+3vXv3fhAbGytw6Ni7lcQK8fJu+KmehHPOKSxSnIRPQJBoAG9E1IaAgADBwcEB
+ hkZGYg3UavKXi5d/d3Zx/a25hUUavcKMYFtTU1PZPzAwwWmmVqvBJNHc3IwtVAtcI2xAWFgYKS7DPIq0
+ Gb2HGt/dCJiZmcHBwbGa1gsJbMQcwh0hA96mohM4Cozk5CSszSmBVDUKF9UYnBVnkZBeKCqvo6MjphFH
+ YP78+f8wmmMsd3FxTSGPtS0NDHxy8ZIlv3Z2dunS09cPoK2N6HtPYqeXqA4+37SpDupytVBHaca1xEqz
+ 04g8vjJAJhPZZzI1J2vA0NDoMhUz7+lOmEfQvdtZK6uq+tgTpJjA1McezM1MQ2T5ALzbn4dr7RVkV3fD
+ zNRU0NLSEtgAKui/EDMU0eNLCbzxIoIfwZvAXjINj4xcV0DkwIXd3t4ubOvbgz3DT6ByczOyczdg9erV
+ YtdmZ3Dkpxqgp6cHYxMTmJqaYfbs2Z/MMZ6TS3v6EFwJHNVpTGT28MMP/5OZgyhTiImJAXViZGdSY2ob
+ gu9DL6Gs8xGYmpgIpqam/MIblDrZ9ByPAaws05slgRmCvTM7KDg4lfsBpyM5R9jc2IzDl1/Fo+Nv4+Cz
+ b6H35DiKqxsRFLgEUqkUzs7OYt+YaoCunp7gRuxH0TxMe7LyDC5gfcIdCQkJE68KpTJlcHBQbELc/tk7
+ 2dnZ2Ersse3gadQ2biFvmMLGxuamiYlJKj3CHVBGYF6eFO6SjDklpaVvMCNR4xMaKAJbHhrE3su30Df2
+ KnY8fhPdZyaw9eQNVLX2QeYuFYmAa2qygZEBAr2HZif3P9F+ywhBBH4fO2ua9yVSD6ZXiRaND7uGh4dF
+ TifOFmhMEI4fP44LF86DZpTblPPvU1uvoXvjCJwyd6jsaxIeFbWcCvTv3Fu421aoy9C273F0nb6JluGX
+ UX/oOlT9VxGqHsOCrBHEpijIMfNgRITg5ubGBjC7CTTJvmZgaJhMW4YSfAnTvf8tor1r1676Xxw79uG5
+ c+fwzDPPiOjq7n6Dcn6QPMR5GE/g4YlT5VslNS0tp6W19XOejbhYKyvUqOkZRt3QdZQOXEVk9VncT4rb
+ p52AY/oJBCuOwk3mJRasvb0906dAxnyiq6ObRdvxuzhVuWANCd8cJViIDTQriaS+ocGWxuWMpqbmThrG
+ aol9Mulr9sRaQjDBnjA9jFMkMzNrPTWwz1Kooa2nWaeROnFheTNyd7wIT8UoFuQ9BqfCxwmjcCp4DPfl
+ jSJNXkfFOoupWuAUouI9RVst1+ABAhfutyv/A8IhcyOwFzgHOW2+94QVExMbsX379k8oAgLTI0+aeUUq
+ +CpH4Kx8Eq6lT0OqPgdpxXksLKdoKMeQ2z2GOYYGAvO9rZ3dp7TNasIaAkfAmfC9qfNDwgrrEr7T618T
+ Y5qv3iNCEJjNuLmVl6sRnL0F0qoL8Ki/DK+WZ+HdNg7Ppitwrb6I6NZLWOzvIxIF5X4v7bGOMBlxZrc7
+ s8+9kpTU1J27Bga4QQnU5cVGxR03qHoYQbtfRszwHxB3/DWED/0OPltfQFTnrxAZHsIG/NHQ0LCAtsgg
+ cBSYOn8w6v8Lmd3U1PRRNR1YeEzhQxCfLeQFeUjb/RTyr/4Vit98jMwr7yH80E1BfuCqEBy09DbR6RA9
+ m0NYT1hB4IOMHuHeiYtUKl5J6bCdO3d+ygMbD4o8NnCzVBQVoHbXIDrGb6DixTeRePpVYe+pc3ByWnCB
+ mIi7O0eAGYiblNgYCfdWVCUl4jUxKSlz//79wgClE43bQg+duni9f/8gjlDPOXrytDDyxBgKFYpX6HYF
+ QUlgAzh9uEH9h6f5H1EAHiQlkvucnKJofH6HGuOXBw4cEE9u3CD5AHPy1Cls29bzPvH+Jrq1lKAiMG3z
+ fPXNrnuv5cCRI5qVxLyoSF5FB59f7uzt/TOl1vvUIF/Pzd1wkc67rfR7BUFN4BSKIfDfeTqEn5RwLtsQ
+ zwfS6S6V5h05fWaPFxM4dXhA5MbFvM9d9ycrzOncWe8nME0uJvgTJmd9blr3nDb/W+Ec5ybJYMN+NorP
+ yIzMyIz8rEUi+Re4NXpfio4DrwAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAAB9ElE
+ QVQ4T6XSTWgTQRQH8E0LaZPaD9oaxULRi0igJSroqYLoxaa3gpfSFrx4sGp7Kj31pDYnPQpG8dzgQcSg
+ 1orQZJPd2exWSYOxiXhKQz5oEjQxpubvm6WN2zUe1IXf7OzMe2/fLCsA+C9NF//GbwtPfD67wti5SES5
+ +GZ19ZB532zfg8Lkq+uallFVFZymqRUqdNcYY9aYMFma1igpFoshl80in88jsbkJvhZRlAfGJCN9eOH3
+ WxWF5TaiUezs1FCv13X8SiYSoD2IwaCTx5rpA20OS5KEVCqFWu07KpWyrlr9hkJhG4wxSOHwdXMypw+B
+ tTVXOBRCOr1FSVWUSkVSQrn8FcViEUyW8VkTr5iTOX14vbLSTgUK0d0j8C54IaCOZDIBRt1d9gYXjIl7
+ GhM6xjWZAvl3yGQy9BFziMfj+Phegcf3FsLMc7TdfHbPmMztexBFcZ7O+oXwM+NdRP5xf/nVJ9uEF9aJ
+ h2ifeoyOyUcve+eedjUtwNHP0x8MBMaoo/EPauioIAgW+6jH233pFrpG76DTvYRu99LGwNhtW9MCf+IY
+ WbjRf3YOfWdm0Uf3gQuLh/m60EqvID3kGDlBhoiLnCKnd52ksCO9g+dnHM4p6eDxcY/VIvzqgAJaSRux
+ kQ5ygHSa7XXDtVBOo8C/g/ATj6yxruTRIKcAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.vb b/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.vb
new file mode 100644
index 0000000..6fde061
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgIMDBSearchResults.vb
@@ -0,0 +1,520 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgIMDBSearchResults
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private IMDB As New IMDB.Scraper
+ Private sHTTP As New HTTP
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+ #Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As IMDB.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching IMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ IMDB.CancelAsync()
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.txtIMDBID.Text.Replace("tt", String.Empty), Master.tmpMovie, Master.DefaultOptions)
+ Else
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOpenFolder_Click(sender As Object, e As EventArgs) Handles btnOpenFolder.Click
+ Dim fPath As String = Directory.GetParent(Master.currMovie.Filename).FullName
+
+ If Not String.IsNullOrEmpty(fPath) Then
+ Shell("Explorer.exe " & fPath, vbNormalFocus)
+ End If
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtIMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtIMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ IMDB.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.UseOFDBTitle = UseOFDBTitle
+ IMDB.UseOFDBOutline = UseOFDBOutline
+ IMDB.UseOFDBPlot = UseOFDBPlot
+ IMDB.UseOFDBGenre = UseOFDBGenre
+ AddHandler IMDB.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler IMDB.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ If Not Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ Exit Sub
+ Else
+ If MsgBox(String.Concat(Master.eLang.GetString(13, "You have manually entered an IMDB ID but have not verified it is correct."), vbNewLine, vbNewLine, Master.eLang.GetString(101, "Are you sure you want to continue?", True)), MsgBoxStyle.YesNo, Master.eLang.GetString(14, "Continue without verification?")) = MsgBoxResult.No Then
+ Exit Sub
+ Else
+ Master.tmpMovie.IMDBID = Me.txtIMDBID.Text.Replace("tt", String.Empty)
+ End If
+ End If
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.IMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.IMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.IMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As IMDB.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) Then
+ If M.PartialMatches.Count > 0 OrElse M.PopularTitles.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Dim TnP As New TreeNode(String.Format(Master.eLang.GetString(17, "Partial Matches ({0})"), M.PartialMatches.Count))
+ Dim selNode As New TreeNode
+
+ If M.PartialMatches.Count > 0 Then
+ M.PartialMatches.Sort()
+ For Each Movie As MediaContainers.Movie In M.PartialMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+ selNode = TnP.FirstNode
+ End If
+
+ If M.PopularTitles.Count > 0 Then
+ M.PopularTitles.Sort()
+ If M.PartialMatches.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(19, "Popular Titles ({0})"), M.PopularTitles.Count))
+
+ For Each Movie As MediaContainers.Movie In M.PopularTitles
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+ End If
+
+ If M.ExactMatches.Count > 0 Then
+ M.ExactMatches.Sort()
+ If M.PartialMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(18, "Exact Matches ({0})"), M.ExactMatches.Count))
+ For Each Movie As MediaContainers.Movie In M.ExactMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+
+ End If
+ Me._prevnode = -2
+
+ 'determine if we automatically start downloading info for selected node
+ If M.ExactMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PopularTitles.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PartialMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ Else
+ Me.tvResults.SelectedNode = Nothing
+ End If
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual IMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(289, "IMDB ID:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching IMDB...")
+ Me.txtFileName.Text = Master.currMovie.Filename
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtIMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..213f00e
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,466 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlMPDB = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.lblDL1Status = New System.Windows.Forms.Label()
+ Me.lblDL1 = New System.Windows.Forms.Label()
+ Me.pbDL1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlMPDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 1
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 4
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 3
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 1
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 2
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 0
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 2
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 1
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 0
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 1
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlMPDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1Status)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1)
+ Me.pnlDLStatus.Controls.Add(Me.pbDL1)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(257, 132)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(321, 223)
+ Me.pnlDLStatus.TabIndex = 2
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlMPDB
+ '
+ Me.pnlMPDB.Controls.Add(Me.lblDL3Status)
+ Me.pnlMPDB.Controls.Add(Me.lblDL3)
+ Me.pnlMPDB.Controls.Add(Me.pbDL3)
+ Me.pnlMPDB.Location = New System.Drawing.Point(0, 147)
+ Me.pnlMPDB.Name = "pnlMPDB"
+ Me.pnlMPDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMPDB.TabIndex = 4
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 1
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 0
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 2
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.pnlSinglePic)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2)
+ Me.pnlIMPA.Controls.Add(Me.pbDL2)
+ Me.pnlIMPA.Location = New System.Drawing.Point(0, 73)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 3
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 1
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 0
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 2
+ '
+ 'lblDL1Status
+ '
+ Me.lblDL1Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1Status.Location = New System.Drawing.Point(5, 29)
+ Me.lblDL1Status.Name = "lblDL1Status"
+ Me.lblDL1Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1Status.TabIndex = 1
+ '
+ 'lblDL1
+ '
+ Me.lblDL1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1.Location = New System.Drawing.Point(5, 6)
+ Me.lblDL1.Name = "lblDL1"
+ Me.lblDL1.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1.TabIndex = 0
+ Me.lblDL1.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL1
+ '
+ Me.pbDL1.Location = New System.Drawing.Point(6, 49)
+ Me.pbDL1.Name = "pbDL1"
+ Me.pbDL1.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL1.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL1.TabIndex = 2
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(0, 1)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 1
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlMPDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblDL1Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL1 As System.Windows.Forms.Label
+ Friend WithEvents pbDL1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMPDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.resx b/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..e4a4f58
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALAAAA
+ CwAB5DetvwAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.vb b/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..7e37076
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1309 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+ Private TMDB As New TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+ Private selURL As String = ""
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal iImage As Image, ByVal sDescription As String, ByVal iIndex As Integer, ByVal sURL As String, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = iImage
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(sURL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+
+ Me.pnlSinglePic.Visible = True
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ Dim percent = 100 / posters.Count
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress(Convert.ToInt32((i + 1) * percent), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL1Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL1.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+ Me.selURL = poster.URL
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains("themoviedb.org") OrElse sURL.ToLower.Contains("d3gtl9l2a4fn1j.cloudfront.net") OrElse sURL.ToLower.Contains("cf1.imgobject.com") OrElse sURL.ToLower.Contains("cf2.imgobject.com") Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "backdrop")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "poster")
+ Else
+ Me.lblDL1.Text = Master.eLang.GetString(33, "TheMovieDB.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ Me.lblDL2.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL2.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ Me.lblDL3.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.WebImage.Image, xPoster.Description, iIndex, xPoster.URL, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ IMPA.IMDBURL = IMDBURL
+ TMDB.IMDBURL = IMDBURL
+ MPDB.IMDBURL = IMDBURL
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL3.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL2.Text = Me.lblDL3.Text
+ Me.lblDL1.Text = Me.lblDL3.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me._tmdbDone = True
+ Me.AllDoneDownloading()
+ Else
+ Me.pnlDLStatus.Visible = False
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL1.Value = 0
+
+ Me.lblDL1.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL1Status.Text = String.Empty
+
+ TMDBPosters = Posters
+ Me.pbDL1.Maximum = 100
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL1.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..2871b29
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,292 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.btnPlayBrowser = New System.Windows.Forms.Button()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(350, 340)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(120, 23)
+ Me.OK_Button.TabIndex = 6
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(350, 369)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(120, 23)
+ Me.Cancel_Button.TabIndex = 7
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(445, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(458, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(122, 60)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(130, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(445, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(410, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(395, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(71, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(426, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(151, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 369)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(224, 340)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(120, 23)
+ Me.btnSetNfo.TabIndex = 5
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(478, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'btnPlayBrowser
+ '
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnPlayBrowser.Location = New System.Drawing.Point(12, 340)
+ Me.btnPlayBrowser.Name = "btnPlayBrowser"
+ Me.btnPlayBrowser.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayBrowser.TabIndex = 4
+ Me.btnPlayBrowser.Text = "Open In Browser"
+ Me.btnPlayBrowser.UseVisualStyleBackColor = True
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(484, 398)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Controls.Add(Me.btnPlayBrowser)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents btnPlayBrowser As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.resx b/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..f08e020
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAK
+ 6QAACukB/XXO0wAAABh0RVh0U29mdHdhcmUAQWRvYmUgRmlyZXdvcmtzT7MfTgAAAfdJREFUOE+lkk1r
+ E1EUhi9apQsr7vwDigUXLtzpyrWlpdD8BSEbN1p1IRJQqNXoarCNH03aKlgQjU1ahCr2a6HSRRszGSe0
+ 4nQ+M9/JjIhYeb25JGVGmo0OPMw5h/M+9zIMAfBfxBpd07osyzxv21aCMuTY9pDnugmhUjkX3YsSa8xa
+ 7ToVgIZBw4wgaGBlZRn376WHo7ttYg0NjzfDTODYcB0H38MQS0uLuDM6isz42NXofpNYQwXc7uktge95
+ 0FQVxcIs5opFfPr44UI0s6cgeoO2JAwD1Ot+c56NZmIC+g2YwLJN+E6A0NtB6O/AdwMmbTEWzcQEhq5z
+ plmjgRBflDeYF5IMQZ5nMya3zM4CVVU4XdfQcH/hffUmbi0TxjvxBr3NbzTlhqF3FsjyNqcoMjzzB94K
+ aaQWjzAWhNuo2z9B/xOoitJZ8HVri5MkCbZWx1zpLoYXjjIKpRE4RgOKLGNbkjoL+HL5gbSpYGL1GpL5
+ Y7hYOMlI5o/j0eolqN8MVEUxE83EBBvr6yP8Zx4b5TVceTWIRK6XcfllP0qVNYiCiArPp6OZ3WI/IYf6
+ +/pO5bITmfzM6+e5Z9mps6ne6pnUic0nTx9Pz74ozkxPTT4cHBg4vY+Qw3sJDhBCutmQPq13DyFdPX/N
+ uunuwWbN+nbxb4D8AU3a+lQSEAyqAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
+ DAAACwwBP0AiyAAAAAd0SU1FB9kEGhIhAdf7pBcAAAJDSURBVDhPtVJLa5pBFPWxsGoQNI2oAY1ogigI
+ GitIULQufKxcBGmzLLpwo9B/UOgmv6GKuxDdCCKIGyOBLIpE8IWIaBauFEQSwcfCuZ07PkIogW564HDn
+ m7nnzHxzhvNfsFwuE5PJ5HelUnm5u7ubDYfD5ng8/kGXDjYd7+Dp6elTv9+fJxIJcDgcJBAIQDAYhIuL
+ CxKLxaDdbkOhUPiybX8LFJdKJdBoNOT8/BxcLheYzWaw2WyA30i9Xk+y2SxkMplvW9kr6M4LWohEIoHj
+ 42MIh8OQy+VAJpOBSqVic1KpFLCnVquBQqFQMyFisVh8x+PS4Z4ejwcQ6XSafXO53P2a1WqFer1+Q8cb
+ zOfzKi2Ect+Ev7BDKpXaz+/YarVeaN2gWq3OaAEejwd8Pp/R7XYz8Xq9ZjWZTDLh7iTlchnrR8pXA6FQ
+ CCKRCMRiMfh8PiYkhDCT5+dnODo6AoFAwAxoxFhVqOdMp9MWdSZ4SYeHhyCXyyEUCjEDFNN1TIddKF4y
+ GjSbzRWtH5jBaDT6eXl5CUqlEtRqNWi1Wri6umIGuDPGeXJywpJAc6fTCff392Um3uKAxogGxGAwMEEk
+ EoHVasXSsFgsYDKZ8B3gCUmj0QCdTufeajfI5/NfHx4ewGg0EvoKmQGeyuv1sh3tdjucnp6SYrEI19fX
+ v7ayt7i9vY3SFwnxeJzF6Pf72WWiQTQahW63+754B/qf6sfHx5vBYDDrdDqA7PV6Kxpb5ezs7PO27Z/A
+ pZRTYlRCnPgbHM4fFEdnm0hssg4AAAAASUVORK5CYII=
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.vb b/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..67c25ca
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgTrailer.vb
@@ -0,0 +1,480 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As New Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnPlayBrowser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayBrowser.Click
+ If Not String.IsNullOrEmpty(Me.txtYouTube.Text) Then
+ If Master.isWindows Then
+ Process.Start(Me.txtYouTube.Text)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.txtYouTube.Text
+ Explorer.Start()
+ End Using
+ End If
+ Else
+ If Master.isWindows Then
+ Process.Start(Me.lbTrailers.SelectedItem.ToString)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.lbTrailers.SelectedItem.ToString
+ Explorer.Start()
+ End Using
+ End If
+ End If
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ cTrailer.IMDBURL = IMDBURL
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.btnPlayBrowser.Enabled = False
+ Else
+ Me.btnPlayBrowser.Enabled = True
+ End If
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnPlayBrowser.Text = Master.eLang.GetString(114, "Open In Browser")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..8d135fa
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(72, 187)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(145, 187)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(4, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(170, 121)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(10, 8)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(180, 151)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(12, 75)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(12, 12)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(200, 169)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 217)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.resx b/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.vb b/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/clsScrapeTVDB.vb b/Addons/scraper.OFDB.Data/TVScraper/clsScrapeTVDB.vb
new file mode 100644
index 0000000..b0f8531
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/clsScrapeTVDB.vb
@@ -0,0 +1,1911 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Data
+Imports System.IO
+Imports System.Text
+
+Imports ICSharpCode.SharpZipLib.Zip
+Imports EmberAPI
+
+Public Class Scraper
+
+#Region "Fields"
+
+ Public Const APIKey As String = "7B090234F418D074"
+
+ Public Shared WithEvents sObject As New ScraperObject
+ Public Shared tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Public Shared tmpTVDBShow As New TVDBShow
+ Public Shared TVDBImages As New TVImages
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ AddHandler sObject.ScraperEvent, AddressOf InnerEvent
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ sObject.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String) As MediaContainers.EpisodeDetails
+ Return sObject.ChangeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .SelectedLang = Lang, .iSeason = -999})
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String) As List(Of Containers.TVLanguage)
+ Dim tvdbLangs As New List(Of Containers.TVLanguage)
+ Dim cLang As Containers.TVLanguage
+ Dim xmlTVDB As XDocument
+ Dim sHTTP As New HTTP
+
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/languages.xml", sMirror, APIKey))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbLangs
+ End Try
+
+ Dim xLangs = From xLanguages In xmlTVDB.Descendants("Language")
+
+ For Each xL As XElement In xLangs
+ cLang = New Containers.TVLanguage
+ cLang.LongLang = xL.Element("name").Value
+ cLang.ShortLang = xL.Element("abbreviation").Value
+ tvdbLangs.Add(cLang)
+ Next
+ End If
+ Return tvdbLangs
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As MediaContainers.EpisodeDetails
+ Return sObject.GetSingleEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images) As Images
+ Return sObject.GetSingleImage(New Structures.ScrapeInfo With {.ShowTitle = Title, .ShowID = ShowID, .TVDBID = TVDBID, .ImageType = Type, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .CurrentImage = CurrentImage})
+ End Function
+
+ Public Sub InnerEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Function IsBusy() As Boolean
+ Return sObject.IsBusy
+ End Function
+
+ Public Sub SaveImages()
+ sObject.SaveImages()
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iEpisode = iEpisode, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeSeason(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub SingleScrape(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean)
+ sObject.SingleScrape(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options, .ScrapeType = ScrapeType, .WithCurrent = WithCurrent, .iSeason = -999})
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ <Serializable()> _
+ Public Structure TVImages
+
+#Region "Fields"
+
+ Dim AllSeasonPoster As TVDBShowPoster
+ Dim SeasonImageList As List(Of TVDBSeasonImage)
+ Dim ShowFanart As TVDBFanart
+ Dim ShowPoster As TVDBShowPoster
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function Clone() As TVImages
+ Dim newTVI As New TVImages
+ Try
+ Using ms As New IO.MemoryStream()
+ Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
+ bf.Serialize(ms, Me)
+ ms.Position = 0
+ newTVI = DirectCast(bf.Deserialize(ms), TVImages)
+ ms.Close()
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return newTVI
+ End Function
+
+#End Region 'Methods
+
+ End Structure
+
+ Public Class ScraperObject
+
+#Region "Fields"
+
+ Friend WithEvents bwTVDB As New System.ComponentModel.BackgroundWorker
+
+ Private aXML As String = String.Empty
+ Private bXML As String = String.Empty
+ Private sXML As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Shared Sub LoadAllEpisodes(ByVal _ID As Integer, ByVal OnlySeason As Integer)
+ Try
+
+ tmpTVDBShow = New TVDBShow
+
+ tmpTVDBShow.Show = Master.DB.LoadTVFullShowFromDB(_ID)
+ tmpTVDBShow.AllSeason = Master.DB.LoadTVAllSeasonFromDB(_ID)
+
+ Using SQLCount As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLRCount As SQLite.SQLiteDataReader = SQLCount.ExecuteReader
+ If Convert.ToInt32(SQLRCount("eCount")) > 0 Then
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLReader As SQLite.SQLiteDataReader = SQLCommand.ExecuteReader
+ While SQLReader.Read
+ tmpTVDBShow.Episodes.Add(Master.DB.LoadTVEpFromDB(Convert.ToInt64(SQLReader("ID")), True))
+ End While
+ End Using
+ End Using
+ End If
+ End Using
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTVDB.IsBusy Then bwTVDB.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Try
+ Dim tEpisodes As List(Of MediaContainers.EpisodeDetails) = Me.GetListOfKnownEpisodes(sInfo)
+ If tEpisodes.Count > 0 Then
+ Using dChangeEp As New dlgTVChangeEp
+ Return dChangeEp.ShowDialog(tEpisodes)
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(79, "There are no known episodes for this show. Scrape the show, season, or episode and try again."), MsgBoxStyle.OkOnly, Master.eLang.GetString(80, "No Known Episodes"))
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Nothing
+ End Function
+
+ Public Sub DownloadSeries(ByVal sInfo As Structures.ScrapeInfo, Optional ByVal ImagesOnly As Boolean = False)
+ Try
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim fExists As Boolean = File.Exists(fPath)
+ Dim doDownload As Boolean = False
+
+ Select Case Master.eSettings.TVUpdateTime
+ Case Enums.TVUpdateTime.Always
+ doDownload = True
+ Case Enums.TVUpdateTime.Never
+ doDownload = False
+ Case Enums.TVUpdateTime.Week
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(7) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.BiWeekly
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(14) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.Month
+ If fExists AndAlso File.GetCreationTime(fPath).AddMonths(1) < Now Then doDownload = True
+ End Select
+
+ If doDownload OrElse Not fExists Then
+ Dim sHTTP As New HTTP
+ Dim xZip As Byte() = sHTTP.DownloadZip(String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, APIKey, sInfo.TVDBID, sInfo.SelectedLang))
+ sHTTP = Nothing
+
+ If Not IsNothing(xZip) AndAlso xZip.Length > 0 Then
+ 'save it to the temp dir
+ Directory.CreateDirectory(Directory.GetParent(fPath).FullName)
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Create, FileAccess.Write)
+ fStream.Write(xZip, 0, xZip.Length)
+ End Using
+
+ Me.ProcessTVDBZip(xZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End If
+ Else
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+
+ Me.ProcessTVDBZip(fZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub DownloadSeriesAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.StartingDownload, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 1, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetListOfKnownEpisodes(ByVal sInfo As Structures.ScrapeInfo) As List(Of MediaContainers.EpisodeDetails)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim tSeas As Integer = -1
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ Try
+ If File.Exists(fPath) Then
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+ Me.ProcessTVDBZip(fZip, sInfo)
+
+ 'get the actors first
+ Try
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = If(IsNothing(Actor.Element("Role")), String.Empty, Actor.Element("Role").Value), .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdEps As XDocument = XDocument.Parse(sXML)
+
+ For Each Episode As XElement In xdEps.Descendants("Episode")
+ If Not IsNothing(Episode.Element("EpisodeName").Value) AndAlso Not String.IsNullOrEmpty(Episode.Element("EpisodeName").Value) Then
+ tEpisode = New MediaContainers.EpisodeDetails
+
+ tOrdering = Enums.Ordering.Standard
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ If Not IsNothing(Episode.Element("SeasonNumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("SeasonNumber").Value)
+ If sInfo.iSeason >= 0 AndAlso Not tSeas = sInfo.iSeason Then Continue For
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("DVD_season").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If Not IsNothing(Episode.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(Episode.Element("absolute_number").Value.ToString) Then
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+ Else
+ If sInfo.iSeason >= 0 AndAlso Not Convert.ToInt32(Episode.Element("SeasonNumber").Value) = sInfo.iSeason Then Continue For
+ End If
+
+ With tEpisode
+ .Title = Episode.Element("EpisodeName").Value
+ If tOrdering = Enums.Ordering.DVD Then
+ .Season = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ .Episode = Convert.ToInt32(CLng(Episode.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ .Season = 1
+ .Episode = Convert.ToInt32(Episode.Element("absolute_number").Value)
+ Else
+ .Season = If(IsNothing(Episode.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value), 0, Convert.ToInt32(Episode.Element("SeasonNumber").Value))
+ .Episode = If(IsNothing(Episode.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(Episode.Element("EpisodeNumber").Value), 0, Convert.ToInt32(Episode.Element("EpisodeNumber").Value))
+ End If
+ .Aired = If(IsNothing(Episode.Element("FirstAired")), String.Empty, Episode.Element("FirstAired").Value)
+ .Rating = If(IsNothing(Episode.Element("Rating")), String.Empty, Episode.Element("Rating").Value)
+ .Plot = If(IsNothing(Episode.Element("Overview")), String.Empty, Episode.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ .Director = If(IsNothing(Episode.Element("Director")), String.Empty, Strings.Join(Episode.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ .Credits = CreditsString(If(IsNothing(Episode.Element("GuestStars")), String.Empty, Episode.Element("GuestStars").Value), If(IsNothing(Episode.Element("Writer")), String.Empty, Episode.Element("Writer").Value))
+ .Actors = Actors
+ .PosterURL = If(IsNothing(Episode.Element("filename")), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Episode.Element("filename").Value))
+ .LocalFile = If(IsNothing(Episode.Element("filename")), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, Episode.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+
+ tEpisodes.Add(tEpisode)
+ End If
+ Next
+
+ End If
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tEpisodes
+ End Function
+
+ Public Sub GetSearchResultsAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 0, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetSingleEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Dim tEp As New MediaContainers.EpisodeDetails
+ Try
+
+ tEp = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Season = sInfo.iSeason AndAlso e.Episode = sInfo.iEpisode)
+
+ If Not IsNothing(tEp) Then
+ Return tEp
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return New MediaContainers.EpisodeDetails
+ End Function
+
+ Public Function GetSingleImage(ByVal sInfo As Structures.ScrapeInfo) As Images
+ tmpTVDBShow = New TVDBShow
+
+ If sInfo.ImageType = Enums.TVImageType.EpisodePoster Then
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ End If
+ Else
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ End If
+ End If
+ End Function
+
+ Public Function IsBusy() As Boolean
+ Return bwTVDB.IsBusy
+ End Function
+
+ Public Sub PassEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub ProcessTVDBZip(ByVal tvZip As Byte(), ByVal sInfo As Structures.ScrapeInfo)
+ sXML = String.Empty
+ bXML = String.Empty
+ aXML = String.Empty
+
+ Try
+ Using zStream As ZipInputStream = New ZipInputStream(New MemoryStream(tvZip))
+ Dim zEntry As ZipEntry = zStream.GetNextEntry
+
+ While Not IsNothing(zEntry)
+ Dim zBuffer As Byte() = Functions.ReadStreamToEnd(zStream)
+
+ Select Case True
+ Case zEntry.Name.Equals(String.Concat(sInfo.SelectedLang, ".xml"))
+ sXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("banners.xml")
+ bXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("actors.xml")
+ aXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ End Select
+
+ zEntry = zStream.GetNextEntry
+ End While
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub SaveImages()
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SavingStarted, 0, Nothing)
+ Me.bwTVDB = New System.ComponentModel.BackgroundWorker
+ Me.bwTVDB.WorkerReportsProgress = True
+ Me.bwTVDB.WorkerSupportsCancellation = True
+ Me.bwTVDB.RunWorkerAsync(New Arguments With {.Type = 3})
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ tmpTVDBShow = New TVDBShow
+ tmpTVDBShow.Episodes.Add(Master.currShow)
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Episodes(0).TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 4, .Parameter = sInfo})
+ End Sub
+
+ Public Sub SingleScrape(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = False
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 2, .Parameter = sInfo})
+ While bwTVDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub StartSingleScraper(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If String.IsNullOrEmpty(sInfo.TVDBID) AndAlso sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Show.TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ If sInfo.ScrapeType = Enums.ScrapeType.FullAuto Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SaveAuto, 0, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ ElseIf sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ 'Ignore Show scrape if ScrapeAuto and show don't have ID
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwtvDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTVDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Type
+ Case 0 'search
+ e.Result = New Results With {.Type = 0, .Result = SearchSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))}
+ Case 1 'show download
+ Me.DownloadSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))
+ e.Result = New Results With {.Type = 1}
+ Case 2 'load episodes
+ LoadAllEpisodes(DirectCast(Args.Parameter, Structures.ScrapeInfo).ShowID, 999)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ Case 3 'save
+ Me.SaveAllTVInfo()
+ e.Result = New Results With {.Type = 3}
+ Case 4
+ Dim sInfo As Structures.ScrapeInfo = DirectCast(Args.Parameter, Structures.ScrapeInfo)
+ LoadAllEpisodes(sInfo.ShowID, sInfo.iSeason)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTVDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTVDB.ProgressChanged
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Progress, e.ProgressPercentage, e.UserState.ToString)
+ End Sub
+
+ Private Sub bwTVDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTVDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.Type
+ Case 0 'search
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SearchResultsDownloaded, 0, DirectCast(Res.Result, List(Of TVSearchResults)))
+ Case 1 'show download
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ShowDownloaded, 0, Nothing)
+ Case 2 'load episodes
+ If Not e.Cancelled Then
+ StartSingleScraper(DirectCast(Res.Result, Structures.ScrapeInfo))
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End If
+ Case 3 'save
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CreditsString(ByVal sGStars As String, ByVal sWriters As String) As String
+ Dim cString As New List(Of String)
+ Dim gString As String = Master.eLang.GetString(82, "Guest Star")
+ Dim wString As String = Master.eLang.GetString(777, "Writer", True)
+
+ If Not String.IsNullOrEmpty(sGStars) Then
+ For Each gStar In sGStars.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(gStar) Then cString.Add(String.Concat(gStar, String.Format(" ({0})", gString)))
+ Next
+ End If
+
+ If Not String.IsNullOrEmpty(sWriters) Then
+ For Each Writer In sWriters.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(Writer) Then cString.Add(String.Concat(Writer, String.Format(" ({0})", wString)))
+ Next
+ End If
+
+ Return Strings.Join(cString.ToArray, " / ")
+ End Function
+
+ Private Sub SaveAllTVInfo()
+ Dim iEp As Integer = -1
+ Dim iSea As Integer = -1
+ Dim iProgress As Integer = 1
+
+ Dim tShow As New Structures.DBTV
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+
+ Me.bwTVDB.ReportProgress(tmpTVDBShow.Episodes.Count, "max")
+
+ Using SQLTrans As SQLite.SQLiteTransaction = Master.DB.MediaDBConn.BeginTransaction()
+ If Master.eSettings.DisplayMissingEpisodes Then
+ 'clear old missing episode from db
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ SQLCommand.CommandText = String.Concat("DELETE FROM TVEps WHERE Missing = 1 AND TVShowID = ", Master.currShow.ShowID, ";")
+ SQLCommand.ExecuteNonQuery()
+ End Using
+ End If
+
+ Try
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Try
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Episode.ShowID = Master.currShow.ShowID
+
+ iEp = Episode.TVEp.Episode
+ iSea = Episode.TVEp.Season
+
+ 'remove it from tepisodes since it's a real episode
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tEpisode = tEpisodes.FirstOrDefault(Function(e) e.Episode = iEp AndAlso e.Season = iSea)
+ If Not IsNothing(tEpisode) Then tEpisodes.Remove(tEpisode)
+ tShow = Episode
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Episode.TVEp.Season > -1 AndAlso Episode.TVEp.Episode > -1 AndAlso Not Episode.IsLockEp Then
+ If Not IsNothing(Episode.TVEp.Poster.Image) Then Episode.EpPosterPath = Episode.TVEp.Poster.SaveAsEpPoster(Episode, Episode.TVEp.PosterURL)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso Not IsNothing(Episode.TVEp.Fanart.Image) Then Episode.EpFanartPath = Episode.TVEp.Fanart.SaveAsEpFanart(Episode, )
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Dim cSea = From cSeason As TVDBSeasonImage In TVDBImages.SeasonImageList Where cSeason.Season = iSea Take 1
+ If cSea.Count > 0 Then
+ If Not IsNothing(cSea(0).Poster.Image) Then Episode.SeasonPosterPath = cSea(0).Poster.SaveAsSeasonPoster(Episode)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.SeasonFanartEnabled Then
+ If Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) AndAlso File.Exists(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.FromFile(cSea(0).Fanart.LocalFile)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ ElseIf Not String.IsNullOrEmpty(cSea(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.Clear()
+ cSea(0).Fanart.Image.FromWeb(cSea(0).Fanart.URL)
+ If Not IsNothing(cSea(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(cSea(0).Fanart.LocalFile).FullName)
+ cSea(0).Fanart.Image.Save(cSea(0).Fanart.LocalFile, , , False)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Episode)
+
+ Master.DB.SaveTVEpToDB(Episode, False, True, True, True)
+
+ If Me.bwTVDB.CancellationPending Then Return
+ End If
+ Me.bwTVDB.ReportProgress(iProgress, "progress")
+
+ 'If AdvancedSettings.GetBooleanSetting("ScrapeActorsThumbs", False) Then
+ 'For Each act As MediaContainers.Person In Episode.TVEp.Actors
+ 'Dim img As New Images
+ 'img.FromWeb(act.Thumb)
+ 'img.SaveAsActorThumb(act, Directory.GetParent(Episode.Filename).FullName)
+ 'Next
+ 'End If
+
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+
+ 'now save all missing episodes
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tShow.Filename = String.Empty
+ tShow.EpFanartPath = String.Empty
+ tShow.EpPosterPath = String.Empty
+ tShow.EpNfoPath = String.Empty
+ tShow.SeasonFanartPath = String.Empty
+ tShow.SeasonPosterPath = String.Empty
+ tShow.ShowFanartPath = String.Empty
+ tShow.IsLockEp = False
+ tShow.IsMarkEp = False
+ tShow.EpID = -1
+ If tEpisodes.Count > 0 Then
+ For Each Episode As MediaContainers.EpisodeDetails In tEpisodes
+ tShow.TVEp = Episode
+ Master.DB.SaveTVEpToDB(tShow, True, True, True)
+ Next
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ SQLTrans.Commit()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Using
+ End Sub
+
+ Private Sub SaveToCache(ByVal sID As String, ByVal sURL As String, ByVal sPath As String)
+ Dim sImage As New Images
+
+ sImage.FromWeb(sURL)
+
+ If Not IsNothing(sImage.Image) Then
+ sImage.Save(Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, sPath.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), , , True)
+ End If
+ sImage = Nothing
+ End Sub
+
+ Private Function SearchSeries(ByVal sInfo As Structures.ScrapeInfo) As List(Of TVSearchResults)
+ Dim tvdbResults As New List(Of TVSearchResults)
+ Dim cResult As New TVSearchResults
+ Dim xmlTVDB As XDocument
+ Dim tmpXML As XDocument
+ Dim sHTTP As New HTTP
+ Dim sLang As String = String.Empty
+ Dim tmpID As String = String.Empty
+
+ Try
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/GetSeries.php?seriesname={1}&language={2}", Master.eSettings.TVDBMirror, sInfo.ShowTitle, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbResults
+ End Try
+
+ Dim xSer = From xSeries In xmlTVDB.Descendants("Series") Where xSeries.HasElements
+
+ 'check each unique showid to see if we have an entry for the preferred languages. If not, try to force download it
+ For Each tID As String In xSer.GroupBy(Function(s) s.Element("seriesid").Value.ToString).Select(Function(group) group.Key)
+ tmpID = tID
+ If xSer.Where(Function(s) s.Element("seriesid").Value.ToString = tmpID AndAlso s.Element("language").Value.ToString = Master.eSettings.TVDBLanguage).Count = 0 Then
+ 'no preferred language in this series, force it
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, APIKey, tmpID, Master.eSettings.TVDBLanguage))
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ Continue For
+ End Try
+
+ For Each tSer As XElement In tmpXML.Descendants("Series").Where(Function(s) s.HasElements)
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ cResult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) AndAlso xSer.Where(Function(s) s.Element("seriesid").Value.ToString = cResult.ID.ToString AndAlso s.Element("language").Value.ToString = sLang).Count = 0 Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+ End If
+ Next
+ sHTTP = Nothing
+
+ For Each xS As XElement In xSer
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(xS.Element("seriesid").Value)
+ cResult.Name = If(Not IsNothing(xS.Element("SeriesName")), xS.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(xS.Element("language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = xS.Element("language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(xS.Element("language")) Then
+ sLang = xS.Element("language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(xS.Element("FirstAired")), xS.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(xS.Element("Overview")), xS.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(xS.Element("banner")), xS.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tvdbResults
+ End Function
+
+ Private Sub ShowFromXML(ByVal sInfo As Structures.ScrapeInfo, ByVal ImagesOnly As Boolean)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim sID As String = String.Empty
+ Dim iEp As Integer = -1
+ Dim iSeas As Integer = -1
+ Dim sTitle As String = String.Empty
+ Dim byTitle As Boolean = False
+ Dim xE As XElement = Nothing
+ Dim tShow As Structures.DBTV = tmpTVDBShow.Show
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ If Not ImagesOnly Then
+ If Master.eSettings.DisplayMissingEpisodes Then tEpisodes = Me.GetListOfKnownEpisodes(sInfo)
+
+ 'get the actors first
+ Try
+ If sInfo.Options.bShowActors OrElse sInfo.Options.bEpActors Then
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = Actor.Element("Role").Value, .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ 'now let's get the show info and all the episodes
+ Try
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdShow As XDocument = XDocument.Parse(sXML)
+ Dim xS = From xShow In xdShow.Descendants("Series")
+ If xS.Count > 0 Then
+ tShow.ShowLanguage = sInfo.SelectedLang
+ If Not IsNothing(tShow.TVShow) Then
+ With tShow.TVShow
+ sID = xS(0).Element("id").Value
+ .ID = sID
+ If sInfo.Options.bShowTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.ShowLockTitle) Then .Title = If(IsNothing(xS(0).Element("SeriesName")), .Title, xS(0).Element("SeriesName").Value)
+ If sInfo.Options.bShowEpisodeGuide Then .EpisodeGuideURL = If(Not String.IsNullOrEmpty(Master.eSettings.ExternalTVDBAPIKey), String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, Master.eSettings.ExternalTVDBAPIKey, sID, Master.eSettings.TVDBLanguage), String.Empty)
+ If sInfo.Options.bShowGenre AndAlso (String.IsNullOrEmpty(.Genre) OrElse Not Master.eSettings.ShowLockGenre) Then .Genre = If(IsNothing(xS(0).Element("Genre")), .Genre, Strings.Join(xS(0).Element("Genre").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bShowMPAA Then .MPAA = If(IsNothing(xS(0).Element("ContentRating")), .MPAA, xS(0).Element("ContentRating").Value)
+ If sInfo.Options.bShowPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.ShowLockPlot) Then .Plot = If(IsNothing(xS(0).Element("Overview")), .Plot, xS(0).Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ If sInfo.Options.bShowPremiered Then .Premiered = If(IsNothing(xS(0).Element("FirstAired")), .Premiered, xS(0).Element("FirstAired").Value)
+ If sInfo.Options.bShowRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.ShowLockRating) Then .Rating = If(IsNothing(xS(0).Element("Rating")), .Rating, xS(0).Element("Rating").Value)
+ If sInfo.Options.bShowStudio AndAlso (String.IsNullOrEmpty(.Studio) OrElse Not Master.eSettings.ShowLockStudio) Then .Studio = If(IsNothing(xS(0).Element("Network")), .Studio, xS(0).Element("Network").Value)
+ If sInfo.Options.bShowActors Then .Actors = Actors
+ End With
+ End If
+
+ 'set it back
+ tmpTVDBShow.Show = tShow
+
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Episode.ShowLanguage = sInfo.SelectedLang
+
+ iEp = Episode.TVEp.Episode
+ iSeas = Episode.TVEp.Season
+ sTitle = Episode.TVEp.Title
+ byTitle = False
+ tOrdering = Enums.Ordering.Standard
+
+ If Not IsNothing(tShow.TVShow) Then Episode.TVShow = tShow.TVShow
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ 'first we need to check if dvd order is specified for every episode in the season
+ 'we'll use the regular season number as an indicator even though there are some cases
+ 'where this will not work (season 1 episode 1 = dvd_season 2 dvd_episode 1) but it
+ 'should work in most cases and is the best solution I could come up with
+
+ If xdShow.Descendants("Episode").Where(Function(e) Not IsNothing(e.Element("SeasonNumber")) AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If xdShow.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+
+ If tOrdering = Enums.Ordering.DVD Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString) AndAlso Convert.ToInt32(CLng(e.Element("DVD_episodenumber").Value.ToString)) = iEp AndAlso Not IsNothing(e.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) AndAlso Convert.ToInt32(e.Element("DVD_season").Value) = iSeas)
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If iSeas = 1 Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("absolute_number").Value.ToString) = iEp)
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("EpisodeNumber").Value.ToString) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Convert.ToInt32(e.Element("EpisodeNumber").Value) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+
+ If IsNothing(xE) Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) StringUtils.ComputeLevenshtein(e.Element("EpisodeName").Value, sTitle) < 5)
+ byTitle = True
+ End If
+
+ If Not IsNothing(xE) Then
+ With Episode.TVEp
+ If sInfo.Options.bEpTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.EpLockTitle) AndAlso Not String.IsNullOrEmpty(xE.Element("EpisodeName").Value) Then .Title = xE.Element("EpisodeName").Value
+ If byTitle Then
+ If tOrdering = Enums.Ordering.DVD Then
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("DVD_season")) OrElse String.IsNullOrEmpty(xE.Element("DVD_season").Value), 0, Convert.ToInt32(xE.Element("DVD_season").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(xE.Element("DVD_episodenumber").Value), 0, Convert.ToInt32(xE.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If sInfo.Options.bEpSeason Then .Season = 1
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("absolute_number")) OrElse String.IsNullOrEmpty(xE.Element("absolute_number").Value), 0, Convert.ToInt32(xE.Element("absolute_number").Value))
+ Else
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(xE.Element("SeasonNumber").Value), 0, Convert.ToInt32(xE.Element("SeasonNumber").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(xE.Element("EpisodeNumber").Value), 0, Convert.ToInt32(xE.Element("EpisodeNumber").Value))
+ End If
+ End If
+ If sInfo.Options.bEpAired Then .Aired = If(IsNothing(xE.Element("FirstAired")), .Aired, xE.Element("FirstAired").Value)
+ If sInfo.Options.bEpRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.EpLockRating) Then .Rating = If(IsNothing(xE.Element("Rating")), .Rating, xE.Element("Rating").Value)
+ If sInfo.Options.bEpPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.EpLockPlot) Then .Plot = If(IsNothing(xE.Element("Overview")), .Plot, xE.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ 'If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xS(0).Element("Director")), .Director, Strings.Join(xS(0).Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xE.Element("Director")), .Director, Strings.Join(xE.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpCredits Then .Credits = CreditsString(If(IsNothing(xE.Element("GuestStars")), String.Empty, xE.Element("GuestStars").Value), If(IsNothing(xE.Element("Writer")), String.Empty, xE.Element("Writer").Value))
+ If sInfo.Options.bEpActors Then .Actors = Actors
+ .PosterURL = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, xE.Element("filename").Value))
+ .LocalFile = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, xE.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+ End If
+ Next
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Else
+ sID = sInfo.TVDBID
+ End If
+ 'and finally the images
+ Try
+ If ImagesOnly OrElse Not IsNothing(tShow.TVShow) Then
+ If Not String.IsNullOrEmpty(bXML) Then
+ Dim xdImage As XDocument = XDocument.Parse(bXML)
+ For Each tImage As XElement In xdImage.Descendants("Banner")
+ If (Not IsNothing(tImage.Element("BannerPath")) AndAlso Not String.IsNullOrEmpty(tImage.Element("BannerPath").Value)) AndAlso _
+ (Not Master.eSettings.OnlyGetTVImagesForSelectedLanguage OrElse ((Not IsNothing(tImage.Element("Language")) AndAlso tImage.Element("Language").Value = Master.eSettings.TVDBLanguage) OrElse _
+ ((IsNothing(tImage.Element("Language")) OrElse tImage.Element("Language").Value = "en") AndAlso Master.eSettings.AlwaysGetEnglishTVImages))) Then
+ Select Case tImage.Element("BannerType").Value
+ Case "fanart"
+ tmpTVDBShow.Fanart.Add(New TVDBFanart With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .ThumbnailURL = If(IsNothing(tImage.Element("ThumbnailPath")) OrElse String.IsNullOrEmpty(tImage.Element("ThumbnailPath").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("ThumbnailPath").Value)), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .LocalThumb = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("ThumbnailPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "poster"
+ tmpTVDBShow.Posters.Add(New TVDBPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "posters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "season"
+ tmpTVDBShow.SeasonPosters.Add(New TVDBSeasonPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Season = If(IsNothing(tImage.Element("Season")) OrElse String.IsNullOrEmpty(tImage.Element("Season").Value), 0, Convert.ToInt32(tImage.Element("Season").Value)), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.SeasonPosterType.None, StringToSeasonPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seasonposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "series"
+ tmpTVDBShow.ShowPosters.Add(New TVDBShowPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.ShowBannerType.None, StringToShowPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seriesposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ End Select
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function StringToSeasonPosterType(ByVal sType As String) As Enums.SeasonPosterType
+ Select Case sType.ToLower
+ Case "season"
+ Return Enums.SeasonPosterType.Poster
+ Case "seasonwide"
+ Return Enums.SeasonPosterType.Wide
+ Case Else
+ Return Enums.SeasonPosterType.None
+ End Select
+ End Function
+
+ Private Function StringToShowPosterType(ByVal sType As String) As Enums.ShowBannerType
+ Select Case sType.ToLower
+ Case "blank"
+ Return Enums.ShowBannerType.Blank
+ Case "graphical"
+ Return Enums.ShowBannerType.Graphical
+ Case "text"
+ Return Enums.ShowBannerType.Text
+ Case Else
+ Return Enums.ShowBannerType.None
+ End Select
+ End Function
+
+#End Region 'Methods
+
+#Region "Other"
+
+ Private Structure Arguments
+
+ Dim Parameter As Object
+ Dim Type As Integer
+
+ End Structure
+
+ Private Structure Results
+
+ Dim Result As Object
+ Dim Type As Integer '0 = search, 1 = show download, 2 = load eps, 3 = save
+
+ End Structure
+
+#End Region 'Other
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBFanart
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _localthumb As String
+ Private _size As Size
+ Private _thumbnailurl As String
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property LocalThumb() As String
+ Get
+ Return Me._localthumb
+ End Get
+ Set(ByVal value As String)
+ Me._localthumb = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property ThumbnailURL() As String
+ Get
+ Return Me._thumbnailurl
+ End Get
+ Set(ByVal value As String)
+ Me._thumbnailurl = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._thumbnailurl = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._localthumb = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _size As Size
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBSeasonImage
+
+#Region "Fields"
+
+ Private _fanart As TVDBFanart
+ Private _poster As Images
+ Private _season As Integer
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Fanart() As TVDBFanart
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As TVDBFanart)
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Poster() As Images
+ Get
+ Return Me._poster
+ End Get
+ Set(ByVal value As Images)
+ Me._poster = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._season = -1
+ Me._poster = New Images
+ Me._fanart = New TVDBFanart
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBSeasonPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _season As Integer
+ Private _type As Enums.SeasonPosterType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.SeasonPosterType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.SeasonPosterType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._season = 0
+ Me._type = Enums.SeasonPosterType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBShow
+
+#Region "Fields"
+
+ Private _allseason As Structures.DBTV
+ Private _episodes As New List(Of Structures.DBTV)
+ Private _fanart As New List(Of TVDBFanart)
+ Private _posters As New List(Of TVDBPoster)
+ Private _seasonposters As New List(Of TVDBSeasonPoster)
+ Private _show As Structures.DBTV
+ Private _showposters As New List(Of TVDBShowPoster)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property AllSeason() As Structures.DBTV
+ Get
+ Return Me._allseason
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._allseason = value
+ End Set
+ End Property
+
+ Public Property Episodes() As List(Of Structures.DBTV)
+ Get
+ Return Me._episodes
+ End Get
+ Set(ByVal value As List(Of Structures.DBTV))
+ Me._episodes = value
+ End Set
+ End Property
+
+ Public Property Fanart() As List(Of TVDBFanart)
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As List(Of TVDBFanart))
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Posters() As List(Of TVDBPoster)
+ Get
+ Return Me._posters
+ End Get
+ Set(ByVal value As List(Of TVDBPoster))
+ Me._posters = value
+ End Set
+ End Property
+
+ Public Property SeasonPosters() As List(Of TVDBSeasonPoster)
+ Get
+ Return Me._seasonposters
+ End Get
+ Set(ByVal value As List(Of TVDBSeasonPoster))
+ Me._seasonposters = value
+ End Set
+ End Property
+
+ Public Property Show() As Structures.DBTV
+ Get
+ Return Me._show
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._show = value
+ End Set
+ End Property
+
+ Public Property ShowPosters() As List(Of TVDBShowPoster)
+ Get
+ Return Me._showposters
+ End Get
+ Set(ByVal value As List(Of TVDBShowPoster))
+ Me._showposters = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._show = New Structures.DBTV
+ Me._allseason = New Structures.DBTV
+ Me._episodes = New List(Of Structures.DBTV)
+ Me._fanart = New List(Of TVDBFanart)
+ Me._showposters = New List(Of TVDBShowPoster)
+ Me._seasonposters = New List(Of TVDBSeasonPoster)
+ Me._posters = New List(Of TVDBPoster)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBShowPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _type As Enums.ShowBannerType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.ShowBannerType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.ShowBannerType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._type = Enums.ShowBannerType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVSearchResults
+
+#Region "Fields"
+
+ Private _aired As String
+ Private _banner As String
+ Private _id As Integer
+ Private _language As Containers.TVLanguage
+ Private _lev As Integer
+ Private _name As String
+ Private _overview As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Aired() As String
+ Get
+ Return Me._aired
+ End Get
+ Set(ByVal value As String)
+ Me._aired = value
+ End Set
+ End Property
+
+ Public Property Banner() As String
+ Get
+ Return Me._banner
+ End Get
+ Set(ByVal value As String)
+ Me._banner = value
+ End Set
+ End Property
+
+ Public Property ID() As Integer
+ Get
+ Return Me._id
+ End Get
+ Set(ByVal value As Integer)
+ Me._id = value
+ End Set
+ End Property
+
+ Public Property Language() As Containers.TVLanguage
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As Containers.TVLanguage)
+ Me._language = value
+ End Set
+ End Property
+
+ Public Property Lev() As Integer
+ Get
+ Return Me._lev
+ End Get
+ Set(ByVal value As Integer)
+ Me._lev = value
+ End Set
+ End Property
+
+ Public Property Name() As String
+ Get
+ Return Me._name
+ End Get
+ Set(ByVal value As String)
+ Me._name = value
+ End Set
+ End Property
+
+ Public Property Overview() As String
+ Get
+ Return Me._overview
+ End Get
+ Set(ByVal value As String)
+ Me._overview = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._id = 0
+ Me._name = String.Empty
+ Me._aired = String.Empty
+ Me._language = New Containers.TVLanguage
+ Me._overview = String.Empty
+ Me._banner = String.Empty
+ Me._lev = 0
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.Designer.vb b/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.Designer.vb
new file mode 100644
index 0000000..dd38c94
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.Designer.vb
@@ -0,0 +1,139 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVChangeEp
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lvEpisodes = New System.Windows.Forms.ListView()
+ Me.colEpisode = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colTitle = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pbPreview = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.txtPlot = New System.Windows.Forms.TextBox()
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(505, 286)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(575, 286)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lvEpisodes
+ '
+ Me.lvEpisodes.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colEpisode, Me.colTitle})
+ Me.lvEpisodes.FullRowSelect = True
+ Me.lvEpisodes.HideSelection = False
+ Me.lvEpisodes.Location = New System.Drawing.Point(3, 3)
+ Me.lvEpisodes.MultiSelect = False
+ Me.lvEpisodes.Name = "lvEpisodes"
+ Me.lvEpisodes.Size = New System.Drawing.Size(358, 278)
+ Me.lvEpisodes.TabIndex = 2
+ Me.lvEpisodes.UseCompatibleStateImageBehavior = False
+ Me.lvEpisodes.View = System.Windows.Forms.View.Details
+ '
+ 'colEpisode
+ '
+ Me.colEpisode.Text = "Episode"
+ '
+ 'colTitle
+ '
+ Me.colTitle.Text = "Title"
+ Me.colTitle.Width = 276
+ '
+ 'pbPreview
+ '
+ Me.pbPreview.Location = New System.Drawing.Point(417, 12)
+ Me.pbPreview.Name = "pbPreview"
+ Me.pbPreview.Size = New System.Drawing.Size(174, 117)
+ Me.pbPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPreview.TabIndex = 3
+ Me.pbPreview.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(367, 140)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(275, 21)
+ Me.lblTitle.TabIndex = 3
+ '
+ 'txtPlot
+ '
+ Me.txtPlot.BackColor = System.Drawing.SystemColors.Control
+ Me.txtPlot.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtPlot.Location = New System.Drawing.Point(366, 169)
+ Me.txtPlot.Multiline = True
+ Me.txtPlot.Name = "txtPlot"
+ Me.txtPlot.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+ Me.txtPlot.Size = New System.Drawing.Size(276, 111)
+ Me.txtPlot.TabIndex = 4
+ '
+ 'dlgTVChangeEp
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(646, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.txtPlot)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPreview)
+ Me.Controls.Add(Me.lvEpisodes)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVChangeEp"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Change Episode"
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lvEpisodes As System.Windows.Forms.ListView
+ Friend WithEvents colEpisode As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colTitle As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pbPreview As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents txtPlot As System.Windows.Forms.TextBox
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.resx b/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.resx
new file mode 100644
index 0000000..717c885
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.resx
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="txtPlot.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>True</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.vb b/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.vb
new file mode 100644
index 0000000..954f58a
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVChangeEp.vb
@@ -0,0 +1,120 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgTVChangeEp
+
+#Region "Fields"
+
+ Private _episode As MediaContainers.EpisodeDetails = Nothing
+ Private _tepisodes As New List(Of MediaContainers.EpisodeDetails)
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal tEpisodes As List(Of MediaContainers.EpisodeDetails)) As MediaContainers.EpisodeDetails
+ Me._tepisodes = tEpisodes
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return _episode
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.pbPreview.Image = Nothing
+ Me.lblTitle.Text = String.Empty
+ Me.txtPlot.Text = String.Empty
+ End Sub
+
+ Private Sub dlgTVChangeEp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+
+ Dim lGroup As New ListViewGroup
+ Dim lItem As New ListViewItem
+ Dim tSeason As Integer = Nothing
+
+ For Each Season As Integer In _tepisodes.GroupBy(Function(s) s.Season).Select(Function(group) group.Key)
+ tSeason = Season
+ lGroup = New ListViewGroup
+ lGroup.Header = String.Format(Master.eLang.GetString(726, "Season {0}", True), tSeason)
+ lvEpisodes.Groups.Add(lGroup)
+ For Each Episode As MediaContainers.EpisodeDetails In _tepisodes.Where(Function(s) s.Season = tSeason).OrderBy(Function(s) s.Episode)
+ lItem = lvEpisodes.Items.Add(Episode.Episode.ToString)
+ lItem.Tag = Episode
+ lItem.SubItems.Add(Episode.Title)
+ lGroup.Items.Add(lItem)
+ Next
+ Next
+ End Sub
+
+ Private Sub lvEpisodes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvEpisodes.SelectedIndexChanged
+ Me.ClearInfo()
+ If lvEpisodes.SelectedItems.Count > 0 AndAlso Not IsNothing(lvEpisodes.SelectedItems(0).Tag) Then
+ Me._episode = DirectCast(lvEpisodes.SelectedItems(0).Tag, MediaContainers.EpisodeDetails)
+
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ ElseIf Not String.IsNullOrEmpty(Me._episode.LocalFile) AndAlso File.Exists(Me._episode.LocalFile) Then
+ Me._episode.Poster.FromFile(Me._episode.LocalFile)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ ElseIf Not String.IsNullOrEmpty(Me._episode.PosterURL) Then
+ Me._episode.Poster.FromWeb(Me._episode.PosterURL)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Me._episode.LocalFile).FullName)
+ Me._episode.Poster.Save(Me._episode.LocalFile)
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ End If
+
+ Me.lblTitle.Text = Me._episode.Title
+ Me.txtPlot.Text = Me._episode.Plot
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(772, "Change Episode", True)
+
+ Me.lvEpisodes.Columns(0).Text = Master.eLang.GetString(727, "Episode", True)
+ Me.lvEpisodes.Columns(1).Text = Master.eLang.GetString(21, "Title", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb b/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb
new file mode 100644
index 0000000..b05c597
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb
@@ -0,0 +1,368 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbBanner = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblAiredHeader = New System.Windows.Forms.Label()
+ Me.lblAired = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lvSearchResults = New System.Windows.Forms.ListView()
+ Me.colName = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLev = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colID = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colSLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.txtTVDBID = New System.Windows.Forms.TextBox()
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(485, 335)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(558, 335)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbBanner
+ '
+ Me.pbBanner.Location = New System.Drawing.Point(325, 69)
+ Me.pbBanner.Name = "pbBanner"
+ Me.pbBanner.Size = New System.Drawing.Size(300, 55)
+ Me.pbBanner.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbBanner.TabIndex = 3
+ Me.pbBanner.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(325, 132)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(300, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Visible = False
+ '
+ 'lblAiredHeader
+ '
+ Me.lblAiredHeader.AutoSize = True
+ Me.lblAiredHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblAiredHeader.Location = New System.Drawing.Point(325, 161)
+ Me.lblAiredHeader.Name = "lblAiredHeader"
+ Me.lblAiredHeader.Size = New System.Drawing.Size(38, 13)
+ Me.lblAiredHeader.TabIndex = 10
+ Me.lblAiredHeader.Text = "Aired:"
+ Me.lblAiredHeader.Visible = False
+ '
+ 'lblAired
+ '
+ Me.lblAired.AutoSize = True
+ Me.lblAired.Location = New System.Drawing.Point(387, 161)
+ Me.lblAired.Name = "lblAired"
+ Me.lblAired.Size = New System.Drawing.Size(63, 13)
+ Me.lblAired.TabIndex = 12
+ Me.lblAired.Text = "00/00/0000"
+ Me.lblAired.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(325, 189)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 13
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtOutline.Location = New System.Drawing.Point(325, 205)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(300, 127)
+ Me.txtOutline.TabIndex = 14
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lvSearchResults
+ '
+ Me.lvSearchResults.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colName, Me.colLang, Me.colLev, Me.colID, Me.colSLang})
+ Me.lvSearchResults.FullRowSelect = True
+ Me.lvSearchResults.HideSelection = False
+ Me.lvSearchResults.Location = New System.Drawing.Point(3, 96)
+ Me.lvSearchResults.MultiSelect = False
+ Me.lvSearchResults.Name = "lvSearchResults"
+ Me.lvSearchResults.Size = New System.Drawing.Size(316, 236)
+ Me.lvSearchResults.TabIndex = 5
+ Me.lvSearchResults.UseCompatibleStateImageBehavior = False
+ Me.lvSearchResults.View = System.Windows.Forms.View.Details
+ '
+ 'colName
+ '
+ Me.colName.Text = "Title"
+ Me.colName.Width = 223
+ '
+ 'colLang
+ '
+ Me.colLang.Text = "Language"
+ Me.colLang.Width = 89
+ '
+ 'colLev
+ '
+ Me.colLev.Width = 0
+ '
+ 'colID
+ '
+ Me.colID.Width = 0
+ '
+ 'colSLang
+ '
+ Me.colSLang.Width = 0
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(380, 154)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 11
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TVDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(287, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper TV show."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(216, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "TV Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(296, 67)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(3, 68)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(287, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(244, 337)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Enabled = False
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(3, 341)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(127, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual TVDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'txtTVDBID
+ '
+ Me.txtTVDBID.Enabled = False
+ Me.txtTVDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTVDBID.Location = New System.Drawing.Point(138, 337)
+ Me.txtTVDBID.Name = "txtTVDBID"
+ Me.txtTVDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTVDBID.TabIndex = 7
+ '
+ 'dlgTVDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 378)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.txtTVDBID)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.lvSearchResults)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblAiredHeader)
+ Me.Controls.Add(Me.lblAired)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbBanner)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 406)
+ Me.Name = "dlgTVDBSearchResults"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "TV Search Results"
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbBanner As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblAiredHeader As System.Windows.Forms.Label
+ Friend WithEvents lblAired As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lvSearchResults As System.Windows.Forms.ListView
+ Friend WithEvents colName As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents colLev As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colID As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colSLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents txtTVDBID As System.Windows.Forms.TextBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.resx b/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.resx
new file mode 100644
index 0000000..7a332a8
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.vb b/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.vb
new file mode 100644
index 0000000..cce33d3
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVDBSearchResults.vb
@@ -0,0 +1,437 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+
+ Private lvResultsSorter As New ListViewColumnSorter
+ Private sHTTP As New HTTP
+ Private sInfo As Structures.ScrapeInfo
+ Private _manualresult As Scraper.TVSearchResults = Nothing
+ Private _skipdownload As Boolean = False
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _sInfo As Structures.ScrapeInfo) As Windows.Forms.DialogResult
+ Me.sInfo = _sInfo
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal _sinfo As Structures.ScrapeInfo, ByVal SkipDownload As Boolean) As Structures.ScrapeInfo
+ Me.sInfo = _sinfo
+ Me._skipdownload = SkipDownload
+
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return Me.sInfo
+ Else
+ Return _sinfo
+ End If
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.lvSearchResults.Enabled = False
+ Me.sInfo.ShowTitle = Me.txtSearch.Text
+ Me.ClearInfo()
+ Me.chkManual.Enabled = False
+ Me.chkManual.Checked = False
+ Me.txtSearch.Text = String.Empty
+ Me.btnVerify.Enabled = False
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+ Me.pnlLoading.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If IsNumeric(Me.txtTVDBID.Text) AndAlso Me.txtTVDBID.Text.Length >= 5 Then
+ Dim tmpXML As XDocument = Nothing
+ Dim sLang As String = String.Empty
+
+ Me.ClearInfo()
+ Me.pnlLoading.Visible = True
+ Application.DoEvents()
+
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, Scraper.APIKey, Me.txtTVDBID.Text, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ End Try
+
+ If Not IsNothing(tmpXML) Then
+ Dim tSer As XElement = tmpXML.Descendants("Series").FirstOrDefault(Function(s) s.HasElements)
+
+ If Not IsNothing(tSer) Then
+ Me._manualresult = New Scraper.TVSearchResults
+ Me._manualresult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ Me._manualresult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ End If
+ Me._manualresult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ Me._manualresult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value, String.Empty)
+ Me._manualresult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(Me._manualresult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ If Not String.IsNullOrEmpty(Me._manualresult.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = Me._manualresult.Banner})
+ End If
+
+ Me.OK_Button.Tag = Me._manualresult.ID
+ Me.lblTitle.Text = Me._manualresult.Name
+ Me.txtOutline.Text = Me._manualresult.Overview
+ Me.lblAired.Text = Me._manualresult.Aired
+ Me.OK_Button.Enabled = True
+ Me.pnlLoading.Visible = False
+ Me.ControlsVisible(True)
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Else
+ MsgBox(Master.eLang.GetString(83, "The ID you entered is not a valid TVDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ sHTTP.StartDownloadImage(String.Format("http://{0}/banners/_cache/{1}", Master.eSettings.TVDBMirror, Args.pURL))
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image()}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbBanner.Image = Res.Result
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTVDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.lvSearchResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTVDBID.Text = String.Empty
+ Else
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then Me.lvSearchResults.SelectedItems(0).Selected = False
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblAired.Text = String.Empty
+ Me.pbBanner.Image = Nothing
+ Scraper.sObject.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.pbBanner.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblAiredHeader.Visible = areVisible
+ Me.lblAired.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ End Sub
+
+ Private Sub dlgTVDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ AddHandler ModulesManager.Instance.TVScraperEvent, AddressOf TVScraperEvent
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+
+ Me.lvSearchResults.ListViewItemSorter = Me.lvResultsSorter
+
+ Me.SetUp()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvSearchResults.ColumnClick
+ ' Determine if the clicked column is already the column that is
+ ' being sorted.
+ Try
+ If (e.Column = Me.lvResultsSorter.SortColumn) Then
+ ' Reverse the current sort direction for this column.
+ If (Me.lvResultsSorter.Order = SortOrder.Ascending) Then
+ Me.lvResultsSorter.Order = SortOrder.Descending
+ Else
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+ Else
+ ' Set the column number that is to be sorted; default to ascending.
+ Me.lvResultsSorter.SortColumn = e.Column
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+
+ ' Perform the sort with these new sort options.
+ Me.lvSearchResults.Sort()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvSearchResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub lvSearchResults_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvSearchResults.SelectedIndexChanged
+ Me.ClearInfo()
+ If Me.lvSearchResults.SelectedItems.Count > 0 AndAlso Not Me.chkManual.Checked Then
+ Dim SelectedShow As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ If Not String.IsNullOrEmpty(SelectedShow.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = SelectedShow.Banner})
+ End If
+
+ Me.OK_Button.Tag = SelectedShow.ID
+ Me.lblTitle.Text = SelectedShow.Name
+ Me.txtOutline.Text = SelectedShow.Overview
+ Me.lblAired.Text = SelectedShow.Aired
+ Me.OK_Button.Enabled = True
+ Me.ControlsVisible(True)
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then
+ Dim sResults As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ Me.sInfo.TVDBID = sResults.ID.ToString
+ Me.sInfo.SelectedLang = sResults.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ ElseIf Me.chkManual.Checked AndAlso Not IsNothing(Me._manualresult) Then
+ Me.sInfo.TVDBID = Me._manualresult.ID.ToString
+ Me.sInfo.SelectedLang = Me._manualresult.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label1.Text = Master.eLang.GetString(85, "TV Search Results")
+ Me.Label2.Text = Master.eLang.GetString(86, "View details of each result to find the proper TV show.")
+ Me.lblAiredHeader.Text = Master.eLang.GetString(658, "Aired:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(783, "Plot Summary:", True)
+
+ Me.lvSearchResults.Columns(0).Text = Master.eLang.GetString(21, "Title", True)
+ Me.lvSearchResults.Columns(1).Text = Master.eLang.GetString(610, "Language", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ Select Case eType
+ Case Enums.TVScraperEventType.SearchResultsDownloaded
+ Dim lItem As ListViewItem
+ Dim sResults As List(Of Scraper.TVSearchResults) = DirectCast(Parameter, List(Of Scraper.TVSearchResults))
+
+ Me.lvSearchResults.Items.Clear()
+
+ If Not IsNothing(sResults) AndAlso sResults.Count > 0 Then
+ For Each sRes As Scraper.TVSearchResults In sResults.OrderBy(Function(r) r.Lev)
+ lItem = New ListViewItem(sRes.Name)
+ lItem.SubItems.Add(sRes.Language.LongLang)
+ lItem.SubItems.Add(sRes.Lev.ToString)
+ lItem.SubItems.Add(sRes.ID.ToString)
+ lItem.SubItems.Add(sRes.Language.ShortLang)
+ lItem.Tag = sRes
+ Me.lvSearchResults.Items.Add(lItem)
+ Next
+ End If
+
+ Me.pnlLoading.Visible = False
+
+ If Me.lvSearchResults.Items.Count > 0 Then
+ If sResults.Select(Function(s) s.ID).Distinct.Count = 1 Then
+ 'they're all for the same show... try to find one with the preferred language
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ Else
+ 'we've got a bunch of different shows... try to find a "best match" title with the preferred language
+ If sResults.Where(Function(s) s.Lev <= 5).Count > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(2).Text) <= 5 AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ 'get the id for the best english match and see if we have one for the preferred language with same id
+ Dim tID As Integer = sResults.OrderBy(Function(s) s.Lev).FirstOrDefault(Function(s) s.Language.ShortLang = "en").ID
+ If tID > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(3).Text) = tID AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ Me.lvSearchResults.Items(0).Selected = True
+ End If
+ Me.lvSearchResults.Select()
+ End If
+
+ Me.chkManual.Enabled = True
+ If Not Me.chkManual.Checked Then Me.lvSearchResults.Enabled = True
+
+ Case Enums.TVScraperEventType.ShowDownloaded
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Select
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Sub txtTVDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTVDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtTVDBID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTVDBID.KeyPress
+ e.Handled = StringUtils.NumericOnly(e.KeyChar, True)
+ End Sub
+
+ Private Sub txtTVDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTVDBID.TextChanged
+ If String.IsNullOrEmpty(Me.txtTVDBID.Text) Then
+ Me.btnVerify.Enabled = False
+ Me.OK_Button.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb b/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb
new file mode 100644
index 0000000..a3ebbd8
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb
@@ -0,0 +1,86 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTVEpisodePoster
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(292, 287)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(362, 287)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.BackColor = System.Drawing.Color.DimGray
+ Me.pbPoster.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pbPoster.Location = New System.Drawing.Point(6, 6)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(423, 276)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ '
+ 'dlgTVEpisodePoster
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVEpisodePoster"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Confirm Episode Poster"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.resx b/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.vb b/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.vb
new file mode 100644
index 0000000..60ed929
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVEpisodePoster.vb
@@ -0,0 +1,48 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVEpisodePoster
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal Poster As Image) As System.Windows.Forms.DialogResult
+ Me.pbPoster.Image = Poster
+ Return MyBase.ShowDialog
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbPoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbPoster.Click
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(Me.pbPoster.Image)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.Designer.vb b/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.Designer.vb
new file mode 100644
index 0000000..cf05d15
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.Designer.vb
@@ -0,0 +1,213 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVImageSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVImageSelect))
+ Me.tvList = New System.Windows.Forms.TreeView()
+ Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+ Me.pnlImages = New System.Windows.Forms.Panel()
+ Me.pbCurrent = New System.Windows.Forms.PictureBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnOK = New System.Windows.Forms.Button()
+ Me.btnCancel = New System.Windows.Forms.Button()
+ Me.pbDelete = New System.Windows.Forms.PictureBox()
+ Me.pbUndo = New System.Windows.Forms.PictureBox()
+ Me.lblCurrentImage = New System.Windows.Forms.Label()
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlStatus.SuspendLayout()
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'tvList
+ '
+ Me.tvList.Enabled = False
+ Me.tvList.ImageIndex = 0
+ Me.tvList.ImageList = Me.ImageList1
+ Me.tvList.Location = New System.Drawing.Point(3, 4)
+ Me.tvList.Name = "tvList"
+ Me.tvList.SelectedImageIndex = 0
+ Me.tvList.Size = New System.Drawing.Size(214, 262)
+ Me.tvList.TabIndex = 2
+ Me.tvList.Visible = False
+ '
+ 'ImageList1
+ '
+ Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+ Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+ Me.ImageList1.Images.SetKeyName(0, "new_page.png")
+ Me.ImageList1.Images.SetKeyName(1, "image.png")
+ Me.ImageList1.Images.SetKeyName(2, "artwork.png")
+ Me.ImageList1.Images.SetKeyName(3, "star_full.png")
+ '
+ 'pnlImages
+ '
+ Me.pnlImages.AutoScroll = True
+ Me.pnlImages.BackColor = System.Drawing.SystemColors.Control
+ Me.pnlImages.Location = New System.Drawing.Point(222, 4)
+ Me.pnlImages.Name = "pnlImages"
+ Me.pnlImages.Size = New System.Drawing.Size(622, 421)
+ Me.pnlImages.TabIndex = 3
+ '
+ 'pbCurrent
+ '
+ Me.pbCurrent.BackColor = System.Drawing.SystemColors.Control
+ Me.pbCurrent.Location = New System.Drawing.Point(3, 293)
+ Me.pbCurrent.Name = "pbCurrent"
+ Me.pbCurrent.Size = New System.Drawing.Size(214, 157)
+ Me.pbCurrent.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbCurrent.TabIndex = 2
+ Me.pbCurrent.TabStop = False
+ Me.pbCurrent.Visible = False
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(264, 192)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(321, 75)
+ Me.pnlStatus.TabIndex = 5
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(5, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(310, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Gathering Data..."
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(6, 52)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(309, 19)
+ Me.pbStatus.Step = 1
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnOK
+ '
+ Me.btnOK.Enabled = False
+ Me.btnOK.Location = New System.Drawing.Point(708, 431)
+ Me.btnOK.Name = "btnOK"
+ Me.btnOK.Size = New System.Drawing.Size(65, 22)
+ Me.btnOK.TabIndex = 0
+ Me.btnOK.Text = "OK"
+ Me.btnOK.UseVisualStyleBackColor = True
+ '
+ 'btnCancel
+ '
+ Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.btnCancel.Location = New System.Drawing.Point(779, 431)
+ Me.btnCancel.Name = "btnCancel"
+ Me.btnCancel.Size = New System.Drawing.Size(65, 22)
+ Me.btnCancel.TabIndex = 1
+ Me.btnCancel.Text = "Cancel"
+ Me.btnCancel.UseVisualStyleBackColor = True
+ '
+ 'pbDelete
+ '
+ Me.pbDelete.Image = CType(resources.GetObject("pbDelete.Image"), System.Drawing.Image)
+ Me.pbDelete.Location = New System.Drawing.Point(3, 293)
+ Me.pbDelete.Name = "pbDelete"
+ Me.pbDelete.Size = New System.Drawing.Size(16, 16)
+ Me.pbDelete.TabIndex = 13
+ Me.pbDelete.TabStop = False
+ Me.pbDelete.Visible = False
+ '
+ 'pbUndo
+ '
+ Me.pbUndo.Image = CType(resources.GetObject("pbUndo.Image"), System.Drawing.Image)
+ Me.pbUndo.Location = New System.Drawing.Point(201, 293)
+ Me.pbUndo.Name = "pbUndo"
+ Me.pbUndo.Size = New System.Drawing.Size(16, 16)
+ Me.pbUndo.TabIndex = 14
+ Me.pbUndo.TabStop = False
+ Me.pbUndo.Visible = False
+ '
+ 'lblCurrentImage
+ '
+ Me.lblCurrentImage.AutoSize = True
+ Me.lblCurrentImage.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblCurrentImage.Location = New System.Drawing.Point(0, 274)
+ Me.lblCurrentImage.Name = "lblCurrentImage"
+ Me.lblCurrentImage.Size = New System.Drawing.Size(100, 17)
+ Me.lblCurrentImage.TabIndex = 4
+ Me.lblCurrentImage.Text = "Current Image:"
+ Me.lblCurrentImage.Visible = False
+ '
+ 'dlgTVImageSelect
+ '
+ Me.AcceptButton = Me.btnOK
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.btnCancel
+ Me.ClientSize = New System.Drawing.Size(849, 481)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.lblCurrentImage)
+ Me.Controls.Add(Me.pbUndo)
+ Me.Controls.Add(Me.pbDelete)
+ Me.Controls.Add(Me.btnCancel)
+ Me.Controls.Add(Me.btnOK)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.pbCurrent)
+ Me.Controls.Add(Me.pnlImages)
+ Me.Controls.Add(Me.tvList)
+ Me.DoubleBuffered = True
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(855, 491)
+ Me.Name = "dlgTVImageSelect"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "TV Image Selection"
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlStatus.ResumeLayout(False)
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents tvList As System.Windows.Forms.TreeView
+ Friend WithEvents pnlImages As System.Windows.Forms.Panel
+ Friend WithEvents pbCurrent As System.Windows.Forms.PictureBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnOK As System.Windows.Forms.Button
+ Friend WithEvents btnCancel As System.Windows.Forms.Button
+ Friend WithEvents pbDelete As System.Windows.Forms.PictureBox
+ Friend WithEvents pbUndo As System.Windows.Forms.PictureBox
+ Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+ Friend WithEvents lblCurrentImage As System.Windows.Forms.Label
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.resx b/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.resx
new file mode 100644
index 0000000..db85c76
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.resx
@@ -0,0 +1,210 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
+ LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+ ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
+ CwAAAk1TRnQBSQFMAgEBBAEAATABAAEwAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+ AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+ AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+ AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+ AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+ AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+ ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+ AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+ AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+ AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+ AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+ AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+ AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+ AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+ AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+ ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+ Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+ AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+ AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+ AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+ ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+ Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+ AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+ AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+ AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+ AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+ AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+ AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AFgAC/wMA
+ Bf8DAAH/BAAL/wMAA/8BAAb/AQAD/wMABf8C9AX/AgAC/wHzAfAJvAHzAv8CAAL/AfQB8QH0AfIB8QH0
+ AfEB8wL/AwAD/wH0Af8E9AH/AvQC/wMAAf8B8QEHB7wB8gH/AwAB/wG8AfEC8gXzAvIB8AH0AwAD/wGT
+ AfQB8AGTAQABkwH0Av8DAAL/AfQBUwGZBP8B8AFTAfAC/wQAAfEB8AfxAfIEAAH0AfAB8QHyB/MB8gHx
+ AfQGAAEaAvMBmQH/AZMIAAH/AXUBMgF1AfQB/wGaAjIB9AYAAvEI8gQAAfQB8AEJCLsBCQHxAfQFAAH/
+ AZMBdAGZAXQBmQF0AfQIAAEaAjICUwIyAXUB/wYACfIB8wQAAfQBuwG5AbMGigGyAbkBuwH0BAAB8wGZ
+ BnQBkwHxAf8GAAH0BjIBGgcAAvIG8wHyAfMEAAH0AbsCuQGsAYoCrAGKAawBswG5AbsB9AQAAvEB8AG7
+ AbUBBwEaAfIB8wHwAf8GAAH2AVMFMgEbBwAK8wQAAf8BuwO5AbIDrAGzArkBuwH0BAAB8gG8Aa4BbAFL
+ AUwBUgGZAfMB8QH/BQAB8wFTBzIBGgYACvMEAAH/AbsDuQGyAqwBsgO5AbsB9AQAAfEB/wEHAW4BUgIy
+ AY4B9AHyAf8DAAH/ARoKMgF6Af8EAArzBAAB/wEJAroBswGsArIBrAGzAroBuwH0BAAB8gH2AbsCggNM
+ AvMB/wMAAfQBMgFTAlkBUwMyA1kBMgEaBAAG8wP0AfMEAAH/AQkDugSyA7oBCQH0BAABGwH0AbsB9AGO
+ AbABkwF1AfQB8wH/BAAE/wEaAjIBegX/BAAF8wH0AfIC7wHyBAAB9AHwA7sBugKyAboDuwEJAfQEAAEb
+ Af8B8wH/Ab0B8gH0AbcB8wH0Af8IAAH0AjgBGgkABfMB9AEHAewB8AUAAfQB8AoJAfAB9AQAAfMC9AEb
+ AZkBkwEaAvQBGwH/CAAB/wF6ATgB/wkABfMB9AEHAbwGAAH/AfMBGQnyAfMB/wQABP8BmQF0AfQD/woA
+ ARoBWQH/CQAB/wX0AfMIAAH0CvMB9AkAAfMBGg4AAf8B9EcAAUIBTQE+BwABPgMAASgDAAFAAwABIAMA
+ AQEBAAEBBgABARYAA/+BAAL/AZwBHQHgAQMBiAERAcABAwIAAcABAwGAAQEBwAEDAYABAQHAAUMBgAEB
+ AeABBwGAAQEB+AEfAeABBwHgAQcBgAEBAfABDwHwAQcB4AEHAYABAQHgAQMB8AEPAeABBwGAAQEB4AED
+ AfABDwHgAQcBgAEBAeABAwHgAQcB4AEHAYABAQHgAQMBgAEBAeABBwGAAQEB4AEDAYABAQHgAQcBgAEB
+ AeABAwHAAQEB4AEHAYABAQHgAQMB/AE/AeABDwGAAQEB4AEDAfwBPwHgAR8BgAEBAeABBwH+AT8B4AE/
+ AcABAwH+AX8B/gF/CP8L
+</value>
+ </data>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="pbDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB60lEQVQ4T2P4//8/AyUYRfN9B2Pfu3YGzbgMvGdnkHnP3qgQWR5uwC1X
+ s4grBqr/L2kp/L9upbsF3ZAbdgaNl3WV/1/WUfp/w96w9//BmYwgNWADrnpYcZ3WUf5/XFEajE+py/2/
+ aIkw5LKtQeNpbSWgnBQYn9JU/H/eTNsUbsBOTi7GA4rSPQeUZf6DMVDRITW5/2csdVecszesOaqt+H8/
+ UAwuryS9/4CsBDfcAJhzdyrL9O5Qkv6/E4h3KEj93wN0yT4txf/bFSQhYhC5/Us0FVlgejBiYCPQkA1A
+ hWAMtHU90CAYf6OS9N752iqsWAMRWXCFkvTxFcCwQMPvNpkawG3G6YIFitINCxWk/gDxf3S8QFFqI3rs
+ oHhhhqJ040ygRhieAWSDMKqY9Jb/T7/D9YEZE1TlGSYqSDVMlJf6D8MTQGwF6c2TFKS7wGxkrCC1ZZKK
+ HAc8FnrVFLg65SX/o+H9tfqqTCBFXQpSvR1o8l2K0mYo0dihJJvYBLSlSU7yP5De9y3AG6wZhpvlpbrB
+ ckDcoigz/bGzFViegZkBjAWAFG+cpGh9trTYFm4WZgMgXwcobgzCQDaIr5AiKTo3U1p8IZAtAsR8cBcA
+ FTEDMdhPYEEGBk4gnxcZA8V4kOTZQHowUiI52RoAvKofAJdcVi8AAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="pbUndo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAHHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3MgQ1M0BrLToAAAAihJREFUOE9j+P//PwMlmCLNIIupZwATAwMjOxs7Q8XKkwzFG2+y
+ GnYd8XOZdprZedopBr9FVxiSNt5jqD3wjGHC6TcMvadegzGKCxgYGFhVdE0Y0ldcYVFt3LeYIWfrO9aS
+ XZzmU84weC+6ypBMhAEsPoU9nBJV+w4xpG/4z5C//SN/zf4ou1kXDIAGsKRvvsdQfxCPC7jFFIVFc9fu
+ ZEhb+58hZ9N/hoLt/xlL9/xnqT78X6Ln3D3bRbfaSvc+FZ927g3DpDMQjOIF1ohptxlSgJrTEQYwlOz+
+ z1C+/z9D1eH/jM2n/6vOuf06dtsT64ydTxjSdjxBNYApdf1/huSVmAZUHPjPUHPkP0P9if8MLWf/K8y7
+ 98lw0T1do0V3UQ0QsoqIZc/e/AXZCwyFuyAuABtw8j9D05n/LF2X/2ssfnTEeOkDVAPYmRgZtLJn2bFk
+ b/7BkLURFAa/NbuOdUi1HY8QbjsZKtN3Pkl20uUpHD2Xn/FNuf3fYNljF4xotPGLYohacsWOIXPDW4a8
+ bW/lmw9yKXedYJDuOs2gO/0Sg/vyOwxZu56yGCy+Xy086/58dAMYxSRlGJq3XWOIWnhBS6hy93rB6r0c
+ YnX7GWQ6TzJoT7vE4Lz0NkPW7ucMkdufM1mufOJP3aQMMo2ZgYEZiEWBWBaYtKVYOPkNWMRUvYFscSCW
+ BYqLAzErcu5FyUxASUaQAiDmAGIuIAbLA2l2qBgbSA2yAQAKojORM6Lv5AAAAABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.vb b/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.vb
new file mode 100644
index 0000000..288414e
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/TVScraper/dlgTVImageSelect.vb
@@ -0,0 +1,1224 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+'TODO: 1.5 - TV Show renaming (including "dump folder")
+'TODO: 1.5 - Support VIDEO_TS/BDMV folders for TV Shows
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTVImageSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadFanart As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadData As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadImages As New System.ComponentModel.BackgroundWorker
+
+ Private DefaultImages As New Scraper.TVImages
+ Private FanartList As New List(Of Scraper.TVDBFanart)
+ Private GenericPosterList As New List(Of Scraper.TVDBPoster)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private SeasonList As New List(Of Scraper.TVDBSeasonPoster)
+ Private SelIsPoster As Boolean = True
+ Private SelSeason As Integer = -999
+ Private ShowPosterList As New List(Of Scraper.TVDBShowPoster)
+ Private _fanartchanged As Boolean = False
+ Private _id As Integer = -1
+ Private _season As Integer = -999
+ Private _type As Enums.TVImageType = Enums.TVImageType.All
+ Private _withcurrent As Boolean = True
+ Private _ScrapeType As Enums.ScrapeType
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function SetDefaults() As Boolean
+ Dim iSeason As Integer = -1
+ Dim iEpisode As Integer = -1
+ Dim iProgress As Integer = 3
+
+ Dim tSea As Scraper.TVDBSeasonPoster
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.TVDBImages.SeasonImageList.Count + Scraper.tmpTVDBShow.Episodes.Count + 3, "defaults")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster) AndAlso IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ If Master.eSettings.IsShowBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) p.Language = Master.eSettings.TVDBLanguage AndAlso Not IsNothing(p.Image.Image))
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(1, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Dim tSF As Scraper.TVDBFanart = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize AndAlso f.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize)
+
+ 'no fanart of the preferred size, just get the first available
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image))
+
+ If Not IsNothing(tSF) Then
+ If Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso File.Exists(tSF.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(tSF.LocalFile)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ ElseIf Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso Not String.IsNullOrEmpty(tSF.URL) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(tSF.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tSF.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(tSF.LocalFile, , , False)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(2, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled AndAlso IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ If Master.eSettings.IsAllSBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(3, "progress")
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.SeasonFanart Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList
+ Try
+ iSeason = cSeason.Season
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster) AndAlso IsNothing(cSeason.Poster.Image) Then
+ tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason)
+ If Not IsNothing(tSea) Then cSeason.Poster = tSea.Image
+ End If
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonFanart) AndAlso Master.eSettings.SeasonFanartEnabled AndAlso IsNothing(cSeason.Fanart.Image.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then cSeason.Fanart.Image = Scraper.TVDBImages.ShowFanart.Image
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Episode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not String.IsNullOrEmpty(Episode.TVEp.LocalFile) Then
+ Episode.TVEp.Poster.FromFile(Episode.TVEp.LocalFile)
+ ElseIf Not String.IsNullOrEmpty(Episode.EpPosterPath) Then
+ Episode.TVEp.Poster.FromFile(Episode.EpPosterPath)
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled Then
+ If Not String.IsNullOrEmpty(Episode.EpFanartPath) Then
+ Episode.TVEp.Fanart.FromFile(Episode.EpFanartPath)
+ ElseIf Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Episode.TVEp.Fanart = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ DefaultImages = Scraper.TVDBImages.Clone
+
+ Return False
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As System.Windows.Forms.DialogResult
+ Me._id = ShowID
+ Me._type = Type
+ Me._withcurrent = WithCurrent
+ Me._ScrapeType = ScrapeType
+ Return MyBase.ShowDialog
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal CurrentImage As Images) As Images
+ Me._id = ShowID
+ Me._type = Type
+ Me._season = Season
+ Me.pbCurrent.Image = CurrentImage.Image
+ Me.pbCurrent.Tag = CurrentImage
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return CType(Me.pbCurrent.Tag, Images)
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal fTag As ImageTag)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.lblImage(iIndex) = New Label()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(187, 187)
+ Me.pbImage(iIndex).Size = New Size(181, 151)
+ Me.lblImage(iIndex).Size = New Size(181, 30)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblImage(iIndex).Text = sDescription
+ Me.pbImage(iIndex).Image = fTag.ImageObj.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.lblImage(iIndex).Left = 0
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.lblImage(iIndex).Top = 151
+ Me.pnlImage(iIndex).Tag = fTag
+ Me.pbImage(iIndex).Tag = fTag
+ Me.lblImage(iIndex).Tag = fTag
+ Me.pnlImages.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 192
+ Else
+ Me.iLeft += 192
+ End If
+ End Sub
+
+ Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
+ If Me.bwLoadData.IsBusy Then Me.bwLoadData.CancelAsync()
+ If Me.bwLoadImages.IsBusy Then Me.bwLoadImages.CancelAsync()
+
+ While Me.bwLoadData.IsBusy OrElse Me.bwLoadImages.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+ DoneAndClose()
+ End Sub
+
+ Private Sub DoneAndClose()
+ If Me._type = Enums.TVImageType.All Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ Master.currShow.ShowPosterPath = Scraper.TVDBImages.ShowPoster.LocalFile
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ End If
+ End If
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Master.currShow.SeasonPosterPath = Scraper.TVDBImages.AllSeasonPoster.LocalFile
+ End If
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromFile(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Clear()
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromWeb(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile).FullName)
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Save(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ End If
+ End If
+ ElseIf (Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+ End If
+
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+
+ Private Sub bwLoadData_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadData.DoWork
+ Dim cSI As Scraper.TVDBSeasonImage
+ Dim iProgress As Integer = 1
+ Dim iSeason As Integer = -1
+
+ Me.bwLoadData.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count, "current")
+
+ 'initialize the struct
+ Scraper.TVDBImages.ShowPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.ShowFanart = New Scraper.TVDBFanart
+ Scraper.TVDBImages.AllSeasonPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.SeasonImageList = New List(Of Scraper.TVDBSeasonImage)
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Select Case Me._type
+ Case Enums.TVImageType.AllSeasonPoster
+ Scraper.TVDBImages.AllSeasonPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.SeasonFanart
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Fanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.SeasonPoster
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Poster = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.ShowFanart, Enums.TVImageType.EpisodeFanart
+ Scraper.TVDBImages.ShowFanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.ShowPoster
+ Scraper.TVDBImages.ShowPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.All
+
+ If _withcurrent Then
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowPosterPath)
+ Scraper.TVDBImages.ShowPoster.LocalFile = Scraper.tmpTVDBShow.Show.ShowPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = Scraper.tmpTVDBShow.Show.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image.FromFile(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath)
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+ If iSeason > -1 Then
+ If IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(sEpisode.ShowPosterPath)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(sEpisode.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = sEpisode.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ If Not String.IsNullOrEmpty(sEpisode.SeasonPosterPath) Then
+ cSI.Poster.FromFile(sEpisode.SeasonPosterPath)
+ End If
+ If Master.eSettings.SeasonFanartEnabled AndAlso Not String.IsNullOrEmpty(sEpisode.SeasonFanartPath) Then
+ cSI.Fanart.Image.FromFile(sEpisode.SeasonFanartPath)
+ cSI.Fanart.LocalFile = sEpisode.SeasonFanartPath
+ End If
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ End If
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ Else
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ End Select
+ End Sub
+
+ Private Sub bwLoadData_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadData.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "current" Then
+ Me.lblStatus.Text = Master.eLang.GetString(88, "Loading Current Images...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadData_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadData.RunWorkerCompleted
+ If Not e.Cancelled Then
+ Me.GenerateList()
+
+ Me.lblStatus.Text = Master.eLang.GetString(89, "(Down)Loading New Images...")
+ Me.bwLoadImages.WorkerReportsProgress = True
+ Me.bwLoadImages.WorkerSupportsCancellation = True
+ Me.bwLoadImages.RunWorkerAsync()
+ End If
+ End Sub
+
+ Private Sub bwLoadImages_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadImages.DoWork
+ e.Cancel = Me.DownloadAllImages()
+ End Sub
+
+ Private Sub bwLoadImages_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadImages.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "defaults" Then
+ Me.lblStatus.Text = Master.eLang.GetString(90, "Setting Defaults...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadImages_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadImages.RunWorkerCompleted
+ Me.pnlStatus.Visible = False
+ If _ScrapeType = Enums.ScrapeType.FullAuto Then
+ DoneAndClose()
+ Else
+ If Not e.Cancelled Then
+ Me.tvList.Enabled = True
+ Me.tvList.Visible = True
+ Me.tvList.SelectedNode = Me.tvList.Nodes(0)
+ Me.tvList.Focus()
+
+ Me.btnOK.Enabled = True
+ End If
+
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ End If
+ End Sub
+
+ Private Sub CheckCurrentImage()
+ Me.pbDelete.Visible = Not IsNothing(Me.pbCurrent.Image) AndAlso Me.pbCurrent.Visible
+ Me.pbUndo.Visible = Me.pbCurrent.Visible
+ End Sub
+
+ Private Sub ClearImages()
+ Try
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop = 5
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+
+ If Me.pnlImages.Controls.Count > 0 Then
+ For i As Integer = UBound(Me.pnlImage) To 0 Step -1
+ If Not IsNothing(Me.pnlImage(i)) Then
+ If Not IsNothing(Me.lblImage(i)) AndAlso Me.pnlImage(i).Contains(Me.lblImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.lblImage(i))
+ If Not IsNothing(Me.pbImage(i)) AndAlso Me.pnlImage(i).Contains(Me.pbImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.pbImage(i))
+ If Me.pnlImages.Contains(Me.pnlImage(i)) Then Me.pnlImages.Controls.Remove(Me.pnlImage(i))
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgTVImageSelect_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ AddHandler pnlImages.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler tvList.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlImages)
+
+ Me.SetUp()
+ End Sub
+
+ Private Sub dlgTVImageSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.bwLoadData.WorkerReportsProgress = True
+ Me.bwLoadData.WorkerSupportsCancellation = True
+ Me.bwLoadData.RunWorkerAsync()
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, ByVal SelTag As ImageTag)
+ Try
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ Next
+
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+
+ SetImage(SelTag)
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function DownloadAllImages() As Boolean
+ Dim iProgress As Integer = 1
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count + Scraper.tmpTVDBShow.SeasonPosters.Count + Scraper.tmpTVDBShow.ShowPosters.Count + Scraper.tmpTVDBShow.Fanart.Count + Scraper.tmpTVDBShow.Posters.Count, "max")
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Epi As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not File.Exists(Epi.TVEp.LocalFile) Then
+ If Not String.IsNullOrEmpty(Epi.TVEp.PosterURL) Then
+ Epi.TVEp.Poster.FromWeb(Epi.TVEp.PosterURL)
+ If Not IsNothing(Epi.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Epi.TVEp.LocalFile).FullName)
+ Epi.TVEp.Poster.Save(Epi.TVEp.LocalFile)
+ End If
+ End If
+ Else
+ Epi.TVEp.Poster.FromFile(Epi.TVEp.LocalFile)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Seas As Scraper.TVDBSeasonPoster In Scraper.tmpTVDBShow.SeasonPosters
+ Try
+ If Not File.Exists(Seas.LocalFile) Then
+ If Not String.IsNullOrEmpty(Seas.URL) Then
+ Seas.Image.FromWeb(Seas.URL)
+ If Not IsNothing(Seas.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Seas.LocalFile).FullName)
+ Seas.Image.Save(Seas.LocalFile, , , False)
+ SeasonList.Add(Seas)
+ End If
+ End If
+ Else
+ Seas.Image.FromFile(Seas.LocalFile)
+ SeasonList.Add(Seas)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each SPost As Scraper.TVDBShowPoster In Scraper.tmpTVDBShow.ShowPosters
+ Try
+ If Not File.Exists(SPost.LocalFile) Then
+ If Not String.IsNullOrEmpty(SPost.URL) Then
+ SPost.Image.FromWeb(SPost.URL)
+ If Not IsNothing(SPost.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SPost.LocalFile).FullName)
+ SPost.Image.Save(SPost.LocalFile, , , False)
+ ShowPosterList.Add(SPost)
+ End If
+ End If
+ Else
+ SPost.Image.FromFile(SPost.LocalFile)
+ ShowPosterList.Add(SPost)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.SeasonFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then
+ For Each SFan As Scraper.TVDBFanart In Scraper.tmpTVDBShow.Fanart
+ Try
+ If Not File.Exists(SFan.LocalThumb) Then
+ If Not String.IsNullOrEmpty(SFan.ThumbnailURL) Then
+ SFan.Image.FromWeb(SFan.ThumbnailURL)
+ If Not IsNothing(SFan.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SFan.LocalThumb).FullName)
+ SFan.Image.Save(SFan.LocalThumb, , , False)
+ FanartList.Add(SFan)
+ End If
+ End If
+ Else
+ SFan.Image.FromFile(SFan.LocalThumb)
+ FanartList.Add(SFan)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse _
+ Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Post As Scraper.TVDBPoster In Scraper.tmpTVDBShow.Posters
+ Try
+ If Not File.Exists(Post.LocalFile) Then
+ If Not String.IsNullOrEmpty(Post.URL) Then
+ Post.Image.FromWeb(Post.URL)
+ If Not IsNothing(Post.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Post.LocalFile).FullName)
+ Post.Image.Save(Post.LocalFile, , , False)
+ GenericPosterList.Add(Post)
+ End If
+ End If
+ Else
+ Post.Image.FromFile(Post.LocalFile)
+ GenericPosterList.Add(Post)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Me.SetDefaults()
+ End Function
+
+ Private Function DownloadFanart(ByVal iTag As ImageTag) As Image
+ Dim sHTTP As New HTTP
+
+ Using tImage As New Images
+ If Not String.IsNullOrEmpty(iTag.Path) AndAlso File.Exists(iTag.Path) Then
+ tImage.FromFile(iTag.Path)
+ ElseIf Not String.IsNullOrEmpty(iTag.Path) AndAlso Not String.IsNullOrEmpty(iTag.URL) Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+
+ Application.DoEvents()
+
+ tImage.FromWeb(iTag.URL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(iTag.Path).FullName)
+ tImage.Save(iTag.Path, , , False)
+ End If
+
+ sHTTP = Nothing
+
+ Me.pnlStatus.Visible = False
+ End If
+
+ Return tImage.Image
+ End Using
+ End Function
+
+ Private Sub GenerateList()
+ Try
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(91, "Show Poster"), .Tag = "showp", .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then Me.tvList.Nodes.Add(New TreeNode With {.Text = If(Me._type = Enums.TVImageType.EpisodeFanart, Master.eLang.GetString(92, "Episode Fanart"), Master.eLang.GetString(93, "Show Fanart")), .Tag = "showf", .ImageIndex = 1, .SelectedImageIndex = 1})
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(94, "All Seasons Poster"), .Tag = "allp", .ImageIndex = 2, .SelectedImageIndex = 2})
+
+ Dim TnS As TreeNode
+ If Me._type = Enums.TVImageType.All Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList.OrderBy(Function(s) s.Season)
+ Try
+ TnS = New TreeNode(String.Format(Master.eLang.GetString(726, "Season {0}", True), cSeason.Season), 3, 3)
+ TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(95, "Season Posters"), .Tag = String.Concat("p", cSeason.Season.ToString), .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Master.eSettings.SeasonFanartEnabled Then TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(96, "Season Fanart"), .Tag = String.Concat("f", cSeason.Season.ToString), .ImageIndex = 1, .SelectedImageIndex = 1})
+ Me.tvList.Nodes.Add(TnS)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ ElseIf Me._type = Enums.TVImageType.SeasonPoster Then
+ Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(97, "Season {0} Posters"), Me._season), .Tag = String.Concat("p", Me._season)})
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart Then
+ If Master.eSettings.SeasonFanartEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(99, "Season {0} Fanart"), Me._season), .Tag = String.Concat("f", Me._season)})
+ End If
+
+ Me.tvList.ExpandAll()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetFanartDims(ByVal fSize As Size) As Enums.FanartSize
+ Try
+ If (fSize.Width > 1000 AndAlso fSize.Height > 750) OrElse (fSize.Height > 1000 AndAlso fSize.Width > 750) Then
+ Return Enums.FanartSize.Lrg
+ ElseIf (fSize.Width > 700 AndAlso fSize.Height > 400) OrElse (fSize.Height > 700 AndAlso fSize.Width > 400) Then
+ Return Enums.FanartSize.Mid
+ Else
+ Return Enums.FanartSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Function GetPosterDims(ByVal pSize As Size) As Enums.PosterSize
+ Try
+ If (pSize.Width > pSize.Height) AndAlso (pSize.Width > (pSize.Height * 2)) AndAlso (pSize.Width > 300) Then
+ 'at least twice as wide than tall... consider it wide (also make sure it's big enough)
+ Return Enums.PosterSize.Wide
+ ElseIf (pSize.Height > 1000 AndAlso pSize.Width > 750) OrElse (pSize.Width > 1000 AndAlso pSize.Height > 750) Then
+ Return Enums.PosterSize.Xlrg
+ ElseIf (pSize.Height > 700 AndAlso pSize.Width > 500) OrElse (pSize.Width > 700 AndAlso pSize.Height > 500) Then
+ Return Enums.PosterSize.Lrg
+ ElseIf (pSize.Height > 250 AndAlso pSize.Width > 150) OrElse (pSize.Width > 250 AndAlso pSize.Height > 150) Then
+ Return Enums.PosterSize.Mid
+ Else
+ Return Enums.PosterSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iindex As Integer = Convert.ToInt32(DirectCast(sender, Label).Name)
+ Me.DoSelect(iindex, DirectCast(DirectCast(sender, Label).Tag, ImageTag))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlImages.VerticalScroll.Value + 50) <= pnlImages.VerticalScroll.Maximum Then
+ pnlImages.VerticalScroll.Value += 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlImages.VerticalScroll.Value - 50) >= pnlImages.VerticalScroll.Minimum Then
+ pnlImages.VerticalScroll.Value -= 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub pbDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbDelete.Click
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+ Me.SetImage(New ImageTag)
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim tImage As Image = Nothing
+ Dim iTag As ImageTag = DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag)
+ If Not IsNothing(iTag) OrElse Not iTag.isFanart Then
+ tImage = DownloadFanart(iTag)
+ Else
+ tImage = DirectCast(sender, PictureBox).Image
+ End If
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage)
+ End Sub
+
+ Private Sub pbUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUndo.Click
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = DefaultImages.ShowPoster.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = DefaultImages.ShowPoster.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = DefaultImages.ShowPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowPoster.Image
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = DefaultImages.ShowFanart.Image
+ Scraper.TVDBImages.ShowFanart.LocalFile = DefaultImages.ShowFanart.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = DefaultImages.ShowFanart.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = DefaultImages.AllSeasonPoster.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = DefaultImages.AllSeasonPoster.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = DefaultImages.AllSeasonPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.AllSeasonPoster.Image
+ Else
+ If Me.SelIsPoster Then
+ Dim dSPost As Images = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = dSPost
+ Me.pbCurrent.Image = dSPost.Image
+ Me.pbCurrent.Tag = dSPost
+ Else
+ Dim dSFan As Scraper.TVDBFanart = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ Dim tSFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ tSFan.Image = dSFan.Image
+ tSFan.LocalFile = dSFan.LocalFile
+ tSFan.URL = dSFan.URL
+ Me.pbCurrent.Image = dSFan.Image.Image
+ Me.pbCurrent.Tag = dSFan.Image
+ End If
+ End If
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iIndex As Integer = Convert.ToInt32(DirectCast(sender, Panel).Name)
+ Me.DoSelect(iIndex, DirectCast(DirectCast(sender, Panel).Tag, ImageTag))
+ End Sub
+
+ Private Sub SetImage(ByVal SelTag As ImageTag)
+ Me.pbCurrent.Image = SelTag.ImageObj.Image
+ Me.pbCurrent.Tag = SelTag.ImageObj
+
+ Me._fanartchanged = True
+
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowPoster.URL = SelTag.URL
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowFanart.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowFanart.URL = SelTag.URL
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.AllSeasonPoster.URL = SelTag.URL
+ Else
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = SelTag.ImageObj
+ Else
+ Dim tFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ If Not IsNothing(tFan) Then
+ tFan.Image = SelTag.ImageObj
+ tFan.LocalFile = SelTag.Path
+ tFan.URL = SelTag.URL
+ End If
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(99, "TV Image Selection")
+ Me.btnOK.Text = Master.eLang.GetString(179, "OK", True)
+ Me.btnCancel.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.lblCurrentImage.Text = Master.eLang.GetString(100, "Current Image:")
+ End Sub
+
+ Private Sub tvList_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvList.AfterSelect
+ Dim iCount As Integer = 0
+
+ Try
+ ClearImages()
+ If Not IsNothing(e.Node.Tag) AndAlso Not String.IsNullOrEmpty(e.Node.Tag.ToString) Then
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ If e.Node.Tag.ToString = "showp" Then
+ Me.SelSeason = -999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.ShowPoster) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = ShowPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To GenericPosterList.Count - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "showf" Then
+
+ Me.SelSeason = -999
+ Me.SelIsPoster = False
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "allp" Then
+ Me.SelSeason = 999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.AllSeasonPoster) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = GenericPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To ShowPosterList.Count - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+ Else
+ Dim tMatch As Match = Regex.Match(e.Node.Tag.ToString, "(?<type>f|p)(?<num>[0-9]+)")
+ If tMatch.Success Then
+ If tMatch.Groups("type").Value = "f" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = False
+ Dim tFanart As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(tFanart) AndAlso Not IsNothing(tFanart.Fanart) AndAlso Not IsNothing(tFanart.Fanart.Image) AndAlso Not IsNothing(tFanart.Fanart.Image.Image) Then
+ Me.pbCurrent.Image = tFanart.Fanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+ ElseIf tMatch.Groups("type").Value = "p" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = True
+ Dim tPoster As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Me.SelSeason)
+ If Not IsNothing(tPoster) AndAlso Not IsNothing(tPoster.Poster) AndAlso Not IsNothing(tPoster.Poster.Image) Then
+ Me.pbCurrent.Image = tPoster.Poster.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ iCount = 0
+ For Each SImage As Scraper.TVDBSeasonPoster In SeasonList.Where(Function(s) s.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(SImage.Image) AndAlso Not IsNothing(SImage.Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", SImage.Image.Image.Width, SImage.Image.Image.Height), iCount, New ImageTag With {.URL = SImage.URL, .Path = SImage.LocalFile, .isFanart = False, .ImageObj = SImage.Image})
+ End If
+ iCount += 1
+ Next
+ End If
+ End If
+ End If
+ Else
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Visible = False
+ Me.lblCurrentImage.Visible = False
+ End If
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure ImageTag
+
+#Region "Fields"
+
+ Dim isFanart As Boolean
+ Dim Path As String
+ Dim URL As String
+ Dim ImageObj As Images
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.Designer.vb b/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..c3675d6
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.Designer.vb
@@ -0,0 +1,632 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtIMDBURL = New System.Windows.Forms.TextBox()
+ Me.GroupBox15 = New System.Windows.Forms.GroupBox()
+ Me.chkOFDBGenre = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBOutline = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBTitle = New System.Windows.Forms.CheckBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCertification = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkTop250 = New System.Windows.Forms.CheckBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkMusicBy = New System.Windows.Forms.CheckBox()
+ Me.chkProducers = New System.Windows.Forms.CheckBox()
+ Me.chkFullCast = New System.Windows.Forms.CheckBox()
+ Me.chkWriters = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkFullCrew = New System.Windows.Forms.CheckBox()
+ Me.chkPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkDirector = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.GroupBox15.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtIMDBURL)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(213, 69)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "IMDB"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(73, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "IMDB Mirror:"
+ '
+ 'txtIMDBURL
+ '
+ Me.txtIMDBURL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBURL.Location = New System.Drawing.Point(8, 32)
+ Me.txtIMDBURL.Name = "txtIMDBURL"
+ Me.txtIMDBURL.Size = New System.Drawing.Size(192, 22)
+ Me.txtIMDBURL.TabIndex = 1
+ '
+ 'GroupBox15
+ '
+ Me.GroupBox15.Controls.Add(Me.chkOFDBGenre)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBPlot)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBOutline)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBTitle)
+ Me.GroupBox15.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox15.Location = New System.Drawing.Point(8, 114)
+ Me.GroupBox15.Name = "GroupBox15"
+ Me.GroupBox15.Size = New System.Drawing.Size(213, 87)
+ Me.GroupBox15.TabIndex = 2
+ Me.GroupBox15.TabStop = False
+ Me.GroupBox15.Text = "OFDB (German)"
+ '
+ 'chkOFDBGenre
+ '
+ Me.chkOFDBGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBGenre.Location = New System.Drawing.Point(6, 65)
+ Me.chkOFDBGenre.Name = "chkOFDBGenre"
+ Me.chkOFDBGenre.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBGenre.TabIndex = 3
+ Me.chkOFDBGenre.Text = "Use OFDB Genre"
+ Me.chkOFDBGenre.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBPlot
+ '
+ Me.chkOFDBPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBPlot.Location = New System.Drawing.Point(6, 49)
+ Me.chkOFDBPlot.Name = "chkOFDBPlot"
+ Me.chkOFDBPlot.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBPlot.TabIndex = 2
+ Me.chkOFDBPlot.Text = "Use OFDB Plot"
+ Me.chkOFDBPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBOutline
+ '
+ Me.chkOFDBOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBOutline.Location = New System.Drawing.Point(6, 33)
+ Me.chkOFDBOutline.Name = "chkOFDBOutline"
+ Me.chkOFDBOutline.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBOutline.TabIndex = 1
+ Me.chkOFDBOutline.Text = "Use OFDB Outline"
+ Me.chkOFDBOutline.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBTitle
+ '
+ Me.chkOFDBTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBTitle.Location = New System.Drawing.Point(6, 17)
+ Me.chkOFDBTitle.Name = "chkOFDBTitle"
+ Me.chkOFDBTitle.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBTitle.TabIndex = 0
+ Me.chkOFDBTitle.Text = "Use OFDB Title"
+ Me.chkOFDBTitle.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.GroupBox15)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCertification)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkTop250)
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkMusicBy)
+ Me.gbOptions.Controls.Add(Me.chkProducers)
+ Me.gbOptions.Controls.Add(Me.chkFullCast)
+ Me.gbOptions.Controls.Add(Me.chkWriters)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkFullCrew)
+ Me.gbOptions.Controls.Add(Me.chkPlot)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkDirector)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(227, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(387, 161)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCertification
+ '
+ Me.chkCertification.AutoSize = True
+ Me.chkCertification.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCertification.Location = New System.Drawing.Point(6, 70)
+ Me.chkCertification.Name = "chkCertification"
+ Me.chkCertification.Size = New System.Drawing.Size(89, 17)
+ Me.chkCertification.TabIndex = 3
+ Me.chkCertification.Text = "Certification"
+ Me.chkCertification.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(237, 53)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkTop250
+ '
+ Me.chkTop250.AutoSize = True
+ Me.chkTop250.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTop250.Location = New System.Drawing.Point(237, 19)
+ Me.chkTop250.Name = "chkTop250"
+ Me.chkTop250.Size = New System.Drawing.Size(66, 17)
+ Me.chkTop250.TabIndex = 16
+ Me.chkTop250.Text = "Top 250"
+ Me.chkTop250.UseVisualStyleBackColor = True
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Enabled = False
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(246, 104)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(85, 17)
+ Me.chkCrew.TabIndex = 21
+ Me.chkCrew.Text = "Other Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkMusicBy
+ '
+ Me.chkMusicBy.AutoSize = True
+ Me.chkMusicBy.Enabled = False
+ Me.chkMusicBy.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMusicBy.Location = New System.Drawing.Point(246, 121)
+ Me.chkMusicBy.Name = "chkMusicBy"
+ Me.chkMusicBy.Size = New System.Drawing.Size(71, 17)
+ Me.chkMusicBy.TabIndex = 22
+ Me.chkMusicBy.Text = "Music By"
+ Me.chkMusicBy.UseVisualStyleBackColor = True
+ '
+ 'chkProducers
+ '
+ Me.chkProducers.AutoSize = True
+ Me.chkProducers.Enabled = False
+ Me.chkProducers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkProducers.Location = New System.Drawing.Point(246, 138)
+ Me.chkProducers.Name = "chkProducers"
+ Me.chkProducers.Size = New System.Drawing.Size(77, 17)
+ Me.chkProducers.TabIndex = 23
+ Me.chkProducers.Text = "Producers"
+ Me.chkProducers.UseVisualStyleBackColor = True
+ '
+ 'chkFullCast
+ '
+ Me.chkFullCast.AutoSize = True
+ Me.chkFullCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCast.Location = New System.Drawing.Point(237, 70)
+ Me.chkFullCast.Name = "chkFullCast"
+ Me.chkFullCast.Size = New System.Drawing.Size(107, 17)
+ Me.chkFullCast.TabIndex = 19
+ Me.chkFullCast.Text = "Scrape Full Cast"
+ Me.chkFullCast.UseVisualStyleBackColor = True
+ '
+ 'chkWriters
+ '
+ Me.chkWriters.AutoSize = True
+ Me.chkWriters.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkWriters.Location = New System.Drawing.Point(131, 121)
+ Me.chkWriters.Name = "chkWriters"
+ Me.chkWriters.Size = New System.Drawing.Size(63, 17)
+ Me.chkWriters.TabIndex = 14
+ Me.chkWriters.Text = "Writers"
+ Me.chkWriters.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 104)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkFullCrew
+ '
+ Me.chkFullCrew.AutoSize = True
+ Me.chkFullCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCrew.Location = New System.Drawing.Point(237, 87)
+ Me.chkFullCrew.Name = "chkFullCrew"
+ Me.chkFullCrew.Size = New System.Drawing.Size(111, 17)
+ Me.chkFullCrew.TabIndex = 20
+ Me.chkFullCrew.Text = "Scrape Full Crew"
+ Me.chkFullCrew.UseVisualStyleBackColor = True
+ '
+ 'chkPlot
+ '
+ Me.chkPlot.AutoSize = True
+ Me.chkPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkPlot.Location = New System.Drawing.Point(131, 70)
+ Me.chkPlot.Name = "chkPlot"
+ Me.chkPlot.Size = New System.Drawing.Size(46, 17)
+ Me.chkPlot.TabIndex = 11
+ Me.chkPlot.Text = "Plot"
+ Me.chkPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 138)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkDirector
+ '
+ Me.chkDirector.AutoSize = True
+ Me.chkDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDirector.Location = New System.Drawing.Point(131, 104)
+ Me.chkDirector.Name = "chkDirector"
+ Me.chkDirector.Size = New System.Drawing.Size(67, 17)
+ Me.chkDirector.TabIndex = 13
+ Me.chkDirector.Text = "Director"
+ Me.chkDirector.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 87)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 138)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(237, 36)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 121)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 87)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'frmInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.GroupBox15.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBURL As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkOFDBGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCertification As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTop250 As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMusicBy As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkProducers As System.Windows.Forms.CheckBox
+ Friend WithEvents chkWriters As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDirector As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.resx b/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.resx
new file mode 100644
index 0000000..1a3b6b2
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.resx
@@ -0,0 +1,193 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsIAAALCAHAvaXaAAAHHElE
+ QVRYR8WWeVAUVBzHX5mpZcekIAoKCYLLvQe7XLucHiCoIDcqJHgmeaaLW2bHGIZZTXYqmigiCosKi4og
+ oCUKeTVehViToo2hljrO5Djz7fd71WJCE/1DzHzYt+/33u993+/33u+tAPC/0mVnT9JlZ0/SZWdP0mVn
+ TyL/XWxtFd9fvChaW1rExg0FfebNnZMzflxU2YSY6KoJ46It1LYkJ8RbUpMSLEmT4i2TU1Ms0zKmWjIm
+ p1sy0tNkm/uSJsVZUhMT5NgJNIfnso/x0WPN06dlLqg7UNuX17v3228Sq4BLP/4o2i5fZhG9Z2ZPM5Mj
+ pKckITLUgNSkRMydPRNx42ORFB+HRQvmYfoLmUhOmIRF8+dj8cIFSElMQFZmBhaTLXlSPOJiY+Sc9OQ/
+ fKQlJ4J9zs+Za6F1+vx09aq40tbWIaBkW7Ewl+4Qa1a/EzsmPAz3799HW1sbgnR+qKmupiHASy/OwbKl
+ S2R7b1UV4knQL7/cxN27d5EQNxG7dpZL24rlr2JmdpZsHzrYgACtBrQx+X1sZDiWGZckffLRWvHhB+93
+ CBg3ZpSIGTtakNrcCFJcsWsXCr/YiAA/NVatXIkDtTUyIlmZU9FQX4f8VXmIjY7CrvJyWCoqQKFGfl4e
+ Dn/1JWZNz6LoxONATQ1oQ9LHhvXrUGWpxJiIMPquWk4bE4xVACkTUaMixKiwkFzetT5AJ3c4OSUZKRRq
+ DmvmlHRMmzoFU9JSkZUxFbNnTAflXsI7ZhFjIyPknIzJaUikqCRSytIohXGx46TPYH8tYwr29xOMVQAv
+ Hj06kiNgZAG1+6tx584d3Lxx49+5eQO3b93Ce++uxtLFi3C9vR03qP/69XbZZm6Rvb7uAAyB/gjUakzB
+ Oq1gOkUg3BBsJHD+3Dm008SrV650i1u//orioi0U8tW4fft2J3v7zz/jQkuLTIG/RmkK0mkoBZoOAWSQ
+ IkL1QcYwfSCOHmmUB+fCd9+h5V/gMZcvXULBus+x8q03ZfvhMezr2Ndfg1IMndrXFKhVC8YqgAxidHio
+ CAkKMBJ0eg/i2/Pnceb06W7ReqEVn378Ed5Y8RqopnSynydfRw4fRkSIHlqljylAoxKMVUBkqEGKoBwZ
+ +bDU7t+Pb06dwvFjx7rF2TNnQNcKr72yDOfOnu1kP3XyJN2eeoTrg+Dn622iKAjGKiDCoBeRIQah99cZ
+ g+kQ7rFY0NzUhEZS3R1OHD+ONfn5sk6cOH6ik73p6FFU79uHUIqu2sfT5Kf0EYxVQJg+iA8g300j5QY7
+ y8348tAhOrl13aKxsVHWi5cXLcQRaj9s55RW7t4tr6LKy8Ok8fESjFUA5V2EBgcKKhpGf7USJdu2oZYK
+ yb69e7tFfV093np9BRbMy0FDQ4Pc7YOwL3Npqaysvh4KE4kQjFUAKeP8C1rcSIcEmws3wVJpwW6qiN2B
+ RSx/xYScObNRTaW7gnb7IFWU0uKtW2VV9HZ3M/l6KgRjFUB5p/xrhVblY1T7eKGASqe5rAw7tm/vFiyC
+ 8z97RrZcsHTHjr9RbjZjE5V2ncoXnm4jTN4KN8FYBQT6qUWQVsN5MVJosLGg4D8J4EWXGZdilhRQ0cnO
+ vgo3bQIdPLiPcDaRCMFYBVB1ovyrBJ1Qo7vLcFlQeOLWoqJ/pPiBTx6bTU80vx/FW4v/tG2xjt1eUoK8
+ t1fS7l2gGDHc5O7qLBirALqbdC28hdLLPdf1eUe4ODrwdZGnVqdSQuPrDQO19VTLOYx8mLhk+2tUEq6e
+ niNdwXM5z4YAf1A0ueiAUguVtydchjnAbbgj3JydTPQp6LNDQAgdQHIifDxG5rLK0u0lVNnWYqidDXKX
+ vEx1oRJcIbmW791TRT885mOE01D5ZBcXbSbHTlhIN6Cmeh/oWacHR42qykpZmBwGDcRaKlI7zWUg/3Ae
+ Zr/cW+EqPB6MgP1gO0G/fMSKV00xalJ77949/PD9RQyxeQ7lZaU0BJgYE01PbZJsFxUWsiNcu3ZNvnS8
+ s/WffyZt2S9kSKH8t6eqEnYDnqVSfE5+54jkzJmZGE2/PZ595ukOAfz3CKFwc+ul9PIoHRVmQGhwgEwF
+ HVDERo2GF4XYl3YwISaKUqCBwuV5ev/DQK8o51WOm0g2ul580uUcHudMoQ8J1NFDZKCHSFkx0tW1N6/F
+ f1YBvWh94knqG/Rkv34u9oNs8xzsbBsc7Qc3OQyyaRps81yTk8MQpnmI7cBmxyF2zc6OQ5tpjMR52NBm
+ GittPIbHDrYZ0GRPc53Yh53tQfKZ/3T//q60hu2jtBav+bCApwgHUudMDKO2Cw1UEB6EF+FD+BJKQkWo
+ H4L72MZjeCzPcScU7It9EsN5DaI/8TcBf8FCHiV6EY8RvYnHiT5EX6LfnzzxD/xl57E8h+eyD/bFPtk3
+ ryHXswr4P+mysyfpsrPngPgd1z91K2zEiQAAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.vb b/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.vb
new file mode 100644
index 0000000..21a3d0b
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmInfoSettingsHolder.vb
@@ -0,0 +1,237 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCertification_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCertification.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkDirector_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDirector.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+
+ Me.chkProducers.Enabled = Me.chkFullCrew.Checked
+ Me.chkMusicBy.Enabled = Me.chkFullCrew.Checked
+ Me.chkCrew.Enabled = Me.chkFullCrew.Checked
+
+ If Not Me.chkFullCrew.Checked Then
+ Me.chkProducers.Checked = False
+ Me.chkMusicBy.Checked = False
+ Me.chkCrew.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMusicBy_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMusicBy.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkProducers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkProducers.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTop250_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTop250.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkWriters_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkWriters.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.chkOFDBGenre.Text = Master.eLang.GetString(1, "Use OFDB Genre")
+ Me.chkOFDBPlot.Text = Master.eLang.GetString(2, "Use OFDB Plot")
+ Me.chkOFDBOutline.Text = Master.eLang.GetString(3, "Use OFDB Outline")
+ Me.chkOFDBTitle.Text = Master.eLang.GetString(4, "Use OFDB Title")
+ Me.Label18.Text = Master.eLang.GetString(5, "IMDB Mirror:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkCrew.Text = Master.eLang.GetString(391, "Other Crew", True)
+ Me.chkMusicBy.Text = Master.eLang.GetString(392, "Music By", True)
+ Me.chkProducers.Text = Master.eLang.GetString(393, "Producers", True)
+ Me.chkWriters.Text = Master.eLang.GetString(394, "Writers", True)
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkPlot.Text = Master.eLang.GetString(65, "Plot", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkDirector.Text = Master.eLang.GetString(62, "Director", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(398, "Cast", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(401, "MPAA", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.chkCountry.Text = Master.eLang.GetString(301, "Country", True)
+ Me.chkFullCast.Text = Master.eLang.GetString(512, "Scrape Full Cast", True)
+ Me.chkFullCrew.Text = Master.eLang.GetString(513, "Scrape Full Crew", True)
+ Me.chkTop250.Text = Master.eLang.GetString(868, "Top250", True)
+ Me.GroupBox30.Text = Master.eLang.GetString(106, "IMDB")
+ Me.GroupBox15.Text = Master.eLang.GetString(107, "OFDB (German)")
+ End Sub
+
+ Private Sub txtIMDBURL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBURL.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.Designer.vb b/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..2c09e78
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.Designer.vb
@@ -0,0 +1,524 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.cbActorThumbsSize = New System.Windows.Forms.ComboBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseTMDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(587, 177)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.cbActorThumbsSize)
+ Me.GroupBox6.Location = New System.Drawing.Point(374, 98)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 73)
+ Me.GroupBox6.TabIndex = 5
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Actor Thumbs Size:"
+ '
+ 'cbActorThumbsSize
+ '
+ Me.cbActorThumbsSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbActorThumbsSize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbActorThumbsSize.FormattingEnabled = True
+ Me.cbActorThumbsSize.Items.AddRange(New Object() {"SY275_SX400", "SY720_SX1080", "SY1080_SX1920"})
+ Me.cbActorThumbsSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbActorThumbsSize.Name = "cbActorThumbsSize"
+ Me.cbActorThumbsSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbActorThumbsSize.TabIndex = 0
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(374, 11)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Enabled = False
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseTMDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 11)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox9.TabIndex = 3
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Images From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseTMDB
+ '
+ Me.chkUseTMDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseTMDB.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseTMDB.Name = "chkUseTMDB"
+ Me.chkUseTMDB.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseTMDB.TabIndex = 0
+ Me.chkUseTMDB.Text = "themoviedb.org"
+ Me.chkUseTMDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.GroupBox5)
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 214)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(587, 112)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(374, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 2
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbActorThumbsSize As System.Windows.Forms.ComboBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.resx b/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.resx
new file mode 100644
index 0000000..023cf14
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.resx
@@ -0,0 +1,237 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABxxJREFUWEfFlnlQFFQc
+ x1+ZqWXHpCAKCgmCy70Hu1y7nB4gqCA3KiR4Jnmmi1tmxxiGWU12KpooIgqLCouKIKAlCnk1XoVYk6KN
+ oZY6zuQ48+33e9ViQhP9Q8x82Lfv997vfd/v997vrQDwv9JlZ0/SZWdP0mVnT9JlZ08i/11sbRXfX7wo
+ WltaxMYNBX3mzZ2TM35cVNmEmOiqCeOiLdS2JCfEW1KTEixJk+Itk1NTLNMyployJqdbMtLTZJv7kibF
+ WVITE+TYCTSH57KP8dFjzdOnZS6oO1Dbl9e799tvEquASz/+KNouX2YRvWdmTzOTI6SnJCEy1IDUpETM
+ nT0TceNjkRQfh0UL5mH6C5lITpiERfPnY/HCBUhJTEBWZgYWky15UjziYmPknPTkP3ykJSeCfc7PmWuh
+ dfr8dPWquNLW1iGgZFuxMJfuEGtWvxM7JjwM9+/fR1tbG4J0fqiprqYhwEsvzsGypUtke29VFeJJ0C+/
+ 3MTdu3eREDcRu3aWS9uK5a9iZnaWbB862IAArQa0Mfl9bGQ4lhmXJH3y0Vrx4QfvdwgYN2aUiBk7WpDa
+ 3AhSXLFrFwq/2IgAPzVWrVyJA7U1MiJZmVPRUF+H/FV5iI2Owq7yclgqKkChRn5eHg5/9SVmTc+i6MTj
+ QE0NaEPSx4b161BlqcSYiDD6rlpOGxOMVQApE1GjIsSosJBc3rU+QCd3ODklGSkUag5r5pR0TJs6BVPS
+ UpGVMRWzZ0wH5V7CO2YRYyMj5JyMyWlIpKgkUsrSKIVxseOkz2B/LWMK9vcTjFUALx49OpIjYGQBtfur
+ cefOHdy8cePfuXkDt2/dwnvvrsbSxYtwvb0dN6j/+vV22WZukb2+7gAMgf4I1GpMwTqtYDpFINwQbCRw
+ /tw5tNPEq1eudItbv/6K4qItFPLVuH37did7+88/40JLi0yBv0ZpCtJpKAWaDgFkkCJC9UHGMH0gjh5p
+ lAfnwnffoeVf4DGXL11CwbrPsfKtN2X74THs69jXX4NSDJ3a1xSoVQvGKoAMYnR4qAgJCjASdHoP4tvz
+ 53Hm9Olu0XqhFZ9+/BHeWPEaqKZ0sp8nX0cOH0ZEiB5apY8pQKMSjFVAZKhBiqAcGfmw1O7fj29OncLx
+ Y8e6xdkzZ0DXCq+9sgznzp7tZD918iTdnnqE64Pg5+ttoigIxiogwqAXkSEGoffXGYPpEO6xWNDc1IRG
+ Ut0dThw/jjX5+bJOnDh+opO96ehRVO/bh1CKrtrH0+Sn9BGMVUCYPogPIN9NI+UGO8vN+PLQITq5dd2i
+ sbFR1ouXFy3EEWo/bOeUVu7eLa+iysvDpPHxEoxVAOVdhAYHCioaRn+1EiXbtqGWCsm+vXu7RX1dPd56
+ fQUWzMtBQ0OD3O2DsC9zaamsrL4eChOJEIxVACnj/Ata3EiHBJsLN8FSacFuqojdgUUsf8WEnDmzUU2l
+ u4J2+yBVlNLirVtlVfR2dzP5eioEYxVAeaf8a4VW5WNU+3ihgEqnuawMO7Zv7xYsgvM/e0a2XLB0x46/
+ UW42YxOVdp3KF55uI0zeCjfBWAUE+qlFkFbDeTFSaLCxoOA/CeBFlxmXYpYUUNHJzr4KN20CHTy4j3A2
+ kQjBWAVQdaL8qwSdUKO7y3BZUHji1qKif6T4gU8em01PNL8fxVuL/7RtsY7dXlKCvLdX0u5doBgx3OTu
+ 6iwYqwC6m3QtvIXSyz3X9XlHuDg68HWRp1anUkLj6w0DtfVUyzmMfJi4ZPtrVBKunp4jXcFzOc+GAH9Q
+ NLnogFILlbcnXIY5wG24I9ycnUz0KeizQ0AIHUByInw8RuayytLtJVTZ1mKonQ1yl7xMdaESXCG5lu/d
+ U0U/POZjhNNQ+WQXF20mx05YSDegpnof6FmnB0eNqspKWZgcBg3EWipSO81lIP9wHma/3FvhKjwejID9
+ YDtBv3zEildNMWpSe+/ePfzw/UUMsXkO5WWlNASYGBNNT22SbBcVFrIjXLt2Tb50vLP1n38mbdkvZEih
+ /LenqhJ2A56lUnxOfueI5MyZmRhNvz2efebpDgH89wihcHPrpfTyKB0VZkBocIBMBR1QxEaNhheF2Jd2
+ MCEmilKggcLleXr/w0CvKOdVjptINrpefNLlHB7nTKEPCdTRQ2Sgh0hZMdLVtTevxX9WAb1ofeJJ6hv0
+ ZL9+LvaDbPMc7GwbHO0HNzkMsmkabPNck5PDEKZ5iO3AZschds3OjkObaYzEedjQZhorbTyGxw62GdBk
+ T3Od2Ied7UHymf90//6utIbto7QWr/mwgKcIB1LnTAyjtgsNVBAehBfhQ/gSSkJFqB+C+9jGY3gsz3En
+ FOyLfRLDeQ2iP/E3AX/BQh4lehGPEb2Jx4k+RF+i35888Q/8ZeexPIfnsg/2xT7ZN68h17MK+D/psrMn
+ 6bKz54D4Hdc/dStsxIkAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.vb b/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.vb
new file mode 100644
index 0000000..401240a
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmMediaSettingsHolder.vb
@@ -0,0 +1,172 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerIMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerIMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerIMDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseTMDB.CheckedChanged
+ cbManualETSize.Enabled = chkUseTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.GroupBox9.Text = Master.eLang.GetString(9, "Get Images From:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.GroupBox3.Text = Master.eLang.GetString(497, "Images", True)
+ Me.GroupBox4.Text = Master.eLang.GetString(108, "TMDB Extrathumbs Size:")
+ Me.GroupBox1.Text = Master.eLang.GetString(109, "Trailers")
+ Me.GroupBox5.Text = Master.eLang.GetString(110, "Youtube/TMDB Trailer:")
+ Me.chkTrailerTMDBXBMC.Text = Master.eLang.GetString(111, "XBMC Format")
+ Me.Label2.Text = Master.eLang.GetString(112, "Preferred language")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(113, "Save Fanart In:")
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbActorThumbsSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbActorThumbsSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.Designer.vb b/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..4a8cc4e
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.Designer.vb
@@ -0,0 +1,169 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.resx b/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.resx
new file mode 100644
index 0000000..0950d0f
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.resx
@@ -0,0 +1,177 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.vb b/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.vb
new file mode 100644
index 0000000..98761ce
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmTVInfoSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.Designer.vb b/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f5cb735
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.Designer.vb
@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVMediaSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.InitialImage = CType(resources.GetObject("PictureBox1.InitialImage"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.resx b/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.resx
new file mode 100644
index 0000000..d47391f
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.resx
@@ -0,0 +1,197 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEAAA
+ CxABrSO9dQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.vb b/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.vb
new file mode 100644
index 0000000..06928ef
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/frmTVMediaSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/packages.config b/Addons/scraper.OFDB.Data/packages.config
new file mode 100644
index 0000000..053d0bc6
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="SharpZipLib" version="0.86.0" />
+ <package id="System.Data.SQLite" version="1.0.84.0" targetFramework="net35" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/scraper.OFDB.Data.vbproj b/Addons/scraper.OFDB.Data/scraper.OFDB.Data.vbproj
new file mode 100644
index 0000000..b5d495f
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/scraper.OFDB.Data.vbproj
@@ -0,0 +1,342 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{39C49E1A-75BA-4AD1-9286-58E83D22BC1E}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.OFDB.Data</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Data.SQLite">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Data.SQLite.Linq">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.Linq.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Diagnostics" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="frmTVMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperTVNativeModule.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\dlgIMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgIMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieNativeModule.vb" />
+ <Compile Include="TVScraper\clsScrapeTVDB.vb" />
+ <Compile Include="TVScraper\dlgTVChangeEp.Designer.vb">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVChangeEp.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.Designer.vb">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.Designer.vb">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="frmTVMediaSettingsHolder.resx">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTVInfoSettingsHolder.resx">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgIMDBSearchResults.resx">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmMediaSettingsHolder.resx">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmInfoSettingsHolder.resx">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVChangeEp.resx">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVDBSearchResults.resx">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVEpisodePoster.resx">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVImageSelect.resx">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x64\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x86\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/scraperMovieNativeModule.vb b/Addons/scraper.OFDB.Data/scraperMovieNativeModule.vb
new file mode 100644
index 0000000..6889071
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/scraperMovieNativeModule.vb
@@ -0,0 +1,702 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private IMDB As New IMDB.Scraper
+ Private MySettings As New _MySettings
+ Private _Name As String = "Ember Native Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmInfoSettingsHolder
+ Private _setupPost As frmMediaSettingsHolder
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ If MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Poster
+ If MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer
+ dTrailer.IMDBURL = MySettings.IMDBURL
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ Dim IMDB As New IMDB.Scraper
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ IMDB.IMDBURL = MySettings.IMDBURL
+ studio = IMDB.GetMovieStudios(DBMovie.Movie.IMDBID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseTMDB.Checked = MySettings.UseTMDB
+ _setupPost.chkUseIMPA.Checked = MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = MySettings.UseMPDB
+ _setupPost.cbManualETSize.Text = MySettings.ManualETSize
+ _setupPost.cbActorThumbsSize.Text = MySettings.ActorThumbsSize
+ _setupPost.txtTimeout.Text = MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ Spanel.Prefix = "NativeMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return Spanel
+ End Function
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkPlot.Checked = ConfigOptions.bPlot
+ _setup.chkCast.Checked = ConfigOptions.bCast
+ _setup.chkDirector.Checked = ConfigOptions.bDirector
+ _setup.chkWriters.Checked = ConfigOptions.bWriters
+ _setup.chkProducers.Checked = ConfigOptions.bProducers
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkMusicBy.Checked = ConfigOptions.bMusicBy
+ _setup.chkCrew.Checked = ConfigOptions.bOtherCrew
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkTop250.Checked = ConfigOptions.bTop250
+ _setup.chkCertification.Checked = ConfigOptions.bCert
+ _setup.chkOFDBTitle.Checked = MySettings.UseOFDBTitle
+ _setup.chkOFDBOutline.Checked = MySettings.UseOFDBOutline
+ _setup.chkOFDBPlot.Checked = MySettings.UseOFDBPlot
+ _setup.chkOFDBGenre.Checked = MySettings.UseOFDBGenre
+ _setup.chkFullCast.Checked = ConfigOptions.bFullCast
+ _setup.chkFullCrew.Checked = ConfigOptions.bFullCrew
+
+ If String.IsNullOrEmpty(MySettings.IMDBURL) Then
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ _setup.txtIMDBURL.Text = MySettings.IMDBURL
+ _setup.orderChanged()
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ SPanel.Prefix = "NativeMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ MySettings.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ MySettings.UseOFDBTitle = AdvancedSettings.GetBooleanSetting("UseOFDBTitle", False)
+ MySettings.UseOFDBOutline = AdvancedSettings.GetBooleanSetting("UseOFDBOutline", False)
+ MySettings.UseOFDBPlot = AdvancedSettings.GetBooleanSetting("UseOFDBPlot", False)
+ MySettings.UseOFDBGenre = AdvancedSettings.GetBooleanSetting("UseOFDBGenre", False)
+ MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ MySettings.UseTMDB = AdvancedSettings.GetBooleanSetting("UseTMDB", True)
+ MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ MySettings.ActorThumbsSize = Convert.ToString(AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400"))
+ MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As New Trailers
+ LoadSettings()
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Trailer.IMDBURL = MySettings.IMDBURL
+ Dim doSave As Boolean = False
+ If Master.GlobalScrapeMod.Poster AndAlso (MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB) Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If ScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.IMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart AndAlso MySettings.UseTMDB Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If ScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.IMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ ScrapeImages.GetPreferredFAasET(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+ AdvancedSettings.SetSetting("IMDBURL", MySettings.IMDBURL)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("UseOFDBTitle", MySettings.UseOFDBTitle)
+ AdvancedSettings.SetBooleanSetting("UseOFDBOutline", MySettings.UseOFDBOutline)
+ AdvancedSettings.SetBooleanSetting("UseOFDBPlot", MySettings.UseOFDBPlot)
+ AdvancedSettings.SetBooleanSetting("UseOFDBGenre", MySettings.UseOFDBGenre)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseTMDB", MySettings.UseTMDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", MySettings.UseIMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", MySettings.UseTMDBTrailerXBMC)
+
+ AdvancedSettings.SetSetting("ManualETSize", MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("ActorThumbsSize", MySettings.ActorThumbsSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ 'AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ MySettings.UseTMDB = _setupPost.chkUseTMDB.Checked
+ MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ MySettings.ActorThumbsSize = _setupPost.cbActorThumbsSize.Text
+ MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtIMDBURL.Text) Then
+ MySettings.IMDBURL = Strings.Replace(_setup.txtIMDBURL.Text, "http://", String.Empty)
+ Else
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ MySettings.UseOFDBTitle = _setup.chkOFDBTitle.Checked
+ MySettings.UseOFDBOutline = _setup.chkOFDBOutline.Checked
+ MySettings.UseOFDBPlot = _setup.chkOFDBPlot.Checked
+ MySettings.UseOFDBGenre = _setup.chkOFDBGenre.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = _setup.chkPlot.Checked
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkDirector.Checked
+ ConfigOptions.bWriters = _setup.chkWriters.Checked
+ ConfigOptions.bProducers = _setup.chkProducers.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkMusicBy.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = _setup.chkTop250.Checked
+ ConfigOptions.bCert = _setup.chkCertification.Checked
+ ConfigOptions.bFullCrew = _setup.chkFullCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkFullCast.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ IMDB.IMDBURL = MySettings.IMDBURL
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = IMDB.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgIMDBSearchResults
+ dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect
+ If preload Then
+ dFImgSelect = New dlgImgSelect
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure _MySettings
+
+#Region "Fields"
+
+ Dim DownloadTrailers As Boolean
+ Dim IMDBURL As String
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseTMDBTrailer As Boolean
+ Dim UseIMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim ActorThumbsSize As String
+ Dim UseTMDBTrailerPref As String
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/scraperTVNativeModule.vb b/Addons/scraper.OFDB.Data/scraperTVNativeModule.vb
new file mode 100644
index 0000000..450e6d6
--- /dev/null
+++ b/Addons/scraper.OFDB.Data/scraperTVNativeModule.vb
@@ -0,0 +1,221 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeTVScraperModule
+ Implements Interfaces.EmberTVScraperModule
+
+#Region "Fields"
+
+ Public Shared TVScraper As New Scraper
+
+ Private _Name As String = "Ember Native TV Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTVInfoSettingsHolder
+ Private _setupPost As frmTVMediaSettingsHolder
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberTVScraperModule.ModuleSettingsChanged
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupPostScraperChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupScraperChanged
+
+ Public Event TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object) Implements Interfaces.EmberTVScraperModule.TVScraperEvent
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property IsBusy() As Boolean Implements Interfaces.EmberTVScraperModule.IsBusy
+ Get
+ Return TVScraper.IsBusy
+ End Get
+ End Property
+
+ Public ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleName() As String Implements Interfaces.EmberTVScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberTVScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Public Property PostScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Public Property ScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync() Implements Interfaces.EmberTVScraperModule.CancelAsync
+ TVScraper.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String, ByRef epDet As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ChangeEpisode
+ epDet = TVScraper.ChangeEpisode(ShowID, TVDBID, Lang)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String, ByRef Langs As List(Of Containers.TVLanguage)) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetLangs
+ Langs = TVScraper.GetLangs(sMirror)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByRef epDetails As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleEpisode
+ epDetails = TVScraper.GetSingleEpisode(ShowID, TVDBID, Season, Episode, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images, ByRef Image As Images) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleImage
+ Image = TVScraper.GetSingleImage(Title, ShowID, TVDBID, Type, Season, Episode, Lang, Ordering, CurrentImage)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Sub Handler_ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent TVScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberTVScraperModule.Init
+ AddHandler TVScraper.ScraperEvent, AddressOf Handler_ScraperEvent
+ End Sub
+
+ Public Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupPostScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setupPost = New frmTVMediaSettingsHolder
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "PostScraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setupPost.pnlSettings
+ SPanel.Parent = "pnlTVMedia"
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberTVScraperModule.ScraperUpdateMediaList
+ Public Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTVInfoSettingsHolder
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Prefix = "NativeTV_"
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setup.pnlSettings
+ SPanel.Parent = "pnlTVData"
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return SPanel
+ End Function
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+ Public Function PostScraper(ByRef DBTV As Structures.DBTV, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.PostScraper
+ End Function
+
+ Public Function SaveImages() As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.SaveImages
+ TVScraper.SaveImages()
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupPostScraper
+ End Sub
+
+ Public Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupScraper
+ End Sub
+
+ Public Function ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeEpisode
+ TVScraper.ScrapeEpisode(ShowID, ShowTitle, TVDBID, iEpisode, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function Scraper(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.Scraper
+ TVScraper.SingleScrape(ShowID, ShowTitle, TVDBID, Lang, Ordering, Options, ScrapeType, WithCurrent)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeSeason
+ TVScraper.ScrapeSeason(ShowID, ShowTitle, TVDBID, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.OFDB.Data/x64/SQLite.Interop.dll b/Addons/scraper.OFDB.Data/x64/SQLite.Interop.dll
new file mode 100644
index 0000000..860c0e5
Binary files /dev/null and b/Addons/scraper.OFDB.Data/x64/SQLite.Interop.dll differ
diff --git a/Addons/scraper.OFDB.Data/x86/SQLite.Interop.dll b/Addons/scraper.OFDB.Data/x86/SQLite.Interop.dll
new file mode 100644
index 0000000..6f6fd4f
Binary files /dev/null and b/Addons/scraper.OFDB.Data/x86/SQLite.Interop.dll differ
diff --git a/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
new file mode 100644
index 0000000..cb66cd5
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">tmdb1</string>
+ <string id="2">tmdb2</string>
+ <string id="3">tmdb3</string>
+ <string id="4">tmdb4</string>
+ <string id="5">tmdb5</string>
+ <string id="6">tmdb6</string>
+ <string id="7">tmdb7</string>
+ <string id="8">tmdb8</string>
+ <string id="9">tmdb9</string>
+ <string id="10">tmdb10</string>
+ <string id="11">tmdb11</string>
+ <string id="12">tmdb12</string>
+ <string id="13">tmdb13</string>
+ <string id="14">tmdb14</string>
+ <string id="15">tmdb15</string>
+ <string id="16">tmdb16</string>
+ <string id="17">tmdb17</string>
+ <string id="18">tmdb18</string>
+ <string id="19">tmdb19</string>
+ <string id="20">tmdb20</string>
+ <string id="21">tmdb21</string>
+ <string id="22">tmdb22</string>
+ <string id="23">tmdb23</string>
+ <string id="24">tmdb24</string>
+ <string id="25">tmdb25</string>
+ <string id="26">tmdb26</string>
+ <string id="27">tmdb27</string>
+ <string id="28">tmdb28</string>
+ <string id="29">tmdb29</string>
+ <string id="30">tmdb30</string>
+ <string id="31">tmdb31</string>
+ <string id="32">tmdb32</string>
+ <string id="33">tmdb33</string>
+ <string id="34">tmdb34</string>
+ <string id="35">tmdb35</string>
+ <string id="36">tmdb36</string>
+ <string id="37">tmdb37</string>
+ <string id="38">tmdb38</string>
+ <string id="39">tmdb39</string>
+ <string id="40">tmdb40</string>
+ <string id="41">tmdb41</string>
+ <string id="42">tmdb42</string>
+ <string id="43">tmdb43</string>
+ <string id="44">tmdb44</string>
+ <string id="45">tmdb45</string>
+ <string id="46">tmdb46</string>
+ <string id="47">tmdb47</string>
+ <string id="48">tmdb48</string>
+ <string id="49">tmdb49</string>
+ <string id="50">tmdb50</string>
+ <string id="51">tmdb51</string>
+ <string id="52">tmdb52</string>
+ <string id="53">tmdb53</string>
+ <string id="54">tmdb54</string>
+ <string id="55">tmdb55</string>
+ <string id="56">tmdb56</string>
+ <string id="57">tmdb57</string>
+ <string id="58">tmdb58</string>
+ <string id="59">tmdb59</string>
+ <string id="60">tmdb60</string>
+ <string id="61">tmdb61</string>
+ <string id="62">tmdb62</string>
+ <string id="63">tmdb63</string>
+ <string id="64">tmdb64</string>
+ <string id="65">tmdb65</string>
+ <string id="66">tmdb66</string>
+ <string id="67">tmdb67</string>
+ <string id="68">tmdb68</string>
+ <string id="69">tmdb69</string>
+ <string id="70">tmdb70</string>
+ <string id="71">tmdb71</string>
+ <string id="72">tmdb72</string>
+ <string id="73">tmdb73</string>
+ <string id="74">tmdb74</string>
+ <string id="75">tmdb75</string>
+ <string id="76">tmdb76</string>
+ <string id="77">tmdb77</string>
+ <string id="78">tmdb78</string>
+ <string id="79">tmdb79</string>
+ <string id="80">tmdb80</string>
+ <string id="81">tmdb81</string>
+ <string id="82">tmdb82</string>
+ <string id="83">tmdb83</string>
+ <string id="84">tmdb84</string>
+ <string id="85">tmdb85</string>
+ <string id="86">tmdb86</string>
+ <string id="87">tmdb87</string>
+ <string id="88">tmdb88</string>
+ <string id="89">tmdb89</string>
+ <string id="90">tmdb90</string>
+ <string id="91">tmdb91</string>
+ <string id="92">tmdb92</string>
+ <string id="93">tmdb93</string>
+ <string id="94">tmdb94</string>
+ <string id="95">tmdb95</string>
+ <string id="96">tmdb96</string>
+ <string id="97">tmdb97</string>
+ <string id="98">tmdb98</string>
+ <string id="99">tmdb99</string>
+ <string id="100">tmdb100</string>
+ <string id="101">tmdb101</string>
+ <string id="102">tmdb102</string>
+ <string id="103">tmdb103</string>
+ <string id="104">tmdb104</string>
+ <string id="105">tmdb105</string>
+ <string id="106">tmdb106</string>
+ <string id="107">tmdb107</string>
+ <string id="108">tmdb108</string>
+ <string id="109">tmdb109</string>
+ <string id="110">tmdb110</string>
+ <string id="111">tmdb111</string>
+ <string id="112">tmdb112</string>
+ <string id="113">tmdb113</string>
+ <string id="114">tmdb114</string>
+ <string id="115">tmdb115</string>
+ <string id="116">tmdb116</string>
+ <string id="117">tmdb117</string>
+ <string id="118">tmdb118</string>
+ <string id="119">tmdb119</string>
+ <string id="120">tmdb120</string>
+ <string id="121">tmdb121</string>
+ <string id="122">tmdb122</string>
+ <string id="123">tmdb123</string>
+ <string id="124">tmdb124</string>
+ <string id="125">tmdb125</string>
+ <string id="126">tmdb126</string>
+ <string id="127">tmdb127</string>
+ <string id="128">tmdb128</string>
+ <string id="129">tmdb129</string>
+ <string id="130">tmdb130</string>
+ <string id="131">tmdb131</string>
+ <string id="132">tmdb132</string>
+ <string id="133">tmdb133</string>
+ <string id="134">tmdb134</string>
+ <string id="135">tmdb135</string>
+ <string id="136">tmdb136</string>
+ <string id="137">tmdb137</string>
+ <string id="138">tmdb138</string>
+ <string id="139">tmdb139</string>
+ <string id="140">tmdb140</string>
+ <string id="141">tmdb141</string>
+ <string id="142">tmdb142</string>
+ <string id="143">tmdb143</string>
+ <string id="144">tmdb144</string>
+ <string id="145">tmdb145</string>
+ <string id="146">tmdb146</string>
+ <string id="147">tmdb147</string>
+ <string id="148">tmdb148</string>
+ <string id="149">tmdb149</string>
+ <string id="150">tmdb150</string>
+ <string id="151">tmdb151</string>
+ <string id="152">tmdb152</string>
+ <string id="153">tmdb153</string>
+ <string id="154">tmdb154</string>
+ <string id="155">tmdb155</string>
+ <string id="156">tmdb156</string>
+ <string id="157">tmdb157</string>
+ <string id="158">tmdb158</string>
+ <string id="159">tmdb159</string>
+ <string id="160">tmdb160</string>
+ <string id="161">tmdb161</string>
+ <string id="162">tmdb162</string>
+ <string id="163">tmdb163</string>
+ <string id="164">tmdb164</string>
+ <string id="165">tmdb165</string>
+ <string id="166">tmdb166</string>
+ <string id="167">tmdb167</string>
+ <string id="168">tmdb168</string>
+ <string id="169">tmdb169</string>
+ <string id="170">tmdb170</string>
+ <string id="171">tmdb171</string>
+ <string id="172">tmdb172</string>
+ <string id="173">tmdb173</string>
+ <string id="174">tmdb174</string>
+ <string id="175">tmdb175</string>
+ <string id="176">tmdb176</string>
+ <string id="177">tmdb177</string>
+ <string id="178">tmdb178</string>
+ <string id="179">tmdb179</string>
+ <string id="180">tmdb180</string>
+ <string id="181">tmdb181</string>
+ <string id="182">tmdb182</string>
+ <string id="183">tmdb183</string>
+ <string id="184">tmdb184</string>
+ <string id="185">tmdb185</string>
+ <string id="186">tmdb186</string>
+ <string id="187">tmdb187</string>
+ <string id="188">tmdb188</string>
+ <string id="189">tmdb189</string>
+ <string id="190">tmdb190</string>
+ <string id="191">tmdb191</string>
+ <string id="192">tmdb192</string>
+ <string id="193">tmdb193</string>
+ <string id="194">tmdb194</string>
+ <string id="195">tmdb195</string>
+ <string id="196">tmdb196</string>
+ <string id="197">tmdb197</string>
+ <string id="198">tmdb198</string>
+ <string id="199">tmdb199</string>
+ <string id="200">tmdb200</string>
+ <string id="201">tmdb201</string>
+ <string id="202">tmdb202</string>
+ <string id="203">tmdb203</string>
+ <string id="204">tmdb204</string>
+ <string id="205">tmdb205</string>
+ <string id="206">tmdb206</string>
+ <string id="207">tmdb207</string>
+ <string id="208">tmdb208</string>
+ <string id="209">tmdb209</string>
+ <string id="210">tmdb210</string>
+ <string id="211">tmdb211</string>
+ <string id="212">tmdb212</string>
+ <string id="213">tmdb213</string>
+ <string id="214">tmdb214</string>
+ <string id="215">tmdb215</string>
+ <string id="216">tmdb216</string>
+ <string id="217">tmdb217</string>
+ <string id="218">tmdb218</string>
+ <string id="219">tmdb219</string>
+ <string id="220">tmdb220</string>
+ <string id="221">tmdb221</string>
+ <string id="222">tmdb222</string>
+ <string id="223">tmdb223</string>
+ <string id="224">tmdb224</string>
+ <string id="225">tmdb225</string>
+ <string id="226">tmdb226</string>
+ <string id="227">tmdb227</string>
+ <string id="228">tmdb228</string>
+ <string id="229">tmdb229</string>
+ <string id="230">tmdb230</string>
+ <string id="231">tmdb231</string>
+ <string id="232">tmdb232</string>
+ <string id="233">tmdb233</string>
+ <string id="234">tmdb234</string>
+ <string id="235">tmdb235</string>
+ <string id="236">tmdb236</string>
+ <string id="237">tmdb237</string>
+ <string id="238">tmdb238</string>
+ <string id="239">tmdb239</string>
+ <string id="240">tmdb240</string>
+ <string id="241">tmdb241</string>
+ <string id="242">tmdb242</string>
+ <string id="243">tmdb243</string>
+ <string id="244">tmdb244</string>
+ <string id="245">tmdb245</string>
+ <string id="246">tmdb246</string>
+ <string id="247">tmdb247</string>
+ <string id="248">tmdb248</string>
+ <string id="249">tmdb249</string>
+ <string id="250">tmdb250</string>
+ <string id="251">tmdb251</string>
+ <string id="252">tmdb252</string>
+ <string id="253">tmdb253</string>
+ <string id="254">tmdb254</string>
+ <string id="255">tmdb255</string>
+ <string id="256">tmdb256</string>
+ <string id="257">tmdb257</string>
+ <string id="258">tmdb258</string>
+ <string id="259">tmdb259</string>
+ <string id="260">tmdb260</string>
+ <string id="261">tmdb261</string>
+ <string id="262">tmdb262</string>
+ <string id="263">tmdb263</string>
+ <string id="264">tmdb264</string>
+ <string id="265">tmdb265</string>
+ <string id="266">tmdb266</string>
+ <string id="267">tmdb267</string>
+ <string id="268">tmdb268</string>
+ <string id="269">tmdb269</string>
+ <string id="270">tmdb270</string>
+ <string id="271">tmdb271</string>
+ <string id="272">tmdb272</string>
+ <string id="273">tmdb273</string>
+ <string id="274">tmdb274</string>
+ <string id="275">tmdb275</string>
+ <string id="276">tmdb276</string>
+ <string id="277">tmdb277</string>
+ <string id="278">tmdb278</string>
+ <string id="279">tmdb279</string>
+ <string id="280">tmdb280</string>
+ <string id="281">tmdb281</string>
+ <string id="282">tmdb282</string>
+ <string id="283">tmdb283</string>
+ <string id="284">tmdb284</string>
+ <string id="285">tmdb285</string>
+ <string id="286">tmdb286</string>
+ <string id="287">tmdb287</string>
+ <string id="288">tmdb288</string>
+ <string id="289">tmdb289</string>
+ <string id="290">tmdb290</string>
+ <string id="291">tmdb291</string>
+ <string id="292">tmdb292</string>
+ <string id="293">tmdb293</string>
+ <string id="294">tmdb294</string>
+ <string id="295">tmdb295</string>
+ <string id="296">tmdb296</string>
+ <string id="297">tmdb297</string>
+ <string id="298">tmdb298</string>
+ <string id="299">tmdb299</string>
+ <string id="300">tmdb300</string>
+ <string id="301">tmdb301</string>
+ <string id="302">tmdb302</string>
+ <string id="303">tmdb303</string>
+ <string id="304">tmdb304</string>
+ <string id="305">tmdb305</string>
+ <string id="306">tmdb306</string>
+ <string id="307">tmdb307</string>
+ <string id="308">tmdb308</string>
+ <string id="309">tmdb309</string>
+ <string id="310">tmdb310</string>
+ <string id="311">tmdb311</string>
+ <string id="312">tmdb312</string>
+ <string id="313">tmdb313</string>
+ <string id="314">tmdb314</string>
+ <string id="315">tmdb315</string>
+ <string id="316">tmdb316</string>
+ <string id="317">tmdb317</string>
+ <string id="318">tmdb318</string>
+ <string id="319">tmdb319</string>
+ <string id="320">tmdb320</string>
+ <string id="321">tmdb321</string>
+ <string id="322">tmdb322</string>
+ <string id="323">tmdb323</string>
+ <string id="324">tmdb324</string>
+ <string id="325">tmdb325</string>
+ <string id="326">tmdb326</string>
+ <string id="327">tmdb327</string>
+ <string id="328">tmdb328</string>
+ <string id="329">tmdb329</string>
+ <string id="330">tmdb330</string>
+ <string id="331">tmdb331</string>
+ <string id="332">tmdb332</string>
+ <string id="333">tmdb333</string>
+ <string id="334">tmdb334</string>
+ <string id="335">tmdb335</string>
+ <string id="336">tmdb336</string>
+ <string id="337">tmdb337</string>
+ <string id="338">tmdb338</string>
+ <string id="339">tmdb339</string>
+ <string id="340">tmdb340</string>
+ <string id="341">tmdb341</string>
+ <string id="342">tmdb342</string>
+ <string id="343">tmdb343</string>
+ <string id="344">tmdb344</string>
+ <string id="345">tmdb345</string>
+ <string id="346">tmdb346</string>
+ <string id="347">tmdb347</string>
+ <string id="348">tmdb348</string>
+ <string id="349">tmdb349</string>
+ <string id="350">tmdb350</string>
+ <string id="351">tmdb351</string>
+ <string id="352">tmdb352</string>
+ <string id="353">tmdb353</string>
+ <string id="354">tmdb354</string>
+ <string id="355">tmdb355</string>
+ <string id="356">tmdb356</string>
+ <string id="357">tmdb357</string>
+ <string id="358">tmdb358</string>
+ <string id="359">tmdb359</string>
+ <string id="360">tmdb360</string>
+ <string id="361">tmdb361</string>
+ <string id="362">tmdb362</string>
+ <string id="363">tmdb363</string>
+ <string id="364">tmdb364</string>
+ <string id="365">tmdb365</string>
+ <string id="366">tmdb366</string>
+ <string id="367">tmdb367</string>
+ <string id="368">tmdb368</string>
+ <string id="369">tmdb369</string>
+ <string id="370">tmdb370</string>
+ <string id="371">tmdb371</string>
+ <string id="372">tmdb372</string>
+ <string id="373">tmdb373</string>
+ <string id="374">tmdb374</string>
+ <string id="375">tmdb375</string>
+ <string id="376">tmdb376</string>
+ <string id="377">tmdb377</string>
+ <string id="378">tmdb378</string>
+ <string id="379">tmdb379</string>
+ <string id="380">tmdb380</string>
+ <string id="381">tmdb381</string>
+ <string id="382">tmdb382</string>
+ <string id="383">tmdb383</string>
+ <string id="384">tmdb384</string>
+ <string id="385">tmdb385</string>
+ <string id="386">tmdb386</string>
+ <string id="387">tmdb387</string>
+ <string id="388">tmdb388</string>
+ <string id="389">tmdb389</string>
+ <string id="390">tmdb390</string>
+ <string id="391">tmdb391</string>
+ <string id="392">tmdb392</string>
+ <string id="393">tmdb393</string>
+ <string id="394">tmdb394</string>
+ <string id="395">tmdb395</string>
+ <string id="396">tmdb396</string>
+ <string id="397">tmdb397</string>
+ <string id="398">tmdb398</string>
+ <string id="399">tmdb399</string>
+ <string id="400">tmdb400</string>
+ <string id="401">tmdb401</string>
+ <string id="402">tmdb402</string>
+ <string id="403">tmdb403</string>
+ <string id="404">tmdb404</string>
+ <string id="405">tmdb405</string>
+ <string id="406">tmdb406</string>
+ <string id="407">tmdb407</string>
+ <string id="408">tmdb408</string>
+ <string id="409">tmdb409</string>
+ <string id="410">tmdb410</string>
+ <string id="411">tmdb411</string>
+ <string id="412">tmdb412</string>
+ <string id="413">tmdb413</string>
+ <string id="414">tmdb414</string>
+ <string id="415">tmdb415</string>
+ <string id="416">tmdb416</string>
+ <string id="417">tmdb417</string>
+ <string id="418">tmdb418</string>
+ <string id="419">tmdb419</string>
+ <string id="420">tmdb420</string>
+ <string id="421">tmdb421</string>
+ <string id="422">tmdb422</string>
+ <string id="423">tmdb423</string>
+ <string id="424">tmdb424</string>
+ <string id="425">tmdb425</string>
+ <string id="426">tmdb426</string>
+ <string id="427">tmdb427</string>
+ <string id="428">tmdb428</string>
+ <string id="429">tmdb429</string>
+ <string id="430">tmdb430</string>
+ <string id="431">tmdb431</string>
+ <string id="432">tmdb432</string>
+ <string id="433">tmdb433</string>
+ <string id="434">tmdb434</string>
+ <string id="435">tmdb435</string>
+ <string id="436">tmdb436</string>
+ <string id="437">tmdb437</string>
+ <string id="438">tmdb438</string>
+ <string id="439">tmdb439</string>
+ <string id="440">tmdb440</string>
+ <string id="441">tmdb441</string>
+ <string id="442">tmdb442</string>
+ <string id="443">tmdb443</string>
+ <string id="444">tmdb444</string>
+ <string id="445">tmdb445</string>
+ <string id="446">tmdb446</string>
+ <string id="447">tmdb447</string>
+ <string id="448">tmdb448</string>
+ <string id="449">tmdb449</string>
+ <string id="450">tmdb450</string>
+ <string id="451">tmdb451</string>
+ <string id="452">tmdb452</string>
+ <string id="453">tmdb453</string>
+ <string id="454">tmdb454</string>
+ <string id="455">tmdb455</string>
+ <string id="456">tmdb456</string>
+ <string id="457">tmdb457</string>
+ <string id="458">tmdb458</string>
+ <string id="459">tmdb459</string>
+ <string id="460">tmdb460</string>
+ <string id="461">tmdb461</string>
+ <string id="462">tmdb462</string>
+ <string id="463">tmdb463</string>
+ <string id="464">tmdb464</string>
+ <string id="465">tmdb465</string>
+ <string id="466">tmdb466</string>
+ <string id="467">tmdb467</string>
+ <string id="468">tmdb468</string>
+ <string id="469">tmdb469</string>
+ <string id="470">tmdb470</string>
+ <string id="471">tmdb471</string>
+ <string id="472">tmdb472</string>
+ <string id="473">tmdb473</string>
+ <string id="474">tmdb474</string>
+ <string id="475">tmdb475</string>
+ <string id="476">tmdb476</string>
+ <string id="477">tmdb477</string>
+ <string id="478">tmdb478</string>
+ <string id="479">tmdb479</string>
+ <string id="480">tmdb480</string>
+ <string id="481">tmdb481</string>
+ <string id="482">tmdb482</string>
+ <string id="483">tmdb483</string>
+ <string id="484">tmdb484</string>
+ <string id="485">tmdb485</string>
+ <string id="486">tmdb486</string>
+ <string id="487">tmdb487</string>
+ <string id="488">tmdb488</string>
+ <string id="489">tmdb489</string>
+ <string id="490">tmdb490</string>
+ <string id="491">tmdb491</string>
+ <string id="492">tmdb492</string>
+ <string id="493">tmdb493</string>
+ <string id="494">tmdb494</string>
+ <string id="495">tmdb495</string>
+ <string id="496">tmdb496</string>
+ <string id="497">tmdb497</string>
+ <string id="498">tmdb498</string>
+ <string id="499">tmdb499</string>
+ <string id="500">tmdb500</string>
+ <string id="501">tmdb501</string>
+ <string id="502">tmdb502</string>
+ <string id="503">tmdb503</string>
+ <string id="504">tmdb504</string>
+ <string id="505">tmdb505</string>
+ <string id="506">tmdb506</string>
+ <string id="507">tmdb507</string>
+ <string id="508">tmdb508</string>
+ <string id="509">tmdb509</string>
+ <string id="510">tmdb510</string>
+ <string id="511">tmdb511</string>
+ <string id="512">tmdb512</string>
+ <string id="513">tmdb513</string>
+ <string id="514">tmdb514</string>
+ <string id="515">tmdb515</string>
+ <string id="516">tmdb516</string>
+ <string id="517">tmdb517</string>
+ <string id="518">tmdb518</string>
+ <string id="519">tmdb519</string>
+ <string id="520">tmdb520</string>
+ <string id="521">tmdb521</string>
+ <string id="522">tmdb522</string>
+ <string id="523">tmdb523</string>
+ <string id="524">tmdb524</string>
+ <string id="525">tmdb525</string>
+ <string id="526">tmdb526</string>
+ <string id="527">tmdb527</string>
+ <string id="528">tmdb528</string>
+ <string id="529">tmdb529</string>
+ <string id="530">tmdb530</string>
+ <string id="531">tmdb531</string>
+ <string id="532">tmdb532</string>
+ <string id="533">tmdb533</string>
+ <string id="534">tmdb534</string>
+ <string id="535">tmdb535</string>
+ <string id="536">tmdb536</string>
+ <string id="537">tmdb537</string>
+ <string id="538">tmdb538</string>
+ <string id="539">tmdb539</string>
+ <string id="540">tmdb540</string>
+ <string id="541">tmdb541</string>
+ <string id="542">tmdb542</string>
+ <string id="543">tmdb543</string>
+ <string id="544">tmdb544</string>
+ <string id="545">tmdb545</string>
+ <string id="546">tmdb546</string>
+ <string id="547">tmdb547</string>
+ <string id="548">tmdb548</string>
+ <string id="549">tmdb549</string>
+ <string id="550">tmdb550</string>
+ <string id="551">tmdb551</string>
+ <string id="552">tmdb552</string>
+ <string id="553">tmdb553</string>
+ <string id="554">tmdb554</string>
+ <string id="555">tmdb555</string>
+ <string id="556">tmdb556</string>
+ <string id="557">tmdb557</string>
+ <string id="558">tmdb558</string>
+ <string id="559">tmdb559</string>
+ <string id="560">tmdb560</string>
+ <string id="561">tmdb561</string>
+ <string id="562">tmdb562</string>
+ <string id="563">tmdb563</string>
+ <string id="564">tmdb564</string>
+ <string id="565">tmdb565</string>
+ <string id="566">tmdb566</string>
+ <string id="567">tmdb567</string>
+ <string id="568">tmdb568</string>
+ <string id="569">tmdb569</string>
+ <string id="570">tmdb570</string>
+ <string id="571">tmdb571</string>
+ <string id="572">tmdb572</string>
+ <string id="573">tmdb573</string>
+ <string id="574">tmdb574</string>
+ <string id="575">tmdb575</string>
+ <string id="576">tmdb576</string>
+ <string id="577">tmdb577</string>
+ <string id="578">tmdb578</string>
+ <string id="579">tmdb579</string>
+ <string id="580">tmdb580</string>
+ <string id="581">tmdb581</string>
+ <string id="582">tmdb582</string>
+ <string id="583">tmdb583</string>
+ <string id="584">tmdb584</string>
+ <string id="585">tmdb585</string>
+ <string id="586">tmdb586</string>
+ <string id="587">tmdb587</string>
+ <string id="588">tmdb588</string>
+ <string id="589">tmdb589</string>
+ <string id="590">tmdb590</string>
+ <string id="591">tmdb591</string>
+ <string id="592">tmdb592</string>
+ <string id="593">tmdb593</string>
+ <string id="594">tmdb594</string>
+ <string id="595">tmdb595</string>
+ <string id="596">tmdb596</string>
+ <string id="597">tmdb597</string>
+ <string id="598">tmdb598</string>
+ <string id="599">tmdb599</string>
+ <string id="600">tmdb600</string>
+ <string id="601">tmdb601</string>
+ <string id="602">tmdb602</string>
+ <string id="603">tmdb603</string>
+ <string id="604">tmdb604</string>
+ <string id="605">tmdb605</string>
+ <string id="606">tmdb606</string>
+ <string id="607">tmdb607</string>
+ <string id="608">tmdb608</string>
+ <string id="609">tmdb609</string>
+ <string id="610">tmdb610</string>
+ <string id="611">tmdb611</string>
+ <string id="612">tmdb612</string>
+ <string id="613">tmdb613</string>
+ <string id="614">tmdb614</string>
+ <string id="615">tmdb615</string>
+ <string id="616">tmdb616</string>
+ <string id="617">tmdb617</string>
+ <string id="618">tmdb618</string>
+ <string id="619">tmdb619</string>
+ <string id="620">tmdb620</string>
+ <string id="621">tmdb621</string>
+ <string id="622">tmdb622</string>
+ <string id="623">tmdb623</string>
+ <string id="624">tmdb624</string>
+ <string id="625">tmdb625</string>
+ <string id="626">tmdb626</string>
+ <string id="627">tmdb627</string>
+ <string id="628">tmdb628</string>
+ <string id="629">tmdb629</string>
+ <string id="630">tmdb630</string>
+ <string id="631">tmdb631</string>
+ <string id="632">tmdb632</string>
+ <string id="633">tmdb633</string>
+ <string id="634">tmdb634</string>
+ <string id="635">tmdb635</string>
+ <string id="636">tmdb636</string>
+ <string id="637">tmdb637</string>
+ <string id="638">tmdb638</string>
+ <string id="639">tmdb639</string>
+ <string id="640">tmdb640</string>
+ <string id="641">tmdb641</string>
+ <string id="642">tmdb642</string>
+ <string id="643">tmdb643</string>
+ <string id="644">tmdb644</string>
+ <string id="645">tmdb645</string>
+ <string id="646">tmdb646</string>
+ <string id="647">tmdb647</string>
+ <string id="648">tmdb648</string>
+ <string id="649">tmdb649</string>
+ <string id="650">tmdb650</string>
+ <string id="651">tmdb651</string>
+ <string id="652">tmdb652</string>
+ <string id="653">tmdb653</string>
+ <string id="654">tmdb654</string>
+ <string id="655">tmdb655</string>
+ <string id="656">tmdb656</string>
+ <string id="657">tmdb657</string>
+ <string id="658">tmdb658</string>
+ <string id="659">tmdb659</string>
+ <string id="660">tmdb660</string>
+ <string id="661">tmdb661</string>
+ <string id="662">tmdb662</string>
+ <string id="663">tmdb663</string>
+ <string id="664">tmdb664</string>
+ <string id="665">tmdb665</string>
+ <string id="666">tmdb666</string>
+ <string id="667">tmdb667</string>
+ <string id="668">tmdb668</string>
+ <string id="669">tmdb669</string>
+ <string id="670">tmdb670</string>
+ <string id="671">tmdb671</string>
+ <string id="672">tmdb672</string>
+ <string id="673">tmdb673</string>
+ <string id="674">tmdb674</string>
+ <string id="675">tmdb675</string>
+ <string id="676">tmdb676</string>
+ <string id="677">tmdb677</string>
+ <string id="678">tmdb678</string>
+ <string id="679">tmdb679</string>
+ <string id="680">tmdb680</string>
+ <string id="681">tmdb681</string>
+ <string id="682">tmdb682</string>
+ <string id="683">tmdb683</string>
+ <string id="684">tmdb684</string>
+ <string id="685">tmdb685</string>
+ <string id="686">tmdb686</string>
+ <string id="687">tmdb687</string>
+ <string id="688">tmdb688</string>
+ <string id="689">tmdb689</string>
+ <string id="690">tmdb690</string>
+ <string id="691">tmdb691</string>
+ <string id="692">tmdb692</string>
+ <string id="693">tmdb693</string>
+ <string id="694">tmdb694</string>
+ <string id="695">tmdb695</string>
+ <string id="696">tmdb696</string>
+ <string id="697">tmdb697</string>
+ <string id="698">tmdb698</string>
+ <string id="699">tmdb699</string>
+ <string id="700">tmdb700</string>
+ <string id="701">tmdb701</string>
+ <string id="702">tmdb702</string>
+ <string id="703">tmdb703</string>
+ <string id="704">tmdb704</string>
+ <string id="705">tmdb705</string>
+ <string id="706">tmdb706</string>
+ <string id="707">tmdb707</string>
+ <string id="708">tmdb708</string>
+ <string id="709">tmdb709</string>
+ <string id="710">tmdb710</string>
+ <string id="711">tmdb711</string>
+ <string id="712">tmdb712</string>
+ <string id="713">tmdb713</string>
+ <string id="714">tmdb714</string>
+ <string id="715">tmdb715</string>
+ <string id="716">tmdb716</string>
+ <string id="717">tmdb717</string>
+ <string id="718">tmdb718</string>
+ <string id="719">tmdb719</string>
+ <string id="720">tmdb720</string>
+ <string id="721">tmdb721</string>
+ <string id="722">tmdb722</string>
+ <string id="723">tmdb723</string>
+ <string id="724">tmdb724</string>
+ <string id="725">tmdb725</string>
+ <string id="726">tmdb726</string>
+ <string id="727">tmdb727</string>
+ <string id="728">tmdb728</string>
+ <string id="729">tmdb729</string>
+ <string id="730">tmdb730</string>
+ <string id="731">tmdb731</string>
+ <string id="732">tmdb732</string>
+ <string id="733">tmdb733</string>
+ <string id="734">tmdb734</string>
+ <string id="735">tmdb735</string>
+ <string id="736">tmdb736</string>
+ <string id="737">tmdb737</string>
+ <string id="738">tmdb738</string>
+ <string id="739">tmdb739</string>
+ <string id="740">tmdb740</string>
+ <string id="741">tmdb741</string>
+ <string id="742">tmdb742</string>
+ <string id="743">tmdb743</string>
+ <string id="744">tmdb744</string>
+ <string id="745">tmdb745</string>
+ <string id="746">tmdb746</string>
+ <string id="747">tmdb747</string>
+ <string id="748">tmdb748</string>
+ <string id="749">tmdb749</string>
+ <string id="750">tmdb750</string>
+ <string id="751">tmdb751</string>
+ <string id="752">tmdb752</string>
+ <string id="753">tmdb753</string>
+ <string id="754">tmdb754</string>
+ <string id="755">tmdb755</string>
+ <string id="756">tmdb756</string>
+ <string id="757">tmdb757</string>
+ <string id="758">tmdb758</string>
+ <string id="759">tmdb759</string>
+ <string id="760">tmdb760</string>
+ <string id="761">tmdb761</string>
+ <string id="762">tmdb762</string>
+ <string id="763">tmdb763</string>
+ <string id="764">tmdb764</string>
+ <string id="765">tmdb765</string>
+ <string id="766">tmdb766</string>
+ <string id="767">tmdb767</string>
+ <string id="768">tmdb768</string>
+ <string id="769">tmdb769</string>
+ <string id="770">tmdb770</string>
+ <string id="771">tmdb771</string>
+ <string id="772">tmdb772</string>
+ <string id="773">tmdb773</string>
+ <string id="774">tmdb774</string>
+ <string id="775">tmdb775</string>
+ <string id="776">tmdb776</string>
+ <string id="777">tmdb777</string>
+ <string id="778">tmdb778</string>
+ <string id="779">tmdb779</string>
+ <string id="780">tmdb780</string>
+ <string id="781">tmdb781</string>
+ <string id="782">tmdb782</string>
+ <string id="783">tmdb783</string>
+ <string id="784">tmdb784</string>
+ <string id="785">tmdb785</string>
+ <string id="786">tmdb786</string>
+ <string id="787">tmdb787</string>
+ <string id="788">tmdb788</string>
+ <string id="789">tmdb789</string>
+ <string id="790">tmdb790</string>
+ <string id="791">tmdb791</string>
+ <string id="792">tmdb792</string>
+ <string id="793">tmdb793</string>
+ <string id="794">tmdb794</string>
+ <string id="795">tmdb795</string>
+ <string id="796">tmdb796</string>
+ <string id="797">tmdb797</string>
+ <string id="798">tmdb798</string>
+ <string id="799">tmdb799</string>
+ <string id="800">tmdb800</string>
+ <string id="801">tmdb801</string>
+ <string id="802">tmdb802</string>
+ <string id="803">tmdb803</string>
+ <string id="804">tmdb804</string>
+ <string id="805">tmdb805</string>
+ <string id="806">tmdb806</string>
+ <string id="807">tmdb807</string>
+ <string id="808">tmdb808</string>
+ <string id="809">tmdb809</string>
+ <string id="810">tmdb810</string>
+ <string id="811">tmdb811</string>
+ <string id="812">tmdb812</string>
+ <string id="813">tmdb813</string>
+ <string id="814">tmdb814</string>
+ <string id="815">tmdb815</string>
+ <string id="816">tmdb816</string>
+ <string id="817">tmdb817</string>
+ <string id="818">tmdb818</string>
+ <string id="819">tmdb819</string>
+ <string id="820">tmdb820</string>
+ <string id="821">tmdb821</string>
+ <string id="822">tmdb822</string>
+ <string id="823">tmdb823</string>
+ <string id="824">tmdb824</string>
+ <string id="825">tmdb825</string>
+ <string id="826">tmdb826</string>
+ <string id="827">tmdb827</string>
+ <string id="828">tmdb828</string>
+ <string id="829">tmdb829</string>
+ <string id="830">tmdb830</string>
+ <string id="831">tmdb831</string>
+ <string id="832">tmdb832</string>
+ <string id="833">tmdb833</string>
+ <string id="834">tmdb834</string>
+ <string id="835">tmdb835</string>
+ <string id="836">tmdb836</string>
+ <string id="837">tmdb837</string>
+ <string id="838">tmdb838</string>
+ <string id="839">tmdb839</string>
+ <string id="840">tmdb840</string>
+ <string id="841">tmdb841</string>
+ <string id="842">tmdb842</string>
+ <string id="843">tmdb843</string>
+ <string id="844">tmdb844</string>
+ <string id="845">tmdb845</string>
+ <string id="846">tmdb846</string>
+ <string id="847">tmdb847</string>
+ <string id="848">tmdb848</string>
+ <string id="849">tmdb849</string>
+ <string id="850">tmdb850</string>
+ <string id="851">tmdb851</string>
+ <string id="852">tmdb852</string>
+ <string id="853">tmdb853</string>
+ <string id="854">tmdb854</string>
+ <string id="855">tmdb855</string>
+ <string id="856">tmdb856</string>
+ <string id="857">tmdb857</string>
+ <string id="858">tmdb858</string>
+ <string id="859">tmdb859</string>
+ <string id="860">tmdb860</string>
+ <string id="861">tmdb861</string>
+ <string id="862">tmdb862</string>
+ <string id="863">tmdb863</string>
+ <string id="864">tmdb864</string>
+ <string id="865">tmdb865</string>
+ <string id="866">tmdb866</string>
+ <string id="867">tmdb867</string>
+ <string id="868">tmdb868</string>
+ <string id="869">tmdb869</string>
+ <string id="870">tmdb870</string>
+ <string id="871">tmdb871</string>
+ <string id="872">tmdb872</string>
+ <string id="873">tmdb873</string>
+ <string id="874">tmdb874</string>
+ <string id="875">tmdb875</string>
+ <string id="876">tmdb876</string>
+ <string id="877">tmdb877</string>
+ <string id="878">tmdb878</string>
+ <string id="879">tmdb879</string>
+ <string id="880">tmdb880</string>
+ <string id="881">tmdb881</string>
+ <string id="882">tmdb882</string>
+ <string id="883">tmdb883</string>
+ <string id="884">tmdb884</string>
+ <string id="885">tmdb885</string>
+ <string id="886">tmdb886</string>
+ <string id="887">tmdb887</string>
+ <string id="888">tmdb888</string>
+ <string id="889">tmdb889</string>
+ <string id="890">tmdb890</string>
+ <string id="891">tmdb891</string>
+ <string id="892">tmdb892</string>
+ <string id="893">tmdb893</string>
+ <string id="894">tmdb894</string>
+ <string id="895">tmdb895</string>
+ <string id="896">tmdb896</string>
+ <string id="897">tmdb897</string>
+ <string id="898">tmdb898</string>
+ <string id="899">tmdb899</string>
+ <string id="900">tmdb900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
new file mode 100644
index 0000000..5e87256
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API Key from the TMDB site. Sharing the API key is forbidden.</string>
+ <string control="TMDBMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Selected language for TMDB searches</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">If no record is available for selected language try English</string>
+ <string control="TMDBMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="TMDBMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="TMDBMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="TMDBMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="TMDBMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="TMDBMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="TMDBMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="TMDBMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="TMDBMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="TMDBMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="TMDBMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="TMDBMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="TMDBMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.English_(en_US).xml b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
new file mode 100644
index 0000000..cf68bc8
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching TMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching TMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Fall back on english</string>
+ <string id="115">Preferred Language:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Retrieving data from IMDB.com...</string>
+ <string id="118">IMDB.com is not enabled</string>
+ <string id="119">TheMovieDB API is missing or not valid</string>
+ <string id="120">Retrieving data from Fanart.tv...</string>
+ <string id="121">Fanart.tv is not enabled</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..d2a3801
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-Key von der TMDB-Website. Gemeinsame Nutzung des API-Schlüssels ist verboten.</string>
+ <string control="TMDBMovieInfo_chkCertification">Das Scrapen von Altersbeschränkungen einschalten.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Wähle die Sprache in der auf TMDB gesucht werden soll</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Wenn kein Datensatz für die gewählte Sprache verfügbar ist versuche englischen zu nehmen.</string>
+ <string control="TMDBMovieInfo_chkCrew">Das Scrapen von der restlichen Crew einschalten. ("Gesamte Crew Scrapen" muss eingeschaltet sein)</string>
+ <string control="TMDBMovieInfo_chkStudio">Das Scrapen von Studios einschalten.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Das Scrapen von Spielzeiten einschalten.</string>
+ <string control="TMDBMovieInfo_chkPlot">Das Scrapen von Inhaltsangaben einschalten.</string>
+ <string control="TMDBMovieInfo_chkOutline">Das Scrapen von Kurzbeschreibungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkGenre">Das Scrapen von Genres einschalten.</string>
+ <string control="TMDBMovieInfo_chkTagline">Das Scrapen von Taglines einschalten.</string>
+ <string control="TMDBMovieInfo_chkCast">Das Scrapen von Schauspielern einschalten.</string>
+ <string control="TMDBMovieInfo_chkVotes">Das Scrapen von Anzahl Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRating">Das Scrapen von Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRelease">Das Scrapen von Premiere-Daten einschalten.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Das Scrapen von MPAA-Informationen einschalten.</string>
+ <string control="TMDBMovieInfo_chkYear">Das Scrapen von Filmjahren einschalten.</string>
+ <string control="TMDBMovieInfo_chkTitle">Das Scrapen von Filmtiteln einschalten.</string>
+ <string control="TMDBMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanarts mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Aktiviert das Laden von Trailern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Seite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
new file mode 100644
index 0000000..9b8e52e
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der TMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der TMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden.</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden.</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Wähle alle Thumb</string>
+ <string id="42">Wähle alle Mittl.</string>
+ <string id="43">Wähle alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Klein ({0}x{1})</string>
+ <string id="54">Mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Treiler...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Manueller Trailer</string>
+ <string id="67">Direkter Link oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Loakler trailer:</string>
+ <string id="71">Fehler beim generieren der Videoformat Linkliste.</string>
+ <string id="72">Fehler beim Generieren der Videoformat Links.</string>
+ <string id="73">Wähle Format</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der bevorzugten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine bevorzugte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gaststar</string>
+ <string id="83">Die eingegebene ID ist keine gültige TMDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Poster</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen Blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Verwende Englisch wenn nichts verfügbar</string>
+ <string id="115">Bevorzugte Sprache:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Lade Daten von IMDB.com...</string>
+ <string id="118">IMDB.com ist nicht aktiviert.</string>
+ <string id="119">Die TheMovieDB API ist nicht vorhanden oder ungültig</string>
+ <string id="120">Lade Daten von Fanart.tv...</string>
+ <string id="121">Fanart.tv ist nicht aktiviert</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..54809c6
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-nøkkel fra TMDB-siden. Deling av denne nøkkelen er forbudt.</string>
+ <string control="TMDBMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Valgt språk for TMDB-søk.</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Hvis valgt språk ikke blir funnet, prøv engelsk.</string>
+ <string control="TMDBMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="TMDBMovieInfo_chkStudio">Slå på detaljhenting av filmstudio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="TMDBMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="TMDBMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="TMDBMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="TMDBMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="TMDBMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="TMDBMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="TMDBMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="TMDBMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="TMDBMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="TMDBMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="TMDBMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..3ee8a25
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">TMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kan ikke spille av trailer</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episode-fankunst</string>
+ <string id="93">Seriefankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakat</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM TMDB film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Fall tilbake til engelsk</string>
+ <string id="115">Foretrukket språk:</string>
+ <string id="116">TIMDB-ID:</string>
+ <string id="117">Henter data fra IMDB.com...</string>
+ <string id="118">IMDB.com er ikke påslått</string>
+ <string id="119">TheMovieDB API mangler eller er ikke gyldig</string>
+ <string id="120">Henter data fra Fanart.tv...</string>
+ <string id="121">Fanart.tv er ikke påslått</string>
+ <string id="122">Hent din API-nøkkel fra www.themoviedb.org</string>
+ <string id="123">Hent din API-nøkkel fra fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Data/My Project/Application.Designer.vb b/Addons/scraper.TMDB.Data/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.TMDB.Data/My Project/Application.myapp b/Addons/scraper.TMDB.Data/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.TMDB.Data/My Project/AssemblyInfo.vb b/Addons/scraper.TMDB.Data/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..c09b91c
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.TMDB.Data")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.TMDB.Data")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("B31D2BA5-CB99-4021-89BF-A8F8F095F089")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.TMDB.Data/My Project/Resources.Designer.vb b/Addons/scraper.TMDB.Data/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.TMDB.Data/My Project/Resources.resx b/Addons/scraper.TMDB.Data/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/My Project/Settings.Designer.vb b/Addons/scraper.TMDB.Data/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.TMDB.Data/My Project/Settings.settings b/Addons/scraper.TMDB.Data/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.TMDB.Data/Resources/Logo.png b/Addons/scraper.TMDB.Data/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.TMDB.Data/Resources/Logo.png differ
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeFANARTTV.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeFANARTTV.vb
new file mode 100644
index 0000000..13c1748
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeFANARTTV.vb
@@ -0,0 +1,173 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+' # HD Movie Logos -> logo.png (choose this first)
+' # ClearLOGOs -> logo.png (use this as a backup if no HD Logo in the lanaguage specified)
+' # ClearART -> clearart.png (use this as a backup if no HD ClearArt, in the language specified)
+' # HDClearART -> clearart.png (choose this first)
+' # cdART -> disc.png
+' # Movie Backgrounds -> Fanart (this is the only fanart.tv artwork that might overlap with 'typical' artwork scraping from IMDB/TMDB)
+' # Movie Banner -> Banner (not poster - Frodo supports both now, <moviename>-poster.jpg/png and <moviename>-banner.jpg/png or poster.jpg/png and banner.jpg/png)
+' # Movie Thumbs -> landscape.png
+' # Special note - the Logos and ClearArts are language-specific and should be tagged with the appropriate language. Will want to have a setting allowing users to specify a language so as not to get a bunch of foreign-language artwork.
+' # 1) Logo.png - to be added at a later stage, today is not possible to save
+' # 2) Clearart.png - to be added at a later stage, today is not possible to save
+' # 3) Disc.png - to be added at a later stage, today is not possible to save
+' # 4) Landscape.png - to be added at a later stage, today is not possible to save
+' # language is in image properties
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports FanartTVAPI
+
+Namespace FANARTTVs
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _FanartTV As FanartTV.V1.FanartTV
+ Friend WithEvents bwFANARTTV As New System.ComponentModel.BackgroundWorker
+ Private _APIInvalid As Boolean = False
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _FanartTV = New FanartTV.V1.FanartTV(_MySettings.FANARTTVApiKey)
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest("1", "JSON", "all", 1, 1))
+ If IsNothing(Result) Then
+ If Not IsNothing(_FanartTV.Error) Then
+ Master.eLog.WriteToErrorLog(_FanartTV.Error, "", "Error")
+ _APIInvalid = True
+ End If
+ End If
+ End Sub
+
+ Public Sub Cancel()
+ If Me.bwFANARTTV.IsBusy Then Me.bwFANARTTV.CancelAsync()
+
+ While Me.bwFANARTTV.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwFANARTTV.IsBusy Then
+ bwFANARTTV.WorkerSupportsCancellation = True
+ bwFANARTTV.WorkerReportsProgress = True
+ bwFANARTTV.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetFANARTTVImages(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ If _APIInvalid Then
+ Return Nothing
+ End If
+ Try
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest(imdbID, "JSON", "all", 1, 2))
+ If bwFANARTTV.CancellationPending Then Return Nothing
+ If IsNothing(Result) Then Return alPoster
+ If IsNothing(Result.movieinfo.moviebackground) Then Return alPoster
+ For Each image In Result.movieinfo.moviebackground
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = image.url})
+ alPoster.Add(New MediaContainers.Image With {.Description = "thumb", .URL = image.url & "/preview"})
+ Next
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwFANARTTVA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTV.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetFANARTTVImages(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTV_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTV.ProgressChanged
+ If Not bwFANARTTV.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwFANARTTV_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTV.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeIMDB.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..ec6d1be
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,174 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Diagnostics
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDBimg
+
+ Public Class Scraper
+
+#Region "Fields"
+
+
+
+ Friend WithEvents bwIMDBimg As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMDBimg.IsBusy Then Me.bwIMDBimg.CancelAsync()
+
+ While Me.bwIMDBimg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMDBimg.IsBusy Then
+ bwIMDBimg.WorkerSupportsCancellation = True
+ bwIMDBimg.WorkerReportsProgress = True
+ bwIMDBimg.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMDBimg.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", imdbID, ""))
+ sHTTP = Nothing
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(1)
+ End If
+
+
+ ' check existence of a line like this
+ ' <a href="/media/rm2995297536/tt0089218?ref_=tt_ov_i" > <img height="317"
+ ' and then return this one
+ ' src = "http://ia.media-imdb.com/images/M/MV5BMTY1Mzk3MTg0M15BMl5BanBnXkFtZTcwOTQzODYyMQ@@._V1_SY317_CR3,0,214,317_.jpg"
+ Dim mcIMDB As MatchCollection = Regex.Matches(HTML, String.Concat("/media/[a-zA-Z0-9]{3,12}/tt", imdbID, "\?ref_=tt_ov_i"), RegexOptions.IgnoreCase)
+ If mcIMDB.Count > 0 Then
+ debug.print("GetIMDBPoster 1 - {0}", mcIMDB(0).Value)
+ 'Dim sUrl1 As String = sHTTP.DownloadData(mcIMDB(0).Value)
+ mcIMDB = Regex.Matches(HTML, "http://ia.media-imdb.com/images/.{3,80}?.jpg")
+ If mcIMDB.Count > 0 Then
+ 'just use the first one if more are found
+ Debug.Print("GetIMDBPoster 2 - {0}", mcIMDB(0).Value)
+ alPoster.Add(New MediaContainers.Image With {.Description = "cover", .URL = mcIMDB(0).Value})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(2)
+ End If
+
+ Dim aSP As String() = Regex.Split(mcIMDB(0).Value, "._V\d+?_SY\d+?_CR\d+?,\d+?,\d+?,\d+?_")
+ Dim sUrl1 = aSP(0) + aSP(1)
+ Debug.Print("GetIMDBPoster 3 - {0}", sUrl1)
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = sUrl1})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMDBimg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBimg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMDBimg_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBimg.ProgressChanged
+ If Not bwIMDBimg.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMDBimg_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBimg.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeIMPA.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..cfe43a1
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,189 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(1)
+ End If
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(2)
+ End If
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeImages.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..d335b62
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeImages.vb
@@ -0,0 +1,1209 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Public Class ScrapeImages
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private TMDB As TMDB.Scraper
+ Private IMPA As New IMPA.Scraper
+ Private MPDB As New MPDB.Scraper
+ Private IMDB As New IMDBimg.Scraper
+ Private FANARTTVs As FANARTTVs.Scraper
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal TMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListIMDB As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMDBX As Images = Nothing
+ Dim tmpIMDBL As Images = Nothing
+ Dim tmpIMDBM As Images = Nothing
+ Dim tmpIMDBS As Images = Nothing
+ Dim tmpIMDBW As Images = Nothing
+ Dim tmpTMDBX As Images = Nothing
+ Dim tmpTMDBL As Images = Nothing
+ Dim tmpTMDBM As Images = Nothing
+ Dim tmpTMDBS As Images = Nothing
+ Dim tmpTMDBW As Images = Nothing
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(TMDBID, "poster"))
+
+ If _MySettings.UseIMPA Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If _MySettings.UseMPDB Then
+ tmpListMPDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ If _MySettings.UseIMDB Then
+ tmpListTMDB.AddRange(IMDB.GetIMDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+
+ If _MySettings.UseIMDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMDB = IMDB.GetIMDBPosters(IMDBID)
+
+ If tmpListIMDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMDBX) Then
+ tmpIMDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMDBL) Then
+ tmpIMDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMDBM) Then
+ tmpIMDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMDBS) Then
+ tmpIMDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMDBW) Then
+ tmpIMDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from IMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseMPDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseIMDB Then
+ If tmpListIMDB.Count > 0 Then
+ If Not IsNothing(tmpIMDBX) Then
+ Image = tmpIMDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBL) Then
+ Image = tmpIMDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBM) Then
+ Image = tmpIMDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBS) Then
+ Image = tmpIMDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBW) Then
+ Image = tmpIMDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseMPDB Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ End If
+ End If
+
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ End If
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+
+ If AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("tUseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0)
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeMPDB.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..cd949ec
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,167 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(2)
+ End If
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "t")
+ alPosters.Add(New MediaContainers.Image With {.Description = "thumb", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeOFDB.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..2e94cca
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,242 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ D = Html.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, "<td width=""99\%""><h2><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h2></td>").Groups(1).Value.ToString))
+ _title = OFDBTitle
+ End If
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+
+ If D > 0 Then
+ W = Html.IndexOf("<a href=""", D + 14)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 14, W - (D + 14)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 14, L - (D + 14)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDB.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..9db6818
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,282 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Private backdrop_names(3) As v3Size
+ Private poster_names(5) As v3Size
+
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ ' v3 does not have description anymore
+ poster_names(0).description = "thumb"
+ poster_names(0).size = "w92"
+ poster_names(0).width = 92
+ poster_names(1).description = "w154"
+ poster_names(1).size = "w154"
+ poster_names(1).width = 154
+ poster_names(2).description = "cover"
+ poster_names(2).size = "w185"
+ poster_names(2).width = 185
+ poster_names(3).description = "w342"
+ poster_names(3).size = "w342"
+ poster_names(3).width = 342
+ poster_names(4).description = "mid"
+ poster_names(4).size = "w500"
+ poster_names(4).width = 500
+ poster_names(5).description = "original"
+ poster_names(5).size = "original"
+ poster_names(5).width = 0
+ backdrop_names(0).description = "thumb"
+ backdrop_names(0).size = "w300"
+ backdrop_names(0).width = 300
+ backdrop_names(1).description = "poster"
+ backdrop_names(1).size = "w780"
+ backdrop_names(1).width = 780
+ backdrop_names(2).description = "w1280"
+ backdrop_names(2).size = "w1280"
+ backdrop_names(2).width = 1280
+ backdrop_names(3).description = "original"
+ backdrop_names(3).size = "original"
+ backdrop_names(3).width = 0
+ End Sub
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim images As V3.TmdbMovieImages
+ Dim aW, aH As Integer
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ images = _TMDBApi.GetMovieImages(CInt(imdbID), _MySettings.TMDBLanguage)
+ If sType = "poster" Then
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ Else
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If sType = "poster" Then
+ For Each tmdbI As V3.Poster In images.posters
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In poster_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ ElseIf sType = "backdrop" Then
+ For Each tmdbI As V3.Backdrop In images.backdrops
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In backdrop_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As List(Of String)
+ Dim trailers As V3.TmdbMovieTrailers
+ Dim YT As New List(Of String)
+
+ Try
+ If bwTMDB.CancellationPending Then Return Nothing
+ trailers = _TMDBApi.GetMovieTrailers(CInt(imdbID), _MySettings.TMDBLanguage)
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ trailers = _TMDBApiE.GetMovieTrailers(CInt(imdbID))
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ Return Nothing
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ 'If bwTMDB.WorkerReportsProgress Then
+ ' bwTMDB.ReportProgress(2)
+ 'End If
+
+ If trailers.youtube.Count > 0 Then
+ For Each trailer In trailers.youtube
+ YT.Add(String.Format("http://www.youtube.com/watch?v={0}{1})", trailer.source, CStr(IIf(trailer.size = "HD", "&hd=1", ""))))
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return YT
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure v3Size
+
+#Region "Fields"
+
+ Dim size As String
+ Dim description As String
+ Dim width As Integer
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDB_old.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDB_old.vb
new file mode 100644
index 0000000..c5bca0a
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDB_old.vb
@@ -0,0 +1,244 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB_old
+
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDBg.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDBg.vb
new file mode 100644
index 0000000..86f6083
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeTMDBg.vb
@@ -0,0 +1,723 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDBg
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _Matches As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Matches() As List(Of MediaContainers.Movie)
+ Get
+ Return _Matches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _Matches = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ 'Public IMDBURL As String
+ 'Private _TMDBId As String
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Friend WithEvents bwTMDBg As New System.ComponentModel.BackgroundWorker
+
+ Private _sPoster As String
+
+#End Region 'Fields
+
+#Region "Properties"
+ Public ReadOnly Property TMDBConf() As V3.TmdbConfiguration
+ Get
+ Return _TMDBConf
+ End Get
+ End Property
+#End Region
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As TMDBg.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTMDBg.IsBusy Then bwTMDBg.CancelAsync()
+
+ While bwTMDBg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetMovieID(ByRef DBMovie As Structures.DBMovie)
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+
+ If bwTMDBg.CancellationPending Then Return
+
+ Movie = _TMDBApi.GetMovieByIMDB(DBMovie.Movie.ID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(DBMovie.Movie.ID)
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return
+ End If
+
+ DBMovie.Movie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+ Dim tStr As String
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Strings.Left(strID.ToLower(), 2) = "tt" Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(strID)
+ Else
+ Movie = _TMDBApi.GetMovieInfo(CInt(strID), _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieInfo(CInt(strID))
+ End If
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return False
+ End If
+
+ IMDBMovie.ID = CStr(IIf(String.IsNullOrEmpty(Movie.imdb_id) AndAlso _MySettings.FallBackEng, MovieE.imdb_id, Movie.imdb_id))
+ IMDBMovie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ If bwTMDBg.CancellationPending Or IsNothing(Movie) Then Return Nothing
+
+ Dim Keywords As WatTmdb.V3.TmdbMovieKeywords
+ Keywords = _TMDBApi.GetMovieKeywords(Movie.id)
+ If Not IsNothing(Keywords) AndAlso Not IsNothing(Keywords.keywords) Then
+ If Keywords.keywords.Count <> 0 AndAlso _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ End If
+
+ ' to be added the tags structure
+ '' <movie>
+ '' ...
+ '' <tag>Name of the tag</tag>
+ '' ...
+ '' </movie>
+ If Options.bTitle Then
+ IMDBMovie.OriginalTitle = CStr(IIf(String.IsNullOrEmpty(Movie.original_title) AndAlso _MySettings.FallBackEng, MovieE.original_title, Movie.original_title))
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ IMDBMovie.Title = CStr(IIf(String.IsNullOrEmpty(Movie.title) AndAlso _MySettings.FallBackEng, MovieE.title, Movie.title))
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ ' I will add original always. to be updated if size, TMDBConf.images.poster_sizes(0) &
+ Dim Images As WatTmdb.V3.TmdbMovieImages
+ Images = _TMDBApi.GetMovieImages(Movie.id, _MySettings.TMDBLanguage)
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If (Images.posters.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ End If
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If Images.posters.Count > 0 Then
+ _sPoster = _TMDBConf.images.base_url & "w92" & Images.posters(0).file_path
+ Else
+ _sPoster = ""
+ End If
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Left(CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date)), 4)
+
+ Dim Releases As WatTmdb.V3.TmdbMovieReleases = Nothing
+ If Options.bMPAA Then
+ IMDBMovie.MPAA = ""
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each Country In Releases.countries
+ If Country.iso_3166_1.ToUpper = CStr(IIf(Master.eSettings.CertificationLang = "", "US", Master.eSettings.CertificationLang)) Then
+ IMDBMovie.MPAA = Country.certification
+ Exit For
+ End If
+ Next
+ End If
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ IMDBMovie.ReleaseDate = CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date))
+ End If
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ IMDBMovie.Rating = CStr(IIf(IsNothing(Movie.vote_average) AndAlso Movie.vote_average = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_average, Movie.vote_average))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ Dim Trailers As WatTmdb.V3.TmdbMovieTrailers
+ Trailers = _TMDBApi.GetMovieTrailers(Movie.id)
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If (Trailers.youtube.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ End If
+
+ IMDBMovie.Trailer = ""
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If Trailers.youtube.Count > 0 Then
+ IMDBMovie.Trailer = "http://www.youtube.com/watch?hd=1&v=" & Trailers.youtube(0).source
+ End If
+ End If
+
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then
+ IMDBMovie.Votes = CStr(IIf(IsNothing(Movie.vote_count) AndAlso Movie.vote_count = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_count.ToString(), Movie.vote_count.ToString()))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Dim aCast As WatTmdb.V3.TmdbMovieCast = Nothing
+ If Options.bCast Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.cast.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+
+ Dim Cast As New List(Of MediaContainers.Person)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ For Each aAc As WatTmdb.V3.Cast In aCast.cast
+ Dim aPer As New MediaContainers.Person
+ aPer.Name = aAc.name
+ aPer.Role = aAc.character
+ ' to be added / dialog to choose the size of the images
+ aPer.Thumb = _TMDBConf.images.base_url & "original" & aAc.profile_path
+ Cast.Add(aPer)
+ Next
+ End If
+ IMDBMovie.Actors = Cast
+ End If
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+ IMDBMovie.Tagline = CStr(IIf(String.IsNullOrEmpty(IMDBMovie.Tagline) AndAlso _MySettings.FallBackEng, MovieE.tagline, Movie.tagline))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ If IsNothing(Releases) Then
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Countries.Clear()
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each aCo As WatTmdb.V3.ReleaseCountry In Releases.countries
+ IMDBMovie.Countries.Add(aCo.iso_3166_1)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ IMDBMovie.Genres.Clear()
+ Dim tGen As System.Collections.Generic.List(Of WatTmdb.V3.MovieGenre)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tGen = CType(IIf(Movie.genres.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.genres, Movie.genres), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ Else
+ tGen = CType(IIf(_MySettings.FallBackEng, MovieE.genres, Nothing), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ End If
+
+
+ If Not IsNothing(tGen) Then
+ For Each aGen As WatTmdb.V3.MovieGenre In tGen
+ IMDBMovie.Genres.Add(aGen.name)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+ IMDBMovie.Outline = CStr(IIf(String.IsNullOrEmpty(Movie.overview) AndAlso _MySettings.FallBackEng, MovieE.overview, Movie.overview))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ Else
+ IMDBMovie.Plot = ""
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then
+ IMDBMovie.Runtime = CStr(IIf(IsNothing(Movie.runtime) AndAlso Movie.runtime = 0 AndAlso _MySettings.FallBackEng, MovieE.runtime.ToString(), Movie.runtime.ToString()))
+ End If
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ tStr = ""
+ Dim tPC As System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tPC = CType(IIf(Movie.production_companies.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.production_companies, Movie.production_companies), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ Else
+ tPC = CType(IIf(_MySettings.FallBackEng, MovieE.production_companies, Nothing), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ End If
+
+ If Not IsNothing(tPC) Then
+ For Each aPro As WatTmdb.V3.ProductionCompany In tPC
+ tStr = tStr & " / " & aPro.name
+ Next
+ End If
+ If Len(tStr) > 3 Then
+ tStr = Trim(Right(tStr, Len(tStr) - 3))
+ End If
+ IMDBMovie.Studio = tStr
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Or Options.bWriters Or Options.bDirector Then
+ If IsNothing(aCast) Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.crew.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Credits.Clear()
+ IMDBMovie.Directors.Clear()
+ If Not IsNothing(aCast.crew) Then
+ For Each aAc As WatTmdb.V3.Crew In aCast.crew
+ If FullCrew Then
+ IMDBMovie.Credits.Add(aAc.name)
+ ElseIf Options.bWriters Then
+ If aAc.department = "Writing" AndAlso aAc.job = "Writer" Then
+ IMDBMovie.Credits.Add(aAc.name)
+ End If
+ End If
+ If Options.bDirector Then
+ If aAc.job = "Director" Then
+ IMDBMovie.Directors.Add(aAc.name)
+ End If
+ End If
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ If Movie.production_companies.Count = 0 And _MySettings.FallBackEng Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, "en")
+ End If
+ For Each aComp In Movie.production_companies
+ alStudio.Add(aComp.name)
+ Next
+
+ Return alStudio
+
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgTMDBSearchResults(_MySettings, Me)
+
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.Matches)
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ b = GetMovieInfo(r.Matches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, _
+ .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBg.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(_sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ 'Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ ' Dim fTitle As String = oTitle
+ ' Dim Movie As WatTmdb.V3.TmdbMovie
+
+ ' Try
+ ' '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ ' If Left(strID.ToLower(), 4) = "tt" Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), _MySettings.TMDBLanguage)
+ ' If IsNothing(Movie) And _MySettings.FallBackEng Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), "en")
+ ' End If
+ ' Else
+ ' Movie = _TMDBApi.GetMovieByIMDB(strID)
+ ' End If
+
+ ' fTitle = Movie.title
+
+ ' Return fTitle
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' Return fTitle
+ ' End Try
+ 'End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+ Dim R As New MovieSearchResults
+ Dim Page As Integer = 1
+ Dim Movies As WatTmdb.V3.TmdbMovieSearch
+ Dim TotP As Integer
+ Dim aE As Boolean
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ If Movies.total_results = 0 And _MySettings.FallBackEng Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ aE = True
+ End If
+ If Movies.total_results > 0 Then
+ Dim t1 As String
+ Dim t2 As String
+ Dim t3 As String
+ TotP = Movies.total_pages
+ While Page <= TotP And Page <= 3
+ For Each aMovie In Movies.results
+ Dim aMI As WatTmdb.V3.TmdbMovie
+ aMI = _TMDBApi.GetMovieInfo(aMovie.id)
+ If IsNothing(aMI) Then
+ aMI = _TMDBApiE.GetMovieInfo(aMovie.id)
+ End If
+ If IsNothing(aMI.imdb_id) Then
+ t1 = ""
+ Else
+ t1 = aMI.imdb_id.ToString
+ End If
+ t2 = CStr(IIf(String.IsNullOrEmpty(aMovie.title), "", aMovie.title))
+ t3 = Left(CStr(IIf(String.IsNullOrEmpty(aMovie.release_date), "", aMovie.release_date)), 4)
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(t1, t2, t3, 0)
+ lNewMovie.TMDBID = aMI.id.ToString
+ R.Matches.Add(lNewMovie)
+ Next
+ Page = Page + 1
+ If aE Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ Else
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ End If
+
+ End While
+ End If
+
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+ 'Dim TMDBConf As V3.TmdbConfiguration
+ 'Dim TMDBApi As V3.Tmdb
+ 'Dim FallBackEng As Boolean
+ 'Dim TMDBLang As String
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeTrailers.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..72ce5f8
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ Me.Clear()
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim YT As List(Of String)
+
+ YT = TMDB.GetTrailers(_ImdbID)
+
+ If Not YT.Count = 0 Then
+ For Each ast In YT
+ Me._TrailerList.Add(ast)
+ Next
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/clsScrapeYouTube.vb b/Addons/scraper.TMDB.Data/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..51ed7c4
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,336 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..3c9254c
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,569 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlIMDB = New System.Windows.Forms.Panel()
+ Me.lblDL6Status = New System.Windows.Forms.Label()
+ Me.lblDL6 = New System.Windows.Forms.Label()
+ Me.pbDL6 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlFANARTTV = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlMDB = New System.Windows.Forms.Panel()
+ Me.lblDL5Status = New System.Windows.Forms.Label()
+ Me.lblDL5 = New System.Windows.Forms.Label()
+ Me.pbDL5 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL4Status = New System.Windows.Forms.Label()
+ Me.lblDL4 = New System.Windows.Forms.Label()
+ Me.pbDL4 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTMDB = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlIMDB.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.pnlFANARTTV.SuspendLayout()
+ Me.pnlMDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlTMDB.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 4
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 6
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 5
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 4
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 3
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 2
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 9
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 7
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 8
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 3
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlSinglePic)
+ Me.pnlDLStatus.Controls.Add(Me.pnlFANARTTV)
+ Me.pnlDLStatus.Controls.Add(Me.pnlMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.pnlTMDB)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(253, 98)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(331, 330)
+ Me.pnlDLStatus.TabIndex = 0
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlIMDB
+ '
+ Me.pnlIMDB.Controls.Add(Me.lblDL6Status)
+ Me.pnlIMDB.Controls.Add(Me.lblDL6)
+ Me.pnlIMDB.Controls.Add(Me.pbDL6)
+ Me.pnlIMDB.Location = New System.Drawing.Point(3, 84)
+ Me.pnlIMDB.Name = "pnlIMDB"
+ Me.pnlIMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMDB.TabIndex = 9
+ '
+ 'lblDL6Status
+ '
+ Me.lblDL6Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL6Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL6Status.Name = "lblDL6Status"
+ Me.lblDL6Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6Status.TabIndex = 8
+ '
+ 'lblDL6
+ '
+ Me.lblDL6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL6.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL6.Name = "lblDL6"
+ Me.lblDL6.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6.TabIndex = 7
+ Me.lblDL6.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL6
+ '
+ Me.pbDL6.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL6.Name = "pbDL6"
+ Me.pbDL6.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL6.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL6.TabIndex = 6
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(3, 3)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 9
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 7
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 6
+ '
+ 'pnlFANARTTV
+ '
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3Status)
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3)
+ Me.pnlFANARTTV.Controls.Add(Me.pbDL3)
+ Me.pnlFANARTTV.Location = New System.Drawing.Point(3, 84)
+ Me.pnlFANARTTV.Name = "pnlFANARTTV"
+ Me.pnlFANARTTV.Size = New System.Drawing.Size(321, 75)
+ Me.pnlFANARTTV.TabIndex = 11
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 8
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 7
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 6
+ '
+ 'pnlMDB
+ '
+ Me.pnlMDB.Controls.Add(Me.lblDL5Status)
+ Me.pnlMDB.Controls.Add(Me.lblDL5)
+ Me.pnlMDB.Controls.Add(Me.pbDL5)
+ Me.pnlMDB.Location = New System.Drawing.Point(3, 246)
+ Me.pnlMDB.Name = "pnlMDB"
+ Me.pnlMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMDB.TabIndex = 9
+ '
+ 'lblDL5Status
+ '
+ Me.lblDL5Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL5Status.Name = "lblDL5Status"
+ Me.lblDL5Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5Status.TabIndex = 8
+ '
+ 'lblDL5
+ '
+ Me.lblDL5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL5.Name = "lblDL5"
+ Me.lblDL5.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5.TabIndex = 7
+ Me.lblDL5.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL5
+ '
+ Me.pbDL5.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL5.Name = "pbDL5"
+ Me.pbDL5.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL5.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL5.TabIndex = 6
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.lblDL4Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL4)
+ Me.pnlIMPA.Controls.Add(Me.pbDL4)
+ Me.pnlIMPA.Location = New System.Drawing.Point(3, 165)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 6
+ '
+ 'lblDL4Status
+ '
+ Me.lblDL4Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL4Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL4Status.Name = "lblDL4Status"
+ Me.lblDL4Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4Status.TabIndex = 8
+ '
+ 'lblDL4
+ '
+ Me.lblDL4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL4.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL4.Name = "lblDL4"
+ Me.lblDL4.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4.TabIndex = 7
+ Me.lblDL4.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL4
+ '
+ Me.pbDL4.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL4.Name = "pbDL4"
+ Me.pbDL4.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL4.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL4.TabIndex = 6
+ '
+ 'pnlTMDB
+ '
+ Me.pnlTMDB.Controls.Add(Me.lblDL2Status)
+ Me.pnlTMDB.Controls.Add(Me.lblDL2)
+ Me.pnlTMDB.Controls.Add(Me.pbDL2)
+ Me.pnlTMDB.Location = New System.Drawing.Point(3, 3)
+ Me.pnlTMDB.Name = "pnlTMDB"
+ Me.pnlTMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlTMDB.TabIndex = 10
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 8
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 7
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 6
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlIMDB.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.pnlFANARTTV.ResumeLayout(False)
+ Me.pnlMDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlTMDB.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL4Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL4 As System.Windows.Forms.Label
+ Friend WithEvents pbDL4 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL5Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL5 As System.Windows.Forms.Label
+ Friend WithEvents pbDL5 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+ Friend WithEvents pnlFANARTTV As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL6Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL6 As System.Windows.Forms.Label
+ Friend WithEvents pbDL6 As System.Windows.Forms.ProgressBar
+
+End Class
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.resx b/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..3491405
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.vb b/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..b2e44a9
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1582 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports EmberScraperModule.EmberTMDBScraperModule
+Imports RestSharp
+Imports WatTmdb
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwIMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwFANARTTVDownload As New System.ComponentModel.BackgroundWorker
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Private TMDB As TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+
+ Private IMDB As New IMDBimg.Scraper
+ Private IMDBPosters As New List(Of MediaContainers.Image)
+
+ Private FANARTTVs As FANARTTVs.Scraper
+ Private FANARTTVPosters As New List(Of MediaContainers.Image)
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _imdbDone As Boolean = True
+ Private _fanarttvDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+ Private Event IMDBDone()
+
+ Private Event FANARTTVDone()
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = poster.WebImage.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(poster.URL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone AndAlso Me._imdbDone AndAlso Me._fanarttvDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.TMDBPosters.AddRange(Me.IMDBPosters)
+ Me.TMDBPosters.AddRange(Me.FANARTTVPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+ Me.pnlTMDB.Visible = False
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.pnlDLStatus.Height = 85
+ Me.pnlDLStatus.Top = 185
+
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.IMDBPosters.Count - 1
+ Try
+ If Me.bwIMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMDBDownload.ReportProgress(i + 1, Me.IMDBPosters.Item(i).URL)
+ Try
+ Me.IMDBPosters.Item(i).WebImage.FromWeb(Me.IMDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMDBPosters.Item(i).URL = StringUtils.CleanURL(Me.IMDBPosters.Item(i).URL)
+ Me.IMDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMDBPosters.Item(i).Description, ")_(url=", Me.IMDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL6Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL6.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._imdbDone = True
+ RaiseEvent IMDBDone()
+ End If
+ End Sub
+
+ Private Sub bwFANARTTVDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTVDownload.DoWork
+ '//
+ ' Thread to download FanartTV images from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.FANARTTVPosters.Count - 1
+ Try
+ If Me.bwFANARTTVDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwFANARTTVDownload.ReportProgress(i + 1, Me.FANARTTVPosters.Item(i).URL)
+ Try
+ Me.FANARTTVPosters.Item(i).WebImage.FromWeb(Me.FANARTTVPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.FANARTTVPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.FANARTTVPosters.Item(i).URL = StringUtils.CleanURL(Me.FANARTTVPosters.Item(i).URL)
+ Me.FANARTTVPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.FANARTTVPosters.Item(i).Description, ")_(url=", Me.FANARTTVPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwFANARTTVDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTVDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTVDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTVDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._fanarttvDone = True
+ RaiseEvent FANARTTVDone()
+ End If
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL4Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL4.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPABownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL5Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL5.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = _MySettings.ManualETSize
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress((i + 1), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath, , , False)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+ IMDB.Cancel()
+ FANARTTVs.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+ If bwIMDBDownload.IsBusy Then bwIMDBDownload.CancelAsync()
+ If bwFANARTTVDownload.IsBusy Then bwFANARTTVDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+ IMDB = Nothing
+ FANARTTVs = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ IMDBPosters = Nothing
+ FANARTTVPosters = Nothing
+
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains(_TMDBConf.images.base_url.ToLower) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "backdrop")
+
+ If _MySettings.UseFANARTTV Then
+ Me.lblDL3.Text = Master.eLang.GetString(120, "Retrieving data from Fanart.tv...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._fanarttvDone = False
+
+ Me.FANARTTVs.GetImagesAsync(tMovie.Movie.ID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(121, "Fanart.tv is not enabled")
+ End If
+
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "poster")
+
+ If _MySettings.UseIMDB Then
+ Me.lblDL6.Text = Master.eLang.GetString(117, "Retrieving data from IMDB.com...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._imdbDone = False
+
+ Me.IMDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL6.Text = Master.eLang.GetString(118, "IMDB.com is not enabled")
+ End If
+
+ If _MySettings.UseIMPA Then
+ Me.lblDL4.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL4.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If _MySettings.UseMPDB Then
+ Me.lblDL5.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL5.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVDoneDownloading()
+ Try
+ Me._fanarttvDone = True
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ 'Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.FANARTTVPosters = Posters
+
+ Me.bwFANARTTVDownload.WorkerSupportsCancellation = True
+ Me.bwFANARTTVDownload.WorkerReportsProgress = True
+ Me.bwFANARTTVDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub IMDBDoneDownloading()
+ Try
+ Me._imdbDone = True
+ Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL6.Value = 0
+
+ 'Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = Posters.Count
+
+ Me.IMDBPosters = Posters
+
+ Me.bwIMDBDownload.WorkerSupportsCancellation = True
+ Me.bwIMDBDownload.WorkerReportsProgress = True
+ Me.bwIMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL6.Value = iPercent
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL4.Value = 0
+
+ 'Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL4.Value = iPercent
+ End Sub
+
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL5.Value = 0
+
+ 'Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL5.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.Description, iIndex, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMDB.PostersDownloaded, AddressOf IMDBPostersDownloaded
+ AddHandler IMDB.ProgressUpdated, AddressOf IMDBProgressUpdated
+ AddHandler FANARTTVs.PostersDownloaded, AddressOf FANARTTVPostersDownloaded
+ AddHandler FANARTTVs.ProgressUpdated, AddressOf FANARTTVProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+ AddHandler IMDBDone, AddressOf IMDBDoneDownloading
+ AddHandler FANARTTVDone, AddressOf FANARTTVDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = True
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = True
+ Me.pnlMDB.Visible = True
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 328
+ Me.pnlDLStatus.Top = 82
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = True
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 129
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL5.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL4.Text = Me.lblDL5.Text
+ Me.lblDL3.Text = Me.lblDL5.Text
+ Me.lblDL2.Text = Me.lblDL5.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ Me._tmdbDone = True
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ 'Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.TMDBPosters = Posters
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.Designer.vb b/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..edf9f3b
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.Designer.vb
@@ -0,0 +1,460 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtTMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(497, 401)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(570, 401)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(4, 96)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.ShowLines = False
+ Me.tvResults.ShowPlusMinus = False
+ Me.tvResults.ShowRootLines = False
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 4
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(294, 130)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(291, 70)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(291, 89)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(294, 295)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(472, 130)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(472, 156)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(472, 183)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtTMDBID
+ '
+ Me.txtTMDBID.Enabled = False
+ Me.txtTMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBID.Location = New System.Drawing.Point(139, 399)
+ Me.txtTMDBID.Name = "txtTMDBID"
+ Me.txtTMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTMDBID.TabIndex = 6
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 8
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(257, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(4, 403)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(130, 17)
+ Me.chkManual.TabIndex = 5
+ Me.chkManual.Text = "Manual TMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(245, 399)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 7
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(472, 247)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(37, 13)
+ Me.lblIMDB.TabIndex = 20
+ Me.lblIMDB.Text = "TMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(410, 130)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(33, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(410, 156)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(410, 183)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(410, 247)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(56, 13)
+ Me.lblIMDBHeader.TabIndex = 19
+ Me.lblIMDBHeader.Text = "TMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(291, 279)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(262, 70)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 3
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(4, 71)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 2
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(364, 183)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 18
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(100, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(308, 155)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'dlgTMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 454)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtTMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgTMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+
+End Class
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.resx b/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.resx
new file mode 100644
index 0000000..017a5ad
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK9gAA
+ CvYBwq9wAwAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.vb b/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.vb
new file mode 100644
index 0000000..d05fd0b
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTMDBSearchResults.vb
@@ -0,0 +1,462 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class dlgTMDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private TMDBg As TMDBg.Scraper
+ Private sHTTP As New HTTP
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+ Private MySettings As EmberTMDBScraperModule.sMySettings
+ 'Private TMDBConf As V3.TmdbConfiguration
+ 'Private TMDBApi As V3.Tmdb
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(_MySettings As EmberTMDBScraperModule.sMySettings, _TMDBg As TMDBg.Scraper)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+ 'TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ 'TMDBConf = TMDBApi.GetConfiguration()
+ MySettings = _MySettings
+ TMDBg = _TMDBg
+ End Sub
+
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ 'TMDBg.IMDBURL = TMDBId
+ TMDBg.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As TMDBg.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching TMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ TMDBg.CancelAsync()
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ TMDBg.GetSearchMovieInfoAsync(Me.txtTMDBID.Text, Master.tmpMovie, Master.DefaultOptions)
+
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ TMDBg.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ 'TMDBg.IMDBURL = IMDBURL
+ AddHandler TMDBg.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler TMDBg.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Master.tmpMovie.IMDBID = Me.txtTMDBID.Text
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.TMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.TMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.TMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As TMDBg.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+ 'Dim TnP As New TreeNode
+ 'Dim selNode As New TreeNode
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) AndAlso M.Matches.Count > 0 Then
+
+ 'M.Matches.Sort()
+ For Each Movie As MediaContainers.Movie In M.Matches
+ 'TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Me.tvResults.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.TMDBID})
+ Next
+ 'TnP.Expand()
+ 'Me.tvResults.Nodes.Add(TnP)
+ 'selNode = Me.tvResults.Nodes(0)
+ 'selNode = TnP.FirstNode
+ 'selNode = Me.tvResults.Nodes(0)
+ Me.tvResults.SelectedNode = Me.tvResults.Nodes(0)
+
+ Me._prevnode = -2
+
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual TMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(116, "TMDB ID:")
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching TMDB...")
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..1865dbc
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,279 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(290, 339)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(74, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(369, 339)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(411, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(424, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(112, 82)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(120, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(411, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(376, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(365, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(72, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(392, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(153, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 339)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(106, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(207, 339)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(77, 23)
+ Me.btnSetNfo.TabIndex = 4
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(444, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(450, 366)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.resx b/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..2be3cac
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB80lEQVQ4T6XTTWsTQRgH8EGr9GDFm19AseDBgzc9eba0FJqvIOTiRase
+ RAIKtRo9LbbxpYmtggXR2KRFqGLfDio9tDGbdUMrbvc1+57sioiVv7NDLE3MXnTgz8DsPr95dpglAMj/
+ pKVY17QuyzLP2raVoBlybHvIc92EUKmcidukBTBrtasUAC0GLWYJggaWl5dw9056uBPSAtDi8aiYAY4N
+ 13HwLQyxuLiAW6OjyIyPXW5H2gFuZ/cm4HseNFVFsTCD2WIRHz+8P7cb6Qjs7iDqIkLCMEC97kedZWMB
+ egasA8s24TsBQm8bob8N3w3YZzUzFgsYus6ZZo0WhPisvMackGQR5Dm2xnDLjAdUVeF0XUPD/Yl31eu4
+ sURY3orXaDe/EOGGoccDsrzFKYoMz/yON0IaqYVDLPPCTdTtH6D3BKqixANfNjc5SZJga3XMlm5jeP4w
+ S6E0AsdoQJFlbElSPMCXy/ekDQUTK1eQzB/B+cJxlmT+KB6sXID61UBVFDOxh7i+tjbCf+KxXl7FpZeD
+ SOR6WS6+6EepsgpREFHh+XRHYC8hB/r7+k7kshOZ/PSrZ7mn2cnTqd7qqdSxjUdPHk7NPC9OT00+vj84
+ MHByDyEH/yA7F4kC+wgh3dGDaDTnHkK6etrWuum7+/8C/vWX/g1N2vpUAmZdeAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQfZBBoSIQHX+6QX
+ AAACOElEQVQ4T7WSTWvaQRCHozlYNQSiVXwBNSSKKAhqKogo2hx8OeUQpPVY9OBFId+g0IufoQnegslF
+ EEG8qAgeiij4hohoDjkphJAIGg/udGepfyLV3rowLDu788zs/GZv73+st7e35NPT069KpfJaLpdnj4+P
+ nel0+p3mOvhnvoeHh0+j0WieTCbB6XSSYDAIoVAIXC4Xicfj0Ov1IJ/Pf9kKweBisQharZbY7XbweDxg
+ sVjg7OwM8Ix2enpK7u/v4e7u7ttfEJp5QZ3k8PAQ1Go1hMNhyGazIJFIQKVSMd/R0RHgm2azCQqFQsNB
+ FovFFZZLHZz5fD7AlU6nmY/H43F3NpsNWq3WLQeYz+d1JL8H4BfW6+bmZgOO77rd7isHqNfrM3Ty+XzY
+ 399n5vV6WfxqtWL79fX1RiWlUgnPHxlkDRAKhSASiUAsFoPf72eBhBAGeXl5AZlMBgKBgIGoxLirGOD5
+ +blL/0iwSVKpFORyOVxcXHAV0HtUhzUUm4yATqezpPsHBphMJj8uLy9BqVSCRqOB4+NjiEQiDICZUU6d
+ TseUQLjb7YZqtVp6L+UBlREBxGg0soBoNArL5RJQDavVCmazGecAKyTtdhtOTk68G7OQy+W+1mo1MJlM
+ hE4hA2BV5+fnLKPD4QC9Xk8KhQKkUqmfW6cxk8nE6ERCIpFgkxgIBFgzERCLxWAwGOwOXhPpPzWNRuN2
+ PB7P+v0+oA2HwyWVrWIwGD5vzbzDyaN++R+phLsCfwMUR2eb8uMbUAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.vb b/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..d63ea34
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTrailer.vb
@@ -0,0 +1,465 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+Imports EmberScraperModule.EmberTMDBScraperModule
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = TMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ cTrailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..22f1374
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(84, 117)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(154, 117)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(17, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(78, 69)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(53, 2)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(114, 100)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(10, 29)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.pnlStatus)
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(2, 4)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(220, 111)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 143)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.resx b/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.vb b/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.Designer.vb b/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f610c2c
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.Designer.vb
@@ -0,0 +1,545 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.chkFallBackEng = New System.Windows.Forms.CheckBox()
+ Me.cbTMDBPrefLanguage = New System.Windows.Forms.ComboBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtTMDBApiKey = New System.Windows.Forms.TextBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtFANARTTVApiKey = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.pbTMDB = New System.Windows.Forms.PictureBox()
+ Me.pbFANARTTV = New System.Windows.Forms.PictureBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.pbTMDB)
+ Me.GroupBox30.Controls.Add(Me.chkFallBackEng)
+ Me.GroupBox30.Controls.Add(Me.cbTMDBPrefLanguage)
+ Me.GroupBox30.Controls.Add(Me.Label3)
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtTMDBApiKey)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(309, 123)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "TMDB"
+ '
+ 'chkFallBackEng
+ '
+ Me.chkFallBackEng.AutoSize = True
+ Me.chkFallBackEng.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFallBackEng.Location = New System.Drawing.Point(8, 100)
+ Me.chkFallBackEng.Name = "chkFallBackEng"
+ Me.chkFallBackEng.Size = New System.Drawing.Size(129, 17)
+ Me.chkFallBackEng.TabIndex = 4
+ Me.chkFallBackEng.Text = "Fall back on english"
+ Me.chkFallBackEng.UseVisualStyleBackColor = True
+ '
+ 'cbTMDBPrefLanguage
+ '
+ Me.cbTMDBPrefLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTMDBPrefLanguage.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTMDBPrefLanguage.FormattingEnabled = True
+ Me.cbTMDBPrefLanguage.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTMDBPrefLanguage.Location = New System.Drawing.Point(123, 65)
+ Me.cbTMDBPrefLanguage.Name = "cbTMDBPrefLanguage"
+ Me.cbTMDBPrefLanguage.Size = New System.Drawing.Size(45, 21)
+ Me.cbTMDBPrefLanguage.TabIndex = 3
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label3.Location = New System.Drawing.Point(6, 68)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(111, 13)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "Preferred Language:"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(79, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "TMDB API Key:"
+ '
+ 'txtTMDBApiKey
+ '
+ Me.txtTMDBApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtTMDBApiKey.Name = "txtTMDBApiKey"
+ Me.txtTMDBApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtTMDBApiKey.TabIndex = 1
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pbFANARTTV)
+ Me.GroupBox1.Controls.Add(Me.Label5)
+ Me.GroupBox1.Controls.Add(Me.txtFANARTTVApiKey)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(8, 169)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(309, 71)
+ Me.GroupBox1.TabIndex = 75
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Fanart.tv"
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label5.Location = New System.Drawing.Point(6, 18)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(94, 13)
+ Me.Label5.TabIndex = 0
+ Me.Label5.Text = "Fanart.tv API Key:"
+ '
+ 'txtFANARTTVApiKey
+ '
+ Me.txtFANARTTVApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtFANARTTVApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtFANARTTVApiKey.Name = "txtFANARTTVApiKey"
+ Me.txtFANARTTVApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtFANARTTVApiKey.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(323, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(283, 150)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(225, 17)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(52, 17)
+ Me.chkCrew.TabIndex = 19
+ Me.chkCrew.Text = "Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(131, 123)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 89)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 72)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 89)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 123)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(131, 106)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 106)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 72)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'pbTMDB
+ '
+ Me.pbTMDB.Image = CType(resources.GetObject("pbTMDB.Image"), System.Drawing.Image)
+ Me.pbTMDB.Location = New System.Drawing.Point(287, 34)
+ Me.pbTMDB.Name = "pbTMDB"
+ Me.pbTMDB.Size = New System.Drawing.Size(16, 16)
+ Me.pbTMDB.TabIndex = 5
+ Me.pbTMDB.TabStop = False
+ '
+ 'pbFANARTTV
+ '
+ Me.pbFANARTTV.Image = CType(resources.GetObject("pbFANARTTV.Image"), System.Drawing.Image)
+ Me.pbFANARTTV.Location = New System.Drawing.Point(287, 34)
+ Me.pbFANARTTV.Name = "pbFANARTTV"
+ Me.pbFANARTTV.Size = New System.Drawing.Size(16, 16)
+ Me.pbFANARTTV.TabIndex = 6
+ Me.pbFANARTTV.TabStop = False
+ '
+ 'frmTMDBInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFallBackEng As System.Windows.Forms.CheckBox
+ Friend WithEvents cbTMDBPrefLanguage As System.Windows.Forms.ComboBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label5 As System.Windows.Forms.Label
+ Friend WithEvents txtFANARTTVApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents pbTMDB As System.Windows.Forms.PictureBox
+ Friend WithEvents pbFANARTTV As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.resx b/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.resx
new file mode 100644
index 0000000..b1bac92
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.resx
@@ -0,0 +1,223 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="pbFANARTTV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAABypJREFUWEftlntQlccZxrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj
+ 24wlxabt1PSShFhJEFEuKhxUBAFNRSFq7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7
+ z77v7rufAqBGkhGdXBb+fwH/GxG41NenPr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7Pk
+ ZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2ms
+ e+DyZ5+p/itXRMTopUWL6+gIedmZSIiJQk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGek
+ o7AgH+vYlzU/DakpydomL+ufPnKzMiA+VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB
+ +vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xqQhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQX
+ pv/PSojDRtP6zN+/uU399je/fihg9szpKnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2
+ lL1eipSkROyrr4eloQEMNcpKS3H8zx/gxSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpx
+ eryaHhtdIquODA3WK1yQnYVshlrCWrAwD4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOW
+ yxSmpszWPiNCggRzREigEqwCZPKkGQkSAZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4Cbt
+ btwY0G3hNvvb244gKiwEYUFGc0RwkBKGRCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D5
+ 57jY26tTEGL0N4cHG5kC40MB7FCShpjIcFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr
+ 1IcfgilGcICfOSwoQAnWCLBDzYiLUdHhoSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx
+ 44iPjkSQv6851GhQglUAcy8bUDFHJtksrYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbE
+ RYYj0M/HzCgowSogPipSJURHqciQYFMEN+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD
+ 6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+ytr8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no
+ 660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJoYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJ
+ VgFUJvlXnNzETYL3KnbA0mjBflbE4SBCN71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfm
+ P0gFGXxNAb7eKGfprKutxZ7du4eFiJT8L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUH
+ GSUvJoYG28vL/ysBMulG0wa8qAU0DBEti6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/
+ pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrurq1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5
+ LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wGjVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F
+ 5yOngBuQTpSv57QSUVmzu5qVbRsm2dmgZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQ
+ eK3zwglAU2OjLkwO45/FNhapvXW1oH84T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN
+ +toa/TExLzmJV22mbldWVIgjXL9+Xd90srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x
+ 1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4e
+ L9np2kbGOTP00WHBvIiieBH5N0xzdR0tc8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5
+ usvJYaLQPdH22W7HiXbdzo6TujlG4zx5UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7B
+ An7Alw5U50wms+3Cge7Ek3gTX+JH/ImBBAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm
+ 3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/xKb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVO
+ RK5CYII=
+</value>
+ </data>
+ <data name="pbTMDB.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.vb b/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.vb
new file mode 100644
index 0000000..39ea9ee
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/frmTMDBInfoSettingsHolder.vb
@@ -0,0 +1,218 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports System.Diagnostics
+
+Public Class frmTMDBInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ Public Event SetupNeedsRestart()
+
+#End Region 'Events
+
+#Region "Fields"
+
+ Private Api1 As String
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalDataScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ 'If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ' ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ' ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order + 1
+ ' RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ ' orderChanged()
+ 'End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalDataScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ 'If order > 0 Then
+ ' ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ' ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order - 1
+ ' RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ ' orderChanged()
+ 'End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFallBackEng_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFallBackEng.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTMDBPrefLanguage_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbTMDBPrefLanguage.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtFANARTTVApiKey_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtFANARTTVApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Enter
+ Api1 = txtTMDBApiKey.Text
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextValidated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Validated
+ If Not (Api1 = txtTMDBApiKey.Text) Then
+ RaiseEvent SetupNeedsRestart()
+ End If
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalDataScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalDataScrapersModules.Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label18.Text = Master.eLang.GetString(854, "TMDB API Key:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(856, "Cast and Crew", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(859, "MPAA & Certification", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ 'Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkFallBackEng.Text = Master.eLang.GetString(114, "Fall back on english")
+ Me.Label3.Text = Master.eLang.GetString(115, "Preferred Language:")
+
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+
+#End Region 'Methods
+
+ Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles pbTMDB.Click
+ If Master.isWindows Then
+ Process.Start("http://docs.themoviedb.apiary.io/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://docs.themoviedb.apiary.io/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+
+ Private Sub pbFANARTTV_Click(sender As System.Object, e As System.EventArgs) Handles pbFANARTTV.Click
+ If Master.isWindows Then
+ Process.Start("http://fanart.tv/get-an-api-key/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://fanart.tv/get-an-api-key/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/packages.config b/Addons/scraper.TMDB.Data/packages.config
new file mode 100644
index 0000000..9d72b1b
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="RestSharp" version="104.1" targetFramework="net35" />
+ <package id="SharpZipLib" version="0.86.0" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/scraper.TMDB.Data.vbproj b/Addons/scraper.TMDB.Data/scraper.TMDB.Data.vbproj
new file mode 100644
index 0000000..e4b2392
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/scraper.TMDB.Data.vbproj
@@ -0,0 +1,277 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{A9188CF1-BD07-4D24-BC4A-906A43012F37}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.TMDB.Data</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ <SccProjectName>
+ </SccProjectName>
+ <SccLocalPath>
+ </SccLocalPath>
+ <SccAuxPath>
+ </SccAuxPath>
+ <SccProvider>
+ </SccProvider>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="RestSharp">
+ <HintPath>..\..\packages\RestSharp.104.1\lib\net35\RestSharp.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeTMDBg.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeFANARTTV.vb" />
+ <Compile Include="Scraper\dlgTMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieTMDBModule.vb" />
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="Scraper\dlgTMDBSearchResults.resx">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBInfoSettingsHolder.resx">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ <ProjectReference Include="..\..\FanartTVAPI\FanartTVAPI.csproj">
+ <Project>{70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}</Project>
+ <Name>FanartTVAPI</Name>
+ </ProjectReference>
+ <ProjectReference Include="..\..\WatTmdb\WatTmdb.csproj">
+ <Project>{EFC11645-FAB4-4C30-A498-29F5ECDF77E8}</Project>
+ <Name>WatTmdb</Name>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <ItemGroup />
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Data/scraperMovieTMDBModule.vb b/Addons/scraper.TMDB.Data/scraperMovieTMDBModule.vb
new file mode 100644
index 0000000..2aab30a
--- /dev/null
+++ b/Addons/scraper.TMDB.Data/scraperMovieTMDBModule.vb
@@ -0,0 +1,492 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+Imports EmberScraperModule.TMDBg
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberTMDBScraperModule
+ Implements Interfaces.EmberMovieScraperModule_Data
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private TMDBId As String
+ 'Private IMDBid As String
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private _MySettings As New sMySettings
+ Private _TMDBg As TMDBg.Scraper
+ Private _Name As String = "Ember TMDB Movie Scrapers - Data"
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTMDBInfoSettingsHolder
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule_Data.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule_Data.MovieScraperEvent
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule_Data.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule_Data.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule_Data.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule_Data.ModuleVersion
+ Get
+ Return System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule_Data.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupNeedsRestart()
+ RaiseEvent SetupNeedsRestart()
+ End Sub
+
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule_Data.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ 'Must be after Load settings to retrieve the correct API key
+ _TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Info")
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ End If
+ End If
+ _TMDBConf = _TMDBApi.GetConfiguration()
+ _TMDBApiE = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey)
+ _TMDBConfE = _TMDBApiE.GetConfiguration()
+ _TMDBg = New TMDBg.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ End Sub
+
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule_Data.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTMDBInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkCast.Checked = ConfigOptions.bFullCast
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkCrew.Checked = ConfigOptions.bFullCrew
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+
+ '_setup.chkCertification.Checked = ConfigOptions.bCert
+
+ If String.IsNullOrEmpty(_MySettings.TMDBAPIKey) Then
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ _setup.txtTMDBApiKey.Text = _MySettings.TMDBAPIKey
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.orderChanged()
+ If String.IsNullOrEmpty(_MySettings.FANARTTVApiKey) Then
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _setup.txtFANARTTVApiKey.Text = _MySettings.FANARTTVApiKey
+
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ SPanel.Prefix = "TMDBMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return SPanel
+ End Function
+
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ _MySettings.TMDBAPIKey = AdvancedSettings.GetSetting("TMDBAPIKey", "Get your API Key from http://www.themoviedb.org")
+ _MySettings.FANARTTVApiKey = AdvancedSettings.GetSetting("FANARTTVApiKey", "Get your API Key from http://fanart.tv")
+ _MySettings.FallBackEng = AdvancedSettings.GetBooleanSetting("FallBackEn", False)
+ _MySettings.TMDBLanguage = AdvancedSettings.GetSetting("TMDBLanguage", "en")
+ _MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ _MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ _MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ _MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ _MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ _MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ _MySettings.UseIMDB = AdvancedSettings.GetBooleanSetting("UseIMDB", False)
+ _MySettings.UseFANARTTV = AdvancedSettings.GetBooleanSetting("UseFANARTTV", False)
+ _MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ _MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ _MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", _MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", _MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", _MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", _MySettings.UseTMDBTrailerXBMC)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", _MySettings.UseIMDBTrailer)
+
+ AdvancedSettings.SetSetting("ManualETSize", _MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", _MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+
+ AdvancedSettings.SetSetting("TMDBAPIKey", _MySettings.TMDBAPIKey)
+ AdvancedSettings.SetSetting("FANARTTVApiKey", _MySettings.FANARTTVApiKey)
+ AdvancedSettings.SetBooleanSetting("FallBackEn", _MySettings.FallBackEng)
+ AdvancedSettings.SetSetting("TMDBLanguage", _MySettings.TMDBLanguage)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", _MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", _MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDB", _MySettings.UseIMDB)
+ AdvancedSettings.SetBooleanSetting("UseFANARTTV", _MySettings.UseFANARTTV)
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule_Data.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtTMDBApiKey.Text) Then
+ _MySettings.TMDBAPIKey = _setup.txtTMDBApiKey.Text
+ Else
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ If Not String.IsNullOrEmpty(_setup.txtFANARTTVApiKey.Text) Then
+ _MySettings.FANARTTVApiKey = _setup.txtFANARTTVApiKey.Text
+ Else
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = False
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkCrew.Checked
+ ConfigOptions.bWriters = _setup.chkCrew.Checked
+ ConfigOptions.bProducers = _setup.chkCrew.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkCrew.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = False
+ ConfigOptions.bFullCrew = _setup.chkCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkCast.Checked
+ ConfigOptions.bCert = ConfigOptions.bMPAA
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef sStudio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule_Data.GetMovieStudio
+ Return Nothing
+ End Function
+
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule_Data.Scraper
+ 'LoadSettings()
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ ''TMDBg.UseOFDBTitle = MySettings.UseOFDBTitle
+ ''TMDBg.UseOFDBOutline = MySettings.UseOFDBOutline
+ ''TMDBg.UseOFDBPlot = MySettings.UseOFDBPlot
+ ''TMDBg.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = _TMDBg.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalDataScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgTMDBSearchResults(_MySettings, Me._TMDBg)
+ '' dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule_Data.ScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure sMySettings
+
+#Region "Fields"
+ Dim DownloadTrailers As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim UseTMDBTrailerPref As String
+ Dim TMDBAPIKey As String
+ Dim FANARTTVApiKey As String
+ Dim TMDBLanguage As String
+ Dim FallBackEng As Boolean
+ Dim UseIMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseFANARTTV As Boolean
+ Dim UseIMDBTrailer As Boolean
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
new file mode 100644
index 0000000..cb66cd5
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">tmdb1</string>
+ <string id="2">tmdb2</string>
+ <string id="3">tmdb3</string>
+ <string id="4">tmdb4</string>
+ <string id="5">tmdb5</string>
+ <string id="6">tmdb6</string>
+ <string id="7">tmdb7</string>
+ <string id="8">tmdb8</string>
+ <string id="9">tmdb9</string>
+ <string id="10">tmdb10</string>
+ <string id="11">tmdb11</string>
+ <string id="12">tmdb12</string>
+ <string id="13">tmdb13</string>
+ <string id="14">tmdb14</string>
+ <string id="15">tmdb15</string>
+ <string id="16">tmdb16</string>
+ <string id="17">tmdb17</string>
+ <string id="18">tmdb18</string>
+ <string id="19">tmdb19</string>
+ <string id="20">tmdb20</string>
+ <string id="21">tmdb21</string>
+ <string id="22">tmdb22</string>
+ <string id="23">tmdb23</string>
+ <string id="24">tmdb24</string>
+ <string id="25">tmdb25</string>
+ <string id="26">tmdb26</string>
+ <string id="27">tmdb27</string>
+ <string id="28">tmdb28</string>
+ <string id="29">tmdb29</string>
+ <string id="30">tmdb30</string>
+ <string id="31">tmdb31</string>
+ <string id="32">tmdb32</string>
+ <string id="33">tmdb33</string>
+ <string id="34">tmdb34</string>
+ <string id="35">tmdb35</string>
+ <string id="36">tmdb36</string>
+ <string id="37">tmdb37</string>
+ <string id="38">tmdb38</string>
+ <string id="39">tmdb39</string>
+ <string id="40">tmdb40</string>
+ <string id="41">tmdb41</string>
+ <string id="42">tmdb42</string>
+ <string id="43">tmdb43</string>
+ <string id="44">tmdb44</string>
+ <string id="45">tmdb45</string>
+ <string id="46">tmdb46</string>
+ <string id="47">tmdb47</string>
+ <string id="48">tmdb48</string>
+ <string id="49">tmdb49</string>
+ <string id="50">tmdb50</string>
+ <string id="51">tmdb51</string>
+ <string id="52">tmdb52</string>
+ <string id="53">tmdb53</string>
+ <string id="54">tmdb54</string>
+ <string id="55">tmdb55</string>
+ <string id="56">tmdb56</string>
+ <string id="57">tmdb57</string>
+ <string id="58">tmdb58</string>
+ <string id="59">tmdb59</string>
+ <string id="60">tmdb60</string>
+ <string id="61">tmdb61</string>
+ <string id="62">tmdb62</string>
+ <string id="63">tmdb63</string>
+ <string id="64">tmdb64</string>
+ <string id="65">tmdb65</string>
+ <string id="66">tmdb66</string>
+ <string id="67">tmdb67</string>
+ <string id="68">tmdb68</string>
+ <string id="69">tmdb69</string>
+ <string id="70">tmdb70</string>
+ <string id="71">tmdb71</string>
+ <string id="72">tmdb72</string>
+ <string id="73">tmdb73</string>
+ <string id="74">tmdb74</string>
+ <string id="75">tmdb75</string>
+ <string id="76">tmdb76</string>
+ <string id="77">tmdb77</string>
+ <string id="78">tmdb78</string>
+ <string id="79">tmdb79</string>
+ <string id="80">tmdb80</string>
+ <string id="81">tmdb81</string>
+ <string id="82">tmdb82</string>
+ <string id="83">tmdb83</string>
+ <string id="84">tmdb84</string>
+ <string id="85">tmdb85</string>
+ <string id="86">tmdb86</string>
+ <string id="87">tmdb87</string>
+ <string id="88">tmdb88</string>
+ <string id="89">tmdb89</string>
+ <string id="90">tmdb90</string>
+ <string id="91">tmdb91</string>
+ <string id="92">tmdb92</string>
+ <string id="93">tmdb93</string>
+ <string id="94">tmdb94</string>
+ <string id="95">tmdb95</string>
+ <string id="96">tmdb96</string>
+ <string id="97">tmdb97</string>
+ <string id="98">tmdb98</string>
+ <string id="99">tmdb99</string>
+ <string id="100">tmdb100</string>
+ <string id="101">tmdb101</string>
+ <string id="102">tmdb102</string>
+ <string id="103">tmdb103</string>
+ <string id="104">tmdb104</string>
+ <string id="105">tmdb105</string>
+ <string id="106">tmdb106</string>
+ <string id="107">tmdb107</string>
+ <string id="108">tmdb108</string>
+ <string id="109">tmdb109</string>
+ <string id="110">tmdb110</string>
+ <string id="111">tmdb111</string>
+ <string id="112">tmdb112</string>
+ <string id="113">tmdb113</string>
+ <string id="114">tmdb114</string>
+ <string id="115">tmdb115</string>
+ <string id="116">tmdb116</string>
+ <string id="117">tmdb117</string>
+ <string id="118">tmdb118</string>
+ <string id="119">tmdb119</string>
+ <string id="120">tmdb120</string>
+ <string id="121">tmdb121</string>
+ <string id="122">tmdb122</string>
+ <string id="123">tmdb123</string>
+ <string id="124">tmdb124</string>
+ <string id="125">tmdb125</string>
+ <string id="126">tmdb126</string>
+ <string id="127">tmdb127</string>
+ <string id="128">tmdb128</string>
+ <string id="129">tmdb129</string>
+ <string id="130">tmdb130</string>
+ <string id="131">tmdb131</string>
+ <string id="132">tmdb132</string>
+ <string id="133">tmdb133</string>
+ <string id="134">tmdb134</string>
+ <string id="135">tmdb135</string>
+ <string id="136">tmdb136</string>
+ <string id="137">tmdb137</string>
+ <string id="138">tmdb138</string>
+ <string id="139">tmdb139</string>
+ <string id="140">tmdb140</string>
+ <string id="141">tmdb141</string>
+ <string id="142">tmdb142</string>
+ <string id="143">tmdb143</string>
+ <string id="144">tmdb144</string>
+ <string id="145">tmdb145</string>
+ <string id="146">tmdb146</string>
+ <string id="147">tmdb147</string>
+ <string id="148">tmdb148</string>
+ <string id="149">tmdb149</string>
+ <string id="150">tmdb150</string>
+ <string id="151">tmdb151</string>
+ <string id="152">tmdb152</string>
+ <string id="153">tmdb153</string>
+ <string id="154">tmdb154</string>
+ <string id="155">tmdb155</string>
+ <string id="156">tmdb156</string>
+ <string id="157">tmdb157</string>
+ <string id="158">tmdb158</string>
+ <string id="159">tmdb159</string>
+ <string id="160">tmdb160</string>
+ <string id="161">tmdb161</string>
+ <string id="162">tmdb162</string>
+ <string id="163">tmdb163</string>
+ <string id="164">tmdb164</string>
+ <string id="165">tmdb165</string>
+ <string id="166">tmdb166</string>
+ <string id="167">tmdb167</string>
+ <string id="168">tmdb168</string>
+ <string id="169">tmdb169</string>
+ <string id="170">tmdb170</string>
+ <string id="171">tmdb171</string>
+ <string id="172">tmdb172</string>
+ <string id="173">tmdb173</string>
+ <string id="174">tmdb174</string>
+ <string id="175">tmdb175</string>
+ <string id="176">tmdb176</string>
+ <string id="177">tmdb177</string>
+ <string id="178">tmdb178</string>
+ <string id="179">tmdb179</string>
+ <string id="180">tmdb180</string>
+ <string id="181">tmdb181</string>
+ <string id="182">tmdb182</string>
+ <string id="183">tmdb183</string>
+ <string id="184">tmdb184</string>
+ <string id="185">tmdb185</string>
+ <string id="186">tmdb186</string>
+ <string id="187">tmdb187</string>
+ <string id="188">tmdb188</string>
+ <string id="189">tmdb189</string>
+ <string id="190">tmdb190</string>
+ <string id="191">tmdb191</string>
+ <string id="192">tmdb192</string>
+ <string id="193">tmdb193</string>
+ <string id="194">tmdb194</string>
+ <string id="195">tmdb195</string>
+ <string id="196">tmdb196</string>
+ <string id="197">tmdb197</string>
+ <string id="198">tmdb198</string>
+ <string id="199">tmdb199</string>
+ <string id="200">tmdb200</string>
+ <string id="201">tmdb201</string>
+ <string id="202">tmdb202</string>
+ <string id="203">tmdb203</string>
+ <string id="204">tmdb204</string>
+ <string id="205">tmdb205</string>
+ <string id="206">tmdb206</string>
+ <string id="207">tmdb207</string>
+ <string id="208">tmdb208</string>
+ <string id="209">tmdb209</string>
+ <string id="210">tmdb210</string>
+ <string id="211">tmdb211</string>
+ <string id="212">tmdb212</string>
+ <string id="213">tmdb213</string>
+ <string id="214">tmdb214</string>
+ <string id="215">tmdb215</string>
+ <string id="216">tmdb216</string>
+ <string id="217">tmdb217</string>
+ <string id="218">tmdb218</string>
+ <string id="219">tmdb219</string>
+ <string id="220">tmdb220</string>
+ <string id="221">tmdb221</string>
+ <string id="222">tmdb222</string>
+ <string id="223">tmdb223</string>
+ <string id="224">tmdb224</string>
+ <string id="225">tmdb225</string>
+ <string id="226">tmdb226</string>
+ <string id="227">tmdb227</string>
+ <string id="228">tmdb228</string>
+ <string id="229">tmdb229</string>
+ <string id="230">tmdb230</string>
+ <string id="231">tmdb231</string>
+ <string id="232">tmdb232</string>
+ <string id="233">tmdb233</string>
+ <string id="234">tmdb234</string>
+ <string id="235">tmdb235</string>
+ <string id="236">tmdb236</string>
+ <string id="237">tmdb237</string>
+ <string id="238">tmdb238</string>
+ <string id="239">tmdb239</string>
+ <string id="240">tmdb240</string>
+ <string id="241">tmdb241</string>
+ <string id="242">tmdb242</string>
+ <string id="243">tmdb243</string>
+ <string id="244">tmdb244</string>
+ <string id="245">tmdb245</string>
+ <string id="246">tmdb246</string>
+ <string id="247">tmdb247</string>
+ <string id="248">tmdb248</string>
+ <string id="249">tmdb249</string>
+ <string id="250">tmdb250</string>
+ <string id="251">tmdb251</string>
+ <string id="252">tmdb252</string>
+ <string id="253">tmdb253</string>
+ <string id="254">tmdb254</string>
+ <string id="255">tmdb255</string>
+ <string id="256">tmdb256</string>
+ <string id="257">tmdb257</string>
+ <string id="258">tmdb258</string>
+ <string id="259">tmdb259</string>
+ <string id="260">tmdb260</string>
+ <string id="261">tmdb261</string>
+ <string id="262">tmdb262</string>
+ <string id="263">tmdb263</string>
+ <string id="264">tmdb264</string>
+ <string id="265">tmdb265</string>
+ <string id="266">tmdb266</string>
+ <string id="267">tmdb267</string>
+ <string id="268">tmdb268</string>
+ <string id="269">tmdb269</string>
+ <string id="270">tmdb270</string>
+ <string id="271">tmdb271</string>
+ <string id="272">tmdb272</string>
+ <string id="273">tmdb273</string>
+ <string id="274">tmdb274</string>
+ <string id="275">tmdb275</string>
+ <string id="276">tmdb276</string>
+ <string id="277">tmdb277</string>
+ <string id="278">tmdb278</string>
+ <string id="279">tmdb279</string>
+ <string id="280">tmdb280</string>
+ <string id="281">tmdb281</string>
+ <string id="282">tmdb282</string>
+ <string id="283">tmdb283</string>
+ <string id="284">tmdb284</string>
+ <string id="285">tmdb285</string>
+ <string id="286">tmdb286</string>
+ <string id="287">tmdb287</string>
+ <string id="288">tmdb288</string>
+ <string id="289">tmdb289</string>
+ <string id="290">tmdb290</string>
+ <string id="291">tmdb291</string>
+ <string id="292">tmdb292</string>
+ <string id="293">tmdb293</string>
+ <string id="294">tmdb294</string>
+ <string id="295">tmdb295</string>
+ <string id="296">tmdb296</string>
+ <string id="297">tmdb297</string>
+ <string id="298">tmdb298</string>
+ <string id="299">tmdb299</string>
+ <string id="300">tmdb300</string>
+ <string id="301">tmdb301</string>
+ <string id="302">tmdb302</string>
+ <string id="303">tmdb303</string>
+ <string id="304">tmdb304</string>
+ <string id="305">tmdb305</string>
+ <string id="306">tmdb306</string>
+ <string id="307">tmdb307</string>
+ <string id="308">tmdb308</string>
+ <string id="309">tmdb309</string>
+ <string id="310">tmdb310</string>
+ <string id="311">tmdb311</string>
+ <string id="312">tmdb312</string>
+ <string id="313">tmdb313</string>
+ <string id="314">tmdb314</string>
+ <string id="315">tmdb315</string>
+ <string id="316">tmdb316</string>
+ <string id="317">tmdb317</string>
+ <string id="318">tmdb318</string>
+ <string id="319">tmdb319</string>
+ <string id="320">tmdb320</string>
+ <string id="321">tmdb321</string>
+ <string id="322">tmdb322</string>
+ <string id="323">tmdb323</string>
+ <string id="324">tmdb324</string>
+ <string id="325">tmdb325</string>
+ <string id="326">tmdb326</string>
+ <string id="327">tmdb327</string>
+ <string id="328">tmdb328</string>
+ <string id="329">tmdb329</string>
+ <string id="330">tmdb330</string>
+ <string id="331">tmdb331</string>
+ <string id="332">tmdb332</string>
+ <string id="333">tmdb333</string>
+ <string id="334">tmdb334</string>
+ <string id="335">tmdb335</string>
+ <string id="336">tmdb336</string>
+ <string id="337">tmdb337</string>
+ <string id="338">tmdb338</string>
+ <string id="339">tmdb339</string>
+ <string id="340">tmdb340</string>
+ <string id="341">tmdb341</string>
+ <string id="342">tmdb342</string>
+ <string id="343">tmdb343</string>
+ <string id="344">tmdb344</string>
+ <string id="345">tmdb345</string>
+ <string id="346">tmdb346</string>
+ <string id="347">tmdb347</string>
+ <string id="348">tmdb348</string>
+ <string id="349">tmdb349</string>
+ <string id="350">tmdb350</string>
+ <string id="351">tmdb351</string>
+ <string id="352">tmdb352</string>
+ <string id="353">tmdb353</string>
+ <string id="354">tmdb354</string>
+ <string id="355">tmdb355</string>
+ <string id="356">tmdb356</string>
+ <string id="357">tmdb357</string>
+ <string id="358">tmdb358</string>
+ <string id="359">tmdb359</string>
+ <string id="360">tmdb360</string>
+ <string id="361">tmdb361</string>
+ <string id="362">tmdb362</string>
+ <string id="363">tmdb363</string>
+ <string id="364">tmdb364</string>
+ <string id="365">tmdb365</string>
+ <string id="366">tmdb366</string>
+ <string id="367">tmdb367</string>
+ <string id="368">tmdb368</string>
+ <string id="369">tmdb369</string>
+ <string id="370">tmdb370</string>
+ <string id="371">tmdb371</string>
+ <string id="372">tmdb372</string>
+ <string id="373">tmdb373</string>
+ <string id="374">tmdb374</string>
+ <string id="375">tmdb375</string>
+ <string id="376">tmdb376</string>
+ <string id="377">tmdb377</string>
+ <string id="378">tmdb378</string>
+ <string id="379">tmdb379</string>
+ <string id="380">tmdb380</string>
+ <string id="381">tmdb381</string>
+ <string id="382">tmdb382</string>
+ <string id="383">tmdb383</string>
+ <string id="384">tmdb384</string>
+ <string id="385">tmdb385</string>
+ <string id="386">tmdb386</string>
+ <string id="387">tmdb387</string>
+ <string id="388">tmdb388</string>
+ <string id="389">tmdb389</string>
+ <string id="390">tmdb390</string>
+ <string id="391">tmdb391</string>
+ <string id="392">tmdb392</string>
+ <string id="393">tmdb393</string>
+ <string id="394">tmdb394</string>
+ <string id="395">tmdb395</string>
+ <string id="396">tmdb396</string>
+ <string id="397">tmdb397</string>
+ <string id="398">tmdb398</string>
+ <string id="399">tmdb399</string>
+ <string id="400">tmdb400</string>
+ <string id="401">tmdb401</string>
+ <string id="402">tmdb402</string>
+ <string id="403">tmdb403</string>
+ <string id="404">tmdb404</string>
+ <string id="405">tmdb405</string>
+ <string id="406">tmdb406</string>
+ <string id="407">tmdb407</string>
+ <string id="408">tmdb408</string>
+ <string id="409">tmdb409</string>
+ <string id="410">tmdb410</string>
+ <string id="411">tmdb411</string>
+ <string id="412">tmdb412</string>
+ <string id="413">tmdb413</string>
+ <string id="414">tmdb414</string>
+ <string id="415">tmdb415</string>
+ <string id="416">tmdb416</string>
+ <string id="417">tmdb417</string>
+ <string id="418">tmdb418</string>
+ <string id="419">tmdb419</string>
+ <string id="420">tmdb420</string>
+ <string id="421">tmdb421</string>
+ <string id="422">tmdb422</string>
+ <string id="423">tmdb423</string>
+ <string id="424">tmdb424</string>
+ <string id="425">tmdb425</string>
+ <string id="426">tmdb426</string>
+ <string id="427">tmdb427</string>
+ <string id="428">tmdb428</string>
+ <string id="429">tmdb429</string>
+ <string id="430">tmdb430</string>
+ <string id="431">tmdb431</string>
+ <string id="432">tmdb432</string>
+ <string id="433">tmdb433</string>
+ <string id="434">tmdb434</string>
+ <string id="435">tmdb435</string>
+ <string id="436">tmdb436</string>
+ <string id="437">tmdb437</string>
+ <string id="438">tmdb438</string>
+ <string id="439">tmdb439</string>
+ <string id="440">tmdb440</string>
+ <string id="441">tmdb441</string>
+ <string id="442">tmdb442</string>
+ <string id="443">tmdb443</string>
+ <string id="444">tmdb444</string>
+ <string id="445">tmdb445</string>
+ <string id="446">tmdb446</string>
+ <string id="447">tmdb447</string>
+ <string id="448">tmdb448</string>
+ <string id="449">tmdb449</string>
+ <string id="450">tmdb450</string>
+ <string id="451">tmdb451</string>
+ <string id="452">tmdb452</string>
+ <string id="453">tmdb453</string>
+ <string id="454">tmdb454</string>
+ <string id="455">tmdb455</string>
+ <string id="456">tmdb456</string>
+ <string id="457">tmdb457</string>
+ <string id="458">tmdb458</string>
+ <string id="459">tmdb459</string>
+ <string id="460">tmdb460</string>
+ <string id="461">tmdb461</string>
+ <string id="462">tmdb462</string>
+ <string id="463">tmdb463</string>
+ <string id="464">tmdb464</string>
+ <string id="465">tmdb465</string>
+ <string id="466">tmdb466</string>
+ <string id="467">tmdb467</string>
+ <string id="468">tmdb468</string>
+ <string id="469">tmdb469</string>
+ <string id="470">tmdb470</string>
+ <string id="471">tmdb471</string>
+ <string id="472">tmdb472</string>
+ <string id="473">tmdb473</string>
+ <string id="474">tmdb474</string>
+ <string id="475">tmdb475</string>
+ <string id="476">tmdb476</string>
+ <string id="477">tmdb477</string>
+ <string id="478">tmdb478</string>
+ <string id="479">tmdb479</string>
+ <string id="480">tmdb480</string>
+ <string id="481">tmdb481</string>
+ <string id="482">tmdb482</string>
+ <string id="483">tmdb483</string>
+ <string id="484">tmdb484</string>
+ <string id="485">tmdb485</string>
+ <string id="486">tmdb486</string>
+ <string id="487">tmdb487</string>
+ <string id="488">tmdb488</string>
+ <string id="489">tmdb489</string>
+ <string id="490">tmdb490</string>
+ <string id="491">tmdb491</string>
+ <string id="492">tmdb492</string>
+ <string id="493">tmdb493</string>
+ <string id="494">tmdb494</string>
+ <string id="495">tmdb495</string>
+ <string id="496">tmdb496</string>
+ <string id="497">tmdb497</string>
+ <string id="498">tmdb498</string>
+ <string id="499">tmdb499</string>
+ <string id="500">tmdb500</string>
+ <string id="501">tmdb501</string>
+ <string id="502">tmdb502</string>
+ <string id="503">tmdb503</string>
+ <string id="504">tmdb504</string>
+ <string id="505">tmdb505</string>
+ <string id="506">tmdb506</string>
+ <string id="507">tmdb507</string>
+ <string id="508">tmdb508</string>
+ <string id="509">tmdb509</string>
+ <string id="510">tmdb510</string>
+ <string id="511">tmdb511</string>
+ <string id="512">tmdb512</string>
+ <string id="513">tmdb513</string>
+ <string id="514">tmdb514</string>
+ <string id="515">tmdb515</string>
+ <string id="516">tmdb516</string>
+ <string id="517">tmdb517</string>
+ <string id="518">tmdb518</string>
+ <string id="519">tmdb519</string>
+ <string id="520">tmdb520</string>
+ <string id="521">tmdb521</string>
+ <string id="522">tmdb522</string>
+ <string id="523">tmdb523</string>
+ <string id="524">tmdb524</string>
+ <string id="525">tmdb525</string>
+ <string id="526">tmdb526</string>
+ <string id="527">tmdb527</string>
+ <string id="528">tmdb528</string>
+ <string id="529">tmdb529</string>
+ <string id="530">tmdb530</string>
+ <string id="531">tmdb531</string>
+ <string id="532">tmdb532</string>
+ <string id="533">tmdb533</string>
+ <string id="534">tmdb534</string>
+ <string id="535">tmdb535</string>
+ <string id="536">tmdb536</string>
+ <string id="537">tmdb537</string>
+ <string id="538">tmdb538</string>
+ <string id="539">tmdb539</string>
+ <string id="540">tmdb540</string>
+ <string id="541">tmdb541</string>
+ <string id="542">tmdb542</string>
+ <string id="543">tmdb543</string>
+ <string id="544">tmdb544</string>
+ <string id="545">tmdb545</string>
+ <string id="546">tmdb546</string>
+ <string id="547">tmdb547</string>
+ <string id="548">tmdb548</string>
+ <string id="549">tmdb549</string>
+ <string id="550">tmdb550</string>
+ <string id="551">tmdb551</string>
+ <string id="552">tmdb552</string>
+ <string id="553">tmdb553</string>
+ <string id="554">tmdb554</string>
+ <string id="555">tmdb555</string>
+ <string id="556">tmdb556</string>
+ <string id="557">tmdb557</string>
+ <string id="558">tmdb558</string>
+ <string id="559">tmdb559</string>
+ <string id="560">tmdb560</string>
+ <string id="561">tmdb561</string>
+ <string id="562">tmdb562</string>
+ <string id="563">tmdb563</string>
+ <string id="564">tmdb564</string>
+ <string id="565">tmdb565</string>
+ <string id="566">tmdb566</string>
+ <string id="567">tmdb567</string>
+ <string id="568">tmdb568</string>
+ <string id="569">tmdb569</string>
+ <string id="570">tmdb570</string>
+ <string id="571">tmdb571</string>
+ <string id="572">tmdb572</string>
+ <string id="573">tmdb573</string>
+ <string id="574">tmdb574</string>
+ <string id="575">tmdb575</string>
+ <string id="576">tmdb576</string>
+ <string id="577">tmdb577</string>
+ <string id="578">tmdb578</string>
+ <string id="579">tmdb579</string>
+ <string id="580">tmdb580</string>
+ <string id="581">tmdb581</string>
+ <string id="582">tmdb582</string>
+ <string id="583">tmdb583</string>
+ <string id="584">tmdb584</string>
+ <string id="585">tmdb585</string>
+ <string id="586">tmdb586</string>
+ <string id="587">tmdb587</string>
+ <string id="588">tmdb588</string>
+ <string id="589">tmdb589</string>
+ <string id="590">tmdb590</string>
+ <string id="591">tmdb591</string>
+ <string id="592">tmdb592</string>
+ <string id="593">tmdb593</string>
+ <string id="594">tmdb594</string>
+ <string id="595">tmdb595</string>
+ <string id="596">tmdb596</string>
+ <string id="597">tmdb597</string>
+ <string id="598">tmdb598</string>
+ <string id="599">tmdb599</string>
+ <string id="600">tmdb600</string>
+ <string id="601">tmdb601</string>
+ <string id="602">tmdb602</string>
+ <string id="603">tmdb603</string>
+ <string id="604">tmdb604</string>
+ <string id="605">tmdb605</string>
+ <string id="606">tmdb606</string>
+ <string id="607">tmdb607</string>
+ <string id="608">tmdb608</string>
+ <string id="609">tmdb609</string>
+ <string id="610">tmdb610</string>
+ <string id="611">tmdb611</string>
+ <string id="612">tmdb612</string>
+ <string id="613">tmdb613</string>
+ <string id="614">tmdb614</string>
+ <string id="615">tmdb615</string>
+ <string id="616">tmdb616</string>
+ <string id="617">tmdb617</string>
+ <string id="618">tmdb618</string>
+ <string id="619">tmdb619</string>
+ <string id="620">tmdb620</string>
+ <string id="621">tmdb621</string>
+ <string id="622">tmdb622</string>
+ <string id="623">tmdb623</string>
+ <string id="624">tmdb624</string>
+ <string id="625">tmdb625</string>
+ <string id="626">tmdb626</string>
+ <string id="627">tmdb627</string>
+ <string id="628">tmdb628</string>
+ <string id="629">tmdb629</string>
+ <string id="630">tmdb630</string>
+ <string id="631">tmdb631</string>
+ <string id="632">tmdb632</string>
+ <string id="633">tmdb633</string>
+ <string id="634">tmdb634</string>
+ <string id="635">tmdb635</string>
+ <string id="636">tmdb636</string>
+ <string id="637">tmdb637</string>
+ <string id="638">tmdb638</string>
+ <string id="639">tmdb639</string>
+ <string id="640">tmdb640</string>
+ <string id="641">tmdb641</string>
+ <string id="642">tmdb642</string>
+ <string id="643">tmdb643</string>
+ <string id="644">tmdb644</string>
+ <string id="645">tmdb645</string>
+ <string id="646">tmdb646</string>
+ <string id="647">tmdb647</string>
+ <string id="648">tmdb648</string>
+ <string id="649">tmdb649</string>
+ <string id="650">tmdb650</string>
+ <string id="651">tmdb651</string>
+ <string id="652">tmdb652</string>
+ <string id="653">tmdb653</string>
+ <string id="654">tmdb654</string>
+ <string id="655">tmdb655</string>
+ <string id="656">tmdb656</string>
+ <string id="657">tmdb657</string>
+ <string id="658">tmdb658</string>
+ <string id="659">tmdb659</string>
+ <string id="660">tmdb660</string>
+ <string id="661">tmdb661</string>
+ <string id="662">tmdb662</string>
+ <string id="663">tmdb663</string>
+ <string id="664">tmdb664</string>
+ <string id="665">tmdb665</string>
+ <string id="666">tmdb666</string>
+ <string id="667">tmdb667</string>
+ <string id="668">tmdb668</string>
+ <string id="669">tmdb669</string>
+ <string id="670">tmdb670</string>
+ <string id="671">tmdb671</string>
+ <string id="672">tmdb672</string>
+ <string id="673">tmdb673</string>
+ <string id="674">tmdb674</string>
+ <string id="675">tmdb675</string>
+ <string id="676">tmdb676</string>
+ <string id="677">tmdb677</string>
+ <string id="678">tmdb678</string>
+ <string id="679">tmdb679</string>
+ <string id="680">tmdb680</string>
+ <string id="681">tmdb681</string>
+ <string id="682">tmdb682</string>
+ <string id="683">tmdb683</string>
+ <string id="684">tmdb684</string>
+ <string id="685">tmdb685</string>
+ <string id="686">tmdb686</string>
+ <string id="687">tmdb687</string>
+ <string id="688">tmdb688</string>
+ <string id="689">tmdb689</string>
+ <string id="690">tmdb690</string>
+ <string id="691">tmdb691</string>
+ <string id="692">tmdb692</string>
+ <string id="693">tmdb693</string>
+ <string id="694">tmdb694</string>
+ <string id="695">tmdb695</string>
+ <string id="696">tmdb696</string>
+ <string id="697">tmdb697</string>
+ <string id="698">tmdb698</string>
+ <string id="699">tmdb699</string>
+ <string id="700">tmdb700</string>
+ <string id="701">tmdb701</string>
+ <string id="702">tmdb702</string>
+ <string id="703">tmdb703</string>
+ <string id="704">tmdb704</string>
+ <string id="705">tmdb705</string>
+ <string id="706">tmdb706</string>
+ <string id="707">tmdb707</string>
+ <string id="708">tmdb708</string>
+ <string id="709">tmdb709</string>
+ <string id="710">tmdb710</string>
+ <string id="711">tmdb711</string>
+ <string id="712">tmdb712</string>
+ <string id="713">tmdb713</string>
+ <string id="714">tmdb714</string>
+ <string id="715">tmdb715</string>
+ <string id="716">tmdb716</string>
+ <string id="717">tmdb717</string>
+ <string id="718">tmdb718</string>
+ <string id="719">tmdb719</string>
+ <string id="720">tmdb720</string>
+ <string id="721">tmdb721</string>
+ <string id="722">tmdb722</string>
+ <string id="723">tmdb723</string>
+ <string id="724">tmdb724</string>
+ <string id="725">tmdb725</string>
+ <string id="726">tmdb726</string>
+ <string id="727">tmdb727</string>
+ <string id="728">tmdb728</string>
+ <string id="729">tmdb729</string>
+ <string id="730">tmdb730</string>
+ <string id="731">tmdb731</string>
+ <string id="732">tmdb732</string>
+ <string id="733">tmdb733</string>
+ <string id="734">tmdb734</string>
+ <string id="735">tmdb735</string>
+ <string id="736">tmdb736</string>
+ <string id="737">tmdb737</string>
+ <string id="738">tmdb738</string>
+ <string id="739">tmdb739</string>
+ <string id="740">tmdb740</string>
+ <string id="741">tmdb741</string>
+ <string id="742">tmdb742</string>
+ <string id="743">tmdb743</string>
+ <string id="744">tmdb744</string>
+ <string id="745">tmdb745</string>
+ <string id="746">tmdb746</string>
+ <string id="747">tmdb747</string>
+ <string id="748">tmdb748</string>
+ <string id="749">tmdb749</string>
+ <string id="750">tmdb750</string>
+ <string id="751">tmdb751</string>
+ <string id="752">tmdb752</string>
+ <string id="753">tmdb753</string>
+ <string id="754">tmdb754</string>
+ <string id="755">tmdb755</string>
+ <string id="756">tmdb756</string>
+ <string id="757">tmdb757</string>
+ <string id="758">tmdb758</string>
+ <string id="759">tmdb759</string>
+ <string id="760">tmdb760</string>
+ <string id="761">tmdb761</string>
+ <string id="762">tmdb762</string>
+ <string id="763">tmdb763</string>
+ <string id="764">tmdb764</string>
+ <string id="765">tmdb765</string>
+ <string id="766">tmdb766</string>
+ <string id="767">tmdb767</string>
+ <string id="768">tmdb768</string>
+ <string id="769">tmdb769</string>
+ <string id="770">tmdb770</string>
+ <string id="771">tmdb771</string>
+ <string id="772">tmdb772</string>
+ <string id="773">tmdb773</string>
+ <string id="774">tmdb774</string>
+ <string id="775">tmdb775</string>
+ <string id="776">tmdb776</string>
+ <string id="777">tmdb777</string>
+ <string id="778">tmdb778</string>
+ <string id="779">tmdb779</string>
+ <string id="780">tmdb780</string>
+ <string id="781">tmdb781</string>
+ <string id="782">tmdb782</string>
+ <string id="783">tmdb783</string>
+ <string id="784">tmdb784</string>
+ <string id="785">tmdb785</string>
+ <string id="786">tmdb786</string>
+ <string id="787">tmdb787</string>
+ <string id="788">tmdb788</string>
+ <string id="789">tmdb789</string>
+ <string id="790">tmdb790</string>
+ <string id="791">tmdb791</string>
+ <string id="792">tmdb792</string>
+ <string id="793">tmdb793</string>
+ <string id="794">tmdb794</string>
+ <string id="795">tmdb795</string>
+ <string id="796">tmdb796</string>
+ <string id="797">tmdb797</string>
+ <string id="798">tmdb798</string>
+ <string id="799">tmdb799</string>
+ <string id="800">tmdb800</string>
+ <string id="801">tmdb801</string>
+ <string id="802">tmdb802</string>
+ <string id="803">tmdb803</string>
+ <string id="804">tmdb804</string>
+ <string id="805">tmdb805</string>
+ <string id="806">tmdb806</string>
+ <string id="807">tmdb807</string>
+ <string id="808">tmdb808</string>
+ <string id="809">tmdb809</string>
+ <string id="810">tmdb810</string>
+ <string id="811">tmdb811</string>
+ <string id="812">tmdb812</string>
+ <string id="813">tmdb813</string>
+ <string id="814">tmdb814</string>
+ <string id="815">tmdb815</string>
+ <string id="816">tmdb816</string>
+ <string id="817">tmdb817</string>
+ <string id="818">tmdb818</string>
+ <string id="819">tmdb819</string>
+ <string id="820">tmdb820</string>
+ <string id="821">tmdb821</string>
+ <string id="822">tmdb822</string>
+ <string id="823">tmdb823</string>
+ <string id="824">tmdb824</string>
+ <string id="825">tmdb825</string>
+ <string id="826">tmdb826</string>
+ <string id="827">tmdb827</string>
+ <string id="828">tmdb828</string>
+ <string id="829">tmdb829</string>
+ <string id="830">tmdb830</string>
+ <string id="831">tmdb831</string>
+ <string id="832">tmdb832</string>
+ <string id="833">tmdb833</string>
+ <string id="834">tmdb834</string>
+ <string id="835">tmdb835</string>
+ <string id="836">tmdb836</string>
+ <string id="837">tmdb837</string>
+ <string id="838">tmdb838</string>
+ <string id="839">tmdb839</string>
+ <string id="840">tmdb840</string>
+ <string id="841">tmdb841</string>
+ <string id="842">tmdb842</string>
+ <string id="843">tmdb843</string>
+ <string id="844">tmdb844</string>
+ <string id="845">tmdb845</string>
+ <string id="846">tmdb846</string>
+ <string id="847">tmdb847</string>
+ <string id="848">tmdb848</string>
+ <string id="849">tmdb849</string>
+ <string id="850">tmdb850</string>
+ <string id="851">tmdb851</string>
+ <string id="852">tmdb852</string>
+ <string id="853">tmdb853</string>
+ <string id="854">tmdb854</string>
+ <string id="855">tmdb855</string>
+ <string id="856">tmdb856</string>
+ <string id="857">tmdb857</string>
+ <string id="858">tmdb858</string>
+ <string id="859">tmdb859</string>
+ <string id="860">tmdb860</string>
+ <string id="861">tmdb861</string>
+ <string id="862">tmdb862</string>
+ <string id="863">tmdb863</string>
+ <string id="864">tmdb864</string>
+ <string id="865">tmdb865</string>
+ <string id="866">tmdb866</string>
+ <string id="867">tmdb867</string>
+ <string id="868">tmdb868</string>
+ <string id="869">tmdb869</string>
+ <string id="870">tmdb870</string>
+ <string id="871">tmdb871</string>
+ <string id="872">tmdb872</string>
+ <string id="873">tmdb873</string>
+ <string id="874">tmdb874</string>
+ <string id="875">tmdb875</string>
+ <string id="876">tmdb876</string>
+ <string id="877">tmdb877</string>
+ <string id="878">tmdb878</string>
+ <string id="879">tmdb879</string>
+ <string id="880">tmdb880</string>
+ <string id="881">tmdb881</string>
+ <string id="882">tmdb882</string>
+ <string id="883">tmdb883</string>
+ <string id="884">tmdb884</string>
+ <string id="885">tmdb885</string>
+ <string id="886">tmdb886</string>
+ <string id="887">tmdb887</string>
+ <string id="888">tmdb888</string>
+ <string id="889">tmdb889</string>
+ <string id="890">tmdb890</string>
+ <string id="891">tmdb891</string>
+ <string id="892">tmdb892</string>
+ <string id="893">tmdb893</string>
+ <string id="894">tmdb894</string>
+ <string id="895">tmdb895</string>
+ <string id="896">tmdb896</string>
+ <string id="897">tmdb897</string>
+ <string id="898">tmdb898</string>
+ <string id="899">tmdb899</string>
+ <string id="900">tmdb900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
new file mode 100644
index 0000000..5e87256
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API Key from the TMDB site. Sharing the API key is forbidden.</string>
+ <string control="TMDBMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Selected language for TMDB searches</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">If no record is available for selected language try English</string>
+ <string control="TMDBMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="TMDBMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="TMDBMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="TMDBMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="TMDBMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="TMDBMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="TMDBMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="TMDBMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="TMDBMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="TMDBMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="TMDBMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="TMDBMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="TMDBMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="TMDBMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
new file mode 100644
index 0000000..cf68bc8
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.English_(en_US).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching TMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching TMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Fall back on english</string>
+ <string id="115">Preferred Language:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Retrieving data from IMDB.com...</string>
+ <string id="118">IMDB.com is not enabled</string>
+ <string id="119">TheMovieDB API is missing or not valid</string>
+ <string id="120">Retrieving data from Fanart.tv...</string>
+ <string id="121">Fanart.tv is not enabled</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..d2a3801
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-Key von der TMDB-Website. Gemeinsame Nutzung des API-Schlüssels ist verboten.</string>
+ <string control="TMDBMovieInfo_chkCertification">Das Scrapen von Altersbeschränkungen einschalten.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Wähle die Sprache in der auf TMDB gesucht werden soll</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Wenn kein Datensatz für die gewählte Sprache verfügbar ist versuche englischen zu nehmen.</string>
+ <string control="TMDBMovieInfo_chkCrew">Das Scrapen von der restlichen Crew einschalten. ("Gesamte Crew Scrapen" muss eingeschaltet sein)</string>
+ <string control="TMDBMovieInfo_chkStudio">Das Scrapen von Studios einschalten.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Das Scrapen von Spielzeiten einschalten.</string>
+ <string control="TMDBMovieInfo_chkPlot">Das Scrapen von Inhaltsangaben einschalten.</string>
+ <string control="TMDBMovieInfo_chkOutline">Das Scrapen von Kurzbeschreibungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkGenre">Das Scrapen von Genres einschalten.</string>
+ <string control="TMDBMovieInfo_chkTagline">Das Scrapen von Taglines einschalten.</string>
+ <string control="TMDBMovieInfo_chkCast">Das Scrapen von Schauspielern einschalten.</string>
+ <string control="TMDBMovieInfo_chkVotes">Das Scrapen von Anzahl Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRating">Das Scrapen von Bewertungen einschalten.</string>
+ <string control="TMDBMovieInfo_chkRelease">Das Scrapen von Premiere-Daten einschalten.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Das Scrapen von MPAA-Informationen einschalten.</string>
+ <string control="TMDBMovieInfo_chkYear">Das Scrapen von Filmjahren einschalten.</string>
+ <string control="TMDBMovieInfo_chkTitle">Das Scrapen von Filmtiteln einschalten.</string>
+ <string control="TMDBMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Aktiviert oder deaktiviert dieses Modul.</string>
+ <string control="TMDBMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten. (Scraper Module werden von oben nach unten abgearbeitet)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanarts mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Aktiviert das Laden von Trailern mit diesem Modul. (Schau auch in die Globale Konfiguration)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Seite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
new file mode 100644
index 0000000..9b8e52e
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.German_(de_DE).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">TMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der TMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der TMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden.</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden.</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Wähle alle Thumb</string>
+ <string id="42">Wähle alle Mittl.</string>
+ <string id="43">Wähle alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Klein ({0}x{1})</string>
+ <string id="54">Mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Treiler...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Manueller Trailer</string>
+ <string id="67">Direkter Link oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Loakler trailer:</string>
+ <string id="71">Fehler beim generieren der Videoformat Linkliste.</string>
+ <string id="72">Fehler beim Generieren der Videoformat Links.</string>
+ <string id="73">Wähle Format</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der bevorzugten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine bevorzugte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gaststar</string>
+ <string id="83">Die eingegebene ID ist keine gültige TMDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Poster</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen Blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember TMDB Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Verwende Englisch wenn nichts verfügbar</string>
+ <string id="115">Bevorzugte Sprache:</string>
+ <string id="116">TMDBid:</string>
+ <string id="117">Lade Daten von IMDB.com...</string>
+ <string id="118">IMDB.com ist nicht aktiviert.</string>
+ <string id="119">Die TheMovieDB API ist nicht vorhanden oder ungültig</string>
+ <string id="120">Lade Daten von Fanart.tv...</string>
+ <string id="121">Fanart.tv ist nicht aktiviert</string>
+ <string id="122">Get your API Key from www.themoviedb.org</string>
+ <string id="123">Get your API Key from fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..54809c6
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,31 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="TMDBMovieInfo_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieInfo_txtTMDBApiKey">API-nøkkel fra TMDB-siden. Deling av denne nøkkelen er forbudt.</string>
+ <string control="TMDBMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="TMDBMovieInfo_cbTMDBPrefLanguage">Valgt språk for TMDB-søk.</string>
+ <string control="TMDBMovieInfo_chkFallBackEng">Hvis valgt språk ikke blir funnet, prøv engelsk.</string>
+ <string control="TMDBMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="TMDBMovieInfo_chkStudio">Slå på detaljhenting av filmstudio.</string>
+ <string control="TMDBMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="TMDBMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="TMDBMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="TMDBMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="TMDBMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="TMDBMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="TMDBMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="TMDBMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="TMDBMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="TMDBMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="TMDBMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="TMDBMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="TMDBMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_cbEnabled">Slå denne modulen på eller av.</string>
+ <string control="TMDBMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="TMDBMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="TMDBMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="TMDBMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..3ee8a25
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Langs/scraper.EmberCore.TMDB.Norwegian_(no_NO).xml
@@ -0,0 +1,126 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">TMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17"/>
+ <string id="18"/>
+ <string id="19"/>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kan ikke spille av trailer</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episode-fankunst</string>
+ <string id="93">Seriefankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakat</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM TMDB film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Fall tilbake til engelsk</string>
+ <string id="115">Foretrukket språk:</string>
+ <string id="116">TIMDB-ID:</string>
+ <string id="117">Henter data fra IMDB.com...</string>
+ <string id="118">IMDB.com er ikke påslått</string>
+ <string id="119">TheMovieDB API mangler eller er ikke gyldig</string>
+ <string id="120">Henter data fra Fanart.tv...</string>
+ <string id="121">Fanart.tv er ikke påslått</string>
+ <string id="122">Hent din API-nøkkel fra www.themoviedb.org</string>
+ <string id="123">Hent din API-nøkkel fra fanart.tv</string>
+</strings>
diff --git a/Addons/scraper.TMDB.Poster/My Project/Application.Designer.vb b/Addons/scraper.TMDB.Poster/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.TMDB.Poster/My Project/Application.myapp b/Addons/scraper.TMDB.Poster/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.TMDB.Poster/My Project/AssemblyInfo.vb b/Addons/scraper.TMDB.Poster/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..381eddf
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.TMDB.Poster")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.TMDB.Poster")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("D4439C07-7B39-4E2E-8AF6-CD67BBE36F9F")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.TMDB.Poster/My Project/Resources.Designer.vb b/Addons/scraper.TMDB.Poster/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.TMDB.Poster/My Project/Resources.resx b/Addons/scraper.TMDB.Poster/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/My Project/Settings.Designer.vb b/Addons/scraper.TMDB.Poster/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.TMDB.Poster/My Project/Settings.settings b/Addons/scraper.TMDB.Poster/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.TMDB.Poster/Resources/Logo.png b/Addons/scraper.TMDB.Poster/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.TMDB.Poster/Resources/Logo.png differ
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeFANARTTV.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeFANARTTV.vb
new file mode 100644
index 0000000..13c1748
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeFANARTTV.vb
@@ -0,0 +1,173 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+' # HD Movie Logos -> logo.png (choose this first)
+' # ClearLOGOs -> logo.png (use this as a backup if no HD Logo in the lanaguage specified)
+' # ClearART -> clearart.png (use this as a backup if no HD ClearArt, in the language specified)
+' # HDClearART -> clearart.png (choose this first)
+' # cdART -> disc.png
+' # Movie Backgrounds -> Fanart (this is the only fanart.tv artwork that might overlap with 'typical' artwork scraping from IMDB/TMDB)
+' # Movie Banner -> Banner (not poster - Frodo supports both now, <moviename>-poster.jpg/png and <moviename>-banner.jpg/png or poster.jpg/png and banner.jpg/png)
+' # Movie Thumbs -> landscape.png
+' # Special note - the Logos and ClearArts are language-specific and should be tagged with the appropriate language. Will want to have a setting allowing users to specify a language so as not to get a bunch of foreign-language artwork.
+' # 1) Logo.png - to be added at a later stage, today is not possible to save
+' # 2) Clearart.png - to be added at a later stage, today is not possible to save
+' # 3) Disc.png - to be added at a later stage, today is not possible to save
+' # 4) Landscape.png - to be added at a later stage, today is not possible to save
+' # language is in image properties
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports FanartTVAPI
+
+Namespace FANARTTVs
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _FanartTV As FanartTV.V1.FanartTV
+ Friend WithEvents bwFANARTTV As New System.ComponentModel.BackgroundWorker
+ Private _APIInvalid As Boolean = False
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _FanartTV = New FanartTV.V1.FanartTV(_MySettings.FANARTTVApiKey)
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest("1", "JSON", "all", 1, 1))
+ If IsNothing(Result) Then
+ If Not IsNothing(_FanartTV.Error) Then
+ Master.eLog.WriteToErrorLog(_FanartTV.Error, "", "Error")
+ _APIInvalid = True
+ End If
+ End If
+ End Sub
+
+ Public Sub Cancel()
+ If Me.bwFANARTTV.IsBusy Then Me.bwFANARTTV.CancelAsync()
+
+ While Me.bwFANARTTV.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwFANARTTV.IsBusy Then
+ bwFANARTTV.WorkerSupportsCancellation = True
+ bwFANARTTV.WorkerReportsProgress = True
+ bwFANARTTV.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetFANARTTVImages(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ If _APIInvalid Then
+ Return Nothing
+ End If
+ Try
+ Dim Result As FanartTV.V1.FanartTVMovie = _FanartTV.GetMovieInfo(New FanartTV.V1.FanartTVRequest(imdbID, "JSON", "all", 1, 2))
+ If bwFANARTTV.CancellationPending Then Return Nothing
+ If IsNothing(Result) Then Return alPoster
+ If IsNothing(Result.movieinfo.moviebackground) Then Return alPoster
+ For Each image In Result.movieinfo.moviebackground
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = image.url})
+ alPoster.Add(New MediaContainers.Image With {.Description = "thumb", .URL = image.url & "/preview"})
+ Next
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwFANARTTVA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTV.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetFANARTTVImages(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTV_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTV.ProgressChanged
+ If Not bwFANARTTV.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwFANARTTV_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTV.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeIMDB.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..ec6d1be
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,174 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Diagnostics
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDBimg
+
+ Public Class Scraper
+
+#Region "Fields"
+
+
+
+ Friend WithEvents bwIMDBimg As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMDBimg.IsBusy Then Me.bwIMDBimg.CancelAsync()
+
+ While Me.bwIMDBimg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMDBimg.IsBusy Then
+ bwIMDBimg.WorkerSupportsCancellation = True
+ bwIMDBimg.WorkerReportsProgress = True
+ bwIMDBimg.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMDBimg.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", imdbID, ""))
+ sHTTP = Nothing
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(1)
+ End If
+
+
+ ' check existence of a line like this
+ ' <a href="/media/rm2995297536/tt0089218?ref_=tt_ov_i" > <img height="317"
+ ' and then return this one
+ ' src = "http://ia.media-imdb.com/images/M/MV5BMTY1Mzk3MTg0M15BMl5BanBnXkFtZTcwOTQzODYyMQ@@._V1_SY317_CR3,0,214,317_.jpg"
+ Dim mcIMDB As MatchCollection = Regex.Matches(HTML, String.Concat("/media/[a-zA-Z0-9]{3,12}/tt", imdbID, "\?ref_=tt_ov_i"), RegexOptions.IgnoreCase)
+ If mcIMDB.Count > 0 Then
+ debug.print("GetIMDBPoster 1 - {0}", mcIMDB(0).Value)
+ 'Dim sUrl1 As String = sHTTP.DownloadData(mcIMDB(0).Value)
+ mcIMDB = Regex.Matches(HTML, "http://ia.media-imdb.com/images/.{3,80}?.jpg")
+ If mcIMDB.Count > 0 Then
+ 'just use the first one if more are found
+ Debug.Print("GetIMDBPoster 2 - {0}", mcIMDB(0).Value)
+ alPoster.Add(New MediaContainers.Image With {.Description = "cover", .URL = mcIMDB(0).Value})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(2)
+ End If
+
+ Dim aSP As String() = Regex.Split(mcIMDB(0).Value, "._V\d+?_SY\d+?_CR\d+?,\d+?,\d+?,\d+?_")
+ Dim sUrl1 = aSP(0) + aSP(1)
+ Debug.Print("GetIMDBPoster 3 - {0}", sUrl1)
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = sUrl1})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMDBimg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBimg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMDBimg_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBimg.ProgressChanged
+ If Not bwIMDBimg.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMDBimg_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBimg.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeIMPA.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..cfe43a1
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,189 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(1)
+ End If
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(2)
+ End If
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ If bwIMPA.WorkerReportsProgress Then
+ bwIMPA.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeImages.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..d335b62
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeImages.vb
@@ -0,0 +1,1209 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Public Class ScrapeImages
+
+#Region "Fields"
+
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private TMDB As TMDB.Scraper
+ Private IMPA As New IMPA.Scraper
+ Private MPDB As New MPDB.Scraper
+ Private IMDB As New IMDBimg.Scraper
+ Private FANARTTVs As FANARTTVs.Scraper
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal TMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListIMDB As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMDBX As Images = Nothing
+ Dim tmpIMDBL As Images = Nothing
+ Dim tmpIMDBM As Images = Nothing
+ Dim tmpIMDBS As Images = Nothing
+ Dim tmpIMDBW As Images = Nothing
+ Dim tmpTMDBX As Images = Nothing
+ Dim tmpTMDBL As Images = Nothing
+ Dim tmpTMDBM As Images = Nothing
+ Dim tmpTMDBS As Images = Nothing
+ Dim tmpTMDBW As Images = Nothing
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(TMDBID, "poster"))
+
+ If _MySettings.UseIMPA Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If _MySettings.UseMPDB Then
+ tmpListMPDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ If _MySettings.UseIMDB Then
+ tmpListTMDB.AddRange(IMDB.GetIMDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+
+ If _MySettings.UseIMDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMDB = IMDB.GetIMDBPosters(IMDBID)
+
+ If tmpListIMDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMDBX) Then
+ tmpIMDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMDBL) Then
+ tmpIMDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMDBM) Then
+ tmpIMDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMDBS) Then
+ tmpIMDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMDBW) Then
+ tmpIMDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from IMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If _MySettings.UseMPDB Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseIMDB Then
+ If tmpListIMDB.Count > 0 Then
+ If Not IsNothing(tmpIMDBX) Then
+ Image = tmpIMDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBL) Then
+ Image = tmpIMDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBM) Then
+ Image = tmpIMDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBS) Then
+ Image = tmpIMDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMDBW) Then
+ Image = tmpIMDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ If _MySettings.UseIMPA Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If _MySettings.UseMPDB Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ End If
+ End If
+
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(TMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ Else
+ If _MySettings.UseFANARTTV Then
+ tmpListTMDB = FANARTTVs.GetFANARTTVImages(IMDBID)
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://fanart.tv"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://fanart.tv", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+ End If
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+
+ If AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("tUseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("tUseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0)
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeMPDB.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..cd949ec
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,167 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(2)
+ End If
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "t")
+ alPosters.Add(New MediaContainers.Image With {.Description = "thumb", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeOFDB.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..2e94cca
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,242 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ D = Html.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, "<td width=""99\%""><h2><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h2></td>").Groups(1).Value.ToString))
+ _title = OFDBTitle
+ End If
+
+ Dim D, W, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+
+ If D > 0 Then
+ W = Html.IndexOf("<a href=""", D + 14)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 14, W - (D + 14)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = Html.IndexOf("<b>Inhalt:</b>")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 14, L - (D + 14)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDB.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..9db6818
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,282 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Private backdrop_names(3) As v3Size
+ Private poster_names(5) As v3Size
+
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ ' v3 does not have description anymore
+ poster_names(0).description = "thumb"
+ poster_names(0).size = "w92"
+ poster_names(0).width = 92
+ poster_names(1).description = "w154"
+ poster_names(1).size = "w154"
+ poster_names(1).width = 154
+ poster_names(2).description = "cover"
+ poster_names(2).size = "w185"
+ poster_names(2).width = 185
+ poster_names(3).description = "w342"
+ poster_names(3).size = "w342"
+ poster_names(3).width = 342
+ poster_names(4).description = "mid"
+ poster_names(4).size = "w500"
+ poster_names(4).width = 500
+ poster_names(5).description = "original"
+ poster_names(5).size = "original"
+ poster_names(5).width = 0
+ backdrop_names(0).description = "thumb"
+ backdrop_names(0).size = "w300"
+ backdrop_names(0).width = 300
+ backdrop_names(1).description = "poster"
+ backdrop_names(1).size = "w780"
+ backdrop_names(1).width = 780
+ backdrop_names(2).description = "w1280"
+ backdrop_names(2).size = "w1280"
+ backdrop_names(2).width = 1280
+ backdrop_names(3).description = "original"
+ backdrop_names(3).size = "original"
+ backdrop_names(3).width = 0
+ End Sub
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim images As V3.TmdbMovieImages
+ Dim aW, aH As Integer
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ images = _TMDBApi.GetMovieImages(CInt(imdbID), _MySettings.TMDBLanguage)
+ If sType = "poster" Then
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.posters) OrElse images.posters.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ Else
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ images = _TMDBApiE.GetMovieImages(CInt(imdbID))
+ If IsNothing(images.backdrops) OrElse images.backdrops.Count = 0 Then
+ Return alPosters
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If sType = "poster" Then
+ For Each tmdbI As V3.Poster In images.posters
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In poster_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ ElseIf sType = "backdrop" Then
+ For Each tmdbI As V3.Backdrop In images.backdrops
+ If bwTMDB.CancellationPending Then Return Nothing
+ For Each aSize In backdrop_names
+ Select Case aSize.size
+ Case "original"
+ aW = tmdbI.width
+ aH = tmdbI.width
+ Case Else
+ aW = aSize.width
+ aH = CInt(aW / tmdbI.aspect_ratio)
+ End Select
+ Dim tmpPoster As New MediaContainers.Image With {.URL = _TMDBConf.images.base_url & aSize.size & tmdbI.file_path, .Description = aSize.description, .Width = CStr(aW), .Height = CStr(aH), .ParentID = tmdbI.file_path}
+ alPosters.Add(tmpPoster)
+ Next
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As List(Of String)
+ Dim trailers As V3.TmdbMovieTrailers
+ Dim YT As New List(Of String)
+
+ Try
+ If bwTMDB.CancellationPending Then Return Nothing
+ trailers = _TMDBApi.GetMovieTrailers(CInt(imdbID), _MySettings.TMDBLanguage)
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ trailers = _TMDBApiE.GetMovieTrailers(CInt(imdbID))
+ If IsNothing(trailers.youtube) OrElse trailers.youtube.Count = 0 Then
+ Return Nothing
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ 'If bwTMDB.WorkerReportsProgress Then
+ ' bwTMDB.ReportProgress(2)
+ 'End If
+
+ If trailers.youtube.Count > 0 Then
+ For Each trailer In trailers.youtube
+ YT.Add(String.Format("http://www.youtube.com/watch?v={0}{1})", trailer.source, CStr(IIf(trailer.size = "HD", "&hd=1", ""))))
+ Next
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return YT
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure v3Size
+
+#Region "Fields"
+
+ Dim size As String
+ Dim description As String
+ Dim width As Integer
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDB_old.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDB_old.vb
new file mode 100644
index 0000000..c5bca0a
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDB_old.vb
@@ -0,0 +1,244 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB_old
+
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDBg.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDBg.vb
new file mode 100644
index 0000000..86f6083
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTMDBg.vb
@@ -0,0 +1,723 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+
+
+Namespace TMDBg
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _Matches As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Matches() As List(Of MediaContainers.Movie)
+ Get
+ Return _Matches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _Matches = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ 'Public IMDBURL As String
+ 'Private _TMDBId As String
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+ Friend WithEvents bwTMDBg As New System.ComponentModel.BackgroundWorker
+
+ Private _sPoster As String
+
+#End Region 'Fields
+
+#Region "Properties"
+ Public ReadOnly Property TMDBConf() As V3.TmdbConfiguration
+ Get
+ Return _TMDBConf
+ End Get
+ End Property
+#End Region
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As TMDBg.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTMDBg.IsBusy Then bwTMDBg.CancelAsync()
+
+ While bwTMDBg.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetMovieID(ByRef DBMovie As Structures.DBMovie)
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+
+ If bwTMDBg.CancellationPending Then Return
+
+ Movie = _TMDBApi.GetMovieByIMDB(DBMovie.Movie.ID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(DBMovie.Movie.ID)
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return
+ End If
+
+ DBMovie.Movie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Dim MovieE As WatTmdb.V3.TmdbMovie
+ Dim tStr As String
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Strings.Left(strID.ToLower(), 2) = "tt" Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieByIMDB(strID)
+ Else
+ Movie = _TMDBApi.GetMovieInfo(CInt(strID), _MySettings.TMDBLanguage)
+ MovieE = _TMDBApiE.GetMovieInfo(CInt(strID))
+ End If
+ If IsNothing(Movie) AndAlso Not _MySettings.FallBackEng Then
+ Return False
+ End If
+
+ IMDBMovie.ID = CStr(IIf(String.IsNullOrEmpty(Movie.imdb_id) AndAlso _MySettings.FallBackEng, MovieE.imdb_id, Movie.imdb_id))
+ IMDBMovie.TMDBID = CStr(IIf(String.IsNullOrEmpty(Movie.id.ToString) AndAlso _MySettings.FallBackEng, MovieE.id.ToString, Movie.id.ToString))
+
+ If bwTMDBg.CancellationPending Or IsNothing(Movie) Then Return Nothing
+
+ Dim Keywords As WatTmdb.V3.TmdbMovieKeywords
+ Keywords = _TMDBApi.GetMovieKeywords(Movie.id)
+ If Not IsNothing(Keywords) AndAlso Not IsNothing(Keywords.keywords) Then
+ If Keywords.keywords.Count <> 0 AndAlso _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Keywords = _TMDBApiE.GetMovieKeywords(Movie.id)
+ End If
+ End If
+
+ ' to be added the tags structure
+ '' <movie>
+ '' ...
+ '' <tag>Name of the tag</tag>
+ '' ...
+ '' </movie>
+ If Options.bTitle Then
+ IMDBMovie.OriginalTitle = CStr(IIf(String.IsNullOrEmpty(Movie.original_title) AndAlso _MySettings.FallBackEng, MovieE.original_title, Movie.original_title))
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ IMDBMovie.Title = CStr(IIf(String.IsNullOrEmpty(Movie.title) AndAlso _MySettings.FallBackEng, MovieE.title, Movie.title))
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ ' I will add original always. to be updated if size, TMDBConf.images.poster_sizes(0) &
+ Dim Images As WatTmdb.V3.TmdbMovieImages
+ Images = _TMDBApi.GetMovieImages(Movie.id, _MySettings.TMDBLanguage)
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If (Images.posters.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Images = _TMDBApiE.GetMovieImages(Movie.id)
+ End If
+ End If
+ If Not IsNothing(Images) AndAlso Not IsNothing(Images.posters) Then
+ If Images.posters.Count > 0 Then
+ _sPoster = _TMDBConf.images.base_url & "w92" & Images.posters(0).file_path
+ Else
+ _sPoster = ""
+ End If
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Left(CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date)), 4)
+
+ Dim Releases As WatTmdb.V3.TmdbMovieReleases = Nothing
+ If Options.bMPAA Then
+ IMDBMovie.MPAA = ""
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each Country In Releases.countries
+ If Country.iso_3166_1.ToUpper = CStr(IIf(Master.eSettings.CertificationLang = "", "US", Master.eSettings.CertificationLang)) Then
+ IMDBMovie.MPAA = Country.certification
+ Exit For
+ End If
+ Next
+ End If
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ IMDBMovie.ReleaseDate = CStr(IIf(String.IsNullOrEmpty(Movie.release_date) AndAlso _MySettings.FallBackEng, MovieE.release_date, Movie.release_date))
+ End If
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ IMDBMovie.Rating = CStr(IIf(IsNothing(Movie.vote_average) AndAlso Movie.vote_average = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_average, Movie.vote_average))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ Dim Trailers As WatTmdb.V3.TmdbMovieTrailers
+ Trailers = _TMDBApi.GetMovieTrailers(Movie.id)
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If (Trailers.youtube.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Trailers = _TMDBApiE.GetMovieTrailers(Movie.id)
+ End If
+ End If
+
+ IMDBMovie.Trailer = ""
+ If Not IsNothing(Trailers) AndAlso Not IsNothing(Trailers.youtube) Then
+ If Trailers.youtube.Count > 0 Then
+ IMDBMovie.Trailer = "http://www.youtube.com/watch?hd=1&v=" & Trailers.youtube(0).source
+ End If
+ End If
+
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then
+ IMDBMovie.Votes = CStr(IIf(IsNothing(Movie.vote_count) AndAlso Movie.vote_count = 0 AndAlso _MySettings.FallBackEng, MovieE.vote_count.ToString(), Movie.vote_count.ToString()))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Dim aCast As WatTmdb.V3.TmdbMovieCast = Nothing
+ If Options.bCast Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.cast.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+
+ Dim Cast As New List(Of MediaContainers.Person)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ For Each aAc As WatTmdb.V3.Cast In aCast.cast
+ Dim aPer As New MediaContainers.Person
+ aPer.Name = aAc.name
+ aPer.Role = aAc.character
+ ' to be added / dialog to choose the size of the images
+ aPer.Thumb = _TMDBConf.images.base_url & "original" & aAc.profile_path
+ Cast.Add(aPer)
+ Next
+ End If
+ IMDBMovie.Actors = Cast
+ End If
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+ IMDBMovie.Tagline = CStr(IIf(String.IsNullOrEmpty(IMDBMovie.Tagline) AndAlso _MySettings.FallBackEng, MovieE.tagline, Movie.tagline))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ If IsNothing(Releases) Then
+ Releases = _TMDBApi.GetMovieReleases(Movie.id)
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ If (Releases.countries.Count = 0) AndAlso _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ Releases = _TMDBApiE.GetMovieReleases(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Countries.Clear()
+ If Not IsNothing(Releases) AndAlso Not IsNothing(Releases.countries) Then
+ For Each aCo As WatTmdb.V3.ReleaseCountry In Releases.countries
+ IMDBMovie.Countries.Add(aCo.iso_3166_1)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ IMDBMovie.Genres.Clear()
+ Dim tGen As System.Collections.Generic.List(Of WatTmdb.V3.MovieGenre)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tGen = CType(IIf(Movie.genres.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.genres, Movie.genres), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ Else
+ tGen = CType(IIf(_MySettings.FallBackEng, MovieE.genres, Nothing), Global.System.Collections.Generic.List(Of Global.WatTmdb.V3.MovieGenre))
+ End If
+
+
+ If Not IsNothing(tGen) Then
+ For Each aGen As WatTmdb.V3.MovieGenre In tGen
+ IMDBMovie.Genres.Add(aGen.name)
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+ IMDBMovie.Outline = CStr(IIf(String.IsNullOrEmpty(Movie.overview) AndAlso _MySettings.FallBackEng, MovieE.overview, Movie.overview))
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ Else
+ IMDBMovie.Plot = ""
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then
+ IMDBMovie.Runtime = CStr(IIf(IsNothing(Movie.runtime) AndAlso Movie.runtime = 0 AndAlso _MySettings.FallBackEng, MovieE.runtime.ToString(), Movie.runtime.ToString()))
+ End If
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ tStr = ""
+ Dim tPC As System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany)
+ If Not IsNothing(Movie) AndAlso Not IsNothing(Movie.genres) Then
+ tPC = CType(IIf(Movie.production_companies.Count = 0 AndAlso _MySettings.FallBackEng, MovieE.production_companies, Movie.production_companies), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ Else
+ tPC = CType(IIf(_MySettings.FallBackEng, MovieE.production_companies, Nothing), Global.System.Collections.Generic.List(Of WatTmdb.V3.ProductionCompany))
+ End If
+
+ If Not IsNothing(tPC) Then
+ For Each aPro As WatTmdb.V3.ProductionCompany In tPC
+ tStr = tStr & " / " & aPro.name
+ Next
+ End If
+ If Len(tStr) > 3 Then
+ tStr = Trim(Right(tStr, Len(tStr) - 3))
+ End If
+ IMDBMovie.Studio = tStr
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Or Options.bWriters Or Options.bDirector Then
+ If IsNothing(aCast) Then
+ aCast = _TMDBApi.GetMovieCast(Movie.id)
+ If Not IsNothing(aCast) AndAlso Not IsNothing(aCast.cast) Then
+ If (aCast.crew.Count = 0) AndAlso _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ Else
+ If _MySettings.FallBackEng Then
+ aCast = _TMDBApiE.GetMovieCast(Movie.id)
+ End If
+ End If
+ End If
+ IMDBMovie.Credits.Clear()
+ IMDBMovie.Directors.Clear()
+ If Not IsNothing(aCast.crew) Then
+ For Each aAc As WatTmdb.V3.Crew In aCast.crew
+ If FullCrew Then
+ IMDBMovie.Credits.Add(aAc.name)
+ ElseIf Options.bWriters Then
+ If aAc.department = "Writing" AndAlso aAc.job = "Writer" Then
+ IMDBMovie.Credits.Add(aAc.name)
+ End If
+ End If
+ If Options.bDirector Then
+ If aAc.job = "Director" Then
+ IMDBMovie.Directors.Add(aAc.name)
+ End If
+ End If
+ Next
+ End If
+ End If
+
+ If bwTMDBg.CancellationPending Then Return Nothing
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim Movie As WatTmdb.V3.TmdbMovie
+ Movie = _TMDBApi.GetMovieByIMDB(strID, _MySettings.TMDBLanguage)
+ If Movie.production_companies.Count = 0 And _MySettings.FallBackEng Then
+ Movie = _TMDBApi.GetMovieByIMDB(strID, "en")
+ End If
+ For Each aComp In Movie.production_companies
+ alStudio.Add(aComp.name)
+ Next
+
+ Return alStudio
+
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgTMDBSearchResults(_MySettings, Me)
+
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.Matches)
+ If r.Matches.Count = 1 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.Matches.Item(0).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ b = GetMovieInfo(r.Matches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).ID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ If Not bwTMDBg.IsBusy Then
+ bwTMDBg.WorkerReportsProgress = False
+ bwTMDBg.WorkerSupportsCancellation = True
+ bwTMDBg.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, _
+ .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBg.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(_sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ 'Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ ' Dim fTitle As String = oTitle
+ ' Dim Movie As WatTmdb.V3.TmdbMovie
+
+ ' Try
+ ' '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ ' If Left(strID.ToLower(), 4) = "tt" Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), _MySettings.TMDBLanguage)
+ ' If IsNothing(Movie) And _MySettings.FallBackEng Then
+ ' Movie = _TMDBApi.GetMovieInfo(CInt(Right(strID, Len(strID) - 4)), "en")
+ ' End If
+ ' Else
+ ' Movie = _TMDBApi.GetMovieByIMDB(strID)
+ ' End If
+
+ ' fTitle = Movie.title
+
+ ' Return fTitle
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' Return fTitle
+ ' End Try
+ 'End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+ Dim R As New MovieSearchResults
+ Dim Page As Integer = 1
+ Dim Movies As WatTmdb.V3.TmdbMovieSearch
+ Dim TotP As Integer
+ Dim aE As Boolean
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ If Movies.total_results = 0 And _MySettings.FallBackEng Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ aE = True
+ End If
+ If Movies.total_results > 0 Then
+ Dim t1 As String
+ Dim t2 As String
+ Dim t3 As String
+ TotP = Movies.total_pages
+ While Page <= TotP And Page <= 3
+ For Each aMovie In Movies.results
+ Dim aMI As WatTmdb.V3.TmdbMovie
+ aMI = _TMDBApi.GetMovieInfo(aMovie.id)
+ If IsNothing(aMI) Then
+ aMI = _TMDBApiE.GetMovieInfo(aMovie.id)
+ End If
+ If IsNothing(aMI.imdb_id) Then
+ t1 = ""
+ Else
+ t1 = aMI.imdb_id.ToString
+ End If
+ t2 = CStr(IIf(String.IsNullOrEmpty(aMovie.title), "", aMovie.title))
+ t3 = Left(CStr(IIf(String.IsNullOrEmpty(aMovie.release_date), "", aMovie.release_date)), 4)
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(t1, t2, t3, 0)
+ lNewMovie.TMDBID = aMI.id.ToString
+ R.Matches.Add(lNewMovie)
+ Next
+ Page = Page + 1
+ If aE Then
+ Movies = _TMDBApiE.SearchMovie(sMovie, Page)
+ Else
+ Movies = _TMDBApi.SearchMovie(sMovie, Page, _MySettings.TMDBLanguage)
+ End If
+
+ End While
+ End If
+
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+ 'Dim TMDBConf As V3.TmdbConfiguration
+ 'Dim TMDBApi As V3.Tmdb
+ 'Dim FallBackEng As Boolean
+ 'Dim TMDBLang As String
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTrailers.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..72ce5f8
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+ Private _MySettings As EmberTMDBScraperModule.sMySettings
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ Me.Clear()
+ _TMDBConf = tTMDBConf
+ _TMDBConfE = tTMDBConfE
+ _TMDBApi = tTMDBApi
+ _TMDBApiE = tTMDBApiE
+ _MySettings = tMySettings
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim YT As List(Of String)
+
+ YT = TMDB.GetTrailers(_ImdbID)
+
+ If Not YT.Count = 0 Then
+ For Each ast In YT
+ Me._TrailerList.Add(ast)
+ Next
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/clsScrapeYouTube.vb b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..51ed7c4
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,336 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..3c9254c
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,569 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlIMDB = New System.Windows.Forms.Panel()
+ Me.lblDL6Status = New System.Windows.Forms.Label()
+ Me.lblDL6 = New System.Windows.Forms.Label()
+ Me.pbDL6 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlFANARTTV = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlMDB = New System.Windows.Forms.Panel()
+ Me.lblDL5Status = New System.Windows.Forms.Label()
+ Me.lblDL5 = New System.Windows.Forms.Label()
+ Me.pbDL5 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL4Status = New System.Windows.Forms.Label()
+ Me.lblDL4 = New System.Windows.Forms.Label()
+ Me.pbDL4 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTMDB = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlIMDB.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.pnlFANARTTV.SuspendLayout()
+ Me.pnlMDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlTMDB.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 4
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 6
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 5
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 4
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 3
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 2
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 9
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 7
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 8
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 3
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlSinglePic)
+ Me.pnlDLStatus.Controls.Add(Me.pnlFANARTTV)
+ Me.pnlDLStatus.Controls.Add(Me.pnlMDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.pnlTMDB)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(253, 98)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(331, 330)
+ Me.pnlDLStatus.TabIndex = 0
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlIMDB
+ '
+ Me.pnlIMDB.Controls.Add(Me.lblDL6Status)
+ Me.pnlIMDB.Controls.Add(Me.lblDL6)
+ Me.pnlIMDB.Controls.Add(Me.pbDL6)
+ Me.pnlIMDB.Location = New System.Drawing.Point(3, 84)
+ Me.pnlIMDB.Name = "pnlIMDB"
+ Me.pnlIMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMDB.TabIndex = 9
+ '
+ 'lblDL6Status
+ '
+ Me.lblDL6Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL6Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL6Status.Name = "lblDL6Status"
+ Me.lblDL6Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6Status.TabIndex = 8
+ '
+ 'lblDL6
+ '
+ Me.lblDL6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL6.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL6.Name = "lblDL6"
+ Me.lblDL6.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL6.TabIndex = 7
+ Me.lblDL6.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL6
+ '
+ Me.pbDL6.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL6.Name = "pbDL6"
+ Me.pbDL6.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL6.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL6.TabIndex = 6
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(3, 3)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 9
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 7
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 6
+ '
+ 'pnlFANARTTV
+ '
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3Status)
+ Me.pnlFANARTTV.Controls.Add(Me.lblDL3)
+ Me.pnlFANARTTV.Controls.Add(Me.pbDL3)
+ Me.pnlFANARTTV.Location = New System.Drawing.Point(3, 84)
+ Me.pnlFANARTTV.Name = "pnlFANARTTV"
+ Me.pnlFANARTTV.Size = New System.Drawing.Size(321, 75)
+ Me.pnlFANARTTV.TabIndex = 11
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 8
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 7
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 6
+ '
+ 'pnlMDB
+ '
+ Me.pnlMDB.Controls.Add(Me.lblDL5Status)
+ Me.pnlMDB.Controls.Add(Me.lblDL5)
+ Me.pnlMDB.Controls.Add(Me.pbDL5)
+ Me.pnlMDB.Location = New System.Drawing.Point(3, 246)
+ Me.pnlMDB.Name = "pnlMDB"
+ Me.pnlMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMDB.TabIndex = 9
+ '
+ 'lblDL5Status
+ '
+ Me.lblDL5Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL5Status.Name = "lblDL5Status"
+ Me.lblDL5Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5Status.TabIndex = 8
+ '
+ 'lblDL5
+ '
+ Me.lblDL5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL5.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL5.Name = "lblDL5"
+ Me.lblDL5.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL5.TabIndex = 7
+ Me.lblDL5.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL5
+ '
+ Me.pbDL5.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL5.Name = "pbDL5"
+ Me.pbDL5.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL5.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL5.TabIndex = 6
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.lblDL4Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL4)
+ Me.pnlIMPA.Controls.Add(Me.pbDL4)
+ Me.pnlIMPA.Location = New System.Drawing.Point(3, 165)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 6
+ '
+ 'lblDL4Status
+ '
+ Me.lblDL4Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL4Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL4Status.Name = "lblDL4Status"
+ Me.lblDL4Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4Status.TabIndex = 8
+ '
+ 'lblDL4
+ '
+ Me.lblDL4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL4.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL4.Name = "lblDL4"
+ Me.lblDL4.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL4.TabIndex = 7
+ Me.lblDL4.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL4
+ '
+ Me.pbDL4.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL4.Name = "pbDL4"
+ Me.pbDL4.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL4.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL4.TabIndex = 6
+ '
+ 'pnlTMDB
+ '
+ Me.pnlTMDB.Controls.Add(Me.lblDL2Status)
+ Me.pnlTMDB.Controls.Add(Me.lblDL2)
+ Me.pnlTMDB.Controls.Add(Me.pbDL2)
+ Me.pnlTMDB.Location = New System.Drawing.Point(3, 3)
+ Me.pnlTMDB.Name = "pnlTMDB"
+ Me.pnlTMDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlTMDB.TabIndex = 10
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 8
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 7
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 6
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlIMDB.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.pnlFANARTTV.ResumeLayout(False)
+ Me.pnlMDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlTMDB.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL4Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL4 As System.Windows.Forms.Label
+ Friend WithEvents pbDL4 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL5Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL5 As System.Windows.Forms.Label
+ Friend WithEvents pbDL5 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+ Friend WithEvents pnlFANARTTV As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL6Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL6 As System.Windows.Forms.Label
+ Friend WithEvents pbDL6 As System.Windows.Forms.ProgressBar
+
+End Class
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.resx b/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..3491405
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.vb b/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..b2e44a9
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1582 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports EmberScraperModule.EmberTMDBScraperModule
+Imports RestSharp
+Imports WatTmdb
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwIMDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwFANARTTVDownload As New System.ComponentModel.BackgroundWorker
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Private TMDB As TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+
+ Private IMDB As New IMDBimg.Scraper
+ Private IMDBPosters As New List(Of MediaContainers.Image)
+
+ Private FANARTTVs As FANARTTVs.Scraper
+ Private FANARTTVPosters As New List(Of MediaContainers.Image)
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _imdbDone As Boolean = True
+ Private _fanarttvDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+ Private Event IMDBDone()
+
+ Private Event FANARTTVDone()
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = tMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ TMDB = New TMDB.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ FANARTTVs = New FANARTTVs.Scraper(_MySettings)
+ End Sub
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = poster.WebImage.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(poster.URL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone AndAlso Me._imdbDone AndAlso Me._fanarttvDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.TMDBPosters.AddRange(Me.IMDBPosters)
+ Me.TMDBPosters.AddRange(Me.FANARTTVPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+ Me.pnlTMDB.Visible = False
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.pnlDLStatus.Height = 85
+ Me.pnlDLStatus.Top = 185
+
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.IMDBPosters.Count - 1
+ Try
+ If Me.bwIMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMDBDownload.ReportProgress(i + 1, Me.IMDBPosters.Item(i).URL)
+ Try
+ Me.IMDBPosters.Item(i).WebImage.FromWeb(Me.IMDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMDBPosters.Item(i).URL = StringUtils.CleanURL(Me.IMDBPosters.Item(i).URL)
+ Me.IMDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMDBPosters.Item(i).Description, ")_(url=", Me.IMDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL6Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL6.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._imdbDone = True
+ RaiseEvent IMDBDone()
+ End If
+ End Sub
+
+ Private Sub bwFANARTTVDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwFANARTTVDownload.DoWork
+ '//
+ ' Thread to download FanartTV images from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.FANARTTVPosters.Count - 1
+ Try
+ If Me.bwFANARTTVDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwFANARTTVDownload.ReportProgress(i + 1, Me.FANARTTVPosters.Item(i).URL)
+ Try
+ Me.FANARTTVPosters.Item(i).WebImage.FromWeb(Me.FANARTTVPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.FANARTTVPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.FANARTTVPosters.Item(i).URL = StringUtils.CleanURL(Me.FANARTTVPosters.Item(i).URL)
+ Me.FANARTTVPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.FANARTTVPosters.Item(i).Description, ")_(url=", Me.FANARTTVPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwFANARTTVDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwFANARTTVDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwFANARTTVDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwFANARTTVDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._fanarttvDone = True
+ RaiseEvent FANARTTVDone()
+ End If
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL4Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL4.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPABownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")), , , False)
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL5Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL5.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = _MySettings.ManualETSize
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress((i + 1), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath, , , False)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+ IMDB.Cancel()
+ FANARTTVs.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+ If bwIMDBDownload.IsBusy Then bwIMDBDownload.CancelAsync()
+ If bwFANARTTVDownload.IsBusy Then bwFANARTTVDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+ IMDB = Nothing
+ FANARTTVs = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ IMDBPosters = Nothing
+ FANARTTVPosters = Nothing
+
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains(_TMDBConf.images.base_url.ToLower) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "backdrop")
+
+ If _MySettings.UseFANARTTV Then
+ Me.lblDL3.Text = Master.eLang.GetString(120, "Retrieving data from Fanart.tv...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._fanarttvDone = False
+
+ Me.FANARTTVs.GetImagesAsync(tMovie.Movie.ID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(121, "Fanart.tv is not enabled")
+ End If
+
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ Me.ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ Me.lblDL2.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.TMDBID, "poster")
+
+ If _MySettings.UseIMDB Then
+ Me.lblDL6.Text = Master.eLang.GetString(117, "Retrieving data from IMDB.com...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._imdbDone = False
+
+ Me.IMDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL6.Text = Master.eLang.GetString(118, "IMDB.com is not enabled")
+ End If
+
+ If _MySettings.UseIMPA Then
+ Me.lblDL4.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL4.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If _MySettings.UseMPDB Then
+ Me.lblDL5.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL5.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVDoneDownloading()
+ Try
+ Me._fanarttvDone = True
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ 'Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.FANARTTVPosters = Posters
+
+ Me.bwFANARTTVDownload.WorkerSupportsCancellation = True
+ Me.bwFANARTTVDownload.WorkerReportsProgress = True
+ Me.bwFANARTTVDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub FANARTTVProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub IMDBDoneDownloading()
+ Try
+ Me._imdbDone = True
+ Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL6.Value = 0
+
+ 'Me.lblDL6.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL6Status.Text = String.Empty
+ Me.pbDL6.Maximum = Posters.Count
+
+ Me.IMDBPosters = Posters
+
+ Me.bwIMDBDownload.WorkerSupportsCancellation = True
+ Me.bwIMDBDownload.WorkerReportsProgress = True
+ Me.bwIMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL6.Value = iPercent
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL4.Value = 0
+
+ 'Me.lblDL4.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL4Status.Text = String.Empty
+ Me.pbDL4.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL4.Value = iPercent
+ End Sub
+
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL5.Value = 0
+
+ 'Me.lblDL5.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL5Status.Text = String.Empty
+ Me.pbDL5.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL5.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.Description, iIndex, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMDB.PostersDownloaded, AddressOf IMDBPostersDownloaded
+ AddHandler IMDB.ProgressUpdated, AddressOf IMDBProgressUpdated
+ AddHandler FANARTTVs.PostersDownloaded, AddressOf FANARTTVPostersDownloaded
+ AddHandler FANARTTVs.ProgressUpdated, AddressOf FANARTTVProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+ AddHandler IMDBDone, AddressOf IMDBDoneDownloading
+ AddHandler FANARTTVDone, AddressOf FANARTTVDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = True
+ Me.pnlFANARTTV.Visible = False
+ Me.pnlIMPA.Visible = True
+ Me.pnlMDB.Visible = True
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 328
+ Me.pnlDLStatus.Top = 82
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlTMDB.Visible = True
+ Me.pnlIMDB.Visible = False
+ Me.pnlFANARTTV.Visible = True
+ Me.pnlIMPA.Visible = False
+ Me.pnlMDB.Visible = False
+ Me.pnlSinglePic.Visible = False
+ Me.pnlDLStatus.Height = 165
+ Me.pnlDLStatus.Top = 129
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL5.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL4.Text = Me.lblDL5.Text
+ Me.lblDL3.Text = Me.lblDL5.Text
+ Me.lblDL2.Text = Me.lblDL5.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ Me._tmdbDone = True
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Application.DoEvents()
+
+ Me.AllDoneDownloading()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ 'Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.TMDBPosters = Posters
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb b/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..edf9f3b
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.Designer.vb
@@ -0,0 +1,460 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtTMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(497, 401)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(570, 401)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(4, 96)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.ShowLines = False
+ Me.tvResults.ShowPlusMinus = False
+ Me.tvResults.ShowRootLines = False
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 4
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(294, 130)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(291, 70)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(291, 89)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(294, 295)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(472, 130)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(472, 156)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(472, 183)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtTMDBID
+ '
+ Me.txtTMDBID.Enabled = False
+ Me.txtTMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBID.Location = New System.Drawing.Point(139, 399)
+ Me.txtTMDBID.Name = "txtTMDBID"
+ Me.txtTMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTMDBID.TabIndex = 6
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 8
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(257, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(4, 403)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(130, 17)
+ Me.chkManual.TabIndex = 5
+ Me.chkManual.Text = "Manual TMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(245, 399)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 7
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(472, 247)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(37, 13)
+ Me.lblIMDB.TabIndex = 20
+ Me.lblIMDB.Text = "TMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(410, 130)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(33, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(410, 156)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(410, 183)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(410, 247)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(56, 13)
+ Me.lblIMDBHeader.TabIndex = 19
+ Me.lblIMDBHeader.Text = "TMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(291, 279)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(262, 70)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 3
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(4, 71)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 2
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(364, 183)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 18
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(100, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(308, 155)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'dlgTMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 454)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtTMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgTMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+
+End Class
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.resx b/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.resx
new file mode 100644
index 0000000..017a5ad
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK9gAA
+ CvYBwq9wAwAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.vb b/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.vb
new file mode 100644
index 0000000..d05fd0b
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTMDBSearchResults.vb
@@ -0,0 +1,462 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+
+Public Class dlgTMDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private TMDBg As TMDBg.Scraper
+ Private sHTTP As New HTTP
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+ Private MySettings As EmberTMDBScraperModule.sMySettings
+ 'Private TMDBConf As V3.TmdbConfiguration
+ 'Private TMDBApi As V3.Tmdb
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(_MySettings As EmberTMDBScraperModule.sMySettings, _TMDBg As TMDBg.Scraper)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+ 'TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ 'TMDBConf = TMDBApi.GetConfiguration()
+ MySettings = _MySettings
+ TMDBg = _TMDBg
+ End Sub
+
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ 'TMDBg.IMDBURL = TMDBId
+ TMDBg.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As TMDBg.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching TMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ TMDBg.CancelAsync()
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ TMDBg.GetSearchMovieInfoAsync(Me.txtTMDBID.Text, Master.tmpMovie, Master.DefaultOptions)
+
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ TMDBg.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ 'TMDBg.IMDBURL = IMDBURL
+ AddHandler TMDBg.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler TMDBg.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ '' The rule is that if there is a tt is an IMDB otherwise is a TMDB
+ Master.tmpMovie.IMDBID = Me.txtTMDBID.Text
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.TMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.TMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.TMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.TMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As TMDBg.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+ 'Dim TnP As New TreeNode
+ 'Dim selNode As New TreeNode
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) AndAlso M.Matches.Count > 0 Then
+
+ 'M.Matches.Sort()
+ For Each Movie As MediaContainers.Movie In M.Matches
+ 'TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Me.tvResults.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.TMDBID})
+ Next
+ 'TnP.Expand()
+ 'Me.tvResults.Nodes.Add(TnP)
+ 'selNode = Me.tvResults.Nodes(0)
+ 'selNode = TnP.FirstNode
+ 'selNode = Me.tvResults.Nodes(0)
+ Me.tvResults.SelectedNode = Me.tvResults.Nodes(0)
+
+ Me._prevnode = -2
+
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual TMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(116, "TMDB ID:")
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching TMDB...")
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ 'IMDB.IMDBURL = IMDBURL
+ TMDBg.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..1865dbc
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,279 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(290, 339)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(74, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(369, 339)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(411, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(424, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(112, 82)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(120, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(411, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(376, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(365, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(72, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(392, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(153, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 339)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(106, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(207, 339)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(77, 23)
+ Me.btnSetNfo.TabIndex = 4
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(444, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(450, 366)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.resx b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..2be3cac
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB80lEQVQ4T6XTTWsTQRgH8EGr9GDFm19AseDBgzc9eba0FJqvIOTiRase
+ RAIKtRo9LbbxpYmtggXR2KRFqGLfDio9tDGbdUMrbvc1+57sioiVv7NDLE3MXnTgz8DsPr95dpglAMj/
+ pKVY17QuyzLP2raVoBlybHvIc92EUKmcidukBTBrtasUAC0GLWYJggaWl5dw9056uBPSAtDi8aiYAY4N
+ 13HwLQyxuLiAW6OjyIyPXW5H2gFuZ/cm4HseNFVFsTCD2WIRHz+8P7cb6Qjs7iDqIkLCMEC97kedZWMB
+ egasA8s24TsBQm8bob8N3w3YZzUzFgsYus6ZZo0WhPisvMackGQR5Dm2xnDLjAdUVeF0XUPD/Yl31eu4
+ sURY3orXaDe/EOGGoccDsrzFKYoMz/yON0IaqYVDLPPCTdTtH6D3BKqixANfNjc5SZJga3XMlm5jeP4w
+ S6E0AsdoQJFlbElSPMCXy/ekDQUTK1eQzB/B+cJxlmT+KB6sXID61UBVFDOxh7i+tjbCf+KxXl7FpZeD
+ SOR6WS6+6EepsgpREFHh+XRHYC8hB/r7+k7kshOZ/PSrZ7mn2cnTqd7qqdSxjUdPHk7NPC9OT00+vj84
+ MHByDyEH/yA7F4kC+wgh3dGDaDTnHkK6etrWuum7+/8C/vWX/g1N2vpUAmZdeAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQfZBBoSIQHX+6QX
+ AAACOElEQVQ4T7WSTWvaQRCHozlYNQSiVXwBNSSKKAhqKogo2hx8OeUQpPVY9OBFId+g0IufoQnegslF
+ EEG8qAgeiij4hohoDjkphJAIGg/udGepfyLV3rowLDu788zs/GZv73+st7e35NPT069KpfJaLpdnj4+P
+ nel0+p3mOvhnvoeHh0+j0WieTCbB6XSSYDAIoVAIXC4Xicfj0Ov1IJ/Pf9kKweBisQharZbY7XbweDxg
+ sVjg7OwM8Ix2enpK7u/v4e7u7ttfEJp5QZ3k8PAQ1Go1hMNhyGazIJFIQKVSMd/R0RHgm2azCQqFQsNB
+ FovFFZZLHZz5fD7AlU6nmY/H43F3NpsNWq3WLQeYz+d1JL8H4BfW6+bmZgOO77rd7isHqNfrM3Ty+XzY
+ 399n5vV6WfxqtWL79fX1RiWlUgnPHxlkDRAKhSASiUAsFoPf72eBhBAGeXl5AZlMBgKBgIGoxLirGOD5
+ +blL/0iwSVKpFORyOVxcXHAV0HtUhzUUm4yATqezpPsHBphMJj8uLy9BqVSCRqOB4+NjiEQiDICZUU6d
+ TseUQLjb7YZqtVp6L+UBlREBxGg0soBoNArL5RJQDavVCmazGecAKyTtdhtOTk68G7OQy+W+1mo1MJlM
+ hE4hA2BV5+fnLKPD4QC9Xk8KhQKkUqmfW6cxk8nE6ERCIpFgkxgIBFgzERCLxWAwGOwOXhPpPzWNRuN2
+ PB7P+v0+oA2HwyWVrWIwGD5vzbzDyaN++R+phLsCfwMUR2eb8uMbUAAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.vb b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..d63ea34
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailer.vb
@@ -0,0 +1,465 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+Imports WatTmdb
+Imports EmberScraperModule.EmberTMDBScraperModule
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Private _MySettings As New sMySettings
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Sub New(ByRef tTMDBConf As V3.TmdbConfiguration, ByRef tTMDBConfE As V3.TmdbConfiguration, ByRef tTMDBApi As V3.Tmdb, ByRef tTMDBApiE As V3.Tmdb, ByRef tMySettings As EmberTMDBScraperModule.sMySettings)
+
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ _MySettings = TMySettings
+ _TMDBApi = tTMDBApi
+ _TMDBConf = tTMDBConf
+ _TMDBApiE = tTMDBApiE
+ _TMDBConfE = tTMDBConfE
+ cTrailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..22f1374
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(84, 117)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(154, 117)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(17, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(78, 69)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(53, 2)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(114, 100)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(10, 29)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.pnlStatus)
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(2, 4)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(220, 111)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 143)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.resx b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.vb b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb b/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f610c2c
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.Designer.vb
@@ -0,0 +1,545 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.chkFallBackEng = New System.Windows.Forms.CheckBox()
+ Me.cbTMDBPrefLanguage = New System.Windows.Forms.ComboBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtTMDBApiKey = New System.Windows.Forms.TextBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtFANARTTVApiKey = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.pbTMDB = New System.Windows.Forms.PictureBox()
+ Me.pbFANARTTV = New System.Windows.Forms.PictureBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.pbTMDB)
+ Me.GroupBox30.Controls.Add(Me.chkFallBackEng)
+ Me.GroupBox30.Controls.Add(Me.cbTMDBPrefLanguage)
+ Me.GroupBox30.Controls.Add(Me.Label3)
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtTMDBApiKey)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(309, 123)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "TMDB"
+ '
+ 'chkFallBackEng
+ '
+ Me.chkFallBackEng.AutoSize = True
+ Me.chkFallBackEng.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFallBackEng.Location = New System.Drawing.Point(8, 100)
+ Me.chkFallBackEng.Name = "chkFallBackEng"
+ Me.chkFallBackEng.Size = New System.Drawing.Size(129, 17)
+ Me.chkFallBackEng.TabIndex = 4
+ Me.chkFallBackEng.Text = "Fall back on english"
+ Me.chkFallBackEng.UseVisualStyleBackColor = True
+ '
+ 'cbTMDBPrefLanguage
+ '
+ Me.cbTMDBPrefLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTMDBPrefLanguage.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTMDBPrefLanguage.FormattingEnabled = True
+ Me.cbTMDBPrefLanguage.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTMDBPrefLanguage.Location = New System.Drawing.Point(123, 65)
+ Me.cbTMDBPrefLanguage.Name = "cbTMDBPrefLanguage"
+ Me.cbTMDBPrefLanguage.Size = New System.Drawing.Size(45, 21)
+ Me.cbTMDBPrefLanguage.TabIndex = 3
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label3.Location = New System.Drawing.Point(6, 68)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(111, 13)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "Preferred Language:"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(79, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "TMDB API Key:"
+ '
+ 'txtTMDBApiKey
+ '
+ Me.txtTMDBApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTMDBApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtTMDBApiKey.Name = "txtTMDBApiKey"
+ Me.txtTMDBApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtTMDBApiKey.TabIndex = 1
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pbFANARTTV)
+ Me.GroupBox1.Controls.Add(Me.Label5)
+ Me.GroupBox1.Controls.Add(Me.txtFANARTTVApiKey)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(8, 169)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(309, 71)
+ Me.GroupBox1.TabIndex = 75
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Fanart.tv"
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label5.Location = New System.Drawing.Point(6, 18)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(94, 13)
+ Me.Label5.TabIndex = 0
+ Me.Label5.Text = "Fanart.tv API Key:"
+ '
+ 'txtFANARTTVApiKey
+ '
+ Me.txtFANARTTVApiKey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtFANARTTVApiKey.Location = New System.Drawing.Point(8, 32)
+ Me.txtFANARTTVApiKey.Name = "txtFANARTTVApiKey"
+ Me.txtFANARTTVApiKey.Size = New System.Drawing.Size(273, 22)
+ Me.txtFANARTTVApiKey.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(323, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(283, 150)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(225, 17)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(52, 17)
+ Me.chkCrew.TabIndex = 19
+ Me.chkCrew.Text = "Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(131, 123)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 89)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 72)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 89)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 123)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(131, 106)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 106)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 72)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'pbTMDB
+ '
+ Me.pbTMDB.Image = CType(resources.GetObject("pbTMDB.Image"), System.Drawing.Image)
+ Me.pbTMDB.Location = New System.Drawing.Point(287, 34)
+ Me.pbTMDB.Name = "pbTMDB"
+ Me.pbTMDB.Size = New System.Drawing.Size(16, 16)
+ Me.pbTMDB.TabIndex = 5
+ Me.pbTMDB.TabStop = False
+ '
+ 'pbFANARTTV
+ '
+ Me.pbFANARTTV.Image = CType(resources.GetObject("pbFANARTTV.Image"), System.Drawing.Image)
+ Me.pbFANARTTV.Location = New System.Drawing.Point(287, 34)
+ Me.pbFANARTTV.Name = "pbFANARTTV"
+ Me.pbFANARTTV.Size = New System.Drawing.Size(16, 16)
+ Me.pbFANARTTV.TabIndex = 6
+ Me.pbFANARTTV.TabStop = False
+ '
+ 'frmTMDBInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ CType(Me.pbTMDB, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbFANARTTV, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtTMDBApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFallBackEng As System.Windows.Forms.CheckBox
+ Friend WithEvents cbTMDBPrefLanguage As System.Windows.Forms.ComboBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label5 As System.Windows.Forms.Label
+ Friend WithEvents txtFANARTTVApiKey As System.Windows.Forms.TextBox
+ Friend WithEvents pbTMDB As System.Windows.Forms.PictureBox
+ Friend WithEvents pbFANARTTV As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.resx b/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.resx
new file mode 100644
index 0000000..b1bac92
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.resx
@@ -0,0 +1,223 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="pbFANARTTV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAABypJREFUWEftlntQlccZxrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj
+ 24wlxabt1PSShFhJEFEuKhxUBAFNRSFq7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7
+ z77v7rufAqBGkhGdXBb+fwH/GxG41NenPr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7Pk
+ ZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2ms
+ e+DyZ5+p/itXRMTopUWL6+gIedmZSIiJQk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGek
+ o7AgH+vYlzU/DakpydomL+ufPnKzMiA+VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB
+ +vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xqQhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQX
+ pv/PSojDRtP6zN+/uU399je/fihg9szpKnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2
+ lL1eipSkROyrr4eloQEMNcpKS3H8zx/gxSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpx
+ eryaHhtdIquODA3WK1yQnYVshlrCWrAwD4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOW
+ yxSmpszWPiNCggRzREigEqwCZPKkGQkSAZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4Cbt
+ btwY0G3hNvvb244gKiwEYUFGc0RwkBKGRCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D5
+ 57jY26tTEGL0N4cHG5kC40MB7FCShpjIcFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr
+ 1IcfgilGcICfOSwoQAnWCLBDzYiLUdHhoSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx
+ 44iPjkSQv6851GhQglUAcy8bUDFHJtksrYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbE
+ RYYj0M/HzCgowSogPipSJURHqciQYFMEN+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD
+ 6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+ytr8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no
+ 660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJoYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJ
+ VgFUJvlXnNzETYL3KnbA0mjBflbE4SBCN71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfm
+ P0gFGXxNAb7eKGfprKutxZ7du4eFiJT8L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUH
+ GSUvJoYG28vL/ysBMulG0wa8qAU0DBEti6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/
+ pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrurq1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5
+ LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wGjVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F
+ 5yOngBuQTpSv57QSUVmzu5qVbRsm2dmgZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQ
+ eK3zwglAU2OjLkwO45/FNhapvXW1oH84T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN
+ +toa/TExLzmJV22mbldWVIgjXL9+Xd90srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x
+ 1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4e
+ L9np2kbGOTP00WHBvIiieBH5N0xzdR0tc8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5
+ usvJYaLQPdH22W7HiXbdzo6TujlG4zx5UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7B
+ An7Alw5U50wms+3Cge7Ek3gTX+JH/ImBBAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm
+ 3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/xKb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVO
+ RK5CYII=
+</value>
+ </data>
+ <data name="pbTMDB.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAABnElE
+ QVQ4T2P4//8/AyUYp2bhrrN6gl1nkgS7z6QLdZ21xWUJhgHS0++x8rWfXsXRfOI/S8Ox/yz1R/+zNx3/
+ z9N++qxI13kpdIMwDOBpPDKHpfrgf4ayvf8ZK/bdZKzYf4ihfO9/psoD/7kajhxJPIPqZRQDhKp2C7AX
+ b//PnLf5P2v+lq0w21gLtvYy5235z1a07T9fxS4UV6AYIFi4mYctfdUztrSV/znTVujADGBPWzkLKP4f
+ KP6PK3utMLI3MLzAFTNXhCthoSZMEUfsvFaOuAX/OeLm/+eMmz+ZYBggK+AKnTKZK2zaf+7QKf+5wqYu
+ xxYTOKORz7dbm9e35z+vb/d/Xr/u2URHI0whn3NDIL9Lw38QlrQoYCfZAEHnej4hu8q1gnaVFfhSKk4v
+ iOpnyIoaZu0SMchaLmKQyUOyC0T1M4tE9dL+i+ql/xc3zHEkygBmBgZhIFZmYmBQ5RLR9RLWjL0hrBF1
+ ko1bwhQorgHEKkAsBsRwl6N4ASjBDsR8QCwEVMMLxBxAzA7EAiAxIOYHYg6cBpCTrQErRGvnAPNv7gAA
+ AABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.vb b/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.vb
new file mode 100644
index 0000000..d17768a
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/frmTMDBInfoSettingsHolder.vb
@@ -0,0 +1,218 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports System.Diagnostics
+
+Public Class frmTMDBInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ Public Event SetupNeedsRestart()
+
+#End Region 'Events
+
+#Region "Fields"
+
+ Private Api1 As String
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFallBackEng_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFallBackEng.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTMDBPrefLanguage_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbTMDBPrefLanguage.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtFANARTTVApiKey_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtFANARTTVApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Enter
+ Api1 = txtTMDBApiKey.Text
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub txtTMDBApiKey_TextValidated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTMDBApiKey.Validated
+ If Not (Api1 = txtTMDBApiKey.Text) Then
+ RaiseEvent SetupNeedsRestart()
+ End If
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label18.Text = Master.eLang.GetString(854, "TMDB API Key:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(856, "Cast and Crew", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(859, "MPAA & Certification", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ 'Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkFallBackEng.Text = Master.eLang.GetString(114, "Fall back on english")
+ Me.Label3.Text = Master.eLang.GetString(115, "Preferred Language:")
+
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+
+#End Region 'Methods
+
+ Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles pbTMDB.Click
+ If Master.isWindows Then
+ Process.Start("http://docs.themoviedb.apiary.io/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://docs.themoviedb.apiary.io/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+
+ Private Sub pbFANARTTV_Click(sender As System.Object, e As System.EventArgs) Handles pbFANARTTV.Click
+ If Master.isWindows Then
+ Process.Start("http://fanart.tv/get-an-api-key/")
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = "http://fanart.tv/get-an-api-key/"
+ Explorer.Start()
+ End Using
+ End If
+
+ End Sub
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb b/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..68e3c03
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.Designer.vb
@@ -0,0 +1,525 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTMDBMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTMDBMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.chkUseFANARTTV = New System.Windows.Forms.CheckBox()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMDBp = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(505, 154)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.chkUseFANARTTV)
+ Me.GroupBox6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox6.Location = New System.Drawing.Point(331, 21)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox6.TabIndex = 96
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Get Fanart From:"
+ '
+ 'chkUseFANARTTV
+ '
+ Me.chkUseFANARTTV.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseFANARTTV.Location = New System.Drawing.Point(6, 21)
+ Me.chkUseFANARTTV.Name = "chkUseFANARTTV"
+ Me.chkUseFANARTTV.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseFANARTTV.TabIndex = 2
+ Me.chkUseFANARTTV.Text = "fanart.tv"
+ Me.chkUseFANARTTV.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseFANARTTV.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMDBp)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 19)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 78)
+ Me.GroupBox9.TabIndex = 5
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Poster From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMDBp
+ '
+ Me.chkUseIMDBp.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMDBp.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseIMDBp.Name = "chkUseIMDBp"
+ Me.chkUseIMDBp.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseIMDBp.TabIndex = 0
+ Me.chkUseIMDBp.Text = "IMDB.com"
+ Me.chkUseIMDBp.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMDBp.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(331, 94)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 55)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(12, 21)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(131, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 203)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(464, 126)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.GroupBox5)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(291, 104)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 5
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(123, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 83)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmTMDBMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTMDBMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMDBp As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseFANARTTV As System.Windows.Forms.CheckBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.resx b/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.resx
new file mode 100644
index 0000000..3c46229
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.resx
@@ -0,0 +1,238 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABypJREFUWEftlntQlccZ
+ xrex1tjYNJMEREEhgiB3OBzu94sXEFSQOypEMEYr9Ro9eBJj24wlxabt1PSShFhJEFEuKhxUBAFNRSFq
+ 7ESlQUwninYMaqKOM3Gcefq82+RooZ3Qv+gfPTO/+fZ8u++7z77v7rufAqBGkhGdXBb+fwH/GxG41Nen
+ Pr10SfX19qrt75aPWbliefGc2Ym1c5OTmubOTrKwbclKT7PkZKZbMuenWRbkZFsW5y+y5C/Is+Tn5eq2
+ vMucn2rJyUjXY+fSRmzFx5ykWXVLFhesbjvS+rjk/f5XX2mse+DyZ5+p/itXRMTopUWL6+gIedmZSIiJ
+ Qk5mBlYsW4rUOSnITEvF2tUrseT5AmSlz8faVauwbs1qZGeko7AgH+vYlzU/DakpydomL+ufPnKzMiA+
+ VxWvsHCeMX+/dk1d7e9/KKB6V5Wqq9mj3tj6i5SZcbF48OAB+vv7ER4ciJbmZgoFfvyj5di4Yb1uH2xq
+ QhoFffHFLdy7dw/pqfOwb2+97tu86RUsLSrU7WNHOxAaZAQXpv/PSojDRtP6zN+/uU399je/fihg9szp
+ KnnWDEW1JfFU3LBvHyr+tB2hgQF4fcsWHGlt0REpLFiEjvY2lL1eipSkROyrr4eloQEMNcpKS3H8zx/g
+ xSWFjE4ajrS0gAvSPt595200WRoxMz6W/w2buDAlWFNAZSpxeryaHhtdIquODA3WK1yQnYVshlrCWrAw
+ D4sXLcTC3BwU5i/CsheWgLnXyIpFxKyEeG2TvyAXGYxKBlOWyxSmpszWPiNCggRzREigEqwCZPKkGQkS
+ AZMIaD3cjLt37+LWzZvfzq2buHP7Nn71y63YsG4tbgwM4CbtbtwY0G3hNvvb244gKiwEYUFGc0RwkBKG
+ RCAuKsJE0HPhAgZoeO3q1WFx+8svUVX5PkO+FXfu3BliM/D557jY26tTEGL0N4cHG5kC40MB7FCShpjI
+ cFNsZBhOnujUG+fiJ5+g91uQMVcuX0b5229hy2s/0+3BNuLr1IcfgilGcICfOSwoQAnWCLBDzYiLUdHh
+ oSbC3XsUf+3pwbmPPx4WfRf78IffvYmfbn4VrClDbHro68Tx44iPjkSQv6851GhQglUAcy8bUDFHJtks
+ rYcP4y9nz+L0qVPD4vy5c+Cxwqsvb8SF8+eH2Jz96COennbERYYj0M/HzCgowSogPipSJURHqciQYFME
+ N+EBiwXdXV3opOrhcOb0abxRVqbrxJnTZ4bYdJ08ieZDhxDD6Ab4epkD/X2VYBUQGxmuuPnkbJqYG+yt
+ r8MHx45x57YNi87OTl0vXlq7BifYHmwnKW3cv18fRYO3p9no660EqwDmXcVEhCkWDVNIgD+qd+1CKwvJ
+ oYMHh0V7Wzte+8lmrF5ZjI6ODr3aRxFfdTU1urL6ebqbKUIJVgFUJvlXnNzETYL3KnbA0mjBflbE4SBC
+ N71sRvHyZWhm6W7gah+liSmt2rlTV0UfDzezn5e7EqwCmHfmP0gFGXxNAb7eKGfprKutxZ7du4eFiJT8
+ L3uhSE9cs2fPv1BfV4cdLO3BBj94uU01+7i7KcEqICwwQIUHGSUvJoYG28vL/ysBMulG0wa8qAU0DBEt
+ i6nYsQPcePCY6mymCCVYBbA6Mf8GxR1q8nCZoguKrH5nZeV/pOrrPnnK2CJe0XJ/VO2sYlUUu/ettrur
+ q1H68y1cvQvcp04xe7g6K8EqgGeTx8JH+Xt7lLg+5wgXRwc5LnrXBhv8YfTzQRTbkazlEkbZTFKyQ4wG
+ jVRPr2muEFvJc1RoCBhNKTpgamHw8YLLZAe4TXGEm7OTmU/F5yOngBuQTpSv57QSUVmzu5qVbRsm2dmg
+ ZP1LrAuNkAoptfzggSZ+eKzCVKdJ+squqnyPjp2whiegpfkQeK3zwglAU2OjLkwO45/FNhapvXW1oH84
+ T7bf5OPuqjwfjYD9BDvFLx+1+RVzcgDV3r9/H3/79BIm2jyN+toa/TExLzmJV22mbldWVIgjXL9+Xd90
+ srJ33vqj7it6Pl8Lld+BpkbYPfMUenou6P8SkeLlSzOS+O3x1A+ffBgBxd93iLub2yh/b8+a6bFRiIkI
+ 1angBkVK4gx4M8R+XMHc5ESmwAh3l+d4/8eCV7nkVY+bxz4eL9np2kbGOTP00WHBvIiieBH5N0xzdR0t
+ c8nPugdGcX7yBN+Nf2LsWBf78balDna2HY72E7ocxtt0TbB5usvJYaLQPdH22W7HiXbdzo6TujlG4zx5
+ UjfH6j4ZI2Mn2DzTZU9bJ/FhZ3uUPsueHDfOlXPYPsa5ZM7BAn7Alw5U50wms+3Cge7Ek3gTX+JH/ImB
+ BAxC3kmfjJGxYuMhPsSX+CRTZA4ybrAAxReCROIxMop8l4wm3yNjyONk7Nd8n89/xzf9MlZsxFZ8iC/x
+ Kb5lDj2fNQLSGClGbOJvFjziAv4B1z91K1OjhosAAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.vb b/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.vb
new file mode 100644
index 0000000..6ccca98
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/frmTMDBMediaSettingsHolder.vb
@@ -0,0 +1,165 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTMDBMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseFANARTTV_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkUseFANARTTV.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMDBp_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkUseIMDBp.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMDBf_CheckedChanged(sender As System.Object, e As System.EventArgs)
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberTMDBScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/packages.config b/Addons/scraper.TMDB.Poster/packages.config
new file mode 100644
index 0000000..9d72b1b
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="RestSharp" version="104.1" targetFramework="net35" />
+ <package id="SharpZipLib" version="0.86.0" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/scraper.TMDB.Poster.vbproj b/Addons/scraper.TMDB.Poster/scraper.TMDB.Poster.vbproj
new file mode 100644
index 0000000..c31d3a8
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/scraper.TMDB.Poster.vbproj
@@ -0,0 +1,287 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.TMDB.Poster</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ <SccProjectName>
+ </SccProjectName>
+ <SccLocalPath>
+ </SccLocalPath>
+ <SccAuxPath>
+ </SccAuxPath>
+ <SccProvider>
+ </SccProvider>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="RestSharp">
+ <HintPath>..\..\packages\RestSharp.104.1\lib\net35\RestSharp.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeTMDBg.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeFANARTTV.vb" />
+ <Compile Include="Scraper\dlgTMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTMDBMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTMDBInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieTMDBModule.vb" />
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="Scraper\dlgTMDBSearchResults.resx">
+ <DependentUpon>dlgTMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBMediaSettingsHolder.resx">
+ <DependentUpon>frmTMDBMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTMDBInfoSettingsHolder.resx">
+ <DependentUpon>frmTMDBInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ <ProjectReference Include="..\..\FanartTVAPI\FanartTVAPI.csproj">
+ <Project>{70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}</Project>
+ <Name>FanartTVAPI</Name>
+ </ProjectReference>
+ <ProjectReference Include="..\..\WatTmdb\WatTmdb.csproj">
+ <Project>{EFC11645-FAB4-4C30-A498-29F5ECDF77E8}</Project>
+ <Name>WatTmdb</Name>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.TMDB.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <ItemGroup />
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.TMDB.Poster/scraperMovieTMDBModule.vb b/Addons/scraper.TMDB.Poster/scraperMovieTMDBModule.vb
new file mode 100644
index 0000000..7ac1344
--- /dev/null
+++ b/Addons/scraper.TMDB.Poster/scraperMovieTMDBModule.vb
@@ -0,0 +1,761 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+Imports RestSharp
+Imports WatTmdb
+Imports EmberScraperModule.TMDBg
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberTMDBScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ Private TMDBId As String
+ 'Private IMDBid As String
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private _MySettings As New sMySettings
+ Private _TMDBg As TMDBg.Scraper
+ Private _Name As String = "Ember TMDB Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTMDBInfoSettingsHolder
+ Private _setupPost As frmTMDBMediaSettingsHolder
+ Private _TMDBConf As V3.TmdbConfiguration
+ Private _TMDBConfE As V3.TmdbConfiguration
+ Private _TMDBApi As V3.Tmdb
+ Private _TMDBApiE As V3.Tmdb
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ Return True
+ Case Enums.PostScraperCapabilities.Poster
+ Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If _MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.TMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ '' perche' lo crea?
+
+ ''Dim TMDBg As New TMDBg.Scraper
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ studio = _TMDBg.GetMovieStudios(DBMovie.Movie.ID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupNeedsRestart()
+ RaiseEvent SetupNeedsRestart()
+ End Sub
+
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ 'Must be after Load settings to retrieve the correct API key
+ _TMDBApi = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey, _MySettings.TMDBLanguage)
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Info")
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ End If
+ End If
+ _TMDBConf = _TMDBApi.GetConfiguration()
+ _TMDBApiE = New WatTmdb.V3.Tmdb(_MySettings.TMDBAPIKey)
+ _TMDBConfE = _TMDBApiE.GetConfiguration()
+ _TMDBg = New TMDBg.Scraper(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmTMDBMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = _MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = _MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = _MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = _MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseIMDBp.Checked = _MySettings.UseIMDB
+ _setupPost.chkUseIMPA.Checked = _MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = _MySettings.UseMPDB
+ _setupPost.chkUseFANARTTV.Checked = _MySettings.UseFANARTTV
+
+ ' ad size from TMDB
+ '_setupPost.cbManualETSize.Items.Clear()
+ 'If Not IsNothing(_TMDBg.TMDBConf.images) Then
+ ' For Each aSi In _TMDBg.TMDBConf.images.poster_sizes
+ ' _setupPost.cbManualETSize.Items.Add(aSi)
+ ' Next
+ '
+ 'End If
+ _setupPost.cbManualETSize.Text = _MySettings.ManualETSize
+
+ _setupPost.txtTimeout.Text = _MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = _MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ Spanel.Prefix = "TMDBMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return Spanel
+ End Function
+
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTMDBInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkCast.Checked = ConfigOptions.bFullCast
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkCrew.Checked = ConfigOptions.bFullCrew
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+
+ '_setup.chkCertification.Checked = ConfigOptions.bCert
+
+ If String.IsNullOrEmpty(_MySettings.TMDBAPIKey) Then
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ _setup.txtTMDBApiKey.Text = _MySettings.TMDBAPIKey
+ _setup.cbTMDBPrefLanguage.Text = _MySettings.TMDBLanguage
+ _setup.chkFallBackEng.Checked = _MySettings.FallBackEng
+ _setup.orderChanged()
+ If String.IsNullOrEmpty(_MySettings.FANARTTVApiKey) Then
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _setup.txtFANARTTVApiKey.Text = _MySettings.FANARTTVApiKey
+
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember TMDB Movie Scrapers")
+ SPanel.Prefix = "TMDBMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ AddHandler _setup.SetupNeedsRestart, AddressOf Handle_SetupNeedsRestart
+ Return SPanel
+ End Function
+
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ _MySettings.TMDBAPIKey = AdvancedSettings.GetSetting("TMDBAPIKey", "Get your API Key from http://www.themoviedb.org")
+ _MySettings.FANARTTVApiKey = AdvancedSettings.GetSetting("FANARTTVApiKey", "Get your API Key from http://fanart.tv")
+ _MySettings.FallBackEng = AdvancedSettings.GetBooleanSetting("FallBackEn", False)
+ _MySettings.TMDBLanguage = AdvancedSettings.GetSetting("TMDBLanguage", "en")
+ _MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ _MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ _MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ _MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ _MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ _MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ _MySettings.UseIMDB = AdvancedSettings.GetBooleanSetting("UseIMDB", False)
+ _MySettings.UseFANARTTV = AdvancedSettings.GetBooleanSetting("UseFANARTTV", False)
+ _MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ _MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ _MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As Trailers
+ Dim aScrapeImages As ScrapeImages
+
+ LoadSettings()
+ If String.IsNullOrEmpty(DBMovie.Movie.TMDBID) Then
+ _TMDBg.GetMovieID(DBMovie)
+ End If
+ Trailer = New Trailers(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Dim doSave As Boolean = False
+
+ aScrapeImages = New ScrapeImages(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ If Master.GlobalScrapeMod.Poster Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If aScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.ID, DBMovie.Movie.TMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApi, _MySettings)
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If aScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, DBMovie.Movie.TMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApi, _MySettings)
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso _MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.TMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ aScrapeImages.GetPreferredFAasET(DBMovie.Movie.TMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", _MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", _MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", _MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", _MySettings.UseTMDBTrailerXBMC)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", _MySettings.UseIMDBTrailer)
+
+ AdvancedSettings.SetSetting("ManualETSize", _MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", _MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+
+ AdvancedSettings.SetSetting("TMDBAPIKey", _MySettings.TMDBAPIKey)
+ AdvancedSettings.SetSetting("FANARTTVApiKey", _MySettings.FANARTTVApiKey)
+ AdvancedSettings.SetBooleanSetting("FallBackEn", _MySettings.FallBackEng)
+ AdvancedSettings.SetSetting("TMDBLanguage", _MySettings.TMDBLanguage)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", _MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", _MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDB", _MySettings.UseIMDB)
+ AdvancedSettings.SetBooleanSetting("UseFANARTTV", _MySettings.UseFANARTTV)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ _MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ _MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ _MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ _MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ _MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ _MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ _MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ _MySettings.UseIMDB = _setupPost.chkUseIMDBp.Checked
+ _MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ _MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ _MySettings.UseFANARTTV = _setupPost.chkUseFANARTTV.Checked
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtTMDBApiKey.Text) Then
+ _MySettings.TMDBAPIKey = _setup.txtTMDBApiKey.Text
+ Else
+ _MySettings.TMDBAPIKey = Master.eLang.GetString(122, "Get your API Key from www.themoviedb.org")
+ End If
+ If Not String.IsNullOrEmpty(_setup.txtFANARTTVApiKey.Text) Then
+ _MySettings.FANARTTVApiKey = _setup.txtFANARTTVApiKey.Text
+ Else
+ _MySettings.FANARTTVApiKey = Master.eLang.GetString(123, "Get your API Key from fanart.tv")
+ End If
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = False
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkCrew.Checked
+ ConfigOptions.bWriters = _setup.chkCrew.Checked
+ ConfigOptions.bProducers = _setup.chkCrew.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkCrew.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = False
+ ConfigOptions.bFullCrew = _setup.chkCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkCast.Checked
+ ConfigOptions.bCert = ConfigOptions.bMPAA
+ _MySettings.FallBackEng = _setup.chkFallBackEng.Checked
+ _MySettings.TMDBLanguage = _setup.cbTMDBPrefLanguage.Text
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ ''TMDBg.IMDBURL = MySettings.IMDBURL
+ ''TMDBg.UseOFDBTitle = MySettings.UseOFDBTitle
+ ''TMDBg.UseOFDBOutline = MySettings.UseOFDBOutline
+ ''TMDBg.UseOFDBPlot = MySettings.UseOFDBPlot
+ ''TMDBg.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If IsNothing(_TMDBApi) Then
+ Master.eLog.WriteToErrorLog(Master.eLang.GetString(119, "TheMovieDB API is missing or not valid"), _TMDBApi.Error.status_message, "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ Else
+ If Not IsNothing(_TMDBApi.Error) AndAlso _TMDBApi.Error.status_message.Length > 0 Then
+ Master.eLog.WriteToErrorLog(_TMDBApi.Error.status_message, _TMDBApi.Error.status_code.ToString(), "Error")
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = _TMDBg.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgTMDBSearchResults(_MySettings, Me._TMDBg)
+ '' dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ _TMDBg.GetMovieInfo(DBMovie.Movie.ID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If String.IsNullOrEmpty(mMovie.Movie.TMDBID) Then
+ _TMDBg.GetMovieID(mMovie)
+ End If
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ If preload Then
+ dFImgSelect = New dlgImgSelect(_TMDBConf, _TMDBConfE, _TMDBApi, _TMDBApiE, _MySettings)
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ '' dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure sMySettings
+
+#Region "Fields"
+ Dim DownloadTrailers As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim UseTMDBTrailerPref As String
+ Dim TMDBAPIKey As String
+ Dim FANARTTVApiKey As String
+ Dim TMDBLanguage As String
+ Dim FallBackEng As Boolean
+ Dim UseIMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseFANARTTV As Boolean
+ Dim UseIMDBTrailer As Boolean
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/AssemblyInfo.vb b/Addons/scraper.TVDB.Data/AssemblyInfo.vb
new file mode 100644
index 0000000..1b59a44
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.EmberCore")>
+<Assembly: AssemblyDescription("www.embermm.com")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.EmberCore")>
+<Assembly: AssemblyCopyright("Copyright © 2011")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("4c4e9cbd-06e2-44ed-bbed-0f51f6c3f4ef")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.5")>
+<Assembly: AssemblyFileVersion("1.3.0.5")>
diff --git a/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml
new file mode 100644
index 0000000..0fba5b0
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">native1</string>
+ <string id="2">native2</string>
+ <string id="3">native3</string>
+ <string id="4">native4</string>
+ <string id="5">native5</string>
+ <string id="6">native6</string>
+ <string id="7">native7</string>
+ <string id="8">native8</string>
+ <string id="9">native9</string>
+ <string id="10">native10</string>
+ <string id="11">native11</string>
+ <string id="12">native12</string>
+ <string id="13">native13</string>
+ <string id="14">native14</string>
+ <string id="15">native15</string>
+ <string id="16">native16</string>
+ <string id="17">native17</string>
+ <string id="18">native18</string>
+ <string id="19">native19</string>
+ <string id="20">native20</string>
+ <string id="21">native21</string>
+ <string id="22">native22</string>
+ <string id="23">native23</string>
+ <string id="24">native24</string>
+ <string id="25">native25</string>
+ <string id="26">native26</string>
+ <string id="27">native27</string>
+ <string id="28">native28</string>
+ <string id="29">native29</string>
+ <string id="30">native30</string>
+ <string id="31">native31</string>
+ <string id="32">native32</string>
+ <string id="33">native33</string>
+ <string id="34">native34</string>
+ <string id="35">native35</string>
+ <string id="36">native36</string>
+ <string id="37">native37</string>
+ <string id="38">native38</string>
+ <string id="39">native39</string>
+ <string id="40">native40</string>
+ <string id="41">native41</string>
+ <string id="42">native42</string>
+ <string id="43">native43</string>
+ <string id="44">native44</string>
+ <string id="45">native45</string>
+ <string id="46">native46</string>
+ <string id="47">native47</string>
+ <string id="48">native48</string>
+ <string id="49">native49</string>
+ <string id="50">native50</string>
+ <string id="51">native51</string>
+ <string id="52">native52</string>
+ <string id="53">native53</string>
+ <string id="54">native54</string>
+ <string id="55">native55</string>
+ <string id="56">native56</string>
+ <string id="57">native57</string>
+ <string id="58">native58</string>
+ <string id="59">native59</string>
+ <string id="60">native60</string>
+ <string id="61">native61</string>
+ <string id="62">native62</string>
+ <string id="63">native63</string>
+ <string id="64">native64</string>
+ <string id="65">native65</string>
+ <string id="66">native66</string>
+ <string id="67">native67</string>
+ <string id="68">native68</string>
+ <string id="69">native69</string>
+ <string id="70">native70</string>
+ <string id="71">native71</string>
+ <string id="72">native72</string>
+ <string id="73">native73</string>
+ <string id="74">native74</string>
+ <string id="75">native75</string>
+ <string id="76">native76</string>
+ <string id="77">native77</string>
+ <string id="78">native78</string>
+ <string id="79">native79</string>
+ <string id="80">native80</string>
+ <string id="81">native81</string>
+ <string id="82">native82</string>
+ <string id="83">native83</string>
+ <string id="84">native84</string>
+ <string id="85">native85</string>
+ <string id="86">native86</string>
+ <string id="87">native87</string>
+ <string id="88">native88</string>
+ <string id="89">native89</string>
+ <string id="90">native90</string>
+ <string id="91">native91</string>
+ <string id="92">native92</string>
+ <string id="93">native93</string>
+ <string id="94">native94</string>
+ <string id="95">native95</string>
+ <string id="96">native96</string>
+ <string id="97">native97</string>
+ <string id="98">native98</string>
+ <string id="99">native99</string>
+ <string id="100">native100</string>
+ <string id="101">native101</string>
+ <string id="102">native102</string>
+ <string id="103">native103</string>
+ <string id="104">native104</string>
+ <string id="105">native105</string>
+ <string id="106">native106</string>
+ <string id="107">native107</string>
+ <string id="108">native108</string>
+ <string id="109">native109</string>
+ <string id="110">native110</string>
+ <string id="111">native111</string>
+ <string id="112">native112</string>
+ <string id="113">native113</string>
+ <string id="114">native114</string>
+ <string id="115">native115</string>
+ <string id="116">native116</string>
+ <string id="117">native117</string>
+ <string id="118">native118</string>
+ <string id="119">native119</string>
+ <string id="120">native120</string>
+ <string id="121">native121</string>
+ <string id="122">native122</string>
+ <string id="123">native123</string>
+ <string id="124">native124</string>
+ <string id="125">native125</string>
+ <string id="126">native126</string>
+ <string id="127">native127</string>
+ <string id="128">native128</string>
+ <string id="129">native129</string>
+ <string id="130">native130</string>
+ <string id="131">native131</string>
+ <string id="132">native132</string>
+ <string id="133">native133</string>
+ <string id="134">native134</string>
+ <string id="135">native135</string>
+ <string id="136">native136</string>
+ <string id="137">native137</string>
+ <string id="138">native138</string>
+ <string id="139">native139</string>
+ <string id="140">native140</string>
+ <string id="141">native141</string>
+ <string id="142">native142</string>
+ <string id="143">native143</string>
+ <string id="144">native144</string>
+ <string id="145">native145</string>
+ <string id="146">native146</string>
+ <string id="147">native147</string>
+ <string id="148">native148</string>
+ <string id="149">native149</string>
+ <string id="150">native150</string>
+ <string id="151">native151</string>
+ <string id="152">native152</string>
+ <string id="153">native153</string>
+ <string id="154">native154</string>
+ <string id="155">native155</string>
+ <string id="156">native156</string>
+ <string id="157">native157</string>
+ <string id="158">native158</string>
+ <string id="159">native159</string>
+ <string id="160">native160</string>
+ <string id="161">native161</string>
+ <string id="162">native162</string>
+ <string id="163">native163</string>
+ <string id="164">native164</string>
+ <string id="165">native165</string>
+ <string id="166">native166</string>
+ <string id="167">native167</string>
+ <string id="168">native168</string>
+ <string id="169">native169</string>
+ <string id="170">native170</string>
+ <string id="171">native171</string>
+ <string id="172">native172</string>
+ <string id="173">native173</string>
+ <string id="174">native174</string>
+ <string id="175">native175</string>
+ <string id="176">native176</string>
+ <string id="177">native177</string>
+ <string id="178">native178</string>
+ <string id="179">native179</string>
+ <string id="180">native180</string>
+ <string id="181">native181</string>
+ <string id="182">native182</string>
+ <string id="183">native183</string>
+ <string id="184">native184</string>
+ <string id="185">native185</string>
+ <string id="186">native186</string>
+ <string id="187">native187</string>
+ <string id="188">native188</string>
+ <string id="189">native189</string>
+ <string id="190">native190</string>
+ <string id="191">native191</string>
+ <string id="192">native192</string>
+ <string id="193">native193</string>
+ <string id="194">native194</string>
+ <string id="195">native195</string>
+ <string id="196">native196</string>
+ <string id="197">native197</string>
+ <string id="198">native198</string>
+ <string id="199">native199</string>
+ <string id="200">native200</string>
+ <string id="201">native201</string>
+ <string id="202">native202</string>
+ <string id="203">native203</string>
+ <string id="204">native204</string>
+ <string id="205">native205</string>
+ <string id="206">native206</string>
+ <string id="207">native207</string>
+ <string id="208">native208</string>
+ <string id="209">native209</string>
+ <string id="210">native210</string>
+ <string id="211">native211</string>
+ <string id="212">native212</string>
+ <string id="213">native213</string>
+ <string id="214">native214</string>
+ <string id="215">native215</string>
+ <string id="216">native216</string>
+ <string id="217">native217</string>
+ <string id="218">native218</string>
+ <string id="219">native219</string>
+ <string id="220">native220</string>
+ <string id="221">native221</string>
+ <string id="222">native222</string>
+ <string id="223">native223</string>
+ <string id="224">native224</string>
+ <string id="225">native225</string>
+ <string id="226">native226</string>
+ <string id="227">native227</string>
+ <string id="228">native228</string>
+ <string id="229">native229</string>
+ <string id="230">native230</string>
+ <string id="231">native231</string>
+ <string id="232">native232</string>
+ <string id="233">native233</string>
+ <string id="234">native234</string>
+ <string id="235">native235</string>
+ <string id="236">native236</string>
+ <string id="237">native237</string>
+ <string id="238">native238</string>
+ <string id="239">native239</string>
+ <string id="240">native240</string>
+ <string id="241">native241</string>
+ <string id="242">native242</string>
+ <string id="243">native243</string>
+ <string id="244">native244</string>
+ <string id="245">native245</string>
+ <string id="246">native246</string>
+ <string id="247">native247</string>
+ <string id="248">native248</string>
+ <string id="249">native249</string>
+ <string id="250">native250</string>
+ <string id="251">native251</string>
+ <string id="252">native252</string>
+ <string id="253">native253</string>
+ <string id="254">native254</string>
+ <string id="255">native255</string>
+ <string id="256">native256</string>
+ <string id="257">native257</string>
+ <string id="258">native258</string>
+ <string id="259">native259</string>
+ <string id="260">native260</string>
+ <string id="261">native261</string>
+ <string id="262">native262</string>
+ <string id="263">native263</string>
+ <string id="264">native264</string>
+ <string id="265">native265</string>
+ <string id="266">native266</string>
+ <string id="267">native267</string>
+ <string id="268">native268</string>
+ <string id="269">native269</string>
+ <string id="270">native270</string>
+ <string id="271">native271</string>
+ <string id="272">native272</string>
+ <string id="273">native273</string>
+ <string id="274">native274</string>
+ <string id="275">native275</string>
+ <string id="276">native276</string>
+ <string id="277">native277</string>
+ <string id="278">native278</string>
+ <string id="279">native279</string>
+ <string id="280">native280</string>
+ <string id="281">native281</string>
+ <string id="282">native282</string>
+ <string id="283">native283</string>
+ <string id="284">native284</string>
+ <string id="285">native285</string>
+ <string id="286">native286</string>
+ <string id="287">native287</string>
+ <string id="288">native288</string>
+ <string id="289">native289</string>
+ <string id="290">native290</string>
+ <string id="291">native291</string>
+ <string id="292">native292</string>
+ <string id="293">native293</string>
+ <string id="294">native294</string>
+ <string id="295">native295</string>
+ <string id="296">native296</string>
+ <string id="297">native297</string>
+ <string id="298">native298</string>
+ <string id="299">native299</string>
+ <string id="300">native300</string>
+ <string id="301">native301</string>
+ <string id="302">native302</string>
+ <string id="303">native303</string>
+ <string id="304">native304</string>
+ <string id="305">native305</string>
+ <string id="306">native306</string>
+ <string id="307">native307</string>
+ <string id="308">native308</string>
+ <string id="309">native309</string>
+ <string id="310">native310</string>
+ <string id="311">native311</string>
+ <string id="312">native312</string>
+ <string id="313">native313</string>
+ <string id="314">native314</string>
+ <string id="315">native315</string>
+ <string id="316">native316</string>
+ <string id="317">native317</string>
+ <string id="318">native318</string>
+ <string id="319">native319</string>
+ <string id="320">native320</string>
+ <string id="321">native321</string>
+ <string id="322">native322</string>
+ <string id="323">native323</string>
+ <string id="324">native324</string>
+ <string id="325">native325</string>
+ <string id="326">native326</string>
+ <string id="327">native327</string>
+ <string id="328">native328</string>
+ <string id="329">native329</string>
+ <string id="330">native330</string>
+ <string id="331">native331</string>
+ <string id="332">native332</string>
+ <string id="333">native333</string>
+ <string id="334">native334</string>
+ <string id="335">native335</string>
+ <string id="336">native336</string>
+ <string id="337">native337</string>
+ <string id="338">native338</string>
+ <string id="339">native339</string>
+ <string id="340">native340</string>
+ <string id="341">native341</string>
+ <string id="342">native342</string>
+ <string id="343">native343</string>
+ <string id="344">native344</string>
+ <string id="345">native345</string>
+ <string id="346">native346</string>
+ <string id="347">native347</string>
+ <string id="348">native348</string>
+ <string id="349">native349</string>
+ <string id="350">native350</string>
+ <string id="351">native351</string>
+ <string id="352">native352</string>
+ <string id="353">native353</string>
+ <string id="354">native354</string>
+ <string id="355">native355</string>
+ <string id="356">native356</string>
+ <string id="357">native357</string>
+ <string id="358">native358</string>
+ <string id="359">native359</string>
+ <string id="360">native360</string>
+ <string id="361">native361</string>
+ <string id="362">native362</string>
+ <string id="363">native363</string>
+ <string id="364">native364</string>
+ <string id="365">native365</string>
+ <string id="366">native366</string>
+ <string id="367">native367</string>
+ <string id="368">native368</string>
+ <string id="369">native369</string>
+ <string id="370">native370</string>
+ <string id="371">native371</string>
+ <string id="372">native372</string>
+ <string id="373">native373</string>
+ <string id="374">native374</string>
+ <string id="375">native375</string>
+ <string id="376">native376</string>
+ <string id="377">native377</string>
+ <string id="378">native378</string>
+ <string id="379">native379</string>
+ <string id="380">native380</string>
+ <string id="381">native381</string>
+ <string id="382">native382</string>
+ <string id="383">native383</string>
+ <string id="384">native384</string>
+ <string id="385">native385</string>
+ <string id="386">native386</string>
+ <string id="387">native387</string>
+ <string id="388">native388</string>
+ <string id="389">native389</string>
+ <string id="390">native390</string>
+ <string id="391">native391</string>
+ <string id="392">native392</string>
+ <string id="393">native393</string>
+ <string id="394">native394</string>
+ <string id="395">native395</string>
+ <string id="396">native396</string>
+ <string id="397">native397</string>
+ <string id="398">native398</string>
+ <string id="399">native399</string>
+ <string id="400">native400</string>
+ <string id="401">native401</string>
+ <string id="402">native402</string>
+ <string id="403">native403</string>
+ <string id="404">native404</string>
+ <string id="405">native405</string>
+ <string id="406">native406</string>
+ <string id="407">native407</string>
+ <string id="408">native408</string>
+ <string id="409">native409</string>
+ <string id="410">native410</string>
+ <string id="411">native411</string>
+ <string id="412">native412</string>
+ <string id="413">native413</string>
+ <string id="414">native414</string>
+ <string id="415">native415</string>
+ <string id="416">native416</string>
+ <string id="417">native417</string>
+ <string id="418">native418</string>
+ <string id="419">native419</string>
+ <string id="420">native420</string>
+ <string id="421">native421</string>
+ <string id="422">native422</string>
+ <string id="423">native423</string>
+ <string id="424">native424</string>
+ <string id="425">native425</string>
+ <string id="426">native426</string>
+ <string id="427">native427</string>
+ <string id="428">native428</string>
+ <string id="429">native429</string>
+ <string id="430">native430</string>
+ <string id="431">native431</string>
+ <string id="432">native432</string>
+ <string id="433">native433</string>
+ <string id="434">native434</string>
+ <string id="435">native435</string>
+ <string id="436">native436</string>
+ <string id="437">native437</string>
+ <string id="438">native438</string>
+ <string id="439">native439</string>
+ <string id="440">native440</string>
+ <string id="441">native441</string>
+ <string id="442">native442</string>
+ <string id="443">native443</string>
+ <string id="444">native444</string>
+ <string id="445">native445</string>
+ <string id="446">native446</string>
+ <string id="447">native447</string>
+ <string id="448">native448</string>
+ <string id="449">native449</string>
+ <string id="450">native450</string>
+ <string id="451">native451</string>
+ <string id="452">native452</string>
+ <string id="453">native453</string>
+ <string id="454">native454</string>
+ <string id="455">native455</string>
+ <string id="456">native456</string>
+ <string id="457">native457</string>
+ <string id="458">native458</string>
+ <string id="459">native459</string>
+ <string id="460">native460</string>
+ <string id="461">native461</string>
+ <string id="462">native462</string>
+ <string id="463">native463</string>
+ <string id="464">native464</string>
+ <string id="465">native465</string>
+ <string id="466">native466</string>
+ <string id="467">native467</string>
+ <string id="468">native468</string>
+ <string id="469">native469</string>
+ <string id="470">native470</string>
+ <string id="471">native471</string>
+ <string id="472">native472</string>
+ <string id="473">native473</string>
+ <string id="474">native474</string>
+ <string id="475">native475</string>
+ <string id="476">native476</string>
+ <string id="477">native477</string>
+ <string id="478">native478</string>
+ <string id="479">native479</string>
+ <string id="480">native480</string>
+ <string id="481">native481</string>
+ <string id="482">native482</string>
+ <string id="483">native483</string>
+ <string id="484">native484</string>
+ <string id="485">native485</string>
+ <string id="486">native486</string>
+ <string id="487">native487</string>
+ <string id="488">native488</string>
+ <string id="489">native489</string>
+ <string id="490">native490</string>
+ <string id="491">native491</string>
+ <string id="492">native492</string>
+ <string id="493">native493</string>
+ <string id="494">native494</string>
+ <string id="495">native495</string>
+ <string id="496">native496</string>
+ <string id="497">native497</string>
+ <string id="498">native498</string>
+ <string id="499">native499</string>
+ <string id="500">native500</string>
+ <string id="501">native501</string>
+ <string id="502">native502</string>
+ <string id="503">native503</string>
+ <string id="504">native504</string>
+ <string id="505">native505</string>
+ <string id="506">native506</string>
+ <string id="507">native507</string>
+ <string id="508">native508</string>
+ <string id="509">native509</string>
+ <string id="510">native510</string>
+ <string id="511">native511</string>
+ <string id="512">native512</string>
+ <string id="513">native513</string>
+ <string id="514">native514</string>
+ <string id="515">native515</string>
+ <string id="516">native516</string>
+ <string id="517">native517</string>
+ <string id="518">native518</string>
+ <string id="519">native519</string>
+ <string id="520">native520</string>
+ <string id="521">native521</string>
+ <string id="522">native522</string>
+ <string id="523">native523</string>
+ <string id="524">native524</string>
+ <string id="525">native525</string>
+ <string id="526">native526</string>
+ <string id="527">native527</string>
+ <string id="528">native528</string>
+ <string id="529">native529</string>
+ <string id="530">native530</string>
+ <string id="531">native531</string>
+ <string id="532">native532</string>
+ <string id="533">native533</string>
+ <string id="534">native534</string>
+ <string id="535">native535</string>
+ <string id="536">native536</string>
+ <string id="537">native537</string>
+ <string id="538">native538</string>
+ <string id="539">native539</string>
+ <string id="540">native540</string>
+ <string id="541">native541</string>
+ <string id="542">native542</string>
+ <string id="543">native543</string>
+ <string id="544">native544</string>
+ <string id="545">native545</string>
+ <string id="546">native546</string>
+ <string id="547">native547</string>
+ <string id="548">native548</string>
+ <string id="549">native549</string>
+ <string id="550">native550</string>
+ <string id="551">native551</string>
+ <string id="552">native552</string>
+ <string id="553">native553</string>
+ <string id="554">native554</string>
+ <string id="555">native555</string>
+ <string id="556">native556</string>
+ <string id="557">native557</string>
+ <string id="558">native558</string>
+ <string id="559">native559</string>
+ <string id="560">native560</string>
+ <string id="561">native561</string>
+ <string id="562">native562</string>
+ <string id="563">native563</string>
+ <string id="564">native564</string>
+ <string id="565">native565</string>
+ <string id="566">native566</string>
+ <string id="567">native567</string>
+ <string id="568">native568</string>
+ <string id="569">native569</string>
+ <string id="570">native570</string>
+ <string id="571">native571</string>
+ <string id="572">native572</string>
+ <string id="573">native573</string>
+ <string id="574">native574</string>
+ <string id="575">native575</string>
+ <string id="576">native576</string>
+ <string id="577">native577</string>
+ <string id="578">native578</string>
+ <string id="579">native579</string>
+ <string id="580">native580</string>
+ <string id="581">native581</string>
+ <string id="582">native582</string>
+ <string id="583">native583</string>
+ <string id="584">native584</string>
+ <string id="585">native585</string>
+ <string id="586">native586</string>
+ <string id="587">native587</string>
+ <string id="588">native588</string>
+ <string id="589">native589</string>
+ <string id="590">native590</string>
+ <string id="591">native591</string>
+ <string id="592">native592</string>
+ <string id="593">native593</string>
+ <string id="594">native594</string>
+ <string id="595">native595</string>
+ <string id="596">native596</string>
+ <string id="597">native597</string>
+ <string id="598">native598</string>
+ <string id="599">native599</string>
+ <string id="600">native600</string>
+ <string id="601">native601</string>
+ <string id="602">native602</string>
+ <string id="603">native603</string>
+ <string id="604">native604</string>
+ <string id="605">native605</string>
+ <string id="606">native606</string>
+ <string id="607">native607</string>
+ <string id="608">native608</string>
+ <string id="609">native609</string>
+ <string id="610">native610</string>
+ <string id="611">native611</string>
+ <string id="612">native612</string>
+ <string id="613">native613</string>
+ <string id="614">native614</string>
+ <string id="615">native615</string>
+ <string id="616">native616</string>
+ <string id="617">native617</string>
+ <string id="618">native618</string>
+ <string id="619">native619</string>
+ <string id="620">native620</string>
+ <string id="621">native621</string>
+ <string id="622">native622</string>
+ <string id="623">native623</string>
+ <string id="624">native624</string>
+ <string id="625">native625</string>
+ <string id="626">native626</string>
+ <string id="627">native627</string>
+ <string id="628">native628</string>
+ <string id="629">native629</string>
+ <string id="630">native630</string>
+ <string id="631">native631</string>
+ <string id="632">native632</string>
+ <string id="633">native633</string>
+ <string id="634">native634</string>
+ <string id="635">native635</string>
+ <string id="636">native636</string>
+ <string id="637">native637</string>
+ <string id="638">native638</string>
+ <string id="639">native639</string>
+ <string id="640">native640</string>
+ <string id="641">native641</string>
+ <string id="642">native642</string>
+ <string id="643">native643</string>
+ <string id="644">native644</string>
+ <string id="645">native645</string>
+ <string id="646">native646</string>
+ <string id="647">native647</string>
+ <string id="648">native648</string>
+ <string id="649">native649</string>
+ <string id="650">native650</string>
+ <string id="651">native651</string>
+ <string id="652">native652</string>
+ <string id="653">native653</string>
+ <string id="654">native654</string>
+ <string id="655">native655</string>
+ <string id="656">native656</string>
+ <string id="657">native657</string>
+ <string id="658">native658</string>
+ <string id="659">native659</string>
+ <string id="660">native660</string>
+ <string id="661">native661</string>
+ <string id="662">native662</string>
+ <string id="663">native663</string>
+ <string id="664">native664</string>
+ <string id="665">native665</string>
+ <string id="666">native666</string>
+ <string id="667">native667</string>
+ <string id="668">native668</string>
+ <string id="669">native669</string>
+ <string id="670">native670</string>
+ <string id="671">native671</string>
+ <string id="672">native672</string>
+ <string id="673">native673</string>
+ <string id="674">native674</string>
+ <string id="675">native675</string>
+ <string id="676">native676</string>
+ <string id="677">native677</string>
+ <string id="678">native678</string>
+ <string id="679">native679</string>
+ <string id="680">native680</string>
+ <string id="681">native681</string>
+ <string id="682">native682</string>
+ <string id="683">native683</string>
+ <string id="684">native684</string>
+ <string id="685">native685</string>
+ <string id="686">native686</string>
+ <string id="687">native687</string>
+ <string id="688">native688</string>
+ <string id="689">native689</string>
+ <string id="690">native690</string>
+ <string id="691">native691</string>
+ <string id="692">native692</string>
+ <string id="693">native693</string>
+ <string id="694">native694</string>
+ <string id="695">native695</string>
+ <string id="696">native696</string>
+ <string id="697">native697</string>
+ <string id="698">native698</string>
+ <string id="699">native699</string>
+ <string id="700">native700</string>
+ <string id="701">native701</string>
+ <string id="702">native702</string>
+ <string id="703">native703</string>
+ <string id="704">native704</string>
+ <string id="705">native705</string>
+ <string id="706">native706</string>
+ <string id="707">native707</string>
+ <string id="708">native708</string>
+ <string id="709">native709</string>
+ <string id="710">native710</string>
+ <string id="711">native711</string>
+ <string id="712">native712</string>
+ <string id="713">native713</string>
+ <string id="714">native714</string>
+ <string id="715">native715</string>
+ <string id="716">native716</string>
+ <string id="717">native717</string>
+ <string id="718">native718</string>
+ <string id="719">native719</string>
+ <string id="720">native720</string>
+ <string id="721">native721</string>
+ <string id="722">native722</string>
+ <string id="723">native723</string>
+ <string id="724">native724</string>
+ <string id="725">native725</string>
+ <string id="726">native726</string>
+ <string id="727">native727</string>
+ <string id="728">native728</string>
+ <string id="729">native729</string>
+ <string id="730">native730</string>
+ <string id="731">native731</string>
+ <string id="732">native732</string>
+ <string id="733">native733</string>
+ <string id="734">native734</string>
+ <string id="735">native735</string>
+ <string id="736">native736</string>
+ <string id="737">native737</string>
+ <string id="738">native738</string>
+ <string id="739">native739</string>
+ <string id="740">native740</string>
+ <string id="741">native741</string>
+ <string id="742">native742</string>
+ <string id="743">native743</string>
+ <string id="744">native744</string>
+ <string id="745">native745</string>
+ <string id="746">native746</string>
+ <string id="747">native747</string>
+ <string id="748">native748</string>
+ <string id="749">native749</string>
+ <string id="750">native750</string>
+ <string id="751">native751</string>
+ <string id="752">native752</string>
+ <string id="753">native753</string>
+ <string id="754">native754</string>
+ <string id="755">native755</string>
+ <string id="756">native756</string>
+ <string id="757">native757</string>
+ <string id="758">native758</string>
+ <string id="759">native759</string>
+ <string id="760">native760</string>
+ <string id="761">native761</string>
+ <string id="762">native762</string>
+ <string id="763">native763</string>
+ <string id="764">native764</string>
+ <string id="765">native765</string>
+ <string id="766">native766</string>
+ <string id="767">native767</string>
+ <string id="768">native768</string>
+ <string id="769">native769</string>
+ <string id="770">native770</string>
+ <string id="771">native771</string>
+ <string id="772">native772</string>
+ <string id="773">native773</string>
+ <string id="774">native774</string>
+ <string id="775">native775</string>
+ <string id="776">native776</string>
+ <string id="777">native777</string>
+ <string id="778">native778</string>
+ <string id="779">native779</string>
+ <string id="780">native780</string>
+ <string id="781">native781</string>
+ <string id="782">native782</string>
+ <string id="783">native783</string>
+ <string id="784">native784</string>
+ <string id="785">native785</string>
+ <string id="786">native786</string>
+ <string id="787">native787</string>
+ <string id="788">native788</string>
+ <string id="789">native789</string>
+ <string id="790">native790</string>
+ <string id="791">native791</string>
+ <string id="792">native792</string>
+ <string id="793">native793</string>
+ <string id="794">native794</string>
+ <string id="795">native795</string>
+ <string id="796">native796</string>
+ <string id="797">native797</string>
+ <string id="798">native798</string>
+ <string id="799">native799</string>
+ <string id="800">native800</string>
+ <string id="801">native801</string>
+ <string id="802">native802</string>
+ <string id="803">native803</string>
+ <string id="804">native804</string>
+ <string id="805">native805</string>
+ <string id="806">native806</string>
+ <string id="807">native807</string>
+ <string id="808">native808</string>
+ <string id="809">native809</string>
+ <string id="810">native810</string>
+ <string id="811">native811</string>
+ <string id="812">native812</string>
+ <string id="813">native813</string>
+ <string id="814">native814</string>
+ <string id="815">native815</string>
+ <string id="816">native816</string>
+ <string id="817">native817</string>
+ <string id="818">native818</string>
+ <string id="819">native819</string>
+ <string id="820">native820</string>
+ <string id="821">native821</string>
+ <string id="822">native822</string>
+ <string id="823">native823</string>
+ <string id="824">native824</string>
+ <string id="825">native825</string>
+ <string id="826">native826</string>
+ <string id="827">native827</string>
+ <string id="828">native828</string>
+ <string id="829">native829</string>
+ <string id="830">native830</string>
+ <string id="831">native831</string>
+ <string id="832">native832</string>
+ <string id="833">native833</string>
+ <string id="834">native834</string>
+ <string id="835">native835</string>
+ <string id="836">native836</string>
+ <string id="837">native837</string>
+ <string id="838">native838</string>
+ <string id="839">native839</string>
+ <string id="840">native840</string>
+ <string id="841">native841</string>
+ <string id="842">native842</string>
+ <string id="843">native843</string>
+ <string id="844">native844</string>
+ <string id="845">native845</string>
+ <string id="846">native846</string>
+ <string id="847">native847</string>
+ <string id="848">native848</string>
+ <string id="849">native849</string>
+ <string id="850">native850</string>
+ <string id="851">native851</string>
+ <string id="852">native852</string>
+ <string id="853">native853</string>
+ <string id="854">native854</string>
+ <string id="855">native855</string>
+ <string id="856">native856</string>
+ <string id="857">native857</string>
+ <string id="858">native858</string>
+ <string id="859">native859</string>
+ <string id="860">native860</string>
+ <string id="861">native861</string>
+ <string id="862">native862</string>
+ <string id="863">native863</string>
+ <string id="864">native864</string>
+ <string id="865">native865</string>
+ <string id="866">native866</string>
+ <string id="867">native867</string>
+ <string id="868">native868</string>
+ <string id="869">native869</string>
+ <string id="870">native870</string>
+ <string id="871">native871</string>
+ <string id="872">native872</string>
+ <string id="873">native873</string>
+ <string id="874">native874</string>
+ <string id="875">native875</string>
+ <string id="876">native876</string>
+ <string id="877">native877</string>
+ <string id="878">native878</string>
+ <string id="879">native879</string>
+ <string id="880">native880</string>
+ <string id="881">native881</string>
+ <string id="882">native882</string>
+ <string id="883">native883</string>
+ <string id="884">native884</string>
+ <string id="885">native885</string>
+ <string id="886">native886</string>
+ <string id="887">native887</string>
+ <string id="888">native888</string>
+ <string id="889">native889</string>
+ <string id="890">native890</string>
+ <string id="891">native891</string>
+ <string id="892">native892</string>
+ <string id="893">native893</string>
+ <string id="894">native894</string>
+ <string id="895">native895</string>
+ <string id="896">native896</string>
+ <string id="897">native897</string>
+ <string id="898">native898</string>
+ <string id="899">native899</string>
+ <string id="900">native900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml
new file mode 100644
index 0000000..1705beb
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.English_(en_US)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="NativeMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Enter the mirror to use when retrieving information from IMDB.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">If enabled, Ember will attempt to retreive the movie title from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">If enabled, Ember will attempt to retreive the movie outline from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">If enabled, Ember will attempt to retreive the movie plot from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">If enabled, Ember will attempt to retreive the movie genre from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="NativeMovieInfo_chkTop250">Enable scraping movie Top 250 ranking.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Limit the number of scraped genres to the entered value.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Limit the number of scraped actors to the entered value.</string>
+ <string control="NativeMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Enable scraping movie musicians. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkProducers">Enable scraping movie producers. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkWriters">Enable scraping movie writers.</string>
+ <string control="NativeMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="NativeMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="NativeMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="NativeMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="NativeMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="NativeMovieInfo_chkDirector">Enable scraping movie director.</string>
+ <string control="NativeMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="NativeMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="NativeMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="NativeMovieInfo_chkTrailer">Enable scraping movie trailer url.</string>
+ <string control="NativeMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="NativeMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="NativeMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="NativeMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="NativeMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="NativeMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="NativeMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Enable retrieving images from theMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Enable retrieving images from</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Enable retrieving images from MoviePosterDB.com.</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Enable automatic extraction of extrathumbs from this module. (Refer to global extrathumb settings for more options)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="NativeMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.English_(en_US).xml b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.English_(en_US).xml
new file mode 100644
index 0000000..87a19b5
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.English_(en_US).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">IMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching IMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17">Partial Matches ({0})</string>
+ <string id="18">Exact Matches ({0})</string>
+ <string id="19">Popular Titles ({0})</string>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching IMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember Native Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Open In Browser</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..f4c930d
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Aktiviert dieses Modul.</string>
+ <string control="NativeMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Gib den Mirror ein über den Ember mit der IMDB kommunizieren soll.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">Wenn aktiviert versucht Ember den Titel von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">Wenn aktiviert versucht Ember die Kurzebschreibung von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">Wenn aktiviert versucht Ember die Inhaltsangabe von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">Wenn aktiviert versucht Ember die Genres von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkCertification">Aktiviert das Scrapen der Altersbeschränkung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTop250">Aktiviert das Scrapen der IMDB Top250 mit diesem Modul.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Die Anzahl der gescrapten Genres limitieren.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Die Anzahl der gescrapten Schauspieler limitieren.</string>
+ <string control="NativeMovieInfo_chkCrew">Aktiviert das Scrapen der Sonstigen Crew mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Aktiviert das Scrapen der Musiker mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkProducers">Aktiviert das Scrapen der Produzenten mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkWriters">Aktiviert das Scrapen der Autoren mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkStudio">Aktiviert das Scrapen des Studios mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRuntime">Aktiviert das Scrapen der Spielzeit mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkPlot">Aktiviert das Scrapen des Inhalts mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkOutline">Aktiviert das Scrapen der Kurzbeschreibung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkGenre">Aktiviert das Scrapen von Genre mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkDirector">Aktiviert das Scrapen des Regisseurs mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTagline">Aktiviert das Scrapen der Tagline mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkCast">Aktiviert das Scrapen der Schauspieler mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkVotes">Aktiviert das Scrapen der Anzahl Bewertungen mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTrailer">Aktiviert das Scrapen von Trailern mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRating">Aktiviert das Scrapen der Bewertung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRelease">Aktiviert das Scrapen des Premiere Datums mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkMPAA">Aktiviert das Scrapen der MPAA Bewertung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkYear">Aktiviert das Scrapen des Jahres mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTitle">Aktiviert das Scrapen des Titels mit diesem Modul.</string>
+ <string control="NativeMovieMedia_cbEnabled">Aktiviert dieses Modul.</string>
+ <string control="NativeMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanart mit diesem Modul. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Aktiviert das Laden von Bildern von TheMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Aktiviert das Laden von Bildern von IMPA</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Aktiviert das Laden von Bildern von MoviePosterDB.com.</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Automatische Frame extraktion mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Trailer laden mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Zeite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml
new file mode 100644
index 0000000..0349557
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.German_(de_DE).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">IMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der IMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17">Teil Treffer ({0})</string>
+ <string id="18">Exakte Treffer({0})</string>
+ <string id="19">Populäre Titel ({0})</string>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der IMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert.</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert.</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert.</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Alle Thumbs</string>
+ <string id="42">Alle Mittl.</string>
+ <string id="43">Alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">mittel</string>
+ <string id="50">klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">klein ({0}x{1})</string>
+ <string id="54">mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Trailer...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Man. Trailer</string>
+ <string id="67">Direktlink oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Lokaler Trailer:</string>
+ <string id="71">Die Videoformat Linkliste konnte nicht generiert werden.</string>
+ <string id="72">Fehler beim generieren der Videoformat Linkliste</string>
+ <string id="73">Format wählen</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine gewünschte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gast Star</string>
+ <string id="83">Die eingegebene ID ist keine gültige TVDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Posters</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember Nativer Film Scraper</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Im Browser öffnen</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..79a98bf
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Slå modulen av eller på.</string>
+ <string control="NativeMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Før inn speilserver til IMDB.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">Hvis påslått, EMM vil å prøve å finne filmtittel fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">Hvis påslått, EMM vil prøve å finne beskrivelse av filmen på OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">Hvis påslått, EMM vil hente filmhistorien fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">Hvis påslått, EMM vil hente filmsjanger fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="NativeMovieInfo_chkTop250">Slå på detaljhenting av IMDB Top 250-plassering.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Begrens antall detaljhentede sjangre.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Begrens antall skuespillere.</string>
+ <string control="NativeMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Slå på detaljhenting av musikere. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkProducers">Slå på detaljhenting av filmprodusenter. (Detaljhenting av full crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkWriters">Slå på detaljhenting av manusforfattere.</string>
+ <string control="NativeMovieInfo_chkStudio">Slå på detaljhenting av studio.</string>
+ <string control="NativeMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="NativeMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="NativeMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="NativeMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="NativeMovieInfo_chkDirector">Slå på detaljhetning av filmens regissør.</string>
+ <string control="NativeMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="NativeMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="NativeMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="NativeMovieInfo_chkTrailer">Slå på detaljhetning av filmens trailer URL.</string>
+ <string control="NativeMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="NativeMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="NativeMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="NativeMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="NativeMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="NativeMovieMedia_cbEnabled">Slå modulen av eller på.</string>
+ <string control="NativeMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Slå på bildehenting fra theMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Slå på bildehenting fra</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Slå på bildehenting fra MoviePosterDB.com</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Slå på automatisk henting av ekstrakunst fra denne modulen. (Se globale ekstrakunstinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..52370c3
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">IMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17">Delvise treff ({0})</string>
+ <string id="18">Eksakte treff ({0})</string>
+ <string id="19">Populære titler ({0})</string>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover {0}x{1}</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kunne spille av trailer.</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episodefankunst</string>
+ <string id="93">Vis fankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakater</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Åpne i nettleser</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Data/My Project/Application.Designer.vb b/Addons/scraper.TVDB.Data/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.TVDB.Data/My Project/Application.myapp b/Addons/scraper.TVDB.Data/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.TVDB.Data/My Project/AssemblyInfo.vb b/Addons/scraper.TVDB.Data/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..44ff0ed
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.TVDB.Data")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.TVDB.Data")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("89AE2F8F-C679-4797-9BE8-58E82002A006")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.TVDB.Data/My Project/Resources.Designer.vb b/Addons/scraper.TVDB.Data/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.TVDB.Data/My Project/Resources.resx b/Addons/scraper.TVDB.Data/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/My Project/Settings.Designer.vb b/Addons/scraper.TVDB.Data/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.TVDB.Data/My Project/Settings.settings b/Addons/scraper.TVDB.Data/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.TVDB.Data/Resources/Logo.png b/Addons/scraper.TVDB.Data/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.TVDB.Data/Resources/Logo.png differ
diff --git a/Addons/scraper.TVDB.Data/Scraper/clsScrapeIMDB.vb b/Addons/scraper.TVDB.Data/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..06e23c6
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,1126 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDB
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _ExactMatches As New List(Of MediaContainers.Movie)
+ Private _PartialMatches As New List(Of MediaContainers.Movie)
+ Private _PopularTitles As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property ExactMatches() As List(Of MediaContainers.Movie)
+ Get
+ Return _ExactMatches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _ExactMatches = value
+ End Set
+ End Property
+
+ Public Property PartialMatches() As List(Of MediaContainers.Movie)
+ Get
+ Return _PartialMatches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _PartialMatches = value
+ End Set
+ End Property
+
+ Public Property PopularTitles() As List(Of MediaContainers.Movie)
+ Get
+ Return _PopularTitles
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _PopularTitles = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+ Public UseOFDBGenre As Boolean
+ Public UseOFDBOutline As Boolean
+ Public UseOFDBPlot As Boolean
+ Public UseOFDBTitle As Boolean
+
+ Friend WithEvents bwIMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const LINK_PATTERN As String = "<a[\s]+[^>]*?href[\s]?=[\s\""\']*(?<url>.*?)[\""\']*.*?>(?<name>[^<]+|.*?)?<\/a>"
+
+ Private Const ACTORTABLE_PATTERN As String = "<table class=""cast"">(.*?)</table>"
+ Private Const HREF_PATTERN As String = "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>"
+ Private Const HREF_PATTERN_2 As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>"
+ Private Const HREF_PATTERN_3 As String = "<a href=""/search/title\?certificates=[^""]*"">([^<]*):([^<]*)</a>[^<]*(<i>([^<]*)</i>)?"
+ Private Const HREF_PATTERN_4 As String = "<a.*?href=[""']/(title/tt\d{7}/|name/nm\d{7}/)[""'].*?>(?<text>.*?)</a>"
+ Private Const IMDB_ID_REGEX As String = "tt\d\d\d\d\d\d\d"
+ Private Const IMG_PATTERN As String = "<img src=""(?<thumb>.*?)"" width=""\d{1,3}"" height=""\d{1,3}"" border="".{1,3}"">"
+ Private Const MOVIE_TITLE_PATTERN As String = "(?<=<(title)>).*(?=<\/\1>)"
+ Private Const TABLE_PATTERN As String = "<table.*?>\n?(.*?)</table>"
+ Private Const TD_PATTERN_1 As String = "<td\sclass=""nm"">(.*?)</td>"
+ Private Const TD_PATTERN_2 As String = "(?<=<td\sclass=""char"">)(.*?)(?=</td>)(\s\(.*?\))?"
+ Private Const TD_PATTERN_3 As String = "<td\sclass=""hs"">(.*?)</td>"
+ Private Const TD_PATTERN_4 As String = "<td>(?<title>.*?)</td>"
+ Private Const TITLE_PATTERN As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>((\s)+?(\((?<year>\d{4})(\/.*?)?\)))?((\s)+?(\((?<type>.*?)\)))?"
+ Private Const TR_PATTERN As String = "<tr\sclass="".*?"">(.*?)</tr>"
+
+ Private sPoster As String
+
+#End Region 'Fields
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As IMDB.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwIMDB.IsBusy Then bwIMDB.CancelAsync()
+
+ While bwIMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim ofdbTitle As String = String.Empty
+ Dim ofdbOutline As String = String.Empty
+ Dim ofdbPlot As String = String.Empty
+ Dim ofdbGenre As String = String.Empty
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If (UseOFDBTitle AndAlso Options.bTitle) OrElse (UseOFDBOutline AndAlso Options.bOutline) OrElse _
+ (UseOFDBPlot AndAlso Options.bPlot) OrElse (UseOFDBGenre AndAlso Options.bGenre) Then
+ Dim OFDBScrape As New OFDB(strID, IMDBMovie)
+ If UseOFDBTitle AndAlso Options.bTitle Then ofdbTitle = OFDBScrape.Title
+ If UseOFDBOutline AndAlso Options.bOutline Then ofdbOutline = OFDBScrape.Outline
+ If UseOFDBPlot AndAlso Options.bPlot Then ofdbPlot = OFDBScrape.Plot
+ If UseOFDBGenre AndAlso Options.bGenre Then ofdbGenre = OFDBScrape.Genre
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sPlot As New HTTP
+ Dim PlotHtml As String = sPlot.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/plotsummary"))
+ sPlot = Nothing
+
+ IMDBMovie.IMDBID = strID
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim OriginalTitle As String = Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString
+ If Options.bTitle Then
+ Dim oldOTitle As String = IMDBMovie.OriginalTitle
+ IMDBMovie.OriginalTitle = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(OriginalTitle, ".*(?=\s\(\d+.*?\))").ToString)).Trim
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ If Not String.IsNullOrEmpty(ofdbTitle) Then
+ IMDBMovie.Title = ofdbTitle.Trim
+ Else
+ If Not String.IsNullOrEmpty(Master.eSettings.ForceTitle) Then
+ IMDBMovie.Title = GetForcedTitle(strID, IMDBMovie.OriginalTitle)
+ Else
+ IMDBMovie.Title = IMDBMovie.OriginalTitle.Trim
+ End If
+ End If
+ If String.IsNullOrEmpty(oldOTitle) OrElse Not oldOTitle = IMDBMovie.OriginalTitle Then
+ IMDBMovie.SortTitle = String.Empty
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ sPoster = Regex.Match(Regex.Match(HTML, "(?<=\b(name=""poster"")).*\b[</a>]\b").ToString, "(?<=\b(src=)).*\b(?=[</a>])").ToString.Replace("""", String.Empty).Replace("/></", String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Regex.Match(OriginalTitle, "(?<=\()\d+(?=.*\))", RegexOptions.RightToLeft).ToString
+
+ Dim D, W, tempD As Integer
+
+ If Options.bMPAA AndAlso (String.IsNullOrEmpty(IMDBMovie.MPAA) OrElse Not Master.eSettings.LockMPAA) Then
+ tempD = If(HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>") > 0, HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ W = If(D > 0, HTML.IndexOf("</div", D), 0)
+
+ IMDBMovie.MPAA = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Remove(0, 26)).Trim(), String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCert AndAlso (String.IsNullOrEmpty(IMDBMovie.Certification) OrElse Not Master.eSettings.LockMPAA) Then
+ 'get certifications
+ D = HTML.IndexOf("<h5>Certification:</h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Dim rCert As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN_3)
+
+ If rCert.Count > 0 Then
+ Dim Cert = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(Master.eSettings.CertificationLang)
+
+ If Not String.IsNullOrEmpty(Master.eSettings.CertificationLang) Then
+ If Cert.Count > 0 Then
+ IMDBMovie.Certification = Cert(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA AndAlso (Not Master.eSettings.CertificationLang = "USA" OrElse (Master.eSettings.CertificationLang = "USA" AndAlso String.IsNullOrEmpty(IMDBMovie.MPAA))) Then
+ IMDBMovie.MPAA = If(Master.eSettings.CertificationLang = "USA", StringUtils.USACertToMPAA(IMDBMovie.Certification), If(Master.eSettings.OnlyValueForCert, IMDBMovie.Certification.Split(Convert.ToChar(":"))(1), IMDBMovie.Certification))
+ End If
+
+
+ Else
+ 'No FSK Rating was found -> Alternative: Set USA Rating instead as fallback, MPAA will be converted to FSK, Certification from USA will be used, so people can see that US info was used!
+ If Master.eSettings.UseMPAAForFSK Then
+ Try
+ If Master.eSettings.CertificationLang = "Germany" AndAlso (IMDBMovie.MPAA.ToLower.Contains("usa") Or IMDBMovie.MPAA.ToLower.Contains("rated")) Then
+ Dim LANGRATING As String = "USA"
+ Dim Cert2 = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(LANGRATING)
+ If Cert2.Count > 0 Then
+ IMDBMovie.Certification = Cert2(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA Then
+ If IMDBMovie.MPAA.ToLower.Contains("usa:g") Or IMDBMovie.MPAA.ToLower.Contains("rated g") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:0"
+ Else
+ IMDBMovie.MPAA = "0"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg-13") Or IMDBMovie.MPAA.ToLower.Contains("rated pg-13") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:16"
+ Else
+ IMDBMovie.MPAA = "16"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg") Or IMDBMovie.MPAA.ToLower.Contains("rated pg") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:12"
+ Else
+ IMDBMovie.MPAA = "12"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:r") Or IMDBMovie.Certification.ToLower.Contains("rated r") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:nc-17") Or IMDBMovie.Certification.ToLower.Contains("rated nc") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End If
+ End If
+
+
+ Else
+
+ IMDBMovie.Certification = Strings.Join(Cert.ToArray, " / ").Trim
+
+
+ End If
+ End If
+ End If
+
+ If String.IsNullOrEmpty(IMDBMovie.Certification) AndAlso Not String.IsNullOrEmpty(IMDBMovie.MPAA) Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ Dim RelDate As Date
+ Dim sRelDate As String = Regex.Match(HTML, "\d+\s\w+\s\d\d\d\d\s").ToString.Trim
+ If Not sRelDate = String.Empty Then
+ If Date.TryParse(sRelDate, RelDate) Then
+ IMDBMovie.ReleaseDate = Strings.FormatDateTime(RelDate, DateFormat.ShortDate).ToString
+ End If
+ Else
+ IMDBMovie.ReleaseDate = Nothing
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ Dim RegexRating As String = Regex.Match(HTML, "\b\d\W\d/\d\d").ToString
+ If String.IsNullOrEmpty(RegexRating) Then
+ IMDBMovie.Rating = String.Empty
+ Else
+ IMDBMovie.Rating = RegexRating.Split(Convert.ToChar("/")).First.Trim
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ 'Get first IMDB trailer if possible
+ Dim trailers As List(Of String) = GetTrailers(IMDBMovie.IMDBID)
+ 'Dim TMDB As New TMDB.Scraper
+ 'Dim YT As String = TMDB.GetTrailers(IMDBMovie.IMDBID)
+
+ 'Dim sTrailerUrl As String = Regex.Match(HTML, "href=""(.*?/video/imdb/vi.*?)""").Groups(1).Value.Trim
+ 'If Not sTrailerUrl = String.Empty Then
+ 'Dim sTrailerURL2 As String = String.Empty
+ 'sTrailerUrl = String.Concat("http://", IMDBURL, sTrailerUrl, "player")
+ 'Dim HTTPTrailer As New HTTP
+ 'Dim HtmlTrailer As String = HTTPTrailer.DownloadData(sTrailerUrl)
+ 'HTTPTrailer = Nothing
+
+ 'sTrailerUrl = Regex.Match(HtmlTrailer, "so.addVariable\(""id"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'If sTrailerUrl = String.Empty Then
+ 'sTrailerURL2 = Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'Else
+ 'sTrailerURL2 = String.Concat(Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim, sTrailerUrl)
+ 'End If
+ 'IMDBMovie.Trailer = Web.HttpUtility.UrlDecode(sTrailerURL2)
+ 'End If
+ IMDBMovie.Trailer = trailers.FirstOrDefault()
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then IMDBMovie.Votes = Regex.Match(HTML, "class=""tn15more"">([0-9,]+) votes</a>").Groups(1).Value.Trim
+
+ 'Top250
+ 'ie: <a href="/chart/top?tt0167260">Top 250: #13</a>
+ If Options.bTop250 Then IMDBMovie.Top250 = Regex.Match(HTML, String.Concat("/chart/top\?tt", IMDBMovie.IMDBID, """>Top 250: #([0-9]+)</a>")).Groups(1).Value.Trim
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCast Then
+ 'Find all cast of the movie
+ 'Match the table only 1 time
+ Dim ActorsTable As String = Regex.Match(HTML, ACTORTABLE_PATTERN).ToString
+ Dim ThumbsSize = AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400")
+
+ Dim rCast As MatchCollection = Regex.Matches(ActorsTable, TR_PATTERN)
+
+ Dim Cast1 = From M In rCast _
+ Let m1 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_1).ToString, HREF_PATTERN) _
+ Let m2 = Regex.Match(M.ToString, TD_PATTERN_2).ToString _
+ Let m3 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_3).ToString, IMG_PATTERN) _
+ Select New MediaContainers.Person(Web.HttpUtility.HtmlDecode(m1.Groups("name").ToString.Trim), _
+ Web.HttpUtility.HtmlDecode(m2.ToString.Trim), _
+ If(m3.Groups("thumb").ToString.IndexOf("addtiny") > 0 OrElse m3.Groups("thumb").ToString.IndexOf("no_photo") > 0, String.Empty, Strings.Replace(Web.HttpUtility.HtmlDecode(m3.Groups("thumb").ToString.Trim), _
+ "._SX23_SY30_.jpg", String.Concat("._", ThumbsSize, "_.jpg")))) Take If(Master.eSettings.ActorLimit > 0, Master.eSettings.ActorLimit, 999999)
+
+ If Master.eSettings.CastImagesOnly Then
+ Cast1 = Cast1.Where(Function(p As MediaContainers.Person) (Not String.IsNullOrEmpty(p.Thumb)))
+ End If
+
+ Dim Cast As List(Of MediaContainers.Person) = Cast1.ToList
+
+ 'Clean up the actors list
+ For Each Ps As MediaContainers.Person In Cast
+ For Each sMatch As Match In Regex.Matches(Ps.Role, HREF_PATTERN)
+ Ps.Role = Ps.Role.Replace(sMatch.Value, sMatch.Groups("name").Value.ToString.Trim)
+ Next
+ ' Dim a_patterRegex = Regex.Match(Ps.Role, HREF_PATTERN)
+ ' If a_patterRegex.Success Then Ps.Role = a_patterRegex.Groups("name").ToString.Trim
+ Next
+
+ IMDBMovie.Actors = Cast
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ D = 0 : W = 0
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+
+ tempD = If(HTML.IndexOf("<h5>Tagline:</h5>") > 0, HTML.IndexOf("<h5>Tagline:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ Dim lHtmlIndexOf As Integer = If(D > 0, HTML.IndexOf("<a class=""tn15more inline""", D), 0)
+ Dim TagLineEnd As Integer = If(lHtmlIndexOf > 0, lHtmlIndexOf, 0)
+ If D > 0 Then W = If(TagLineEnd > 0, TagLineEnd, HTML.IndexOf("</div>", D))
+
+ IMDBMovie.Tagline = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Replace("<h5>Tagline:</h5>", String.Empty).Split(vbCrLf.ToCharArray)(1)).Trim, String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bDirector Then
+ 'Get the directors
+ D = If(HTML.IndexOf("<h5>Director:</h5>") > 0, HTML.IndexOf("<h5>Director:</h5>"), HTML.IndexOf("<h5>Directors:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any director(s) ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first director's name
+ Dim rDir As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Dir = From M In rDir Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Dir.Count > 0 Then
+ IMDBMovie.Director = Strings.Join(Dir.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ 'Get the countries
+ D = If(HTML.IndexOf("<h5>Country:</h5>") > 0, HTML.IndexOf("<h5>Country:</h5>"), HTML.IndexOf("<h5>Countries:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any country ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first country's name
+ Dim rCou As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Cou = From M In rCou Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Cou.Count > 0 Then
+
+ 'fix for display country flag in XBMC!
+ If Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("USA") Then
+ IMDBMovie.Country = "United States of America"
+ ElseIf Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("UK") Then
+ IMDBMovie.Country = "United Kingdom"
+ Else
+ IMDBMovie.Country = Strings.Join(Cou.ToArray, " / ").Trim()
+ End If
+
+ End If
+ End If
+
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ If Not String.IsNullOrEmpty(ofdbGenre) Then
+ IMDBMovie.Genre = ofdbGenre
+ Else
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Genre:</h5>")
+ 'Check if doesnt find genres
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString) Where Not N.Contains("more") Take If(Master.eSettings.GenreLimit > 0, Master.eSettings.GenreLimit, 999999)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ IMDBMovie.Genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+
+ If Not String.IsNullOrEmpty(ofdbOutline) Then
+ IMDBMovie.Outline = ofdbOutline
+ Else
+ 'Get the Plot Outline
+ D = 0 : W = 0
+
+ Try
+ If IMDBMovie.Title.Contains("(VG)") Then
+ D = If(HTML.IndexOf("<h5>Plot Summary:</h5>") > 0, HTML.IndexOf("<h5>Plot Summary:</h5>"), HTML.IndexOf("<h5>Tagline:</h5>"))
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ Else
+ tempD = If(HTML.IndexOf("<h5>Plot:</h5>") > 0, HTML.IndexOf("<h5>Plot:</h5>"), HTML.IndexOf("<h5>Plot Summary:</h5>"))
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+ If D <= 0 Then D = HTML.IndexOf("<h5>Plot Synopsis:</h5>")
+ If D > 0 Then
+ W = HTML.IndexOf("<a class=", D)
+ If W > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mplot
+ End If
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mPlot 'This plot synopsis is empty
+ End If
+ End If
+ Dim PlotOutline As String = HTML.Substring(D, W - D).Remove(0, 26)
+
+ PlotOutline = Web.HttpUtility.HtmlDecode(If(PlotOutline.Contains("is empty") OrElse PlotOutline.Contains("View full synopsis") _
+ , String.Empty, PlotOutline.Replace("|", String.Empty).Replace("»", String.Empty)).Trim)
+ 'check if outline has links to other IMDB entry
+ If Not String.IsNullOrEmpty(PlotOutline) Then
+ For Each rMatch As Match In Regex.Matches(PlotOutline, HREF_PATTERN_4)
+ PlotOutline = PlotOutline.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Outline = Regex.Replace(PlotOutline, HREF_PATTERN, String.Empty).Trim
+ Else
+ IMDBMovie.Outline = String.Empty
+ End If
+
+ Catch ex As Exception
+ IMDBMovie.Outline = String.Empty
+ End Try
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+mPlot:
+ 'Get the full Plot
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Not String.IsNullOrEmpty(ofdbPlot) Then
+ IMDBMovie.Plot = ofdbPlot
+ Else
+ Dim FullPlotP As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)</p>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlotI As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)<i>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlot As String = If(FullPlotI.Length < FullPlotP.Length, FullPlotI, FullPlotP)
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ For Each rMatch As Match In Regex.Matches(FullPlot, HREF_PATTERN_4)
+ FullPlot = FullPlot.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Plot = Web.HttpUtility.HtmlDecode(FullPlot.Replace("|", String.Empty)).Trim
+ End If
+
+ End If
+
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then IMDBMovie.Runtime = Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<h5>Runtime:</h5>[^0-9]*([^<]*)").Groups(1).Value.Trim)
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ D = 0 : W = 0
+ If FullCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ 'only get the first one
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString) Take 1
+ IMDBMovie.Studio = Ps(0).ToString.Trim
+ End If
+ Else
+ D = HTML.IndexOf("<h5>Company:</h5>")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ IMDBMovie.Studio = Web.HttpUtility.HtmlDecode(Regex.Match(HTML.Substring(D, W - D), HREF_PATTERN).Groups("name").ToString.Trim)
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get Writers
+ If Options.bWriters Then
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Writer")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim q = From M In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(M, Match).Groups("name").ToString.Trim = "more" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "(more)" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "WGA" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim.Contains("see more") _
+ Select Writer = Web.HttpUtility.HtmlDecode(String.Concat(DirectCast(M, Match).Groups("name").ToString, If(FullCrew, " (writer)", String.Empty)))
+
+ If q.Count > 0 Then
+ IMDBMovie.OldCredits = Strings.Join(q.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Then
+
+ D = 0 : W = 0
+ D = HTML.IndexOf("Directed by</a></h5>")
+ If D > 0 Then W = HTML.IndexOf("</body>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim qTables As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TABLE_PATTERN)
+
+ For Each M As Match In qTables
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Producers
+ If Options.bProducers AndAlso M.ToString.Contains("Produced by</a></h5>") Then
+ Dim Pr = From Po In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Where Not Po.ToString.Contains(String.Concat("http://", IMDBURL, "/Glossary/")) _
+ Let P1 = Regex.Match(Po.ToString, HREF_PATTERN_2) _
+ Where Not String.IsNullOrEmpty(P1.Groups("name").ToString) _
+ Select Producer = Web.HttpUtility.HtmlDecode(String.Concat(P1.Groups("name").ToString, " (producer)"))
+
+ If Pr.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Pr.ToArray, " / ").Trim)
+ End If
+ End If
+
+ 'Music by
+ If Options.bMusicBy AndAlso M.ToString.Contains("Original Music by</a></h5>") Then
+ Dim Mu = From Mo In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Let M1 = Regex.Match(Mo.ToString, HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(M1.Groups("name").ToString) _
+ Select Musician = Web.HttpUtility.HtmlDecode(String.Concat(M1.Groups("name").ToString, " (music by)"))
+
+ If Mu.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Mu.ToArray, " / ").Trim)
+ End If
+ End If
+
+ Next
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Special Effects
+ If Options.bOtherCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Special Effects</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(DirectCast(P1, Match).Groups("name").ToString) _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ If Ps.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Ps.ToArray, " / ").Trim)
+ End If
+ End If
+ End If
+ End If
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ alStudio.AddRange(Ps.ToArray)
+ End If
+
+ Return alStudio
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ 'r.PopularTitles.Sort()
+ 'r.ExactMatches.Sort()
+ 'r.PartialMatches.Sort()
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.ExactMatches.Count = 1 Then 'AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count = 1 AndAlso r.PopularTitles(0).Lev <= 5 Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count = 1 AndAlso r.ExactMatches(0).Lev <= 5 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgIMDBSearchResults
+ dIMDB.IMDBURL = IMDBURL
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+
+ 'check if ALL results are over lev value
+ Dim useAnyway As Boolean = False
+ If ((r.PopularTitles.Count > 0 AndAlso r.PopularTitles(0).Lev > 5) OrElse r.PopularTitles.Count = 0) AndAlso _
+ ((r.ExactMatches.Count > 0 AndAlso r.ExactMatches(0).Lev > 5) OrElse r.ExactMatches.Count = 0) AndAlso _
+ ((r.PartialMatches.Count > 0 AndAlso r.PartialMatches(0).Lev > 5) OrElse r.PartialMatches.Count = 0) Then
+ useAnyway = True
+ End If
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.ExactMatches)
+ Dim popularHaveYear As Integer = FindYear(dbMovie.Filename, r.PopularTitles)
+ 'it seems "popular matches" is a better result than "exact matches" ..... nope
+ 'If r.ExactMatches.Count = 1 AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ ' b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf (popularHaveYear >= 0 OrElse exactHaveYear = -1) AndAlso r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(If(popularHaveYear >= 0, popularHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.PopularTitles.Item(If(popularHaveYear >= 0, popularHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(If(exactHaveYear >= 0, exactHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.ExactMatches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.PartialMatches.Count > 0 Then
+ ' b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'End If
+ If r.ExactMatches.Count = 1 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count > 1 AndAlso exactHaveYear >= 0 Then
+ b = GetMovieInfo(r.ExactMatches.Item(exactHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso popularHaveYear >= 0 Then
+ b = GetMovieInfo(r.PopularTitles.Item(popularHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCrew, False, Options, True)
+ ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PartialMatches.Count > 0 AndAlso (r.PartialMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ Dim fTitle As String = oTitle
+
+ Try
+ If bwIMDB.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/releaseinfo#akas"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<h5><a name=""akas"">Also Known As (AKA)</a></h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ Dim rTitles As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TD_PATTERN_4, RegexOptions.Multiline Or RegexOptions.IgnorePatternWhitespace)
+
+ If rTitles.Count > 0 Then
+ For i As Integer = 1 To rTitles.Count - 1 Step 2
+ If rTitles(i).Value.ToString.Contains(Master.eSettings.ForceTitle) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (working title)")) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (fake working title)")) Then
+ fTitle = CleanTitle(Web.HttpUtility.HtmlDecode(rTitles(i - 1).Groups("title").Value.ToString.Trim))
+ Exit For
+ End If
+ Next
+ End If
+
+ End If
+
+ Return fTitle
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return fTitle
+ End Try
+ End Function
+
+ Private Function GetMovieID(ByVal strObj As String) As String
+ Return Regex.Match(strObj, IMDB_ID_REGEX).ToString.Replace("tt", String.Empty)
+ End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+
+ Dim D, W As Integer
+ Dim R As New MovieSearchResults
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft"))
+ Dim HTMLp As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_tt_pop"))
+ Dim HTMLm As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_ft"))
+ Dim HTMLe As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&exact=true&ref_=fn_tt_ex"))
+ Dim rUri As String = sHTTP.ResponseUri
+ sHTTP = Nothing
+
+ 'Check if we've been redirected straight to the movie page
+ If Regex.IsMatch(rUri, IMDB_ID_REGEX) Then
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(Regex.Match(rUri, IMDB_ID_REGEX).ToString, _
+ StringUtils.ProperCase(sMovie), Regex.Match(Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString, "(?<=\()\d+(?=.*\))").ToString, 0)
+ R.ExactMatches.Add(lNewMovie)
+ Return R
+ End If
+
+ 'popular titles
+ D = HTMLp.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mPartial
+ W = HTMLp.IndexOf("</table>", D) + 8
+
+ Dim Table As String = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qPopular = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PopularTitles = qPopular.ToList
+mPartial:
+
+ D = HTMLm.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mExact
+ W = HTMLm.IndexOf("</table>", D) + 8
+
+ Table = Regex.Match(HTMLm.Substring(D, W - D), TABLE_PATTERN).ToString
+ Dim qpartial = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PartialMatches = qpartial.ToList
+ 'mApprox:
+
+ ' 'Now process "Approx Matches" and merge both Partial and Approx matches
+ ' D = HTML.IndexOf("Titles (Approx Matches)")
+ ' If D <= 0 Then GoTo mExact
+ ' W = HTML.IndexOf("</table>", D) + 8
+
+ ' Table = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ ' Dim qApprox = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ ' Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ ' Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ ' Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ ' If Not IsNothing(R.PartialMatches) Then
+ ' R.PartialMatches = R.PartialMatches.Union(qApprox.ToList).ToList
+ ' Else
+ ' R.PartialMatches = qApprox.ToList
+ ' End If
+
+mExact:
+
+ D = HTMLe.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mResult
+ W = HTMLe.IndexOf("</table>", D) + 8
+
+ Table = String.Empty
+ Table = Regex.Match(HTMLe.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qExact = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString.ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.ExactMatches = qExact.ToList
+
+mResult:
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+ Public Function GetTrailers(imdbID As String) As List(Of String)
+ Dim TrailerList As New List(Of String)
+ Dim TrailerNumber As Integer = 0
+ Dim Links As MatchCollection
+ Dim trailerPage As String
+ Dim trailerUrl As String
+ Dim Link As Match
+ Dim currPage As Integer = 0
+
+ Dim WebPage As New HTTP
+ Dim _ImdbTrailerPage As String = String.Empty
+
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer"))
+ If _ImdbTrailerPage.ToLower.Contains("page not found") Then
+ _ImdbTrailerPage = String.Empty
+ End If
+
+ If Not String.IsNullOrEmpty(_ImdbTrailerPage) Then
+ Link = Regex.Match(_ImdbTrailerPage, "of [0-9]{1,3}")
+
+ If Link.Success Then
+ TrailerNumber = Convert.ToInt32(Link.Value.Substring(3))
+
+ If TrailerNumber > 0 Then
+ currPage = Convert.ToInt32(Math.Ceiling(TrailerNumber / 10))
+
+ For i As Integer = 1 To currPage
+ If Not i = 1 Then
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer?page=", i))
+ End If
+
+ Links = Regex.Matches(_ImdbTrailerPage, "screenplay/(vi[0-9]+)/")
+ Dim linksCollection As String() = From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()
+
+ Links = Regex.Matches(_ImdbTrailerPage, "imdb/(vi[0-9]+)/")
+ linksCollection = linksCollection.Concat(From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()).ToArray
+
+ For Each value As String In linksCollection
+ If value.Contains("screenplay") Then
+ trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player"))
+ trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ TrailerList.Add(trailerUrl)
+ End If
+ Else
+ ''480p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=2"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+
+ ''720p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=3"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+ End If
+ Next
+ Next
+ End If
+ End If
+ End If
+ Return TrailerList
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TVDB.Data/Scraper/clsScrapeIMPA.vb b/Addons/scraper.TVDB.Data/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..5f052ed
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,179 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TVDB.Data/Scraper/clsScrapeImages.vb b/Addons/scraper.TVDB.Data/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..7bdb821
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/clsScrapeImages.vb
@@ -0,0 +1,940 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class ScrapeImages
+
+#Region "Methods"
+
+ Public Shared Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(IMDBID, "poster"))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ tmpListTMDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ TMDB = Nothing
+ IMPA = Nothing
+ MPDB = Nothing
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Shared Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("UseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+ ' Duplicate of clsImage
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0, Optional ByVal sUrl As String = "")
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' If Not sUrl = "" Then
+ ' Dim stroriginalurl As String = sUrl
+
+ ' 'Image Download from tmdb is special, need original size
+ ' If Not sUrl.Contains("impawards") AndAlso Not sUrl.Contains("movieposterdb") Then
+ ' 'Always get original image...
+ ' 'links to images (tmdb) have following structure: 'example: http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w92/x65b4vsFKYuA878pLN1mJiAsgIP.jpg
+ ' Dim stringArray() As String = Split(stroriginalurl, "/")
+ ' If stringArray.Length > 4 Then
+ ' ' stringArray(5) contains values like "w185","original", "w154"...-->size -> we want original!
+ ' stringArray(5) = "original"
+ ' stroriginalurl = Join(stringArray, "/")
+ ' End If
+ ' End If
+ ' Dim webclient As New Net.WebClient
+ ' webclient.DownloadFile(stroriginalurl, sPath)
+ ' Else
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+ ' End If
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/clsScrapeMPDB.vb b/Addons/scraper.TVDB.Data/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..7a7e13b
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,160 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TVDB.Data/Scraper/clsScrapeOFDB.vb b/Addons/scraper.TVDB.Data/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..a220a06
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,280 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, Wq, Wqq, B As Integer
+ Dim tmpHTML As String
+
+ D = HTML.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ Wq = tmpHTML.IndexOf("<b>Quelle:</b>")
+ If Wq > 0 Then
+ Wqq = tmpHTML.IndexOf("<br><br>", Wq)
+ B = tmpHTML.IndexOf("</font></p>", Wqq + 8)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(Wqq + 8, B - (Wqq + 8)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<td width=""99\%""><h1 itemprop=""name""><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h1></td>").Groups(1).Value.ToString))
+ If OFDBTitle.EndsWith(", Der") Then
+ _title = String.Concat("Der ", OFDBTitle.Replace(", Der", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Die") Then
+ _title = String.Concat("Die ", OFDBTitle.Replace(", Die", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Das") Then
+ _title = String.Concat("Das ", OFDBTitle.Replace(", Das", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", The") Then
+ _title = String.Concat("The ", OFDBTitle.Replace(", The", " ")).Trim
+ Else
+ _title = OFDBTitle
+ End If
+ End If
+
+ Dim D, Dq, W, Wq, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Wq = HTML.IndexOf("<span itemprop=""description"">", Dq)
+ W = HTML.IndexOf("<a href=""plot", Wq + 29)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(Wq + 29, W - (Wq + 29)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf D > 0 Then
+ W = HTML.IndexOf("<a href=""", D + 44)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 44, W - (D + 44)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : Dq = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 197, L - (D + 197)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ ElseIf D > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 44, L - (D + 44)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?><span itemprop=""genre"">(?<name>.*?)</span></a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/clsScrapeTMDB.vb b/Addons/scraper.TVDB.Data/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..d40e628
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,243 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Debug.Print("{0}/t{1}", tmdbI.@size, tmdbI.@url)
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/clsScrapeTrailers.vb b/Addons/scraper.TVDB.Data/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..19327b4
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", False) Then
+ Me.GetImdbTrailer()
+ End If
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetIMDBTrailer()
+ Dim IMDB As New IMDB.Scraper
+ IMDB.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ Dim results As List(Of String) = IMDB.GetTrailers(_ImdbID)
+
+ Me._TrailerList.AddRange(results)
+
+ IMDB = Nothing
+ End Sub
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper
+ Dim YT As String = TMDB.GetTrailers(_ImdbID)
+
+ If Not String.IsNullOrEmpty(YT) Then
+ Me._TrailerList.Add(YT)
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/clsScrapeYouTube.vb b/Addons/scraper.TVDB.Data/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..b4603fd
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,335 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb b/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..6d0924e
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.Designer.vb
@@ -0,0 +1,480 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgIMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgIMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtIMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.txtFileName = New System.Windows.Forms.TextBox()
+ Me.btnOpenFolder = New System.Windows.Forms.Button()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(501, 431)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(574, 431)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(8, 126)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 5
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(298, 160)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(295, 100)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(295, 119)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(298, 325)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(476, 160)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(476, 186)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(476, 213)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtIMDBID
+ '
+ Me.txtIMDBID.Enabled = False
+ Me.txtIMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBID.Location = New System.Drawing.Point(143, 429)
+ Me.txtIMDBID.Name = "txtIMDBID"
+ Me.txtIMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtIMDBID.TabIndex = 7
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(647, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(256, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(8, 433)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(128, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual IMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(249, 429)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(476, 277)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(35, 13)
+ Me.lblIMDB.TabIndex = 19
+ Me.lblIMDB.Text = "IMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(414, 160)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(32, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(414, 186)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(414, 213)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(414, 277)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(53, 13)
+ Me.lblIMDBHeader.TabIndex = 18
+ Me.lblIMDBHeader.Text = "IMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(295, 309)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(266, 100)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(8, 101)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(368, 213)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 20
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching IMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(312, 185)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtFileName
+ '
+ Me.txtFileName.Enabled = False
+ Me.txtFileName.Location = New System.Drawing.Point(8, 73)
+ Me.txtFileName.Name = "txtFileName"
+ Me.txtFileName.Size = New System.Drawing.Size(598, 22)
+ Me.txtFileName.TabIndex = 3
+ '
+ 'btnOpenFolder
+ '
+ Me.btnOpenFolder.Location = New System.Drawing.Point(612, 73)
+ Me.btnOpenFolder.Name = "btnOpenFolder"
+ Me.btnOpenFolder.Size = New System.Drawing.Size(29, 23)
+ Me.btnOpenFolder.TabIndex = 23
+ Me.btnOpenFolder.Text = "..."
+ Me.btnOpenFolder.UseVisualStyleBackColor = True
+ '
+ 'dlgIMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(647, 492)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnOpenFolder)
+ Me.Controls.Add(Me.txtFileName)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtIMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgIMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+ Friend WithEvents txtFileName As System.Windows.Forms.TextBox
+ Friend WithEvents btnOpenFolder As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.resx b/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.resx
new file mode 100644
index 0000000..fc0d614
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.resx
@@ -0,0 +1,190 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr5AAAK+QG0Yd4ZAAALEUlE
+ QVRoQ+1YCVCU5xle5Qa55JDTRA4XWMIpKsgRLgFRVOQGAbl21+VabuWSS0A0chiPIB5RquKRkIR4VI1N
+ SMxMjW1sik2maWOSydFOkknTZprD/+n7/i4Gcrad1CYzvDPP/N/u/v/3v+fzvt9KZmRGZmRGZmRGZmRG
+ fgZi7+CoWf2ExN5xvmb1lXh6eRsFh4TMc5fJQpycnXvs7OxbLa2s7zeznDdLc8v/X76u+KKAALeNKlW6
+ UqnsycrKurQiPv6jZcuWwd3dHXZ2dphrYfHmPBubATs7h04bW9t6Xz+/Cnom38PD8z7NFpLszCyJmflc
+ zSeJxNTMXLP6kWWq8mXl6tbevv7Xe/v6PtizZ89nnZ2dKCkpQXJyMoKDg7Fq1SohISFBWJeYiFUJCVjg
+ 5CRC6uYmkIFfBAYFfbg0MGjU1s5+iWbLaWLn4Oi2UOoeovkoMTA00qz+TVm7dq0OKaGXlpFhVFJWZqbc
+ qLLKy8uz9fPzX5Cdk/P86OgoJiYmcOvWLeHRI0fQ0NCA4uJiJCUlITQ0VMTixYtFg/Lz8rBx40ZwZHx9
+ fREVFSWUlpYK6enpoKghMTFxYllwSGpo2IPOUdHR+0NCQz+IioqGXKHA8uXL37W0tvYilb47DcMjIjUr
+ iU5waFjgvn37Snp7e49WVFScpk0u7d69+8aOHQ+9U1VV9UVOTg7i4uIgk8kEPz8/HDt2DNevX0dfXx8y
+ MjJYGaTTNTc3V7zGxMYibsUKqCsqRCPYMDYkLS0d5eXloD1RUVmJuro6lJWV31bRPRQ5NlSwsrIWvLy9
+ 4eLi8q6ugYEL6adFmG5IWHiEeI2IiMpvbGx8p7u7++OGxobbtEZ9fT02bNgA9lR/fz86OjqgIK9weixa
+ tEjMcUtLS5w/fx5nz55FkVyO+PiVpEgZUlNTERERgRWkfHh4OBLXraMoNVKalUKlKhYNZIOy1q9HS1sb
+ 2js6hO09PfydQPuDnWNrawsDAwPBxs7uS30Dg0pS04AwW1R4qjwYEZnd2dWF/Px8gdJEKKaX7HjkGIrV
+ VWCPR0ZGghVmg6hY2QDxs6OjI7S1tcUc55Q6fPgwVq5KAO2BNWvWiNHgFOFn2AiKLI5QuvG7mrdsQUtL
+ C65du4YrV65gbGwM1TU1KCoqEvdnA9hBurq60NLShomp6VZSlSudjeBI3BXt9vaOtwoLC8XQcR7nFynR
+ 99Tv0f/0BJQV9Yh4MExkFR8fH8jJy1MN0NfXF6Nw8OBBMUpsZExsHDIzM0VlONe5PlauXCkcOnQIZ86c
+ wdGjR8nYRzE+Po6LFy+K0WMHnDhxQiQCuneaAbNmzYKxsfFL2jo6HqSvDcGY9WblJcTb3vTijzgt2ACV
+ SoXcfDlaj19D44lXUHfoKhJTsyjnPWBtbY3o6GjR0KkG0OboIq+2USrU1tYiOSUF/vQ7O4PTLicnF8xS
+ rOjQ0JBY9M899xwuXbqEkZERMroB+QUFFLl8bNq8GfFkgL+//10DSE3MnTsX7h6yEVo7aGBCkEiSklOW
+ dG/b9jHnKnuWc1OuLIaq5wkU9b2A7O3jSK/sxwNeXrCwsICrqyvlefykAQIbYGVlhda2NqG6upojJGRk
+ ZAruHh4g/v+bk5NTF73GxcfXt6qxqeldVp4N6aNoNVCdscOUSgXWUY2EhoZg4UIpqFdA5uk51QDB3Nyc
+ i/8WrZnLFxDuNAsPT0+3vXv3fhAbGytw6Ni7lcQK8fJu+KmehHPOKSxSnIRPQJBoAG9E1IaAgADBwcEB
+ hkZGYg3UavKXi5d/d3Zx/a25hUUavcKMYFtTU1PZPzAwwWmmVqvBJNHc3IwtVAtcI2xAWFgYKS7DPIq0
+ Gb2HGt/dCJiZmcHBwbGa1gsJbMQcwh0hA96mohM4Cozk5CSszSmBVDUKF9UYnBVnkZBeKCqvo6MjphFH
+ YP78+f8wmmMsd3FxTSGPtS0NDHxy8ZIlv3Z2dunS09cPoK2N6HtPYqeXqA4+37SpDupytVBHaca1xEqz
+ 04g8vjJAJhPZZzI1J2vA0NDoMhUz7+lOmEfQvdtZK6uq+tgTpJjA1McezM1MQ2T5ALzbn4dr7RVkV3fD
+ zNRU0NLSEtgAKui/EDMU0eNLCbzxIoIfwZvAXjINj4xcV0DkwIXd3t4ubOvbgz3DT6ByczOyczdg9erV
+ YtdmZ3Dkpxqgp6cHYxMTmJqaYfbs2Z/MMZ6TS3v6EFwJHNVpTGT28MMP/5OZgyhTiImJAXViZGdSY2ob
+ gu9DL6Gs8xGYmpgIpqam/MIblDrZ9ByPAaws05slgRmCvTM7KDg4lfsBpyM5R9jc2IzDl1/Fo+Nv4+Cz
+ b6H35DiKqxsRFLgEUqkUzs7OYt+YaoCunp7gRuxH0TxMe7LyDC5gfcIdCQkJE68KpTJlcHBQbELc/tk7
+ 2dnZ2Ersse3gadQ2biFvmMLGxuamiYlJKj3CHVBGYF6eFO6SjDklpaVvMCNR4xMaKAJbHhrE3su30Df2
+ KnY8fhPdZyaw9eQNVLX2QeYuFYmAa2qygZEBAr2HZif3P9F+ywhBBH4fO2ua9yVSD6ZXiRaND7uGh4dF
+ TifOFmhMEI4fP44LF86DZpTblPPvU1uvoXvjCJwyd6jsaxIeFbWcCvTv3Fu421aoy9C273F0nb6JluGX
+ UX/oOlT9VxGqHsOCrBHEpijIMfNgRITg5ubGBjC7CTTJvmZgaJhMW4YSfAnTvf8tor1r1676Xxw79uG5
+ c+fwzDPPiOjq7n6Dcn6QPMR5GE/g4YlT5VslNS0tp6W19XOejbhYKyvUqOkZRt3QdZQOXEVk9VncT4rb
+ p52AY/oJBCuOwk3mJRasvb0906dAxnyiq6ObRdvxuzhVuWANCd8cJViIDTQriaS+ocGWxuWMpqbmThrG
+ aol9Mulr9sRaQjDBnjA9jFMkMzNrPTWwz1Kooa2nWaeROnFheTNyd7wIT8UoFuQ9BqfCxwmjcCp4DPfl
+ jSJNXkfFOoupWuAUouI9RVst1+ABAhfutyv/A8IhcyOwFzgHOW2+94QVExMbsX379k8oAgLTI0+aeUUq
+ +CpH4Kx8Eq6lT0OqPgdpxXksLKdoKMeQ2z2GOYYGAvO9rZ3dp7TNasIaAkfAmfC9qfNDwgrrEr7T618T
+ Y5qv3iNCEJjNuLmVl6sRnL0F0qoL8Ki/DK+WZ+HdNg7Ppitwrb6I6NZLWOzvIxIF5X4v7bGOMBlxZrc7
+ s8+9kpTU1J27Bga4QQnU5cVGxR03qHoYQbtfRszwHxB3/DWED/0OPltfQFTnrxAZHsIG/NHQ0LCAtsgg
+ cBSYOn8w6v8Lmd3U1PRRNR1YeEzhQxCfLeQFeUjb/RTyr/4Vit98jMwr7yH80E1BfuCqEBy09DbR6RA9
+ m0NYT1hB4IOMHuHeiYtUKl5J6bCdO3d+ygMbD4o8NnCzVBQVoHbXIDrGb6DixTeRePpVYe+pc3ByWnCB
+ mIi7O0eAGYiblNgYCfdWVCUl4jUxKSlz//79wgClE43bQg+duni9f/8gjlDPOXrytDDyxBgKFYpX6HYF
+ QUlgAzh9uEH9h6f5H1EAHiQlkvucnKJofH6HGuOXBw4cEE9u3CD5AHPy1Cls29bzPvH+Jrq1lKAiMG3z
+ fPXNrnuv5cCRI5qVxLyoSF5FB59f7uzt/TOl1vvUIF/Pzd1wkc67rfR7BUFN4BSKIfDfeTqEn5RwLtsQ
+ zwfS6S6V5h05fWaPFxM4dXhA5MbFvM9d9ycrzOncWe8nME0uJvgTJmd9blr3nDb/W+Ec5ybJYMN+NorP
+ yIzMyIz8rEUi+Re4NXpfio4DrwAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAAB9ElE
+ QVQ4T6XSTWgTQRQH8E0LaZPaD9oaxULRi0igJSroqYLoxaa3gpfSFrx4sGp7Kj31pDYnPQpG8dzgQcSg
+ 1orQZJPd2exWSYOxiXhKQz5oEjQxpubvm6WN2zUe1IXf7OzMe2/fLCsA+C9NF//GbwtPfD67wti5SES5
+ +GZ19ZB532zfg8Lkq+uallFVFZymqRUqdNcYY9aYMFma1igpFoshl80in88jsbkJvhZRlAfGJCN9eOH3
+ WxWF5TaiUezs1FCv13X8SiYSoD2IwaCTx5rpA20OS5KEVCqFWu07KpWyrlr9hkJhG4wxSOHwdXMypw+B
+ tTVXOBRCOr1FSVWUSkVSQrn8FcViEUyW8VkTr5iTOX14vbLSTgUK0d0j8C54IaCOZDIBRt1d9gYXjIl7
+ GhM6xjWZAvl3yGQy9BFziMfj+Phegcf3FsLMc7TdfHbPmMztexBFcZ7O+oXwM+NdRP5xf/nVJ9uEF9aJ
+ h2ifeoyOyUcve+eedjUtwNHP0x8MBMaoo/EPauioIAgW+6jH233pFrpG76DTvYRu99LGwNhtW9MCf+IY
+ WbjRf3YOfWdm0Uf3gQuLh/m60EqvID3kGDlBhoiLnCKnd52ksCO9g+dnHM4p6eDxcY/VIvzqgAJaSRux
+ kQ5ygHSa7XXDtVBOo8C/g/ATj6yxruTRIKcAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.vb b/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.vb
new file mode 100644
index 0000000..6fde061
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgIMDBSearchResults.vb
@@ -0,0 +1,520 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgIMDBSearchResults
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private IMDB As New IMDB.Scraper
+ Private sHTTP As New HTTP
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+ #Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As IMDB.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching IMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ IMDB.CancelAsync()
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.txtIMDBID.Text.Replace("tt", String.Empty), Master.tmpMovie, Master.DefaultOptions)
+ Else
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOpenFolder_Click(sender As Object, e As EventArgs) Handles btnOpenFolder.Click
+ Dim fPath As String = Directory.GetParent(Master.currMovie.Filename).FullName
+
+ If Not String.IsNullOrEmpty(fPath) Then
+ Shell("Explorer.exe " & fPath, vbNormalFocus)
+ End If
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtIMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtIMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ IMDB.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.UseOFDBTitle = UseOFDBTitle
+ IMDB.UseOFDBOutline = UseOFDBOutline
+ IMDB.UseOFDBPlot = UseOFDBPlot
+ IMDB.UseOFDBGenre = UseOFDBGenre
+ AddHandler IMDB.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler IMDB.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ If Not Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ Exit Sub
+ Else
+ If MsgBox(String.Concat(Master.eLang.GetString(13, "You have manually entered an IMDB ID but have not verified it is correct."), vbNewLine, vbNewLine, Master.eLang.GetString(101, "Are you sure you want to continue?", True)), MsgBoxStyle.YesNo, Master.eLang.GetString(14, "Continue without verification?")) = MsgBoxResult.No Then
+ Exit Sub
+ Else
+ Master.tmpMovie.IMDBID = Me.txtIMDBID.Text.Replace("tt", String.Empty)
+ End If
+ End If
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.IMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.IMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.IMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As IMDB.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) Then
+ If M.PartialMatches.Count > 0 OrElse M.PopularTitles.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Dim TnP As New TreeNode(String.Format(Master.eLang.GetString(17, "Partial Matches ({0})"), M.PartialMatches.Count))
+ Dim selNode As New TreeNode
+
+ If M.PartialMatches.Count > 0 Then
+ M.PartialMatches.Sort()
+ For Each Movie As MediaContainers.Movie In M.PartialMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+ selNode = TnP.FirstNode
+ End If
+
+ If M.PopularTitles.Count > 0 Then
+ M.PopularTitles.Sort()
+ If M.PartialMatches.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(19, "Popular Titles ({0})"), M.PopularTitles.Count))
+
+ For Each Movie As MediaContainers.Movie In M.PopularTitles
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+ End If
+
+ If M.ExactMatches.Count > 0 Then
+ M.ExactMatches.Sort()
+ If M.PartialMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(18, "Exact Matches ({0})"), M.ExactMatches.Count))
+ For Each Movie As MediaContainers.Movie In M.ExactMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+
+ End If
+ Me._prevnode = -2
+
+ 'determine if we automatically start downloading info for selected node
+ If M.ExactMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PopularTitles.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PartialMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ Else
+ Me.tvResults.SelectedNode = Nothing
+ End If
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual IMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(289, "IMDB ID:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching IMDB...")
+ Me.txtFileName.Text = Master.currMovie.Filename
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtIMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..213f00e
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,466 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlMPDB = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.lblDL1Status = New System.Windows.Forms.Label()
+ Me.lblDL1 = New System.Windows.Forms.Label()
+ Me.pbDL1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlMPDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 1
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 4
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 3
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 1
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 2
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 0
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 2
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 1
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 0
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 1
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlMPDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1Status)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1)
+ Me.pnlDLStatus.Controls.Add(Me.pbDL1)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(257, 132)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(321, 223)
+ Me.pnlDLStatus.TabIndex = 2
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlMPDB
+ '
+ Me.pnlMPDB.Controls.Add(Me.lblDL3Status)
+ Me.pnlMPDB.Controls.Add(Me.lblDL3)
+ Me.pnlMPDB.Controls.Add(Me.pbDL3)
+ Me.pnlMPDB.Location = New System.Drawing.Point(0, 147)
+ Me.pnlMPDB.Name = "pnlMPDB"
+ Me.pnlMPDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMPDB.TabIndex = 4
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 1
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 0
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 2
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.pnlSinglePic)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2)
+ Me.pnlIMPA.Controls.Add(Me.pbDL2)
+ Me.pnlIMPA.Location = New System.Drawing.Point(0, 73)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 3
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 1
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 0
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 2
+ '
+ 'lblDL1Status
+ '
+ Me.lblDL1Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1Status.Location = New System.Drawing.Point(5, 29)
+ Me.lblDL1Status.Name = "lblDL1Status"
+ Me.lblDL1Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1Status.TabIndex = 1
+ '
+ 'lblDL1
+ '
+ Me.lblDL1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1.Location = New System.Drawing.Point(5, 6)
+ Me.lblDL1.Name = "lblDL1"
+ Me.lblDL1.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1.TabIndex = 0
+ Me.lblDL1.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL1
+ '
+ Me.pbDL1.Location = New System.Drawing.Point(6, 49)
+ Me.pbDL1.Name = "pbDL1"
+ Me.pbDL1.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL1.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL1.TabIndex = 2
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(0, 1)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 1
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlMPDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblDL1Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL1 As System.Windows.Forms.Label
+ Friend WithEvents pbDL1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMPDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.resx b/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..e4a4f58
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALAAAA
+ CwAB5DetvwAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.vb b/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..7e37076
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1309 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+ Private TMDB As New TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+ Private selURL As String = ""
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal iImage As Image, ByVal sDescription As String, ByVal iIndex As Integer, ByVal sURL As String, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = iImage
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(sURL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+
+ Me.pnlSinglePic.Visible = True
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ Dim percent = 100 / posters.Count
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress(Convert.ToInt32((i + 1) * percent), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL1Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL1.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+ Me.selURL = poster.URL
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains("themoviedb.org") OrElse sURL.ToLower.Contains("d3gtl9l2a4fn1j.cloudfront.net") OrElse sURL.ToLower.Contains("cf1.imgobject.com") OrElse sURL.ToLower.Contains("cf2.imgobject.com") Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "backdrop")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "poster")
+ Else
+ Me.lblDL1.Text = Master.eLang.GetString(33, "TheMovieDB.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ Me.lblDL2.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL2.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ Me.lblDL3.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.WebImage.Image, xPoster.Description, iIndex, xPoster.URL, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ IMPA.IMDBURL = IMDBURL
+ TMDB.IMDBURL = IMDBURL
+ MPDB.IMDBURL = IMDBURL
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL3.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL2.Text = Me.lblDL3.Text
+ Me.lblDL1.Text = Me.lblDL3.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me._tmdbDone = True
+ Me.AllDoneDownloading()
+ Else
+ Me.pnlDLStatus.Visible = False
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL1.Value = 0
+
+ Me.lblDL1.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL1Status.Text = String.Empty
+
+ TMDBPosters = Posters
+ Me.pbDL1.Maximum = 100
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL1.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..2871b29
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,292 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.btnPlayBrowser = New System.Windows.Forms.Button()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(350, 340)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(120, 23)
+ Me.OK_Button.TabIndex = 6
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(350, 369)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(120, 23)
+ Me.Cancel_Button.TabIndex = 7
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(445, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(458, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(122, 60)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(130, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(445, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(410, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(395, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(71, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(426, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(151, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 369)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(224, 340)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(120, 23)
+ Me.btnSetNfo.TabIndex = 5
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(478, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'btnPlayBrowser
+ '
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnPlayBrowser.Location = New System.Drawing.Point(12, 340)
+ Me.btnPlayBrowser.Name = "btnPlayBrowser"
+ Me.btnPlayBrowser.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayBrowser.TabIndex = 4
+ Me.btnPlayBrowser.Text = "Open In Browser"
+ Me.btnPlayBrowser.UseVisualStyleBackColor = True
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(484, 398)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Controls.Add(Me.btnPlayBrowser)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents btnPlayBrowser As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.resx b/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..f08e020
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAK
+ 6QAACukB/XXO0wAAABh0RVh0U29mdHdhcmUAQWRvYmUgRmlyZXdvcmtzT7MfTgAAAfdJREFUOE+lkk1r
+ E1EUhi9apQsr7vwDigUXLtzpyrWlpdD8BSEbN1p1IRJQqNXoarCNH03aKlgQjU1ahCr2a6HSRRszGSe0
+ 4nQ+M9/JjIhYeb25JGVGmo0OPMw5h/M+9zIMAfBfxBpd07osyzxv21aCMuTY9pDnugmhUjkX3YsSa8xa
+ 7ToVgIZBw4wgaGBlZRn376WHo7ttYg0NjzfDTODYcB0H38MQS0uLuDM6isz42NXofpNYQwXc7uktge95
+ 0FQVxcIs5opFfPr44UI0s6cgeoO2JAwD1Ot+c56NZmIC+g2YwLJN+E6A0NtB6O/AdwMmbTEWzcQEhq5z
+ plmjgRBflDeYF5IMQZ5nMya3zM4CVVU4XdfQcH/hffUmbi0TxjvxBr3NbzTlhqF3FsjyNqcoMjzzB94K
+ aaQWjzAWhNuo2z9B/xOoitJZ8HVri5MkCbZWx1zpLoYXjjIKpRE4RgOKLGNbkjoL+HL5gbSpYGL1GpL5
+ Y7hYOMlI5o/j0eolqN8MVEUxE83EBBvr6yP8Zx4b5TVceTWIRK6XcfllP0qVNYiCiArPp6OZ3WI/IYf6
+ +/pO5bITmfzM6+e5Z9mps6ne6pnUic0nTx9Pz74ozkxPTT4cHBg4vY+Qw3sJDhBCutmQPq13DyFdPX/N
+ uunuwWbN+nbxb4D8AU3a+lQSEAyqAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
+ DAAACwwBP0AiyAAAAAd0SU1FB9kEGhIhAdf7pBcAAAJDSURBVDhPtVJLa5pBFPWxsGoQNI2oAY1ogigI
+ GitIULQufKxcBGmzLLpwo9B/UOgmv6GKuxDdCCKIGyOBLIpE8IWIaBauFEQSwcfCuZ07PkIogW564HDn
+ m7nnzHxzhvNfsFwuE5PJ5HelUnm5u7ubDYfD5ng8/kGXDjYd7+Dp6elTv9+fJxIJcDgcJBAIQDAYhIuL
+ CxKLxaDdbkOhUPiybX8LFJdKJdBoNOT8/BxcLheYzWaw2WyA30i9Xk+y2SxkMplvW9kr6M4LWohEIoHj
+ 42MIh8OQy+VAJpOBSqVic1KpFLCnVquBQqFQMyFisVh8x+PS4Z4ejwcQ6XSafXO53P2a1WqFer1+Q8cb
+ zOfzKi2Ect+Ev7BDKpXaz+/YarVeaN2gWq3OaAEejwd8Pp/R7XYz8Xq9ZjWZTDLh7iTlchnrR8pXA6FQ
+ CCKRCMRiMfh8PiYkhDCT5+dnODo6AoFAwAxoxFhVqOdMp9MWdSZ4SYeHhyCXyyEUCjEDFNN1TIddKF4y
+ GjSbzRWtH5jBaDT6eXl5CUqlEtRqNWi1Wri6umIGuDPGeXJywpJAc6fTCff392Um3uKAxogGxGAwMEEk
+ EoHVasXSsFgsYDKZ8B3gCUmj0QCdTufeajfI5/NfHx4ewGg0EvoKmQGeyuv1sh3tdjucnp6SYrEI19fX
+ v7ayt7i9vY3SFwnxeJzF6Pf72WWiQTQahW63+754B/qf6sfHx5vBYDDrdDqA7PV6Kxpb5ezs7PO27Z/A
+ pZRTYlRCnPgbHM4fFEdnm0hssg4AAAAASUVORK5CYII=
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.vb b/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..67c25ca
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgTrailer.vb
@@ -0,0 +1,480 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As New Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnPlayBrowser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayBrowser.Click
+ If Not String.IsNullOrEmpty(Me.txtYouTube.Text) Then
+ If Master.isWindows Then
+ Process.Start(Me.txtYouTube.Text)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.txtYouTube.Text
+ Explorer.Start()
+ End Using
+ End If
+ Else
+ If Master.isWindows Then
+ Process.Start(Me.lbTrailers.SelectedItem.ToString)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.lbTrailers.SelectedItem.ToString
+ Explorer.Start()
+ End Using
+ End If
+ End If
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ cTrailer.IMDBURL = IMDBURL
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.btnPlayBrowser.Enabled = False
+ Else
+ Me.btnPlayBrowser.Enabled = True
+ End If
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnPlayBrowser.Text = Master.eLang.GetString(114, "Open In Browser")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..8d135fa
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(72, 187)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(145, 187)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(4, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(170, 121)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(10, 8)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(180, 151)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(12, 75)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(12, 12)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(200, 169)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 217)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.resx b/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.vb b/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/clsScrapeTVDB.vb b/Addons/scraper.TVDB.Data/TVScraper/clsScrapeTVDB.vb
new file mode 100644
index 0000000..b0f8531
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/clsScrapeTVDB.vb
@@ -0,0 +1,1911 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Data
+Imports System.IO
+Imports System.Text
+
+Imports ICSharpCode.SharpZipLib.Zip
+Imports EmberAPI
+
+Public Class Scraper
+
+#Region "Fields"
+
+ Public Const APIKey As String = "7B090234F418D074"
+
+ Public Shared WithEvents sObject As New ScraperObject
+ Public Shared tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Public Shared tmpTVDBShow As New TVDBShow
+ Public Shared TVDBImages As New TVImages
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ AddHandler sObject.ScraperEvent, AddressOf InnerEvent
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ sObject.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String) As MediaContainers.EpisodeDetails
+ Return sObject.ChangeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .SelectedLang = Lang, .iSeason = -999})
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String) As List(Of Containers.TVLanguage)
+ Dim tvdbLangs As New List(Of Containers.TVLanguage)
+ Dim cLang As Containers.TVLanguage
+ Dim xmlTVDB As XDocument
+ Dim sHTTP As New HTTP
+
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/languages.xml", sMirror, APIKey))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbLangs
+ End Try
+
+ Dim xLangs = From xLanguages In xmlTVDB.Descendants("Language")
+
+ For Each xL As XElement In xLangs
+ cLang = New Containers.TVLanguage
+ cLang.LongLang = xL.Element("name").Value
+ cLang.ShortLang = xL.Element("abbreviation").Value
+ tvdbLangs.Add(cLang)
+ Next
+ End If
+ Return tvdbLangs
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As MediaContainers.EpisodeDetails
+ Return sObject.GetSingleEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images) As Images
+ Return sObject.GetSingleImage(New Structures.ScrapeInfo With {.ShowTitle = Title, .ShowID = ShowID, .TVDBID = TVDBID, .ImageType = Type, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .CurrentImage = CurrentImage})
+ End Function
+
+ Public Sub InnerEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Function IsBusy() As Boolean
+ Return sObject.IsBusy
+ End Function
+
+ Public Sub SaveImages()
+ sObject.SaveImages()
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iEpisode = iEpisode, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeSeason(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub SingleScrape(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean)
+ sObject.SingleScrape(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options, .ScrapeType = ScrapeType, .WithCurrent = WithCurrent, .iSeason = -999})
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ <Serializable()> _
+ Public Structure TVImages
+
+#Region "Fields"
+
+ Dim AllSeasonPoster As TVDBShowPoster
+ Dim SeasonImageList As List(Of TVDBSeasonImage)
+ Dim ShowFanart As TVDBFanart
+ Dim ShowPoster As TVDBShowPoster
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function Clone() As TVImages
+ Dim newTVI As New TVImages
+ Try
+ Using ms As New IO.MemoryStream()
+ Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
+ bf.Serialize(ms, Me)
+ ms.Position = 0
+ newTVI = DirectCast(bf.Deserialize(ms), TVImages)
+ ms.Close()
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return newTVI
+ End Function
+
+#End Region 'Methods
+
+ End Structure
+
+ Public Class ScraperObject
+
+#Region "Fields"
+
+ Friend WithEvents bwTVDB As New System.ComponentModel.BackgroundWorker
+
+ Private aXML As String = String.Empty
+ Private bXML As String = String.Empty
+ Private sXML As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Shared Sub LoadAllEpisodes(ByVal _ID As Integer, ByVal OnlySeason As Integer)
+ Try
+
+ tmpTVDBShow = New TVDBShow
+
+ tmpTVDBShow.Show = Master.DB.LoadTVFullShowFromDB(_ID)
+ tmpTVDBShow.AllSeason = Master.DB.LoadTVAllSeasonFromDB(_ID)
+
+ Using SQLCount As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLRCount As SQLite.SQLiteDataReader = SQLCount.ExecuteReader
+ If Convert.ToInt32(SQLRCount("eCount")) > 0 Then
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLReader As SQLite.SQLiteDataReader = SQLCommand.ExecuteReader
+ While SQLReader.Read
+ tmpTVDBShow.Episodes.Add(Master.DB.LoadTVEpFromDB(Convert.ToInt64(SQLReader("ID")), True))
+ End While
+ End Using
+ End Using
+ End If
+ End Using
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTVDB.IsBusy Then bwTVDB.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Try
+ Dim tEpisodes As List(Of MediaContainers.EpisodeDetails) = Me.GetListOfKnownEpisodes(sInfo)
+ If tEpisodes.Count > 0 Then
+ Using dChangeEp As New dlgTVChangeEp
+ Return dChangeEp.ShowDialog(tEpisodes)
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(79, "There are no known episodes for this show. Scrape the show, season, or episode and try again."), MsgBoxStyle.OkOnly, Master.eLang.GetString(80, "No Known Episodes"))
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Nothing
+ End Function
+
+ Public Sub DownloadSeries(ByVal sInfo As Structures.ScrapeInfo, Optional ByVal ImagesOnly As Boolean = False)
+ Try
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim fExists As Boolean = File.Exists(fPath)
+ Dim doDownload As Boolean = False
+
+ Select Case Master.eSettings.TVUpdateTime
+ Case Enums.TVUpdateTime.Always
+ doDownload = True
+ Case Enums.TVUpdateTime.Never
+ doDownload = False
+ Case Enums.TVUpdateTime.Week
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(7) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.BiWeekly
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(14) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.Month
+ If fExists AndAlso File.GetCreationTime(fPath).AddMonths(1) < Now Then doDownload = True
+ End Select
+
+ If doDownload OrElse Not fExists Then
+ Dim sHTTP As New HTTP
+ Dim xZip As Byte() = sHTTP.DownloadZip(String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, APIKey, sInfo.TVDBID, sInfo.SelectedLang))
+ sHTTP = Nothing
+
+ If Not IsNothing(xZip) AndAlso xZip.Length > 0 Then
+ 'save it to the temp dir
+ Directory.CreateDirectory(Directory.GetParent(fPath).FullName)
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Create, FileAccess.Write)
+ fStream.Write(xZip, 0, xZip.Length)
+ End Using
+
+ Me.ProcessTVDBZip(xZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End If
+ Else
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+
+ Me.ProcessTVDBZip(fZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub DownloadSeriesAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.StartingDownload, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 1, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetListOfKnownEpisodes(ByVal sInfo As Structures.ScrapeInfo) As List(Of MediaContainers.EpisodeDetails)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim tSeas As Integer = -1
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ Try
+ If File.Exists(fPath) Then
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+ Me.ProcessTVDBZip(fZip, sInfo)
+
+ 'get the actors first
+ Try
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = If(IsNothing(Actor.Element("Role")), String.Empty, Actor.Element("Role").Value), .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdEps As XDocument = XDocument.Parse(sXML)
+
+ For Each Episode As XElement In xdEps.Descendants("Episode")
+ If Not IsNothing(Episode.Element("EpisodeName").Value) AndAlso Not String.IsNullOrEmpty(Episode.Element("EpisodeName").Value) Then
+ tEpisode = New MediaContainers.EpisodeDetails
+
+ tOrdering = Enums.Ordering.Standard
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ If Not IsNothing(Episode.Element("SeasonNumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("SeasonNumber").Value)
+ If sInfo.iSeason >= 0 AndAlso Not tSeas = sInfo.iSeason Then Continue For
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("DVD_season").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If Not IsNothing(Episode.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(Episode.Element("absolute_number").Value.ToString) Then
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+ Else
+ If sInfo.iSeason >= 0 AndAlso Not Convert.ToInt32(Episode.Element("SeasonNumber").Value) = sInfo.iSeason Then Continue For
+ End If
+
+ With tEpisode
+ .Title = Episode.Element("EpisodeName").Value
+ If tOrdering = Enums.Ordering.DVD Then
+ .Season = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ .Episode = Convert.ToInt32(CLng(Episode.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ .Season = 1
+ .Episode = Convert.ToInt32(Episode.Element("absolute_number").Value)
+ Else
+ .Season = If(IsNothing(Episode.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value), 0, Convert.ToInt32(Episode.Element("SeasonNumber").Value))
+ .Episode = If(IsNothing(Episode.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(Episode.Element("EpisodeNumber").Value), 0, Convert.ToInt32(Episode.Element("EpisodeNumber").Value))
+ End If
+ .Aired = If(IsNothing(Episode.Element("FirstAired")), String.Empty, Episode.Element("FirstAired").Value)
+ .Rating = If(IsNothing(Episode.Element("Rating")), String.Empty, Episode.Element("Rating").Value)
+ .Plot = If(IsNothing(Episode.Element("Overview")), String.Empty, Episode.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ .Director = If(IsNothing(Episode.Element("Director")), String.Empty, Strings.Join(Episode.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ .Credits = CreditsString(If(IsNothing(Episode.Element("GuestStars")), String.Empty, Episode.Element("GuestStars").Value), If(IsNothing(Episode.Element("Writer")), String.Empty, Episode.Element("Writer").Value))
+ .Actors = Actors
+ .PosterURL = If(IsNothing(Episode.Element("filename")), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Episode.Element("filename").Value))
+ .LocalFile = If(IsNothing(Episode.Element("filename")), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, Episode.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+
+ tEpisodes.Add(tEpisode)
+ End If
+ Next
+
+ End If
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tEpisodes
+ End Function
+
+ Public Sub GetSearchResultsAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 0, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetSingleEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Dim tEp As New MediaContainers.EpisodeDetails
+ Try
+
+ tEp = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Season = sInfo.iSeason AndAlso e.Episode = sInfo.iEpisode)
+
+ If Not IsNothing(tEp) Then
+ Return tEp
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return New MediaContainers.EpisodeDetails
+ End Function
+
+ Public Function GetSingleImage(ByVal sInfo As Structures.ScrapeInfo) As Images
+ tmpTVDBShow = New TVDBShow
+
+ If sInfo.ImageType = Enums.TVImageType.EpisodePoster Then
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ End If
+ Else
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ End If
+ End If
+ End Function
+
+ Public Function IsBusy() As Boolean
+ Return bwTVDB.IsBusy
+ End Function
+
+ Public Sub PassEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub ProcessTVDBZip(ByVal tvZip As Byte(), ByVal sInfo As Structures.ScrapeInfo)
+ sXML = String.Empty
+ bXML = String.Empty
+ aXML = String.Empty
+
+ Try
+ Using zStream As ZipInputStream = New ZipInputStream(New MemoryStream(tvZip))
+ Dim zEntry As ZipEntry = zStream.GetNextEntry
+
+ While Not IsNothing(zEntry)
+ Dim zBuffer As Byte() = Functions.ReadStreamToEnd(zStream)
+
+ Select Case True
+ Case zEntry.Name.Equals(String.Concat(sInfo.SelectedLang, ".xml"))
+ sXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("banners.xml")
+ bXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("actors.xml")
+ aXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ End Select
+
+ zEntry = zStream.GetNextEntry
+ End While
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub SaveImages()
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SavingStarted, 0, Nothing)
+ Me.bwTVDB = New System.ComponentModel.BackgroundWorker
+ Me.bwTVDB.WorkerReportsProgress = True
+ Me.bwTVDB.WorkerSupportsCancellation = True
+ Me.bwTVDB.RunWorkerAsync(New Arguments With {.Type = 3})
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ tmpTVDBShow = New TVDBShow
+ tmpTVDBShow.Episodes.Add(Master.currShow)
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Episodes(0).TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 4, .Parameter = sInfo})
+ End Sub
+
+ Public Sub SingleScrape(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = False
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 2, .Parameter = sInfo})
+ While bwTVDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub StartSingleScraper(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If String.IsNullOrEmpty(sInfo.TVDBID) AndAlso sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Show.TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ If sInfo.ScrapeType = Enums.ScrapeType.FullAuto Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SaveAuto, 0, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ ElseIf sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ 'Ignore Show scrape if ScrapeAuto and show don't have ID
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwtvDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTVDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Type
+ Case 0 'search
+ e.Result = New Results With {.Type = 0, .Result = SearchSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))}
+ Case 1 'show download
+ Me.DownloadSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))
+ e.Result = New Results With {.Type = 1}
+ Case 2 'load episodes
+ LoadAllEpisodes(DirectCast(Args.Parameter, Structures.ScrapeInfo).ShowID, 999)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ Case 3 'save
+ Me.SaveAllTVInfo()
+ e.Result = New Results With {.Type = 3}
+ Case 4
+ Dim sInfo As Structures.ScrapeInfo = DirectCast(Args.Parameter, Structures.ScrapeInfo)
+ LoadAllEpisodes(sInfo.ShowID, sInfo.iSeason)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTVDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTVDB.ProgressChanged
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Progress, e.ProgressPercentage, e.UserState.ToString)
+ End Sub
+
+ Private Sub bwTVDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTVDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.Type
+ Case 0 'search
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SearchResultsDownloaded, 0, DirectCast(Res.Result, List(Of TVSearchResults)))
+ Case 1 'show download
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ShowDownloaded, 0, Nothing)
+ Case 2 'load episodes
+ If Not e.Cancelled Then
+ StartSingleScraper(DirectCast(Res.Result, Structures.ScrapeInfo))
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End If
+ Case 3 'save
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CreditsString(ByVal sGStars As String, ByVal sWriters As String) As String
+ Dim cString As New List(Of String)
+ Dim gString As String = Master.eLang.GetString(82, "Guest Star")
+ Dim wString As String = Master.eLang.GetString(777, "Writer", True)
+
+ If Not String.IsNullOrEmpty(sGStars) Then
+ For Each gStar In sGStars.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(gStar) Then cString.Add(String.Concat(gStar, String.Format(" ({0})", gString)))
+ Next
+ End If
+
+ If Not String.IsNullOrEmpty(sWriters) Then
+ For Each Writer In sWriters.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(Writer) Then cString.Add(String.Concat(Writer, String.Format(" ({0})", wString)))
+ Next
+ End If
+
+ Return Strings.Join(cString.ToArray, " / ")
+ End Function
+
+ Private Sub SaveAllTVInfo()
+ Dim iEp As Integer = -1
+ Dim iSea As Integer = -1
+ Dim iProgress As Integer = 1
+
+ Dim tShow As New Structures.DBTV
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+
+ Me.bwTVDB.ReportProgress(tmpTVDBShow.Episodes.Count, "max")
+
+ Using SQLTrans As SQLite.SQLiteTransaction = Master.DB.MediaDBConn.BeginTransaction()
+ If Master.eSettings.DisplayMissingEpisodes Then
+ 'clear old missing episode from db
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ SQLCommand.CommandText = String.Concat("DELETE FROM TVEps WHERE Missing = 1 AND TVShowID = ", Master.currShow.ShowID, ";")
+ SQLCommand.ExecuteNonQuery()
+ End Using
+ End If
+
+ Try
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Try
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Episode.ShowID = Master.currShow.ShowID
+
+ iEp = Episode.TVEp.Episode
+ iSea = Episode.TVEp.Season
+
+ 'remove it from tepisodes since it's a real episode
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tEpisode = tEpisodes.FirstOrDefault(Function(e) e.Episode = iEp AndAlso e.Season = iSea)
+ If Not IsNothing(tEpisode) Then tEpisodes.Remove(tEpisode)
+ tShow = Episode
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Episode.TVEp.Season > -1 AndAlso Episode.TVEp.Episode > -1 AndAlso Not Episode.IsLockEp Then
+ If Not IsNothing(Episode.TVEp.Poster.Image) Then Episode.EpPosterPath = Episode.TVEp.Poster.SaveAsEpPoster(Episode, Episode.TVEp.PosterURL)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso Not IsNothing(Episode.TVEp.Fanart.Image) Then Episode.EpFanartPath = Episode.TVEp.Fanart.SaveAsEpFanart(Episode, )
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Dim cSea = From cSeason As TVDBSeasonImage In TVDBImages.SeasonImageList Where cSeason.Season = iSea Take 1
+ If cSea.Count > 0 Then
+ If Not IsNothing(cSea(0).Poster.Image) Then Episode.SeasonPosterPath = cSea(0).Poster.SaveAsSeasonPoster(Episode)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.SeasonFanartEnabled Then
+ If Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) AndAlso File.Exists(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.FromFile(cSea(0).Fanart.LocalFile)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ ElseIf Not String.IsNullOrEmpty(cSea(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.Clear()
+ cSea(0).Fanart.Image.FromWeb(cSea(0).Fanart.URL)
+ If Not IsNothing(cSea(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(cSea(0).Fanart.LocalFile).FullName)
+ cSea(0).Fanart.Image.Save(cSea(0).Fanart.LocalFile, , , False)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Episode)
+
+ Master.DB.SaveTVEpToDB(Episode, False, True, True, True)
+
+ If Me.bwTVDB.CancellationPending Then Return
+ End If
+ Me.bwTVDB.ReportProgress(iProgress, "progress")
+
+ 'If AdvancedSettings.GetBooleanSetting("ScrapeActorsThumbs", False) Then
+ 'For Each act As MediaContainers.Person In Episode.TVEp.Actors
+ 'Dim img As New Images
+ 'img.FromWeb(act.Thumb)
+ 'img.SaveAsActorThumb(act, Directory.GetParent(Episode.Filename).FullName)
+ 'Next
+ 'End If
+
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+
+ 'now save all missing episodes
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tShow.Filename = String.Empty
+ tShow.EpFanartPath = String.Empty
+ tShow.EpPosterPath = String.Empty
+ tShow.EpNfoPath = String.Empty
+ tShow.SeasonFanartPath = String.Empty
+ tShow.SeasonPosterPath = String.Empty
+ tShow.ShowFanartPath = String.Empty
+ tShow.IsLockEp = False
+ tShow.IsMarkEp = False
+ tShow.EpID = -1
+ If tEpisodes.Count > 0 Then
+ For Each Episode As MediaContainers.EpisodeDetails In tEpisodes
+ tShow.TVEp = Episode
+ Master.DB.SaveTVEpToDB(tShow, True, True, True)
+ Next
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ SQLTrans.Commit()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Using
+ End Sub
+
+ Private Sub SaveToCache(ByVal sID As String, ByVal sURL As String, ByVal sPath As String)
+ Dim sImage As New Images
+
+ sImage.FromWeb(sURL)
+
+ If Not IsNothing(sImage.Image) Then
+ sImage.Save(Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, sPath.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), , , True)
+ End If
+ sImage = Nothing
+ End Sub
+
+ Private Function SearchSeries(ByVal sInfo As Structures.ScrapeInfo) As List(Of TVSearchResults)
+ Dim tvdbResults As New List(Of TVSearchResults)
+ Dim cResult As New TVSearchResults
+ Dim xmlTVDB As XDocument
+ Dim tmpXML As XDocument
+ Dim sHTTP As New HTTP
+ Dim sLang As String = String.Empty
+ Dim tmpID As String = String.Empty
+
+ Try
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/GetSeries.php?seriesname={1}&language={2}", Master.eSettings.TVDBMirror, sInfo.ShowTitle, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbResults
+ End Try
+
+ Dim xSer = From xSeries In xmlTVDB.Descendants("Series") Where xSeries.HasElements
+
+ 'check each unique showid to see if we have an entry for the preferred languages. If not, try to force download it
+ For Each tID As String In xSer.GroupBy(Function(s) s.Element("seriesid").Value.ToString).Select(Function(group) group.Key)
+ tmpID = tID
+ If xSer.Where(Function(s) s.Element("seriesid").Value.ToString = tmpID AndAlso s.Element("language").Value.ToString = Master.eSettings.TVDBLanguage).Count = 0 Then
+ 'no preferred language in this series, force it
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, APIKey, tmpID, Master.eSettings.TVDBLanguage))
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ Continue For
+ End Try
+
+ For Each tSer As XElement In tmpXML.Descendants("Series").Where(Function(s) s.HasElements)
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ cResult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) AndAlso xSer.Where(Function(s) s.Element("seriesid").Value.ToString = cResult.ID.ToString AndAlso s.Element("language").Value.ToString = sLang).Count = 0 Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+ End If
+ Next
+ sHTTP = Nothing
+
+ For Each xS As XElement In xSer
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(xS.Element("seriesid").Value)
+ cResult.Name = If(Not IsNothing(xS.Element("SeriesName")), xS.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(xS.Element("language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = xS.Element("language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(xS.Element("language")) Then
+ sLang = xS.Element("language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(xS.Element("FirstAired")), xS.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(xS.Element("Overview")), xS.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(xS.Element("banner")), xS.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tvdbResults
+ End Function
+
+ Private Sub ShowFromXML(ByVal sInfo As Structures.ScrapeInfo, ByVal ImagesOnly As Boolean)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim sID As String = String.Empty
+ Dim iEp As Integer = -1
+ Dim iSeas As Integer = -1
+ Dim sTitle As String = String.Empty
+ Dim byTitle As Boolean = False
+ Dim xE As XElement = Nothing
+ Dim tShow As Structures.DBTV = tmpTVDBShow.Show
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ If Not ImagesOnly Then
+ If Master.eSettings.DisplayMissingEpisodes Then tEpisodes = Me.GetListOfKnownEpisodes(sInfo)
+
+ 'get the actors first
+ Try
+ If sInfo.Options.bShowActors OrElse sInfo.Options.bEpActors Then
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = Actor.Element("Role").Value, .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ 'now let's get the show info and all the episodes
+ Try
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdShow As XDocument = XDocument.Parse(sXML)
+ Dim xS = From xShow In xdShow.Descendants("Series")
+ If xS.Count > 0 Then
+ tShow.ShowLanguage = sInfo.SelectedLang
+ If Not IsNothing(tShow.TVShow) Then
+ With tShow.TVShow
+ sID = xS(0).Element("id").Value
+ .ID = sID
+ If sInfo.Options.bShowTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.ShowLockTitle) Then .Title = If(IsNothing(xS(0).Element("SeriesName")), .Title, xS(0).Element("SeriesName").Value)
+ If sInfo.Options.bShowEpisodeGuide Then .EpisodeGuideURL = If(Not String.IsNullOrEmpty(Master.eSettings.ExternalTVDBAPIKey), String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, Master.eSettings.ExternalTVDBAPIKey, sID, Master.eSettings.TVDBLanguage), String.Empty)
+ If sInfo.Options.bShowGenre AndAlso (String.IsNullOrEmpty(.Genre) OrElse Not Master.eSettings.ShowLockGenre) Then .Genre = If(IsNothing(xS(0).Element("Genre")), .Genre, Strings.Join(xS(0).Element("Genre").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bShowMPAA Then .MPAA = If(IsNothing(xS(0).Element("ContentRating")), .MPAA, xS(0).Element("ContentRating").Value)
+ If sInfo.Options.bShowPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.ShowLockPlot) Then .Plot = If(IsNothing(xS(0).Element("Overview")), .Plot, xS(0).Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ If sInfo.Options.bShowPremiered Then .Premiered = If(IsNothing(xS(0).Element("FirstAired")), .Premiered, xS(0).Element("FirstAired").Value)
+ If sInfo.Options.bShowRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.ShowLockRating) Then .Rating = If(IsNothing(xS(0).Element("Rating")), .Rating, xS(0).Element("Rating").Value)
+ If sInfo.Options.bShowStudio AndAlso (String.IsNullOrEmpty(.Studio) OrElse Not Master.eSettings.ShowLockStudio) Then .Studio = If(IsNothing(xS(0).Element("Network")), .Studio, xS(0).Element("Network").Value)
+ If sInfo.Options.bShowActors Then .Actors = Actors
+ End With
+ End If
+
+ 'set it back
+ tmpTVDBShow.Show = tShow
+
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Episode.ShowLanguage = sInfo.SelectedLang
+
+ iEp = Episode.TVEp.Episode
+ iSeas = Episode.TVEp.Season
+ sTitle = Episode.TVEp.Title
+ byTitle = False
+ tOrdering = Enums.Ordering.Standard
+
+ If Not IsNothing(tShow.TVShow) Then Episode.TVShow = tShow.TVShow
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ 'first we need to check if dvd order is specified for every episode in the season
+ 'we'll use the regular season number as an indicator even though there are some cases
+ 'where this will not work (season 1 episode 1 = dvd_season 2 dvd_episode 1) but it
+ 'should work in most cases and is the best solution I could come up with
+
+ If xdShow.Descendants("Episode").Where(Function(e) Not IsNothing(e.Element("SeasonNumber")) AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If xdShow.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+
+ If tOrdering = Enums.Ordering.DVD Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString) AndAlso Convert.ToInt32(CLng(e.Element("DVD_episodenumber").Value.ToString)) = iEp AndAlso Not IsNothing(e.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) AndAlso Convert.ToInt32(e.Element("DVD_season").Value) = iSeas)
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If iSeas = 1 Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("absolute_number").Value.ToString) = iEp)
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("EpisodeNumber").Value.ToString) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Convert.ToInt32(e.Element("EpisodeNumber").Value) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+
+ If IsNothing(xE) Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) StringUtils.ComputeLevenshtein(e.Element("EpisodeName").Value, sTitle) < 5)
+ byTitle = True
+ End If
+
+ If Not IsNothing(xE) Then
+ With Episode.TVEp
+ If sInfo.Options.bEpTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.EpLockTitle) AndAlso Not String.IsNullOrEmpty(xE.Element("EpisodeName").Value) Then .Title = xE.Element("EpisodeName").Value
+ If byTitle Then
+ If tOrdering = Enums.Ordering.DVD Then
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("DVD_season")) OrElse String.IsNullOrEmpty(xE.Element("DVD_season").Value), 0, Convert.ToInt32(xE.Element("DVD_season").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(xE.Element("DVD_episodenumber").Value), 0, Convert.ToInt32(xE.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If sInfo.Options.bEpSeason Then .Season = 1
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("absolute_number")) OrElse String.IsNullOrEmpty(xE.Element("absolute_number").Value), 0, Convert.ToInt32(xE.Element("absolute_number").Value))
+ Else
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(xE.Element("SeasonNumber").Value), 0, Convert.ToInt32(xE.Element("SeasonNumber").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(xE.Element("EpisodeNumber").Value), 0, Convert.ToInt32(xE.Element("EpisodeNumber").Value))
+ End If
+ End If
+ If sInfo.Options.bEpAired Then .Aired = If(IsNothing(xE.Element("FirstAired")), .Aired, xE.Element("FirstAired").Value)
+ If sInfo.Options.bEpRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.EpLockRating) Then .Rating = If(IsNothing(xE.Element("Rating")), .Rating, xE.Element("Rating").Value)
+ If sInfo.Options.bEpPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.EpLockPlot) Then .Plot = If(IsNothing(xE.Element("Overview")), .Plot, xE.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ 'If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xS(0).Element("Director")), .Director, Strings.Join(xS(0).Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xE.Element("Director")), .Director, Strings.Join(xE.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpCredits Then .Credits = CreditsString(If(IsNothing(xE.Element("GuestStars")), String.Empty, xE.Element("GuestStars").Value), If(IsNothing(xE.Element("Writer")), String.Empty, xE.Element("Writer").Value))
+ If sInfo.Options.bEpActors Then .Actors = Actors
+ .PosterURL = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, xE.Element("filename").Value))
+ .LocalFile = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, xE.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+ End If
+ Next
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Else
+ sID = sInfo.TVDBID
+ End If
+ 'and finally the images
+ Try
+ If ImagesOnly OrElse Not IsNothing(tShow.TVShow) Then
+ If Not String.IsNullOrEmpty(bXML) Then
+ Dim xdImage As XDocument = XDocument.Parse(bXML)
+ For Each tImage As XElement In xdImage.Descendants("Banner")
+ If (Not IsNothing(tImage.Element("BannerPath")) AndAlso Not String.IsNullOrEmpty(tImage.Element("BannerPath").Value)) AndAlso _
+ (Not Master.eSettings.OnlyGetTVImagesForSelectedLanguage OrElse ((Not IsNothing(tImage.Element("Language")) AndAlso tImage.Element("Language").Value = Master.eSettings.TVDBLanguage) OrElse _
+ ((IsNothing(tImage.Element("Language")) OrElse tImage.Element("Language").Value = "en") AndAlso Master.eSettings.AlwaysGetEnglishTVImages))) Then
+ Select Case tImage.Element("BannerType").Value
+ Case "fanart"
+ tmpTVDBShow.Fanart.Add(New TVDBFanart With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .ThumbnailURL = If(IsNothing(tImage.Element("ThumbnailPath")) OrElse String.IsNullOrEmpty(tImage.Element("ThumbnailPath").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("ThumbnailPath").Value)), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .LocalThumb = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("ThumbnailPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "poster"
+ tmpTVDBShow.Posters.Add(New TVDBPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "posters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "season"
+ tmpTVDBShow.SeasonPosters.Add(New TVDBSeasonPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Season = If(IsNothing(tImage.Element("Season")) OrElse String.IsNullOrEmpty(tImage.Element("Season").Value), 0, Convert.ToInt32(tImage.Element("Season").Value)), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.SeasonPosterType.None, StringToSeasonPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seasonposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "series"
+ tmpTVDBShow.ShowPosters.Add(New TVDBShowPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.ShowBannerType.None, StringToShowPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seriesposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ End Select
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function StringToSeasonPosterType(ByVal sType As String) As Enums.SeasonPosterType
+ Select Case sType.ToLower
+ Case "season"
+ Return Enums.SeasonPosterType.Poster
+ Case "seasonwide"
+ Return Enums.SeasonPosterType.Wide
+ Case Else
+ Return Enums.SeasonPosterType.None
+ End Select
+ End Function
+
+ Private Function StringToShowPosterType(ByVal sType As String) As Enums.ShowBannerType
+ Select Case sType.ToLower
+ Case "blank"
+ Return Enums.ShowBannerType.Blank
+ Case "graphical"
+ Return Enums.ShowBannerType.Graphical
+ Case "text"
+ Return Enums.ShowBannerType.Text
+ Case Else
+ Return Enums.ShowBannerType.None
+ End Select
+ End Function
+
+#End Region 'Methods
+
+#Region "Other"
+
+ Private Structure Arguments
+
+ Dim Parameter As Object
+ Dim Type As Integer
+
+ End Structure
+
+ Private Structure Results
+
+ Dim Result As Object
+ Dim Type As Integer '0 = search, 1 = show download, 2 = load eps, 3 = save
+
+ End Structure
+
+#End Region 'Other
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBFanart
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _localthumb As String
+ Private _size As Size
+ Private _thumbnailurl As String
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property LocalThumb() As String
+ Get
+ Return Me._localthumb
+ End Get
+ Set(ByVal value As String)
+ Me._localthumb = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property ThumbnailURL() As String
+ Get
+ Return Me._thumbnailurl
+ End Get
+ Set(ByVal value As String)
+ Me._thumbnailurl = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._thumbnailurl = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._localthumb = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _size As Size
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBSeasonImage
+
+#Region "Fields"
+
+ Private _fanart As TVDBFanart
+ Private _poster As Images
+ Private _season As Integer
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Fanart() As TVDBFanart
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As TVDBFanart)
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Poster() As Images
+ Get
+ Return Me._poster
+ End Get
+ Set(ByVal value As Images)
+ Me._poster = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._season = -1
+ Me._poster = New Images
+ Me._fanart = New TVDBFanart
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBSeasonPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _season As Integer
+ Private _type As Enums.SeasonPosterType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.SeasonPosterType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.SeasonPosterType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._season = 0
+ Me._type = Enums.SeasonPosterType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBShow
+
+#Region "Fields"
+
+ Private _allseason As Structures.DBTV
+ Private _episodes As New List(Of Structures.DBTV)
+ Private _fanart As New List(Of TVDBFanart)
+ Private _posters As New List(Of TVDBPoster)
+ Private _seasonposters As New List(Of TVDBSeasonPoster)
+ Private _show As Structures.DBTV
+ Private _showposters As New List(Of TVDBShowPoster)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property AllSeason() As Structures.DBTV
+ Get
+ Return Me._allseason
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._allseason = value
+ End Set
+ End Property
+
+ Public Property Episodes() As List(Of Structures.DBTV)
+ Get
+ Return Me._episodes
+ End Get
+ Set(ByVal value As List(Of Structures.DBTV))
+ Me._episodes = value
+ End Set
+ End Property
+
+ Public Property Fanart() As List(Of TVDBFanart)
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As List(Of TVDBFanart))
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Posters() As List(Of TVDBPoster)
+ Get
+ Return Me._posters
+ End Get
+ Set(ByVal value As List(Of TVDBPoster))
+ Me._posters = value
+ End Set
+ End Property
+
+ Public Property SeasonPosters() As List(Of TVDBSeasonPoster)
+ Get
+ Return Me._seasonposters
+ End Get
+ Set(ByVal value As List(Of TVDBSeasonPoster))
+ Me._seasonposters = value
+ End Set
+ End Property
+
+ Public Property Show() As Structures.DBTV
+ Get
+ Return Me._show
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._show = value
+ End Set
+ End Property
+
+ Public Property ShowPosters() As List(Of TVDBShowPoster)
+ Get
+ Return Me._showposters
+ End Get
+ Set(ByVal value As List(Of TVDBShowPoster))
+ Me._showposters = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._show = New Structures.DBTV
+ Me._allseason = New Structures.DBTV
+ Me._episodes = New List(Of Structures.DBTV)
+ Me._fanart = New List(Of TVDBFanart)
+ Me._showposters = New List(Of TVDBShowPoster)
+ Me._seasonposters = New List(Of TVDBSeasonPoster)
+ Me._posters = New List(Of TVDBPoster)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBShowPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _type As Enums.ShowBannerType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.ShowBannerType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.ShowBannerType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._type = Enums.ShowBannerType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVSearchResults
+
+#Region "Fields"
+
+ Private _aired As String
+ Private _banner As String
+ Private _id As Integer
+ Private _language As Containers.TVLanguage
+ Private _lev As Integer
+ Private _name As String
+ Private _overview As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Aired() As String
+ Get
+ Return Me._aired
+ End Get
+ Set(ByVal value As String)
+ Me._aired = value
+ End Set
+ End Property
+
+ Public Property Banner() As String
+ Get
+ Return Me._banner
+ End Get
+ Set(ByVal value As String)
+ Me._banner = value
+ End Set
+ End Property
+
+ Public Property ID() As Integer
+ Get
+ Return Me._id
+ End Get
+ Set(ByVal value As Integer)
+ Me._id = value
+ End Set
+ End Property
+
+ Public Property Language() As Containers.TVLanguage
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As Containers.TVLanguage)
+ Me._language = value
+ End Set
+ End Property
+
+ Public Property Lev() As Integer
+ Get
+ Return Me._lev
+ End Get
+ Set(ByVal value As Integer)
+ Me._lev = value
+ End Set
+ End Property
+
+ Public Property Name() As String
+ Get
+ Return Me._name
+ End Get
+ Set(ByVal value As String)
+ Me._name = value
+ End Set
+ End Property
+
+ Public Property Overview() As String
+ Get
+ Return Me._overview
+ End Get
+ Set(ByVal value As String)
+ Me._overview = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._id = 0
+ Me._name = String.Empty
+ Me._aired = String.Empty
+ Me._language = New Containers.TVLanguage
+ Me._overview = String.Empty
+ Me._banner = String.Empty
+ Me._lev = 0
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.Designer.vb b/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.Designer.vb
new file mode 100644
index 0000000..dd38c94
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.Designer.vb
@@ -0,0 +1,139 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVChangeEp
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lvEpisodes = New System.Windows.Forms.ListView()
+ Me.colEpisode = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colTitle = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pbPreview = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.txtPlot = New System.Windows.Forms.TextBox()
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(505, 286)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(575, 286)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lvEpisodes
+ '
+ Me.lvEpisodes.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colEpisode, Me.colTitle})
+ Me.lvEpisodes.FullRowSelect = True
+ Me.lvEpisodes.HideSelection = False
+ Me.lvEpisodes.Location = New System.Drawing.Point(3, 3)
+ Me.lvEpisodes.MultiSelect = False
+ Me.lvEpisodes.Name = "lvEpisodes"
+ Me.lvEpisodes.Size = New System.Drawing.Size(358, 278)
+ Me.lvEpisodes.TabIndex = 2
+ Me.lvEpisodes.UseCompatibleStateImageBehavior = False
+ Me.lvEpisodes.View = System.Windows.Forms.View.Details
+ '
+ 'colEpisode
+ '
+ Me.colEpisode.Text = "Episode"
+ '
+ 'colTitle
+ '
+ Me.colTitle.Text = "Title"
+ Me.colTitle.Width = 276
+ '
+ 'pbPreview
+ '
+ Me.pbPreview.Location = New System.Drawing.Point(417, 12)
+ Me.pbPreview.Name = "pbPreview"
+ Me.pbPreview.Size = New System.Drawing.Size(174, 117)
+ Me.pbPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPreview.TabIndex = 3
+ Me.pbPreview.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(367, 140)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(275, 21)
+ Me.lblTitle.TabIndex = 3
+ '
+ 'txtPlot
+ '
+ Me.txtPlot.BackColor = System.Drawing.SystemColors.Control
+ Me.txtPlot.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtPlot.Location = New System.Drawing.Point(366, 169)
+ Me.txtPlot.Multiline = True
+ Me.txtPlot.Name = "txtPlot"
+ Me.txtPlot.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+ Me.txtPlot.Size = New System.Drawing.Size(276, 111)
+ Me.txtPlot.TabIndex = 4
+ '
+ 'dlgTVChangeEp
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(646, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.txtPlot)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPreview)
+ Me.Controls.Add(Me.lvEpisodes)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVChangeEp"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Change Episode"
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lvEpisodes As System.Windows.Forms.ListView
+ Friend WithEvents colEpisode As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colTitle As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pbPreview As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents txtPlot As System.Windows.Forms.TextBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.resx b/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.resx
new file mode 100644
index 0000000..717c885
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.resx
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="txtPlot.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>True</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.vb b/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.vb
new file mode 100644
index 0000000..954f58a
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVChangeEp.vb
@@ -0,0 +1,120 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgTVChangeEp
+
+#Region "Fields"
+
+ Private _episode As MediaContainers.EpisodeDetails = Nothing
+ Private _tepisodes As New List(Of MediaContainers.EpisodeDetails)
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal tEpisodes As List(Of MediaContainers.EpisodeDetails)) As MediaContainers.EpisodeDetails
+ Me._tepisodes = tEpisodes
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return _episode
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.pbPreview.Image = Nothing
+ Me.lblTitle.Text = String.Empty
+ Me.txtPlot.Text = String.Empty
+ End Sub
+
+ Private Sub dlgTVChangeEp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+
+ Dim lGroup As New ListViewGroup
+ Dim lItem As New ListViewItem
+ Dim tSeason As Integer = Nothing
+
+ For Each Season As Integer In _tepisodes.GroupBy(Function(s) s.Season).Select(Function(group) group.Key)
+ tSeason = Season
+ lGroup = New ListViewGroup
+ lGroup.Header = String.Format(Master.eLang.GetString(726, "Season {0}", True), tSeason)
+ lvEpisodes.Groups.Add(lGroup)
+ For Each Episode As MediaContainers.EpisodeDetails In _tepisodes.Where(Function(s) s.Season = tSeason).OrderBy(Function(s) s.Episode)
+ lItem = lvEpisodes.Items.Add(Episode.Episode.ToString)
+ lItem.Tag = Episode
+ lItem.SubItems.Add(Episode.Title)
+ lGroup.Items.Add(lItem)
+ Next
+ Next
+ End Sub
+
+ Private Sub lvEpisodes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvEpisodes.SelectedIndexChanged
+ Me.ClearInfo()
+ If lvEpisodes.SelectedItems.Count > 0 AndAlso Not IsNothing(lvEpisodes.SelectedItems(0).Tag) Then
+ Me._episode = DirectCast(lvEpisodes.SelectedItems(0).Tag, MediaContainers.EpisodeDetails)
+
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ ElseIf Not String.IsNullOrEmpty(Me._episode.LocalFile) AndAlso File.Exists(Me._episode.LocalFile) Then
+ Me._episode.Poster.FromFile(Me._episode.LocalFile)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ ElseIf Not String.IsNullOrEmpty(Me._episode.PosterURL) Then
+ Me._episode.Poster.FromWeb(Me._episode.PosterURL)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Me._episode.LocalFile).FullName)
+ Me._episode.Poster.Save(Me._episode.LocalFile)
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ End If
+
+ Me.lblTitle.Text = Me._episode.Title
+ Me.txtPlot.Text = Me._episode.Plot
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(772, "Change Episode", True)
+
+ Me.lvEpisodes.Columns(0).Text = Master.eLang.GetString(727, "Episode", True)
+ Me.lvEpisodes.Columns(1).Text = Master.eLang.GetString(21, "Title", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb b/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb
new file mode 100644
index 0000000..b05c597
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.Designer.vb
@@ -0,0 +1,368 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbBanner = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblAiredHeader = New System.Windows.Forms.Label()
+ Me.lblAired = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lvSearchResults = New System.Windows.Forms.ListView()
+ Me.colName = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLev = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colID = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colSLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.txtTVDBID = New System.Windows.Forms.TextBox()
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(485, 335)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(558, 335)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbBanner
+ '
+ Me.pbBanner.Location = New System.Drawing.Point(325, 69)
+ Me.pbBanner.Name = "pbBanner"
+ Me.pbBanner.Size = New System.Drawing.Size(300, 55)
+ Me.pbBanner.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbBanner.TabIndex = 3
+ Me.pbBanner.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(325, 132)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(300, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Visible = False
+ '
+ 'lblAiredHeader
+ '
+ Me.lblAiredHeader.AutoSize = True
+ Me.lblAiredHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblAiredHeader.Location = New System.Drawing.Point(325, 161)
+ Me.lblAiredHeader.Name = "lblAiredHeader"
+ Me.lblAiredHeader.Size = New System.Drawing.Size(38, 13)
+ Me.lblAiredHeader.TabIndex = 10
+ Me.lblAiredHeader.Text = "Aired:"
+ Me.lblAiredHeader.Visible = False
+ '
+ 'lblAired
+ '
+ Me.lblAired.AutoSize = True
+ Me.lblAired.Location = New System.Drawing.Point(387, 161)
+ Me.lblAired.Name = "lblAired"
+ Me.lblAired.Size = New System.Drawing.Size(63, 13)
+ Me.lblAired.TabIndex = 12
+ Me.lblAired.Text = "00/00/0000"
+ Me.lblAired.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(325, 189)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 13
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtOutline.Location = New System.Drawing.Point(325, 205)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(300, 127)
+ Me.txtOutline.TabIndex = 14
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lvSearchResults
+ '
+ Me.lvSearchResults.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colName, Me.colLang, Me.colLev, Me.colID, Me.colSLang})
+ Me.lvSearchResults.FullRowSelect = True
+ Me.lvSearchResults.HideSelection = False
+ Me.lvSearchResults.Location = New System.Drawing.Point(3, 96)
+ Me.lvSearchResults.MultiSelect = False
+ Me.lvSearchResults.Name = "lvSearchResults"
+ Me.lvSearchResults.Size = New System.Drawing.Size(316, 236)
+ Me.lvSearchResults.TabIndex = 5
+ Me.lvSearchResults.UseCompatibleStateImageBehavior = False
+ Me.lvSearchResults.View = System.Windows.Forms.View.Details
+ '
+ 'colName
+ '
+ Me.colName.Text = "Title"
+ Me.colName.Width = 223
+ '
+ 'colLang
+ '
+ Me.colLang.Text = "Language"
+ Me.colLang.Width = 89
+ '
+ 'colLev
+ '
+ Me.colLev.Width = 0
+ '
+ 'colID
+ '
+ Me.colID.Width = 0
+ '
+ 'colSLang
+ '
+ Me.colSLang.Width = 0
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(380, 154)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 11
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TVDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(287, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper TV show."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(216, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "TV Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(296, 67)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(3, 68)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(287, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(244, 337)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Enabled = False
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(3, 341)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(127, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual TVDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'txtTVDBID
+ '
+ Me.txtTVDBID.Enabled = False
+ Me.txtTVDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTVDBID.Location = New System.Drawing.Point(138, 337)
+ Me.txtTVDBID.Name = "txtTVDBID"
+ Me.txtTVDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTVDBID.TabIndex = 7
+ '
+ 'dlgTVDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 378)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.txtTVDBID)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.lvSearchResults)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblAiredHeader)
+ Me.Controls.Add(Me.lblAired)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbBanner)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 406)
+ Me.Name = "dlgTVDBSearchResults"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "TV Search Results"
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbBanner As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblAiredHeader As System.Windows.Forms.Label
+ Friend WithEvents lblAired As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lvSearchResults As System.Windows.Forms.ListView
+ Friend WithEvents colName As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents colLev As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colID As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colSLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents txtTVDBID As System.Windows.Forms.TextBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.resx b/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.resx
new file mode 100644
index 0000000..7a332a8
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.vb b/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.vb
new file mode 100644
index 0000000..cce33d3
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVDBSearchResults.vb
@@ -0,0 +1,437 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+
+ Private lvResultsSorter As New ListViewColumnSorter
+ Private sHTTP As New HTTP
+ Private sInfo As Structures.ScrapeInfo
+ Private _manualresult As Scraper.TVSearchResults = Nothing
+ Private _skipdownload As Boolean = False
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _sInfo As Structures.ScrapeInfo) As Windows.Forms.DialogResult
+ Me.sInfo = _sInfo
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal _sinfo As Structures.ScrapeInfo, ByVal SkipDownload As Boolean) As Structures.ScrapeInfo
+ Me.sInfo = _sinfo
+ Me._skipdownload = SkipDownload
+
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return Me.sInfo
+ Else
+ Return _sinfo
+ End If
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.lvSearchResults.Enabled = False
+ Me.sInfo.ShowTitle = Me.txtSearch.Text
+ Me.ClearInfo()
+ Me.chkManual.Enabled = False
+ Me.chkManual.Checked = False
+ Me.txtSearch.Text = String.Empty
+ Me.btnVerify.Enabled = False
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+ Me.pnlLoading.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If IsNumeric(Me.txtTVDBID.Text) AndAlso Me.txtTVDBID.Text.Length >= 5 Then
+ Dim tmpXML As XDocument = Nothing
+ Dim sLang As String = String.Empty
+
+ Me.ClearInfo()
+ Me.pnlLoading.Visible = True
+ Application.DoEvents()
+
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, Scraper.APIKey, Me.txtTVDBID.Text, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ End Try
+
+ If Not IsNothing(tmpXML) Then
+ Dim tSer As XElement = tmpXML.Descendants("Series").FirstOrDefault(Function(s) s.HasElements)
+
+ If Not IsNothing(tSer) Then
+ Me._manualresult = New Scraper.TVSearchResults
+ Me._manualresult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ Me._manualresult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ End If
+ Me._manualresult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ Me._manualresult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value, String.Empty)
+ Me._manualresult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(Me._manualresult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ If Not String.IsNullOrEmpty(Me._manualresult.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = Me._manualresult.Banner})
+ End If
+
+ Me.OK_Button.Tag = Me._manualresult.ID
+ Me.lblTitle.Text = Me._manualresult.Name
+ Me.txtOutline.Text = Me._manualresult.Overview
+ Me.lblAired.Text = Me._manualresult.Aired
+ Me.OK_Button.Enabled = True
+ Me.pnlLoading.Visible = False
+ Me.ControlsVisible(True)
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Else
+ MsgBox(Master.eLang.GetString(83, "The ID you entered is not a valid TVDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ sHTTP.StartDownloadImage(String.Format("http://{0}/banners/_cache/{1}", Master.eSettings.TVDBMirror, Args.pURL))
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image()}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbBanner.Image = Res.Result
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTVDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.lvSearchResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTVDBID.Text = String.Empty
+ Else
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then Me.lvSearchResults.SelectedItems(0).Selected = False
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblAired.Text = String.Empty
+ Me.pbBanner.Image = Nothing
+ Scraper.sObject.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.pbBanner.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblAiredHeader.Visible = areVisible
+ Me.lblAired.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ End Sub
+
+ Private Sub dlgTVDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ AddHandler ModulesManager.Instance.TVScraperEvent, AddressOf TVScraperEvent
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+
+ Me.lvSearchResults.ListViewItemSorter = Me.lvResultsSorter
+
+ Me.SetUp()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvSearchResults.ColumnClick
+ ' Determine if the clicked column is already the column that is
+ ' being sorted.
+ Try
+ If (e.Column = Me.lvResultsSorter.SortColumn) Then
+ ' Reverse the current sort direction for this column.
+ If (Me.lvResultsSorter.Order = SortOrder.Ascending) Then
+ Me.lvResultsSorter.Order = SortOrder.Descending
+ Else
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+ Else
+ ' Set the column number that is to be sorted; default to ascending.
+ Me.lvResultsSorter.SortColumn = e.Column
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+
+ ' Perform the sort with these new sort options.
+ Me.lvSearchResults.Sort()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvSearchResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub lvSearchResults_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvSearchResults.SelectedIndexChanged
+ Me.ClearInfo()
+ If Me.lvSearchResults.SelectedItems.Count > 0 AndAlso Not Me.chkManual.Checked Then
+ Dim SelectedShow As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ If Not String.IsNullOrEmpty(SelectedShow.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = SelectedShow.Banner})
+ End If
+
+ Me.OK_Button.Tag = SelectedShow.ID
+ Me.lblTitle.Text = SelectedShow.Name
+ Me.txtOutline.Text = SelectedShow.Overview
+ Me.lblAired.Text = SelectedShow.Aired
+ Me.OK_Button.Enabled = True
+ Me.ControlsVisible(True)
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then
+ Dim sResults As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ Me.sInfo.TVDBID = sResults.ID.ToString
+ Me.sInfo.SelectedLang = sResults.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ ElseIf Me.chkManual.Checked AndAlso Not IsNothing(Me._manualresult) Then
+ Me.sInfo.TVDBID = Me._manualresult.ID.ToString
+ Me.sInfo.SelectedLang = Me._manualresult.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label1.Text = Master.eLang.GetString(85, "TV Search Results")
+ Me.Label2.Text = Master.eLang.GetString(86, "View details of each result to find the proper TV show.")
+ Me.lblAiredHeader.Text = Master.eLang.GetString(658, "Aired:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(783, "Plot Summary:", True)
+
+ Me.lvSearchResults.Columns(0).Text = Master.eLang.GetString(21, "Title", True)
+ Me.lvSearchResults.Columns(1).Text = Master.eLang.GetString(610, "Language", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ Select Case eType
+ Case Enums.TVScraperEventType.SearchResultsDownloaded
+ Dim lItem As ListViewItem
+ Dim sResults As List(Of Scraper.TVSearchResults) = DirectCast(Parameter, List(Of Scraper.TVSearchResults))
+
+ Me.lvSearchResults.Items.Clear()
+
+ If Not IsNothing(sResults) AndAlso sResults.Count > 0 Then
+ For Each sRes As Scraper.TVSearchResults In sResults.OrderBy(Function(r) r.Lev)
+ lItem = New ListViewItem(sRes.Name)
+ lItem.SubItems.Add(sRes.Language.LongLang)
+ lItem.SubItems.Add(sRes.Lev.ToString)
+ lItem.SubItems.Add(sRes.ID.ToString)
+ lItem.SubItems.Add(sRes.Language.ShortLang)
+ lItem.Tag = sRes
+ Me.lvSearchResults.Items.Add(lItem)
+ Next
+ End If
+
+ Me.pnlLoading.Visible = False
+
+ If Me.lvSearchResults.Items.Count > 0 Then
+ If sResults.Select(Function(s) s.ID).Distinct.Count = 1 Then
+ 'they're all for the same show... try to find one with the preferred language
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ Else
+ 'we've got a bunch of different shows... try to find a "best match" title with the preferred language
+ If sResults.Where(Function(s) s.Lev <= 5).Count > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(2).Text) <= 5 AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ 'get the id for the best english match and see if we have one for the preferred language with same id
+ Dim tID As Integer = sResults.OrderBy(Function(s) s.Lev).FirstOrDefault(Function(s) s.Language.ShortLang = "en").ID
+ If tID > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(3).Text) = tID AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ Me.lvSearchResults.Items(0).Selected = True
+ End If
+ Me.lvSearchResults.Select()
+ End If
+
+ Me.chkManual.Enabled = True
+ If Not Me.chkManual.Checked Then Me.lvSearchResults.Enabled = True
+
+ Case Enums.TVScraperEventType.ShowDownloaded
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Select
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Sub txtTVDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTVDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtTVDBID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTVDBID.KeyPress
+ e.Handled = StringUtils.NumericOnly(e.KeyChar, True)
+ End Sub
+
+ Private Sub txtTVDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTVDBID.TextChanged
+ If String.IsNullOrEmpty(Me.txtTVDBID.Text) Then
+ Me.btnVerify.Enabled = False
+ Me.OK_Button.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb b/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb
new file mode 100644
index 0000000..a3ebbd8
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.Designer.vb
@@ -0,0 +1,86 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTVEpisodePoster
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(292, 287)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(362, 287)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.BackColor = System.Drawing.Color.DimGray
+ Me.pbPoster.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pbPoster.Location = New System.Drawing.Point(6, 6)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(423, 276)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ '
+ 'dlgTVEpisodePoster
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVEpisodePoster"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Confirm Episode Poster"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.resx b/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.vb b/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.vb
new file mode 100644
index 0000000..60ed929
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVEpisodePoster.vb
@@ -0,0 +1,48 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVEpisodePoster
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal Poster As Image) As System.Windows.Forms.DialogResult
+ Me.pbPoster.Image = Poster
+ Return MyBase.ShowDialog
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbPoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbPoster.Click
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(Me.pbPoster.Image)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.Designer.vb b/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.Designer.vb
new file mode 100644
index 0000000..cf05d15
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.Designer.vb
@@ -0,0 +1,213 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVImageSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVImageSelect))
+ Me.tvList = New System.Windows.Forms.TreeView()
+ Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+ Me.pnlImages = New System.Windows.Forms.Panel()
+ Me.pbCurrent = New System.Windows.Forms.PictureBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnOK = New System.Windows.Forms.Button()
+ Me.btnCancel = New System.Windows.Forms.Button()
+ Me.pbDelete = New System.Windows.Forms.PictureBox()
+ Me.pbUndo = New System.Windows.Forms.PictureBox()
+ Me.lblCurrentImage = New System.Windows.Forms.Label()
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlStatus.SuspendLayout()
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'tvList
+ '
+ Me.tvList.Enabled = False
+ Me.tvList.ImageIndex = 0
+ Me.tvList.ImageList = Me.ImageList1
+ Me.tvList.Location = New System.Drawing.Point(3, 4)
+ Me.tvList.Name = "tvList"
+ Me.tvList.SelectedImageIndex = 0
+ Me.tvList.Size = New System.Drawing.Size(214, 262)
+ Me.tvList.TabIndex = 2
+ Me.tvList.Visible = False
+ '
+ 'ImageList1
+ '
+ Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+ Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+ Me.ImageList1.Images.SetKeyName(0, "new_page.png")
+ Me.ImageList1.Images.SetKeyName(1, "image.png")
+ Me.ImageList1.Images.SetKeyName(2, "artwork.png")
+ Me.ImageList1.Images.SetKeyName(3, "star_full.png")
+ '
+ 'pnlImages
+ '
+ Me.pnlImages.AutoScroll = True
+ Me.pnlImages.BackColor = System.Drawing.SystemColors.Control
+ Me.pnlImages.Location = New System.Drawing.Point(222, 4)
+ Me.pnlImages.Name = "pnlImages"
+ Me.pnlImages.Size = New System.Drawing.Size(622, 421)
+ Me.pnlImages.TabIndex = 3
+ '
+ 'pbCurrent
+ '
+ Me.pbCurrent.BackColor = System.Drawing.SystemColors.Control
+ Me.pbCurrent.Location = New System.Drawing.Point(3, 293)
+ Me.pbCurrent.Name = "pbCurrent"
+ Me.pbCurrent.Size = New System.Drawing.Size(214, 157)
+ Me.pbCurrent.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbCurrent.TabIndex = 2
+ Me.pbCurrent.TabStop = False
+ Me.pbCurrent.Visible = False
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(264, 192)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(321, 75)
+ Me.pnlStatus.TabIndex = 5
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(5, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(310, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Gathering Data..."
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(6, 52)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(309, 19)
+ Me.pbStatus.Step = 1
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnOK
+ '
+ Me.btnOK.Enabled = False
+ Me.btnOK.Location = New System.Drawing.Point(708, 431)
+ Me.btnOK.Name = "btnOK"
+ Me.btnOK.Size = New System.Drawing.Size(65, 22)
+ Me.btnOK.TabIndex = 0
+ Me.btnOK.Text = "OK"
+ Me.btnOK.UseVisualStyleBackColor = True
+ '
+ 'btnCancel
+ '
+ Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.btnCancel.Location = New System.Drawing.Point(779, 431)
+ Me.btnCancel.Name = "btnCancel"
+ Me.btnCancel.Size = New System.Drawing.Size(65, 22)
+ Me.btnCancel.TabIndex = 1
+ Me.btnCancel.Text = "Cancel"
+ Me.btnCancel.UseVisualStyleBackColor = True
+ '
+ 'pbDelete
+ '
+ Me.pbDelete.Image = CType(resources.GetObject("pbDelete.Image"), System.Drawing.Image)
+ Me.pbDelete.Location = New System.Drawing.Point(3, 293)
+ Me.pbDelete.Name = "pbDelete"
+ Me.pbDelete.Size = New System.Drawing.Size(16, 16)
+ Me.pbDelete.TabIndex = 13
+ Me.pbDelete.TabStop = False
+ Me.pbDelete.Visible = False
+ '
+ 'pbUndo
+ '
+ Me.pbUndo.Image = CType(resources.GetObject("pbUndo.Image"), System.Drawing.Image)
+ Me.pbUndo.Location = New System.Drawing.Point(201, 293)
+ Me.pbUndo.Name = "pbUndo"
+ Me.pbUndo.Size = New System.Drawing.Size(16, 16)
+ Me.pbUndo.TabIndex = 14
+ Me.pbUndo.TabStop = False
+ Me.pbUndo.Visible = False
+ '
+ 'lblCurrentImage
+ '
+ Me.lblCurrentImage.AutoSize = True
+ Me.lblCurrentImage.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblCurrentImage.Location = New System.Drawing.Point(0, 274)
+ Me.lblCurrentImage.Name = "lblCurrentImage"
+ Me.lblCurrentImage.Size = New System.Drawing.Size(100, 17)
+ Me.lblCurrentImage.TabIndex = 4
+ Me.lblCurrentImage.Text = "Current Image:"
+ Me.lblCurrentImage.Visible = False
+ '
+ 'dlgTVImageSelect
+ '
+ Me.AcceptButton = Me.btnOK
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.btnCancel
+ Me.ClientSize = New System.Drawing.Size(849, 481)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.lblCurrentImage)
+ Me.Controls.Add(Me.pbUndo)
+ Me.Controls.Add(Me.pbDelete)
+ Me.Controls.Add(Me.btnCancel)
+ Me.Controls.Add(Me.btnOK)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.pbCurrent)
+ Me.Controls.Add(Me.pnlImages)
+ Me.Controls.Add(Me.tvList)
+ Me.DoubleBuffered = True
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(855, 491)
+ Me.Name = "dlgTVImageSelect"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "TV Image Selection"
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlStatus.ResumeLayout(False)
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents tvList As System.Windows.Forms.TreeView
+ Friend WithEvents pnlImages As System.Windows.Forms.Panel
+ Friend WithEvents pbCurrent As System.Windows.Forms.PictureBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnOK As System.Windows.Forms.Button
+ Friend WithEvents btnCancel As System.Windows.Forms.Button
+ Friend WithEvents pbDelete As System.Windows.Forms.PictureBox
+ Friend WithEvents pbUndo As System.Windows.Forms.PictureBox
+ Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+ Friend WithEvents lblCurrentImage As System.Windows.Forms.Label
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.resx b/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.resx
new file mode 100644
index 0000000..db85c76
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.resx
@@ -0,0 +1,210 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
+ LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+ ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
+ CwAAAk1TRnQBSQFMAgEBBAEAATABAAEwAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+ AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+ AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+ AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+ AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+ AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+ ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+ AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+ AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+ AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+ AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+ AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+ AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+ AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+ AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+ ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+ Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+ AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+ AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+ AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+ ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+ Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+ AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+ AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+ AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+ AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+ AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+ AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AFgAC/wMA
+ Bf8DAAH/BAAL/wMAA/8BAAb/AQAD/wMABf8C9AX/AgAC/wHzAfAJvAHzAv8CAAL/AfQB8QH0AfIB8QH0
+ AfEB8wL/AwAD/wH0Af8E9AH/AvQC/wMAAf8B8QEHB7wB8gH/AwAB/wG8AfEC8gXzAvIB8AH0AwAD/wGT
+ AfQB8AGTAQABkwH0Av8DAAL/AfQBUwGZBP8B8AFTAfAC/wQAAfEB8AfxAfIEAAH0AfAB8QHyB/MB8gHx
+ AfQGAAEaAvMBmQH/AZMIAAH/AXUBMgF1AfQB/wGaAjIB9AYAAvEI8gQAAfQB8AEJCLsBCQHxAfQFAAH/
+ AZMBdAGZAXQBmQF0AfQIAAEaAjICUwIyAXUB/wYACfIB8wQAAfQBuwG5AbMGigGyAbkBuwH0BAAB8wGZ
+ BnQBkwHxAf8GAAH0BjIBGgcAAvIG8wHyAfMEAAH0AbsCuQGsAYoCrAGKAawBswG5AbsB9AQAAvEB8AG7
+ AbUBBwEaAfIB8wHwAf8GAAH2AVMFMgEbBwAK8wQAAf8BuwO5AbIDrAGzArkBuwH0BAAB8gG8Aa4BbAFL
+ AUwBUgGZAfMB8QH/BQAB8wFTBzIBGgYACvMEAAH/AbsDuQGyAqwBsgO5AbsB9AQAAfEB/wEHAW4BUgIy
+ AY4B9AHyAf8DAAH/ARoKMgF6Af8EAArzBAAB/wEJAroBswGsArIBrAGzAroBuwH0BAAB8gH2AbsCggNM
+ AvMB/wMAAfQBMgFTAlkBUwMyA1kBMgEaBAAG8wP0AfMEAAH/AQkDugSyA7oBCQH0BAABGwH0AbsB9AGO
+ AbABkwF1AfQB8wH/BAAE/wEaAjIBegX/BAAF8wH0AfIC7wHyBAAB9AHwA7sBugKyAboDuwEJAfQEAAEb
+ Af8B8wH/Ab0B8gH0AbcB8wH0Af8IAAH0AjgBGgkABfMB9AEHAewB8AUAAfQB8AoJAfAB9AQAAfMC9AEb
+ AZkBkwEaAvQBGwH/CAAB/wF6ATgB/wkABfMB9AEHAbwGAAH/AfMBGQnyAfMB/wQABP8BmQF0AfQD/woA
+ ARoBWQH/CQAB/wX0AfMIAAH0CvMB9AkAAfMBGg4AAf8B9EcAAUIBTQE+BwABPgMAASgDAAFAAwABIAMA
+ AQEBAAEBBgABARYAA/+BAAL/AZwBHQHgAQMBiAERAcABAwIAAcABAwGAAQEBwAEDAYABAQHAAUMBgAEB
+ AeABBwGAAQEB+AEfAeABBwHgAQcBgAEBAfABDwHwAQcB4AEHAYABAQHgAQMB8AEPAeABBwGAAQEB4AED
+ AfABDwHgAQcBgAEBAeABAwHgAQcB4AEHAYABAQHgAQMBgAEBAeABBwGAAQEB4AEDAYABAQHgAQcBgAEB
+ AeABAwHAAQEB4AEHAYABAQHgAQMB/AE/AeABDwGAAQEB4AEDAfwBPwHgAR8BgAEBAeABBwH+AT8B4AE/
+ AcABAwH+AX8B/gF/CP8L
+</value>
+ </data>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="pbDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB60lEQVQ4T2P4//8/AyUYRfN9B2Pfu3YGzbgMvGdnkHnP3qgQWR5uwC1X
+ s4grBqr/L2kp/L9upbsF3ZAbdgaNl3WV/1/WUfp/w96w9//BmYwgNWADrnpYcZ3WUf5/XFEajE+py/2/
+ aIkw5LKtQeNpbSWgnBQYn9JU/H/eTNsUbsBOTi7GA4rSPQeUZf6DMVDRITW5/2csdVecszesOaqt+H8/
+ UAwuryS9/4CsBDfcAJhzdyrL9O5Qkv6/E4h3KEj93wN0yT4txf/bFSQhYhC5/Us0FVlgejBiYCPQkA1A
+ hWAMtHU90CAYf6OS9N752iqsWAMRWXCFkvTxFcCwQMPvNpkawG3G6YIFitINCxWk/gDxf3S8QFFqI3rs
+ oHhhhqJ040ygRhieAWSDMKqY9Jb/T7/D9YEZE1TlGSYqSDVMlJf6D8MTQGwF6c2TFKS7wGxkrCC1ZZKK
+ HAc8FnrVFLg65SX/o+H9tfqqTCBFXQpSvR1o8l2K0mYo0dihJJvYBLSlSU7yP5De9y3AG6wZhpvlpbrB
+ ckDcoigz/bGzFViegZkBjAWAFG+cpGh9trTYFm4WZgMgXwcobgzCQDaIr5AiKTo3U1p8IZAtAsR8cBcA
+ FTEDMdhPYEEGBk4gnxcZA8V4kOTZQHowUiI52RoAvKofAJdcVi8AAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="pbUndo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAHHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3MgQ1M0BrLToAAAAihJREFUOE9j+P//PwMlmCLNIIupZwATAwMjOxs7Q8XKkwzFG2+y
+ GnYd8XOZdprZedopBr9FVxiSNt5jqD3wjGHC6TcMvadegzGKCxgYGFhVdE0Y0ldcYVFt3LeYIWfrO9aS
+ XZzmU84weC+6ypBMhAEsPoU9nBJV+w4xpG/4z5C//SN/zf4ou1kXDIAGsKRvvsdQfxCPC7jFFIVFc9fu
+ ZEhb+58hZ9N/hoLt/xlL9/xnqT78X6Ln3D3bRbfaSvc+FZ927g3DpDMQjOIF1ohptxlSgJrTEQYwlOz+
+ z1C+/z9D1eH/jM2n/6vOuf06dtsT64ydTxjSdjxBNYApdf1/huSVmAZUHPjPUHPkP0P9if8MLWf/K8y7
+ 98lw0T1do0V3UQ0QsoqIZc/e/AXZCwyFuyAuABtw8j9D05n/LF2X/2ssfnTEeOkDVAPYmRgZtLJn2bFk
+ b/7BkLURFAa/NbuOdUi1HY8QbjsZKtN3Pkl20uUpHD2Xn/FNuf3fYNljF4xotPGLYohacsWOIXPDW4a8
+ bW/lmw9yKXedYJDuOs2gO/0Sg/vyOwxZu56yGCy+Xy086/58dAMYxSRlGJq3XWOIWnhBS6hy93rB6r0c
+ YnX7GWQ6TzJoT7vE4Lz0NkPW7ucMkdufM1mufOJP3aQMMo2ZgYEZiEWBWBaYtKVYOPkNWMRUvYFscSCW
+ BYqLAzErcu5FyUxASUaQAiDmAGIuIAbLA2l2qBgbSA2yAQAKojORM6Lv5AAAAABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.vb b/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.vb
new file mode 100644
index 0000000..288414e
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/TVScraper/dlgTVImageSelect.vb
@@ -0,0 +1,1224 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+'TODO: 1.5 - TV Show renaming (including "dump folder")
+'TODO: 1.5 - Support VIDEO_TS/BDMV folders for TV Shows
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTVImageSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadFanart As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadData As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadImages As New System.ComponentModel.BackgroundWorker
+
+ Private DefaultImages As New Scraper.TVImages
+ Private FanartList As New List(Of Scraper.TVDBFanart)
+ Private GenericPosterList As New List(Of Scraper.TVDBPoster)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private SeasonList As New List(Of Scraper.TVDBSeasonPoster)
+ Private SelIsPoster As Boolean = True
+ Private SelSeason As Integer = -999
+ Private ShowPosterList As New List(Of Scraper.TVDBShowPoster)
+ Private _fanartchanged As Boolean = False
+ Private _id As Integer = -1
+ Private _season As Integer = -999
+ Private _type As Enums.TVImageType = Enums.TVImageType.All
+ Private _withcurrent As Boolean = True
+ Private _ScrapeType As Enums.ScrapeType
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function SetDefaults() As Boolean
+ Dim iSeason As Integer = -1
+ Dim iEpisode As Integer = -1
+ Dim iProgress As Integer = 3
+
+ Dim tSea As Scraper.TVDBSeasonPoster
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.TVDBImages.SeasonImageList.Count + Scraper.tmpTVDBShow.Episodes.Count + 3, "defaults")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster) AndAlso IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ If Master.eSettings.IsShowBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) p.Language = Master.eSettings.TVDBLanguage AndAlso Not IsNothing(p.Image.Image))
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(1, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Dim tSF As Scraper.TVDBFanart = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize AndAlso f.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize)
+
+ 'no fanart of the preferred size, just get the first available
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image))
+
+ If Not IsNothing(tSF) Then
+ If Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso File.Exists(tSF.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(tSF.LocalFile)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ ElseIf Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso Not String.IsNullOrEmpty(tSF.URL) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(tSF.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tSF.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(tSF.LocalFile, , , False)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(2, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled AndAlso IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ If Master.eSettings.IsAllSBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(3, "progress")
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.SeasonFanart Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList
+ Try
+ iSeason = cSeason.Season
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster) AndAlso IsNothing(cSeason.Poster.Image) Then
+ tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason)
+ If Not IsNothing(tSea) Then cSeason.Poster = tSea.Image
+ End If
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonFanart) AndAlso Master.eSettings.SeasonFanartEnabled AndAlso IsNothing(cSeason.Fanart.Image.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then cSeason.Fanart.Image = Scraper.TVDBImages.ShowFanart.Image
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Episode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not String.IsNullOrEmpty(Episode.TVEp.LocalFile) Then
+ Episode.TVEp.Poster.FromFile(Episode.TVEp.LocalFile)
+ ElseIf Not String.IsNullOrEmpty(Episode.EpPosterPath) Then
+ Episode.TVEp.Poster.FromFile(Episode.EpPosterPath)
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled Then
+ If Not String.IsNullOrEmpty(Episode.EpFanartPath) Then
+ Episode.TVEp.Fanart.FromFile(Episode.EpFanartPath)
+ ElseIf Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Episode.TVEp.Fanart = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ DefaultImages = Scraper.TVDBImages.Clone
+
+ Return False
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As System.Windows.Forms.DialogResult
+ Me._id = ShowID
+ Me._type = Type
+ Me._withcurrent = WithCurrent
+ Me._ScrapeType = ScrapeType
+ Return MyBase.ShowDialog
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal CurrentImage As Images) As Images
+ Me._id = ShowID
+ Me._type = Type
+ Me._season = Season
+ Me.pbCurrent.Image = CurrentImage.Image
+ Me.pbCurrent.Tag = CurrentImage
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return CType(Me.pbCurrent.Tag, Images)
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal fTag As ImageTag)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.lblImage(iIndex) = New Label()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(187, 187)
+ Me.pbImage(iIndex).Size = New Size(181, 151)
+ Me.lblImage(iIndex).Size = New Size(181, 30)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblImage(iIndex).Text = sDescription
+ Me.pbImage(iIndex).Image = fTag.ImageObj.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.lblImage(iIndex).Left = 0
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.lblImage(iIndex).Top = 151
+ Me.pnlImage(iIndex).Tag = fTag
+ Me.pbImage(iIndex).Tag = fTag
+ Me.lblImage(iIndex).Tag = fTag
+ Me.pnlImages.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 192
+ Else
+ Me.iLeft += 192
+ End If
+ End Sub
+
+ Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
+ If Me.bwLoadData.IsBusy Then Me.bwLoadData.CancelAsync()
+ If Me.bwLoadImages.IsBusy Then Me.bwLoadImages.CancelAsync()
+
+ While Me.bwLoadData.IsBusy OrElse Me.bwLoadImages.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+ DoneAndClose()
+ End Sub
+
+ Private Sub DoneAndClose()
+ If Me._type = Enums.TVImageType.All Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ Master.currShow.ShowPosterPath = Scraper.TVDBImages.ShowPoster.LocalFile
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ End If
+ End If
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Master.currShow.SeasonPosterPath = Scraper.TVDBImages.AllSeasonPoster.LocalFile
+ End If
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromFile(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Clear()
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromWeb(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile).FullName)
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Save(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ End If
+ End If
+ ElseIf (Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+ End If
+
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+
+ Private Sub bwLoadData_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadData.DoWork
+ Dim cSI As Scraper.TVDBSeasonImage
+ Dim iProgress As Integer = 1
+ Dim iSeason As Integer = -1
+
+ Me.bwLoadData.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count, "current")
+
+ 'initialize the struct
+ Scraper.TVDBImages.ShowPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.ShowFanart = New Scraper.TVDBFanart
+ Scraper.TVDBImages.AllSeasonPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.SeasonImageList = New List(Of Scraper.TVDBSeasonImage)
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Select Case Me._type
+ Case Enums.TVImageType.AllSeasonPoster
+ Scraper.TVDBImages.AllSeasonPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.SeasonFanart
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Fanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.SeasonPoster
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Poster = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.ShowFanart, Enums.TVImageType.EpisodeFanart
+ Scraper.TVDBImages.ShowFanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.ShowPoster
+ Scraper.TVDBImages.ShowPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.All
+
+ If _withcurrent Then
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowPosterPath)
+ Scraper.TVDBImages.ShowPoster.LocalFile = Scraper.tmpTVDBShow.Show.ShowPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = Scraper.tmpTVDBShow.Show.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image.FromFile(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath)
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+ If iSeason > -1 Then
+ If IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(sEpisode.ShowPosterPath)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(sEpisode.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = sEpisode.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ If Not String.IsNullOrEmpty(sEpisode.SeasonPosterPath) Then
+ cSI.Poster.FromFile(sEpisode.SeasonPosterPath)
+ End If
+ If Master.eSettings.SeasonFanartEnabled AndAlso Not String.IsNullOrEmpty(sEpisode.SeasonFanartPath) Then
+ cSI.Fanart.Image.FromFile(sEpisode.SeasonFanartPath)
+ cSI.Fanart.LocalFile = sEpisode.SeasonFanartPath
+ End If
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ End If
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ Else
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ End Select
+ End Sub
+
+ Private Sub bwLoadData_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadData.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "current" Then
+ Me.lblStatus.Text = Master.eLang.GetString(88, "Loading Current Images...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadData_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadData.RunWorkerCompleted
+ If Not e.Cancelled Then
+ Me.GenerateList()
+
+ Me.lblStatus.Text = Master.eLang.GetString(89, "(Down)Loading New Images...")
+ Me.bwLoadImages.WorkerReportsProgress = True
+ Me.bwLoadImages.WorkerSupportsCancellation = True
+ Me.bwLoadImages.RunWorkerAsync()
+ End If
+ End Sub
+
+ Private Sub bwLoadImages_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadImages.DoWork
+ e.Cancel = Me.DownloadAllImages()
+ End Sub
+
+ Private Sub bwLoadImages_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadImages.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "defaults" Then
+ Me.lblStatus.Text = Master.eLang.GetString(90, "Setting Defaults...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadImages_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadImages.RunWorkerCompleted
+ Me.pnlStatus.Visible = False
+ If _ScrapeType = Enums.ScrapeType.FullAuto Then
+ DoneAndClose()
+ Else
+ If Not e.Cancelled Then
+ Me.tvList.Enabled = True
+ Me.tvList.Visible = True
+ Me.tvList.SelectedNode = Me.tvList.Nodes(0)
+ Me.tvList.Focus()
+
+ Me.btnOK.Enabled = True
+ End If
+
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ End If
+ End Sub
+
+ Private Sub CheckCurrentImage()
+ Me.pbDelete.Visible = Not IsNothing(Me.pbCurrent.Image) AndAlso Me.pbCurrent.Visible
+ Me.pbUndo.Visible = Me.pbCurrent.Visible
+ End Sub
+
+ Private Sub ClearImages()
+ Try
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop = 5
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+
+ If Me.pnlImages.Controls.Count > 0 Then
+ For i As Integer = UBound(Me.pnlImage) To 0 Step -1
+ If Not IsNothing(Me.pnlImage(i)) Then
+ If Not IsNothing(Me.lblImage(i)) AndAlso Me.pnlImage(i).Contains(Me.lblImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.lblImage(i))
+ If Not IsNothing(Me.pbImage(i)) AndAlso Me.pnlImage(i).Contains(Me.pbImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.pbImage(i))
+ If Me.pnlImages.Contains(Me.pnlImage(i)) Then Me.pnlImages.Controls.Remove(Me.pnlImage(i))
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgTVImageSelect_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ AddHandler pnlImages.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler tvList.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlImages)
+
+ Me.SetUp()
+ End Sub
+
+ Private Sub dlgTVImageSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.bwLoadData.WorkerReportsProgress = True
+ Me.bwLoadData.WorkerSupportsCancellation = True
+ Me.bwLoadData.RunWorkerAsync()
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, ByVal SelTag As ImageTag)
+ Try
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ Next
+
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+
+ SetImage(SelTag)
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function DownloadAllImages() As Boolean
+ Dim iProgress As Integer = 1
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count + Scraper.tmpTVDBShow.SeasonPosters.Count + Scraper.tmpTVDBShow.ShowPosters.Count + Scraper.tmpTVDBShow.Fanart.Count + Scraper.tmpTVDBShow.Posters.Count, "max")
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Epi As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not File.Exists(Epi.TVEp.LocalFile) Then
+ If Not String.IsNullOrEmpty(Epi.TVEp.PosterURL) Then
+ Epi.TVEp.Poster.FromWeb(Epi.TVEp.PosterURL)
+ If Not IsNothing(Epi.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Epi.TVEp.LocalFile).FullName)
+ Epi.TVEp.Poster.Save(Epi.TVEp.LocalFile)
+ End If
+ End If
+ Else
+ Epi.TVEp.Poster.FromFile(Epi.TVEp.LocalFile)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Seas As Scraper.TVDBSeasonPoster In Scraper.tmpTVDBShow.SeasonPosters
+ Try
+ If Not File.Exists(Seas.LocalFile) Then
+ If Not String.IsNullOrEmpty(Seas.URL) Then
+ Seas.Image.FromWeb(Seas.URL)
+ If Not IsNothing(Seas.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Seas.LocalFile).FullName)
+ Seas.Image.Save(Seas.LocalFile, , , False)
+ SeasonList.Add(Seas)
+ End If
+ End If
+ Else
+ Seas.Image.FromFile(Seas.LocalFile)
+ SeasonList.Add(Seas)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each SPost As Scraper.TVDBShowPoster In Scraper.tmpTVDBShow.ShowPosters
+ Try
+ If Not File.Exists(SPost.LocalFile) Then
+ If Not String.IsNullOrEmpty(SPost.URL) Then
+ SPost.Image.FromWeb(SPost.URL)
+ If Not IsNothing(SPost.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SPost.LocalFile).FullName)
+ SPost.Image.Save(SPost.LocalFile, , , False)
+ ShowPosterList.Add(SPost)
+ End If
+ End If
+ Else
+ SPost.Image.FromFile(SPost.LocalFile)
+ ShowPosterList.Add(SPost)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.SeasonFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then
+ For Each SFan As Scraper.TVDBFanart In Scraper.tmpTVDBShow.Fanart
+ Try
+ If Not File.Exists(SFan.LocalThumb) Then
+ If Not String.IsNullOrEmpty(SFan.ThumbnailURL) Then
+ SFan.Image.FromWeb(SFan.ThumbnailURL)
+ If Not IsNothing(SFan.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SFan.LocalThumb).FullName)
+ SFan.Image.Save(SFan.LocalThumb, , , False)
+ FanartList.Add(SFan)
+ End If
+ End If
+ Else
+ SFan.Image.FromFile(SFan.LocalThumb)
+ FanartList.Add(SFan)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse _
+ Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Post As Scraper.TVDBPoster In Scraper.tmpTVDBShow.Posters
+ Try
+ If Not File.Exists(Post.LocalFile) Then
+ If Not String.IsNullOrEmpty(Post.URL) Then
+ Post.Image.FromWeb(Post.URL)
+ If Not IsNothing(Post.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Post.LocalFile).FullName)
+ Post.Image.Save(Post.LocalFile, , , False)
+ GenericPosterList.Add(Post)
+ End If
+ End If
+ Else
+ Post.Image.FromFile(Post.LocalFile)
+ GenericPosterList.Add(Post)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Me.SetDefaults()
+ End Function
+
+ Private Function DownloadFanart(ByVal iTag As ImageTag) As Image
+ Dim sHTTP As New HTTP
+
+ Using tImage As New Images
+ If Not String.IsNullOrEmpty(iTag.Path) AndAlso File.Exists(iTag.Path) Then
+ tImage.FromFile(iTag.Path)
+ ElseIf Not String.IsNullOrEmpty(iTag.Path) AndAlso Not String.IsNullOrEmpty(iTag.URL) Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+
+ Application.DoEvents()
+
+ tImage.FromWeb(iTag.URL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(iTag.Path).FullName)
+ tImage.Save(iTag.Path, , , False)
+ End If
+
+ sHTTP = Nothing
+
+ Me.pnlStatus.Visible = False
+ End If
+
+ Return tImage.Image
+ End Using
+ End Function
+
+ Private Sub GenerateList()
+ Try
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(91, "Show Poster"), .Tag = "showp", .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then Me.tvList.Nodes.Add(New TreeNode With {.Text = If(Me._type = Enums.TVImageType.EpisodeFanart, Master.eLang.GetString(92, "Episode Fanart"), Master.eLang.GetString(93, "Show Fanart")), .Tag = "showf", .ImageIndex = 1, .SelectedImageIndex = 1})
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(94, "All Seasons Poster"), .Tag = "allp", .ImageIndex = 2, .SelectedImageIndex = 2})
+
+ Dim TnS As TreeNode
+ If Me._type = Enums.TVImageType.All Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList.OrderBy(Function(s) s.Season)
+ Try
+ TnS = New TreeNode(String.Format(Master.eLang.GetString(726, "Season {0}", True), cSeason.Season), 3, 3)
+ TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(95, "Season Posters"), .Tag = String.Concat("p", cSeason.Season.ToString), .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Master.eSettings.SeasonFanartEnabled Then TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(96, "Season Fanart"), .Tag = String.Concat("f", cSeason.Season.ToString), .ImageIndex = 1, .SelectedImageIndex = 1})
+ Me.tvList.Nodes.Add(TnS)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ ElseIf Me._type = Enums.TVImageType.SeasonPoster Then
+ Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(97, "Season {0} Posters"), Me._season), .Tag = String.Concat("p", Me._season)})
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart Then
+ If Master.eSettings.SeasonFanartEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(99, "Season {0} Fanart"), Me._season), .Tag = String.Concat("f", Me._season)})
+ End If
+
+ Me.tvList.ExpandAll()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetFanartDims(ByVal fSize As Size) As Enums.FanartSize
+ Try
+ If (fSize.Width > 1000 AndAlso fSize.Height > 750) OrElse (fSize.Height > 1000 AndAlso fSize.Width > 750) Then
+ Return Enums.FanartSize.Lrg
+ ElseIf (fSize.Width > 700 AndAlso fSize.Height > 400) OrElse (fSize.Height > 700 AndAlso fSize.Width > 400) Then
+ Return Enums.FanartSize.Mid
+ Else
+ Return Enums.FanartSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Function GetPosterDims(ByVal pSize As Size) As Enums.PosterSize
+ Try
+ If (pSize.Width > pSize.Height) AndAlso (pSize.Width > (pSize.Height * 2)) AndAlso (pSize.Width > 300) Then
+ 'at least twice as wide than tall... consider it wide (also make sure it's big enough)
+ Return Enums.PosterSize.Wide
+ ElseIf (pSize.Height > 1000 AndAlso pSize.Width > 750) OrElse (pSize.Width > 1000 AndAlso pSize.Height > 750) Then
+ Return Enums.PosterSize.Xlrg
+ ElseIf (pSize.Height > 700 AndAlso pSize.Width > 500) OrElse (pSize.Width > 700 AndAlso pSize.Height > 500) Then
+ Return Enums.PosterSize.Lrg
+ ElseIf (pSize.Height > 250 AndAlso pSize.Width > 150) OrElse (pSize.Width > 250 AndAlso pSize.Height > 150) Then
+ Return Enums.PosterSize.Mid
+ Else
+ Return Enums.PosterSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iindex As Integer = Convert.ToInt32(DirectCast(sender, Label).Name)
+ Me.DoSelect(iindex, DirectCast(DirectCast(sender, Label).Tag, ImageTag))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlImages.VerticalScroll.Value + 50) <= pnlImages.VerticalScroll.Maximum Then
+ pnlImages.VerticalScroll.Value += 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlImages.VerticalScroll.Value - 50) >= pnlImages.VerticalScroll.Minimum Then
+ pnlImages.VerticalScroll.Value -= 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub pbDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbDelete.Click
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+ Me.SetImage(New ImageTag)
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim tImage As Image = Nothing
+ Dim iTag As ImageTag = DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag)
+ If Not IsNothing(iTag) OrElse Not iTag.isFanart Then
+ tImage = DownloadFanart(iTag)
+ Else
+ tImage = DirectCast(sender, PictureBox).Image
+ End If
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage)
+ End Sub
+
+ Private Sub pbUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUndo.Click
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = DefaultImages.ShowPoster.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = DefaultImages.ShowPoster.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = DefaultImages.ShowPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowPoster.Image
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = DefaultImages.ShowFanart.Image
+ Scraper.TVDBImages.ShowFanart.LocalFile = DefaultImages.ShowFanart.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = DefaultImages.ShowFanart.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = DefaultImages.AllSeasonPoster.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = DefaultImages.AllSeasonPoster.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = DefaultImages.AllSeasonPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.AllSeasonPoster.Image
+ Else
+ If Me.SelIsPoster Then
+ Dim dSPost As Images = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = dSPost
+ Me.pbCurrent.Image = dSPost.Image
+ Me.pbCurrent.Tag = dSPost
+ Else
+ Dim dSFan As Scraper.TVDBFanart = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ Dim tSFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ tSFan.Image = dSFan.Image
+ tSFan.LocalFile = dSFan.LocalFile
+ tSFan.URL = dSFan.URL
+ Me.pbCurrent.Image = dSFan.Image.Image
+ Me.pbCurrent.Tag = dSFan.Image
+ End If
+ End If
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iIndex As Integer = Convert.ToInt32(DirectCast(sender, Panel).Name)
+ Me.DoSelect(iIndex, DirectCast(DirectCast(sender, Panel).Tag, ImageTag))
+ End Sub
+
+ Private Sub SetImage(ByVal SelTag As ImageTag)
+ Me.pbCurrent.Image = SelTag.ImageObj.Image
+ Me.pbCurrent.Tag = SelTag.ImageObj
+
+ Me._fanartchanged = True
+
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowPoster.URL = SelTag.URL
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowFanart.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowFanart.URL = SelTag.URL
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.AllSeasonPoster.URL = SelTag.URL
+ Else
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = SelTag.ImageObj
+ Else
+ Dim tFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ If Not IsNothing(tFan) Then
+ tFan.Image = SelTag.ImageObj
+ tFan.LocalFile = SelTag.Path
+ tFan.URL = SelTag.URL
+ End If
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(99, "TV Image Selection")
+ Me.btnOK.Text = Master.eLang.GetString(179, "OK", True)
+ Me.btnCancel.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.lblCurrentImage.Text = Master.eLang.GetString(100, "Current Image:")
+ End Sub
+
+ Private Sub tvList_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvList.AfterSelect
+ Dim iCount As Integer = 0
+
+ Try
+ ClearImages()
+ If Not IsNothing(e.Node.Tag) AndAlso Not String.IsNullOrEmpty(e.Node.Tag.ToString) Then
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ If e.Node.Tag.ToString = "showp" Then
+ Me.SelSeason = -999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.ShowPoster) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = ShowPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To GenericPosterList.Count - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "showf" Then
+
+ Me.SelSeason = -999
+ Me.SelIsPoster = False
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "allp" Then
+ Me.SelSeason = 999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.AllSeasonPoster) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = GenericPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To ShowPosterList.Count - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+ Else
+ Dim tMatch As Match = Regex.Match(e.Node.Tag.ToString, "(?<type>f|p)(?<num>[0-9]+)")
+ If tMatch.Success Then
+ If tMatch.Groups("type").Value = "f" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = False
+ Dim tFanart As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(tFanart) AndAlso Not IsNothing(tFanart.Fanart) AndAlso Not IsNothing(tFanart.Fanart.Image) AndAlso Not IsNothing(tFanart.Fanart.Image.Image) Then
+ Me.pbCurrent.Image = tFanart.Fanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+ ElseIf tMatch.Groups("type").Value = "p" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = True
+ Dim tPoster As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Me.SelSeason)
+ If Not IsNothing(tPoster) AndAlso Not IsNothing(tPoster.Poster) AndAlso Not IsNothing(tPoster.Poster.Image) Then
+ Me.pbCurrent.Image = tPoster.Poster.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ iCount = 0
+ For Each SImage As Scraper.TVDBSeasonPoster In SeasonList.Where(Function(s) s.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(SImage.Image) AndAlso Not IsNothing(SImage.Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", SImage.Image.Image.Width, SImage.Image.Image.Height), iCount, New ImageTag With {.URL = SImage.URL, .Path = SImage.LocalFile, .isFanart = False, .ImageObj = SImage.Image})
+ End If
+ iCount += 1
+ Next
+ End If
+ End If
+ End If
+ Else
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Visible = False
+ Me.lblCurrentImage.Visible = False
+ End If
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure ImageTag
+
+#Region "Fields"
+
+ Dim isFanart As Boolean
+ Dim Path As String
+ Dim URL As String
+ Dim ImageObj As Images
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.Designer.vb b/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..c3675d6
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.Designer.vb
@@ -0,0 +1,632 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtIMDBURL = New System.Windows.Forms.TextBox()
+ Me.GroupBox15 = New System.Windows.Forms.GroupBox()
+ Me.chkOFDBGenre = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBOutline = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBTitle = New System.Windows.Forms.CheckBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCertification = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkTop250 = New System.Windows.Forms.CheckBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkMusicBy = New System.Windows.Forms.CheckBox()
+ Me.chkProducers = New System.Windows.Forms.CheckBox()
+ Me.chkFullCast = New System.Windows.Forms.CheckBox()
+ Me.chkWriters = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkFullCrew = New System.Windows.Forms.CheckBox()
+ Me.chkPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkDirector = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.GroupBox15.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtIMDBURL)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(213, 69)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "IMDB"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(73, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "IMDB Mirror:"
+ '
+ 'txtIMDBURL
+ '
+ Me.txtIMDBURL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBURL.Location = New System.Drawing.Point(8, 32)
+ Me.txtIMDBURL.Name = "txtIMDBURL"
+ Me.txtIMDBURL.Size = New System.Drawing.Size(192, 22)
+ Me.txtIMDBURL.TabIndex = 1
+ '
+ 'GroupBox15
+ '
+ Me.GroupBox15.Controls.Add(Me.chkOFDBGenre)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBPlot)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBOutline)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBTitle)
+ Me.GroupBox15.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox15.Location = New System.Drawing.Point(8, 114)
+ Me.GroupBox15.Name = "GroupBox15"
+ Me.GroupBox15.Size = New System.Drawing.Size(213, 87)
+ Me.GroupBox15.TabIndex = 2
+ Me.GroupBox15.TabStop = False
+ Me.GroupBox15.Text = "OFDB (German)"
+ '
+ 'chkOFDBGenre
+ '
+ Me.chkOFDBGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBGenre.Location = New System.Drawing.Point(6, 65)
+ Me.chkOFDBGenre.Name = "chkOFDBGenre"
+ Me.chkOFDBGenre.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBGenre.TabIndex = 3
+ Me.chkOFDBGenre.Text = "Use OFDB Genre"
+ Me.chkOFDBGenre.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBPlot
+ '
+ Me.chkOFDBPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBPlot.Location = New System.Drawing.Point(6, 49)
+ Me.chkOFDBPlot.Name = "chkOFDBPlot"
+ Me.chkOFDBPlot.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBPlot.TabIndex = 2
+ Me.chkOFDBPlot.Text = "Use OFDB Plot"
+ Me.chkOFDBPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBOutline
+ '
+ Me.chkOFDBOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBOutline.Location = New System.Drawing.Point(6, 33)
+ Me.chkOFDBOutline.Name = "chkOFDBOutline"
+ Me.chkOFDBOutline.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBOutline.TabIndex = 1
+ Me.chkOFDBOutline.Text = "Use OFDB Outline"
+ Me.chkOFDBOutline.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBTitle
+ '
+ Me.chkOFDBTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBTitle.Location = New System.Drawing.Point(6, 17)
+ Me.chkOFDBTitle.Name = "chkOFDBTitle"
+ Me.chkOFDBTitle.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBTitle.TabIndex = 0
+ Me.chkOFDBTitle.Text = "Use OFDB Title"
+ Me.chkOFDBTitle.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.GroupBox15)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCertification)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkTop250)
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkMusicBy)
+ Me.gbOptions.Controls.Add(Me.chkProducers)
+ Me.gbOptions.Controls.Add(Me.chkFullCast)
+ Me.gbOptions.Controls.Add(Me.chkWriters)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkFullCrew)
+ Me.gbOptions.Controls.Add(Me.chkPlot)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkDirector)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(227, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(387, 161)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCertification
+ '
+ Me.chkCertification.AutoSize = True
+ Me.chkCertification.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCertification.Location = New System.Drawing.Point(6, 70)
+ Me.chkCertification.Name = "chkCertification"
+ Me.chkCertification.Size = New System.Drawing.Size(89, 17)
+ Me.chkCertification.TabIndex = 3
+ Me.chkCertification.Text = "Certification"
+ Me.chkCertification.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(237, 53)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkTop250
+ '
+ Me.chkTop250.AutoSize = True
+ Me.chkTop250.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTop250.Location = New System.Drawing.Point(237, 19)
+ Me.chkTop250.Name = "chkTop250"
+ Me.chkTop250.Size = New System.Drawing.Size(66, 17)
+ Me.chkTop250.TabIndex = 16
+ Me.chkTop250.Text = "Top 250"
+ Me.chkTop250.UseVisualStyleBackColor = True
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Enabled = False
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(246, 104)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(85, 17)
+ Me.chkCrew.TabIndex = 21
+ Me.chkCrew.Text = "Other Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkMusicBy
+ '
+ Me.chkMusicBy.AutoSize = True
+ Me.chkMusicBy.Enabled = False
+ Me.chkMusicBy.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMusicBy.Location = New System.Drawing.Point(246, 121)
+ Me.chkMusicBy.Name = "chkMusicBy"
+ Me.chkMusicBy.Size = New System.Drawing.Size(71, 17)
+ Me.chkMusicBy.TabIndex = 22
+ Me.chkMusicBy.Text = "Music By"
+ Me.chkMusicBy.UseVisualStyleBackColor = True
+ '
+ 'chkProducers
+ '
+ Me.chkProducers.AutoSize = True
+ Me.chkProducers.Enabled = False
+ Me.chkProducers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkProducers.Location = New System.Drawing.Point(246, 138)
+ Me.chkProducers.Name = "chkProducers"
+ Me.chkProducers.Size = New System.Drawing.Size(77, 17)
+ Me.chkProducers.TabIndex = 23
+ Me.chkProducers.Text = "Producers"
+ Me.chkProducers.UseVisualStyleBackColor = True
+ '
+ 'chkFullCast
+ '
+ Me.chkFullCast.AutoSize = True
+ Me.chkFullCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCast.Location = New System.Drawing.Point(237, 70)
+ Me.chkFullCast.Name = "chkFullCast"
+ Me.chkFullCast.Size = New System.Drawing.Size(107, 17)
+ Me.chkFullCast.TabIndex = 19
+ Me.chkFullCast.Text = "Scrape Full Cast"
+ Me.chkFullCast.UseVisualStyleBackColor = True
+ '
+ 'chkWriters
+ '
+ Me.chkWriters.AutoSize = True
+ Me.chkWriters.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkWriters.Location = New System.Drawing.Point(131, 121)
+ Me.chkWriters.Name = "chkWriters"
+ Me.chkWriters.Size = New System.Drawing.Size(63, 17)
+ Me.chkWriters.TabIndex = 14
+ Me.chkWriters.Text = "Writers"
+ Me.chkWriters.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 104)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkFullCrew
+ '
+ Me.chkFullCrew.AutoSize = True
+ Me.chkFullCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCrew.Location = New System.Drawing.Point(237, 87)
+ Me.chkFullCrew.Name = "chkFullCrew"
+ Me.chkFullCrew.Size = New System.Drawing.Size(111, 17)
+ Me.chkFullCrew.TabIndex = 20
+ Me.chkFullCrew.Text = "Scrape Full Crew"
+ Me.chkFullCrew.UseVisualStyleBackColor = True
+ '
+ 'chkPlot
+ '
+ Me.chkPlot.AutoSize = True
+ Me.chkPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkPlot.Location = New System.Drawing.Point(131, 70)
+ Me.chkPlot.Name = "chkPlot"
+ Me.chkPlot.Size = New System.Drawing.Size(46, 17)
+ Me.chkPlot.TabIndex = 11
+ Me.chkPlot.Text = "Plot"
+ Me.chkPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 138)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkDirector
+ '
+ Me.chkDirector.AutoSize = True
+ Me.chkDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDirector.Location = New System.Drawing.Point(131, 104)
+ Me.chkDirector.Name = "chkDirector"
+ Me.chkDirector.Size = New System.Drawing.Size(67, 17)
+ Me.chkDirector.TabIndex = 13
+ Me.chkDirector.Text = "Director"
+ Me.chkDirector.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 87)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 138)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(237, 36)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 121)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 87)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'frmInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.GroupBox15.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBURL As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkOFDBGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCertification As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTop250 As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMusicBy As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkProducers As System.Windows.Forms.CheckBox
+ Friend WithEvents chkWriters As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDirector As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.resx b/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.resx
new file mode 100644
index 0000000..1a3b6b2
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.resx
@@ -0,0 +1,193 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsIAAALCAHAvaXaAAAHHElE
+ QVRYR8WWeVAUVBzHX5mpZcekIAoKCYLLvQe7XLucHiCoIDcqJHgmeaaLW2bHGIZZTXYqmigiCosKi4og
+ oCUKeTVehViToo2hljrO5Djz7fd71WJCE/1DzHzYt+/33u993+/33u+tAPC/0mVnT9JlZ0/SZWdP0mVn
+ TyL/XWxtFd9fvChaW1rExg0FfebNnZMzflxU2YSY6KoJ46It1LYkJ8RbUpMSLEmT4i2TU1Ms0zKmWjIm
+ p1sy0tNkm/uSJsVZUhMT5NgJNIfnso/x0WPN06dlLqg7UNuX17v3228Sq4BLP/4o2i5fZhG9Z2ZPM5Mj
+ pKckITLUgNSkRMydPRNx42ORFB+HRQvmYfoLmUhOmIRF8+dj8cIFSElMQFZmBhaTLXlSPOJiY+Sc9OQ/
+ fKQlJ4J9zs+Za6F1+vx09aq40tbWIaBkW7Ewl+4Qa1a/EzsmPAz3799HW1sbgnR+qKmupiHASy/OwbKl
+ S2R7b1UV4knQL7/cxN27d5EQNxG7dpZL24rlr2JmdpZsHzrYgACtBrQx+X1sZDiWGZckffLRWvHhB+93
+ CBg3ZpSIGTtakNrcCFJcsWsXCr/YiAA/NVatXIkDtTUyIlmZU9FQX4f8VXmIjY7CrvJyWCoqQKFGfl4e
+ Dn/1JWZNz6LoxONATQ1oQ9LHhvXrUGWpxJiIMPquWk4bE4xVACkTUaMixKiwkFzetT5AJ3c4OSUZKRRq
+ DmvmlHRMmzoFU9JSkZUxFbNnTAflXsI7ZhFjIyPknIzJaUikqCRSytIohXGx46TPYH8tYwr29xOMVQAv
+ Hj06kiNgZAG1+6tx584d3Lxx49+5eQO3b93Ce++uxtLFi3C9vR03qP/69XbZZm6Rvb7uAAyB/gjUakzB
+ Oq1gOkUg3BBsJHD+3Dm008SrV650i1u//orioi0U8tW4fft2J3v7zz/jQkuLTIG/RmkK0mkoBZoOAWSQ
+ IkL1QcYwfSCOHmmUB+fCd9+h5V/gMZcvXULBus+x8q03ZfvhMezr2Ndfg1IMndrXFKhVC8YqgAxidHio
+ CAkKMBJ0eg/i2/Pnceb06W7ReqEVn378Ed5Y8RqopnSynydfRw4fRkSIHlqljylAoxKMVUBkqEGKoBwZ
+ +bDU7t+Pb06dwvFjx7rF2TNnQNcKr72yDOfOnu1kP3XyJN2eeoTrg+Dn622iKAjGKiDCoBeRIQah99cZ
+ g+kQ7rFY0NzUhEZS3R1OHD+ONfn5sk6cOH6ik73p6FFU79uHUIqu2sfT5Kf0EYxVQJg+iA8g300j5QY7
+ y8348tAhOrl13aKxsVHWi5cXLcQRaj9s55RW7t4tr6LKy8Ok8fESjFUA5V2EBgcKKhpGf7USJdu2oZYK
+ yb69e7tFfV093np9BRbMy0FDQ4Pc7YOwL3Npqaysvh4KE4kQjFUAKeP8C1rcSIcEmws3wVJpwW6qiN2B
+ RSx/xYScObNRTaW7gnb7IFWU0uKtW2VV9HZ3M/l6KgRjFUB5p/xrhVblY1T7eKGASqe5rAw7tm/vFiyC
+ 8z97RrZcsHTHjr9RbjZjE5V2ncoXnm4jTN4KN8FYBQT6qUWQVsN5MVJosLGg4D8J4EWXGZdilhRQ0cnO
+ vgo3bQIdPLiPcDaRCMFYBVB1ovyrBJ1Qo7vLcFlQeOLWoqJ/pPiBTx6bTU80vx/FW4v/tG2xjt1eUoK8
+ t1fS7l2gGDHc5O7qLBirALqbdC28hdLLPdf1eUe4ODrwdZGnVqdSQuPrDQO19VTLOYx8mLhk+2tUEq6e
+ niNdwXM5z4YAf1A0ueiAUguVtydchjnAbbgj3JydTPQp6LNDQAgdQHIifDxG5rLK0u0lVNnWYqidDXKX
+ vEx1oRJcIbmW791TRT885mOE01D5ZBcXbSbHTlhIN6Cmeh/oWacHR42qykpZmBwGDcRaKlI7zWUg/3Ae
+ Zr/cW+EqPB6MgP1gO0G/fMSKV00xalJ77949/PD9RQyxeQ7lZaU0BJgYE01PbZJsFxUWsiNcu3ZNvnS8
+ s/WffyZt2S9kSKH8t6eqEnYDnqVSfE5+54jkzJmZGE2/PZ595ukOAfz3CKFwc+ul9PIoHRVmQGhwgEwF
+ HVDERo2GF4XYl3YwISaKUqCBwuV5ev/DQK8o51WOm0g2ul580uUcHudMoQ8J1NFDZKCHSFkx0tW1N6/F
+ f1YBvWh94knqG/Rkv34u9oNs8xzsbBsc7Qc3OQyyaRps81yTk8MQpnmI7cBmxyF2zc6OQ5tpjMR52NBm
+ GittPIbHDrYZ0GRPc53Yh53tQfKZ/3T//q60hu2jtBav+bCApwgHUudMDKO2Cw1UEB6EF+FD+BJKQkWo
+ H4L72MZjeCzPcScU7It9EsN5DaI/8TcBf8FCHiV6EY8RvYnHiT5EX6LfnzzxD/xl57E8h+eyD/bFPtk3
+ ryHXswr4P+mysyfpsrPngPgd1z91K2zEiQAAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.vb b/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.vb
new file mode 100644
index 0000000..21a3d0b
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmInfoSettingsHolder.vb
@@ -0,0 +1,237 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCertification_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCertification.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkDirector_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDirector.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+
+ Me.chkProducers.Enabled = Me.chkFullCrew.Checked
+ Me.chkMusicBy.Enabled = Me.chkFullCrew.Checked
+ Me.chkCrew.Enabled = Me.chkFullCrew.Checked
+
+ If Not Me.chkFullCrew.Checked Then
+ Me.chkProducers.Checked = False
+ Me.chkMusicBy.Checked = False
+ Me.chkCrew.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMusicBy_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMusicBy.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkProducers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkProducers.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTop250_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTop250.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkWriters_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkWriters.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.chkOFDBGenre.Text = Master.eLang.GetString(1, "Use OFDB Genre")
+ Me.chkOFDBPlot.Text = Master.eLang.GetString(2, "Use OFDB Plot")
+ Me.chkOFDBOutline.Text = Master.eLang.GetString(3, "Use OFDB Outline")
+ Me.chkOFDBTitle.Text = Master.eLang.GetString(4, "Use OFDB Title")
+ Me.Label18.Text = Master.eLang.GetString(5, "IMDB Mirror:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkCrew.Text = Master.eLang.GetString(391, "Other Crew", True)
+ Me.chkMusicBy.Text = Master.eLang.GetString(392, "Music By", True)
+ Me.chkProducers.Text = Master.eLang.GetString(393, "Producers", True)
+ Me.chkWriters.Text = Master.eLang.GetString(394, "Writers", True)
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkPlot.Text = Master.eLang.GetString(65, "Plot", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkDirector.Text = Master.eLang.GetString(62, "Director", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(398, "Cast", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(401, "MPAA", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.chkCountry.Text = Master.eLang.GetString(301, "Country", True)
+ Me.chkFullCast.Text = Master.eLang.GetString(512, "Scrape Full Cast", True)
+ Me.chkFullCrew.Text = Master.eLang.GetString(513, "Scrape Full Crew", True)
+ Me.chkTop250.Text = Master.eLang.GetString(868, "Top250", True)
+ Me.GroupBox30.Text = Master.eLang.GetString(106, "IMDB")
+ Me.GroupBox15.Text = Master.eLang.GetString(107, "OFDB (German)")
+ End Sub
+
+ Private Sub txtIMDBURL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBURL.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.Designer.vb b/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..2c09e78
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.Designer.vb
@@ -0,0 +1,524 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.cbActorThumbsSize = New System.Windows.Forms.ComboBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseTMDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(587, 177)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.cbActorThumbsSize)
+ Me.GroupBox6.Location = New System.Drawing.Point(374, 98)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 73)
+ Me.GroupBox6.TabIndex = 5
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Actor Thumbs Size:"
+ '
+ 'cbActorThumbsSize
+ '
+ Me.cbActorThumbsSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbActorThumbsSize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbActorThumbsSize.FormattingEnabled = True
+ Me.cbActorThumbsSize.Items.AddRange(New Object() {"SY275_SX400", "SY720_SX1080", "SY1080_SX1920"})
+ Me.cbActorThumbsSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbActorThumbsSize.Name = "cbActorThumbsSize"
+ Me.cbActorThumbsSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbActorThumbsSize.TabIndex = 0
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(374, 11)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Enabled = False
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseTMDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 11)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox9.TabIndex = 3
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Images From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseTMDB
+ '
+ Me.chkUseTMDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseTMDB.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseTMDB.Name = "chkUseTMDB"
+ Me.chkUseTMDB.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseTMDB.TabIndex = 0
+ Me.chkUseTMDB.Text = "themoviedb.org"
+ Me.chkUseTMDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.GroupBox5)
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 214)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(587, 112)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(374, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 2
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbActorThumbsSize As System.Windows.Forms.ComboBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.resx b/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.resx
new file mode 100644
index 0000000..023cf14
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.resx
@@ -0,0 +1,237 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABxxJREFUWEfFlnlQFFQc
+ x1+ZqWXHpCAKCgmCy70Hu1y7nB4gqCA3KiR4Jnmmi1tmxxiGWU12KpooIgqLCouKIKAlCnk1XoVYk6KN
+ oZY6zuQ48+33e9ViQhP9Q8x82Lfv997vfd/v997vrQDwv9JlZ0/SZWdP0mVnT9JlZ08i/11sbRXfX7wo
+ WltaxMYNBX3mzZ2TM35cVNmEmOiqCeOiLdS2JCfEW1KTEixJk+Itk1NTLNMyployJqdbMtLTZJv7kibF
+ WVITE+TYCTSH57KP8dFjzdOnZS6oO1Dbl9e799tvEquASz/+KNouX2YRvWdmTzOTI6SnJCEy1IDUpETM
+ nT0TceNjkRQfh0UL5mH6C5lITpiERfPnY/HCBUhJTEBWZgYWky15UjziYmPknPTkP3ykJSeCfc7PmWuh
+ dfr8dPWquNLW1iGgZFuxMJfuEGtWvxM7JjwM9+/fR1tbG4J0fqiprqYhwEsvzsGypUtke29VFeJJ0C+/
+ 3MTdu3eREDcRu3aWS9uK5a9iZnaWbB862IAArQa0Mfl9bGQ4lhmXJH3y0Vrx4QfvdwgYN2aUiBk7WpDa
+ 3AhSXLFrFwq/2IgAPzVWrVyJA7U1MiJZmVPRUF+H/FV5iI2Owq7yclgqKkChRn5eHg5/9SVmTc+i6MTj
+ QE0NaEPSx4b161BlqcSYiDD6rlpOGxOMVQApE1GjIsSosJBc3rU+QCd3ODklGSkUag5r5pR0TJs6BVPS
+ UpGVMRWzZ0wH5V7CO2YRYyMj5JyMyWlIpKgkUsrSKIVxseOkz2B/LWMK9vcTjFUALx49OpIjYGQBtfur
+ cefOHdy8cePfuXkDt2/dwnvvrsbSxYtwvb0dN6j/+vV22WZukb2+7gAMgf4I1GpMwTqtYDpFINwQbCRw
+ /tw5tNPEq1eudItbv/6K4qItFPLVuH37did7+88/40JLi0yBv0ZpCtJpKAWaDgFkkCJC9UHGMH0gjh5p
+ lAfnwnffoeVf4DGXL11CwbrPsfKtN2X74THs69jXX4NSDJ3a1xSoVQvGKoAMYnR4qAgJCjASdHoP4tvz
+ 53Hm9Olu0XqhFZ9+/BHeWPEaqKZ0sp8nX0cOH0ZEiB5apY8pQKMSjFVAZKhBiqAcGfmw1O7fj29OncLx
+ Y8e6xdkzZ0DXCq+9sgznzp7tZD918iTdnnqE64Pg5+ttoigIxiogwqAXkSEGoffXGYPpEO6xWNDc1IRG
+ Ut0dThw/jjX5+bJOnDh+opO96ehRVO/bh1CKrtrH0+Sn9BGMVUCYPogPIN9NI+UGO8vN+PLQITq5dd2i
+ sbFR1ouXFy3EEWo/bOeUVu7eLa+iysvDpPHxEoxVAOVdhAYHCioaRn+1EiXbtqGWCsm+vXu7RX1dPd56
+ fQUWzMtBQ0OD3O2DsC9zaamsrL4eChOJEIxVACnj/Ata3EiHBJsLN8FSacFuqojdgUUsf8WEnDmzUU2l
+ u4J2+yBVlNLirVtlVfR2dzP5eioEYxVAeaf8a4VW5WNU+3ihgEqnuawMO7Zv7xYsgvM/e0a2XLB0x46/
+ UW42YxOVdp3KF55uI0zeCjfBWAUE+qlFkFbDeTFSaLCxoOA/CeBFlxmXYpYUUNHJzr4KN20CHTy4j3A2
+ kQjBWAVQdaL8qwSdUKO7y3BZUHji1qKif6T4gU8em01PNL8fxVuL/7RtsY7dXlKCvLdX0u5doBgx3OTu
+ 6iwYqwC6m3QtvIXSyz3X9XlHuDg68HWRp1anUkLj6w0DtfVUyzmMfJi4ZPtrVBKunp4jXcFzOc+GAH9Q
+ NLnogFILlbcnXIY5wG24I9ycnUz0KeizQ0AIHUByInw8RuayytLtJVTZ1mKonQ1yl7xMdaESXCG5lu/d
+ U0U/POZjhNNQ+WQXF20mx05YSDegpnof6FmnB0eNqspKWZgcBg3EWipSO81lIP9wHma/3FvhKjwejID9
+ YDtBv3zEildNMWpSe+/ePfzw/UUMsXkO5WWlNASYGBNNT22SbBcVFrIjXLt2Tb50vLP1n38mbdkvZEih
+ /LenqhJ2A56lUnxOfueI5MyZmRhNvz2efebpDgH89wihcHPrpfTyKB0VZkBocIBMBR1QxEaNhheF2Jd2
+ MCEmilKggcLleXr/w0CvKOdVjptINrpefNLlHB7nTKEPCdTRQ2Sgh0hZMdLVtTevxX9WAb1ofeJJ6hv0
+ ZL9+LvaDbPMc7GwbHO0HNzkMsmkabPNck5PDEKZ5iO3AZschds3OjkObaYzEedjQZhorbTyGxw62GdBk
+ T3Od2Ied7UHymf90//6utIbto7QWr/mwgKcIB1LnTAyjtgsNVBAehBfhQ/gSSkJFqB+C+9jGY3gsz3En
+ FOyLfRLDeQ2iP/E3AX/BQh4lehGPEb2Jx4k+RF+i35888Q/8ZeexPIfnsg/2xT7ZN68h17MK+D/psrMn
+ 6bKz54D4Hdc/dStsxIkAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.vb b/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.vb
new file mode 100644
index 0000000..401240a
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmMediaSettingsHolder.vb
@@ -0,0 +1,172 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerIMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerIMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerIMDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseTMDB.CheckedChanged
+ cbManualETSize.Enabled = chkUseTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.GroupBox9.Text = Master.eLang.GetString(9, "Get Images From:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.GroupBox3.Text = Master.eLang.GetString(497, "Images", True)
+ Me.GroupBox4.Text = Master.eLang.GetString(108, "TMDB Extrathumbs Size:")
+ Me.GroupBox1.Text = Master.eLang.GetString(109, "Trailers")
+ Me.GroupBox5.Text = Master.eLang.GetString(110, "Youtube/TMDB Trailer:")
+ Me.chkTrailerTMDBXBMC.Text = Master.eLang.GetString(111, "XBMC Format")
+ Me.Label2.Text = Master.eLang.GetString(112, "Preferred language")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(113, "Save Fanart In:")
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbActorThumbsSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbActorThumbsSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.Designer.vb b/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..4a8cc4e
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.Designer.vb
@@ -0,0 +1,169 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.resx b/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.resx
new file mode 100644
index 0000000..0950d0f
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.resx
@@ -0,0 +1,177 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.vb b/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.vb
new file mode 100644
index 0000000..98761ce
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmTVInfoSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.Designer.vb b/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f5cb735
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.Designer.vb
@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVMediaSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.InitialImage = CType(resources.GetObject("PictureBox1.InitialImage"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.resx b/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.resx
new file mode 100644
index 0000000..d47391f
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.resx
@@ -0,0 +1,197 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEAAA
+ CxABrSO9dQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.vb b/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.vb
new file mode 100644
index 0000000..06928ef
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/frmTVMediaSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/packages.config b/Addons/scraper.TVDB.Data/packages.config
new file mode 100644
index 0000000..053d0bc6
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="SharpZipLib" version="0.86.0" />
+ <package id="System.Data.SQLite" version="1.0.84.0" targetFramework="net35" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/scraper.TVDB.Data.vbproj b/Addons/scraper.TVDB.Data/scraper.TVDB.Data.vbproj
new file mode 100644
index 0000000..4798162
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/scraper.TVDB.Data.vbproj
@@ -0,0 +1,342 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{F642E719-61E2-4847-AB55-DB47C0F38649}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.TVDB.Data</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Data.SQLite">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Data.SQLite.Linq">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.Linq.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Diagnostics" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="frmTVMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperTVNativeModule.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\dlgIMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgIMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieNativeModule.vb" />
+ <Compile Include="TVScraper\clsScrapeTVDB.vb" />
+ <Compile Include="TVScraper\dlgTVChangeEp.Designer.vb">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVChangeEp.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.Designer.vb">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.Designer.vb">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="frmTVMediaSettingsHolder.resx">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTVInfoSettingsHolder.resx">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgIMDBSearchResults.resx">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmMediaSettingsHolder.resx">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmInfoSettingsHolder.resx">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVChangeEp.resx">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVDBSearchResults.resx">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVEpisodePoster.resx">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVImageSelect.resx">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x64\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x86\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/scraperMovieNativeModule.vb b/Addons/scraper.TVDB.Data/scraperMovieNativeModule.vb
new file mode 100644
index 0000000..6889071
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/scraperMovieNativeModule.vb
@@ -0,0 +1,702 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private IMDB As New IMDB.Scraper
+ Private MySettings As New _MySettings
+ Private _Name As String = "Ember Native Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmInfoSettingsHolder
+ Private _setupPost As frmMediaSettingsHolder
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ If MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Poster
+ If MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer
+ dTrailer.IMDBURL = MySettings.IMDBURL
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ Dim IMDB As New IMDB.Scraper
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ IMDB.IMDBURL = MySettings.IMDBURL
+ studio = IMDB.GetMovieStudios(DBMovie.Movie.IMDBID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseTMDB.Checked = MySettings.UseTMDB
+ _setupPost.chkUseIMPA.Checked = MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = MySettings.UseMPDB
+ _setupPost.cbManualETSize.Text = MySettings.ManualETSize
+ _setupPost.cbActorThumbsSize.Text = MySettings.ActorThumbsSize
+ _setupPost.txtTimeout.Text = MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ Spanel.Prefix = "NativeMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return Spanel
+ End Function
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkPlot.Checked = ConfigOptions.bPlot
+ _setup.chkCast.Checked = ConfigOptions.bCast
+ _setup.chkDirector.Checked = ConfigOptions.bDirector
+ _setup.chkWriters.Checked = ConfigOptions.bWriters
+ _setup.chkProducers.Checked = ConfigOptions.bProducers
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkMusicBy.Checked = ConfigOptions.bMusicBy
+ _setup.chkCrew.Checked = ConfigOptions.bOtherCrew
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkTop250.Checked = ConfigOptions.bTop250
+ _setup.chkCertification.Checked = ConfigOptions.bCert
+ _setup.chkOFDBTitle.Checked = MySettings.UseOFDBTitle
+ _setup.chkOFDBOutline.Checked = MySettings.UseOFDBOutline
+ _setup.chkOFDBPlot.Checked = MySettings.UseOFDBPlot
+ _setup.chkOFDBGenre.Checked = MySettings.UseOFDBGenre
+ _setup.chkFullCast.Checked = ConfigOptions.bFullCast
+ _setup.chkFullCrew.Checked = ConfigOptions.bFullCrew
+
+ If String.IsNullOrEmpty(MySettings.IMDBURL) Then
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ _setup.txtIMDBURL.Text = MySettings.IMDBURL
+ _setup.orderChanged()
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ SPanel.Prefix = "NativeMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ MySettings.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ MySettings.UseOFDBTitle = AdvancedSettings.GetBooleanSetting("UseOFDBTitle", False)
+ MySettings.UseOFDBOutline = AdvancedSettings.GetBooleanSetting("UseOFDBOutline", False)
+ MySettings.UseOFDBPlot = AdvancedSettings.GetBooleanSetting("UseOFDBPlot", False)
+ MySettings.UseOFDBGenre = AdvancedSettings.GetBooleanSetting("UseOFDBGenre", False)
+ MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ MySettings.UseTMDB = AdvancedSettings.GetBooleanSetting("UseTMDB", True)
+ MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ MySettings.ActorThumbsSize = Convert.ToString(AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400"))
+ MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As New Trailers
+ LoadSettings()
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Trailer.IMDBURL = MySettings.IMDBURL
+ Dim doSave As Boolean = False
+ If Master.GlobalScrapeMod.Poster AndAlso (MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB) Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If ScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.IMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart AndAlso MySettings.UseTMDB Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If ScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.IMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ ScrapeImages.GetPreferredFAasET(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+ AdvancedSettings.SetSetting("IMDBURL", MySettings.IMDBURL)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("UseOFDBTitle", MySettings.UseOFDBTitle)
+ AdvancedSettings.SetBooleanSetting("UseOFDBOutline", MySettings.UseOFDBOutline)
+ AdvancedSettings.SetBooleanSetting("UseOFDBPlot", MySettings.UseOFDBPlot)
+ AdvancedSettings.SetBooleanSetting("UseOFDBGenre", MySettings.UseOFDBGenre)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseTMDB", MySettings.UseTMDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", MySettings.UseIMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", MySettings.UseTMDBTrailerXBMC)
+
+ AdvancedSettings.SetSetting("ManualETSize", MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("ActorThumbsSize", MySettings.ActorThumbsSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ 'AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ MySettings.UseTMDB = _setupPost.chkUseTMDB.Checked
+ MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ MySettings.ActorThumbsSize = _setupPost.cbActorThumbsSize.Text
+ MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtIMDBURL.Text) Then
+ MySettings.IMDBURL = Strings.Replace(_setup.txtIMDBURL.Text, "http://", String.Empty)
+ Else
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ MySettings.UseOFDBTitle = _setup.chkOFDBTitle.Checked
+ MySettings.UseOFDBOutline = _setup.chkOFDBOutline.Checked
+ MySettings.UseOFDBPlot = _setup.chkOFDBPlot.Checked
+ MySettings.UseOFDBGenre = _setup.chkOFDBGenre.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = _setup.chkPlot.Checked
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkDirector.Checked
+ ConfigOptions.bWriters = _setup.chkWriters.Checked
+ ConfigOptions.bProducers = _setup.chkProducers.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkMusicBy.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = _setup.chkTop250.Checked
+ ConfigOptions.bCert = _setup.chkCertification.Checked
+ ConfigOptions.bFullCrew = _setup.chkFullCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkFullCast.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ IMDB.IMDBURL = MySettings.IMDBURL
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = IMDB.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgIMDBSearchResults
+ dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect
+ If preload Then
+ dFImgSelect = New dlgImgSelect
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure _MySettings
+
+#Region "Fields"
+
+ Dim DownloadTrailers As Boolean
+ Dim IMDBURL As String
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseTMDBTrailer As Boolean
+ Dim UseIMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim ActorThumbsSize As String
+ Dim UseTMDBTrailerPref As String
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/scraperTVNativeModule.vb b/Addons/scraper.TVDB.Data/scraperTVNativeModule.vb
new file mode 100644
index 0000000..450e6d6
--- /dev/null
+++ b/Addons/scraper.TVDB.Data/scraperTVNativeModule.vb
@@ -0,0 +1,221 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeTVScraperModule
+ Implements Interfaces.EmberTVScraperModule
+
+#Region "Fields"
+
+ Public Shared TVScraper As New Scraper
+
+ Private _Name As String = "Ember Native TV Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTVInfoSettingsHolder
+ Private _setupPost As frmTVMediaSettingsHolder
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberTVScraperModule.ModuleSettingsChanged
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupPostScraperChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupScraperChanged
+
+ Public Event TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object) Implements Interfaces.EmberTVScraperModule.TVScraperEvent
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property IsBusy() As Boolean Implements Interfaces.EmberTVScraperModule.IsBusy
+ Get
+ Return TVScraper.IsBusy
+ End Get
+ End Property
+
+ Public ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleName() As String Implements Interfaces.EmberTVScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberTVScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Public Property PostScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Public Property ScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync() Implements Interfaces.EmberTVScraperModule.CancelAsync
+ TVScraper.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String, ByRef epDet As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ChangeEpisode
+ epDet = TVScraper.ChangeEpisode(ShowID, TVDBID, Lang)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String, ByRef Langs As List(Of Containers.TVLanguage)) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetLangs
+ Langs = TVScraper.GetLangs(sMirror)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByRef epDetails As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleEpisode
+ epDetails = TVScraper.GetSingleEpisode(ShowID, TVDBID, Season, Episode, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images, ByRef Image As Images) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleImage
+ Image = TVScraper.GetSingleImage(Title, ShowID, TVDBID, Type, Season, Episode, Lang, Ordering, CurrentImage)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Sub Handler_ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent TVScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberTVScraperModule.Init
+ AddHandler TVScraper.ScraperEvent, AddressOf Handler_ScraperEvent
+ End Sub
+
+ Public Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupPostScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setupPost = New frmTVMediaSettingsHolder
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "PostScraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setupPost.pnlSettings
+ SPanel.Parent = "pnlTVMedia"
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberTVScraperModule.ScraperUpdateMediaList
+ Public Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTVInfoSettingsHolder
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Prefix = "NativeTV_"
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setup.pnlSettings
+ SPanel.Parent = "pnlTVData"
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return SPanel
+ End Function
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+ Public Function PostScraper(ByRef DBTV As Structures.DBTV, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.PostScraper
+ End Function
+
+ Public Function SaveImages() As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.SaveImages
+ TVScraper.SaveImages()
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupPostScraper
+ End Sub
+
+ Public Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupScraper
+ End Sub
+
+ Public Function ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeEpisode
+ TVScraper.ScrapeEpisode(ShowID, ShowTitle, TVDBID, iEpisode, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function Scraper(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.Scraper
+ TVScraper.SingleScrape(ShowID, ShowTitle, TVDBID, Lang, Ordering, Options, ScrapeType, WithCurrent)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeSeason
+ TVScraper.ScrapeSeason(ShowID, ShowTitle, TVDBID, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Data/x64/SQLite.Interop.dll b/Addons/scraper.TVDB.Data/x64/SQLite.Interop.dll
new file mode 100644
index 0000000..860c0e5
Binary files /dev/null and b/Addons/scraper.TVDB.Data/x64/SQLite.Interop.dll differ
diff --git a/Addons/scraper.TVDB.Data/x86/SQLite.Interop.dll b/Addons/scraper.TVDB.Data/x86/SQLite.Interop.dll
new file mode 100644
index 0000000..6f6fd4f
Binary files /dev/null and b/Addons/scraper.TVDB.Data/x86/SQLite.Interop.dll differ
diff --git a/Addons/scraper.TVDB.Poster/AssemblyInfo.vb b/Addons/scraper.TVDB.Poster/AssemblyInfo.vb
new file mode 100644
index 0000000..1b59a44
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.EmberCore")>
+<Assembly: AssemblyDescription("www.embermm.com")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.EmberCore")>
+<Assembly: AssemblyCopyright("Copyright © 2011")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("4c4e9cbd-06e2-44ed-bbed-0f51f6c3f4ef")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.5")>
+<Assembly: AssemblyFileVersion("1.3.0.5")>
diff --git a/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Debug_(db_DB).xml b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Debug_(db_DB).xml
new file mode 100644
index 0000000..0fba5b0
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">native1</string>
+ <string id="2">native2</string>
+ <string id="3">native3</string>
+ <string id="4">native4</string>
+ <string id="5">native5</string>
+ <string id="6">native6</string>
+ <string id="7">native7</string>
+ <string id="8">native8</string>
+ <string id="9">native9</string>
+ <string id="10">native10</string>
+ <string id="11">native11</string>
+ <string id="12">native12</string>
+ <string id="13">native13</string>
+ <string id="14">native14</string>
+ <string id="15">native15</string>
+ <string id="16">native16</string>
+ <string id="17">native17</string>
+ <string id="18">native18</string>
+ <string id="19">native19</string>
+ <string id="20">native20</string>
+ <string id="21">native21</string>
+ <string id="22">native22</string>
+ <string id="23">native23</string>
+ <string id="24">native24</string>
+ <string id="25">native25</string>
+ <string id="26">native26</string>
+ <string id="27">native27</string>
+ <string id="28">native28</string>
+ <string id="29">native29</string>
+ <string id="30">native30</string>
+ <string id="31">native31</string>
+ <string id="32">native32</string>
+ <string id="33">native33</string>
+ <string id="34">native34</string>
+ <string id="35">native35</string>
+ <string id="36">native36</string>
+ <string id="37">native37</string>
+ <string id="38">native38</string>
+ <string id="39">native39</string>
+ <string id="40">native40</string>
+ <string id="41">native41</string>
+ <string id="42">native42</string>
+ <string id="43">native43</string>
+ <string id="44">native44</string>
+ <string id="45">native45</string>
+ <string id="46">native46</string>
+ <string id="47">native47</string>
+ <string id="48">native48</string>
+ <string id="49">native49</string>
+ <string id="50">native50</string>
+ <string id="51">native51</string>
+ <string id="52">native52</string>
+ <string id="53">native53</string>
+ <string id="54">native54</string>
+ <string id="55">native55</string>
+ <string id="56">native56</string>
+ <string id="57">native57</string>
+ <string id="58">native58</string>
+ <string id="59">native59</string>
+ <string id="60">native60</string>
+ <string id="61">native61</string>
+ <string id="62">native62</string>
+ <string id="63">native63</string>
+ <string id="64">native64</string>
+ <string id="65">native65</string>
+ <string id="66">native66</string>
+ <string id="67">native67</string>
+ <string id="68">native68</string>
+ <string id="69">native69</string>
+ <string id="70">native70</string>
+ <string id="71">native71</string>
+ <string id="72">native72</string>
+ <string id="73">native73</string>
+ <string id="74">native74</string>
+ <string id="75">native75</string>
+ <string id="76">native76</string>
+ <string id="77">native77</string>
+ <string id="78">native78</string>
+ <string id="79">native79</string>
+ <string id="80">native80</string>
+ <string id="81">native81</string>
+ <string id="82">native82</string>
+ <string id="83">native83</string>
+ <string id="84">native84</string>
+ <string id="85">native85</string>
+ <string id="86">native86</string>
+ <string id="87">native87</string>
+ <string id="88">native88</string>
+ <string id="89">native89</string>
+ <string id="90">native90</string>
+ <string id="91">native91</string>
+ <string id="92">native92</string>
+ <string id="93">native93</string>
+ <string id="94">native94</string>
+ <string id="95">native95</string>
+ <string id="96">native96</string>
+ <string id="97">native97</string>
+ <string id="98">native98</string>
+ <string id="99">native99</string>
+ <string id="100">native100</string>
+ <string id="101">native101</string>
+ <string id="102">native102</string>
+ <string id="103">native103</string>
+ <string id="104">native104</string>
+ <string id="105">native105</string>
+ <string id="106">native106</string>
+ <string id="107">native107</string>
+ <string id="108">native108</string>
+ <string id="109">native109</string>
+ <string id="110">native110</string>
+ <string id="111">native111</string>
+ <string id="112">native112</string>
+ <string id="113">native113</string>
+ <string id="114">native114</string>
+ <string id="115">native115</string>
+ <string id="116">native116</string>
+ <string id="117">native117</string>
+ <string id="118">native118</string>
+ <string id="119">native119</string>
+ <string id="120">native120</string>
+ <string id="121">native121</string>
+ <string id="122">native122</string>
+ <string id="123">native123</string>
+ <string id="124">native124</string>
+ <string id="125">native125</string>
+ <string id="126">native126</string>
+ <string id="127">native127</string>
+ <string id="128">native128</string>
+ <string id="129">native129</string>
+ <string id="130">native130</string>
+ <string id="131">native131</string>
+ <string id="132">native132</string>
+ <string id="133">native133</string>
+ <string id="134">native134</string>
+ <string id="135">native135</string>
+ <string id="136">native136</string>
+ <string id="137">native137</string>
+ <string id="138">native138</string>
+ <string id="139">native139</string>
+ <string id="140">native140</string>
+ <string id="141">native141</string>
+ <string id="142">native142</string>
+ <string id="143">native143</string>
+ <string id="144">native144</string>
+ <string id="145">native145</string>
+ <string id="146">native146</string>
+ <string id="147">native147</string>
+ <string id="148">native148</string>
+ <string id="149">native149</string>
+ <string id="150">native150</string>
+ <string id="151">native151</string>
+ <string id="152">native152</string>
+ <string id="153">native153</string>
+ <string id="154">native154</string>
+ <string id="155">native155</string>
+ <string id="156">native156</string>
+ <string id="157">native157</string>
+ <string id="158">native158</string>
+ <string id="159">native159</string>
+ <string id="160">native160</string>
+ <string id="161">native161</string>
+ <string id="162">native162</string>
+ <string id="163">native163</string>
+ <string id="164">native164</string>
+ <string id="165">native165</string>
+ <string id="166">native166</string>
+ <string id="167">native167</string>
+ <string id="168">native168</string>
+ <string id="169">native169</string>
+ <string id="170">native170</string>
+ <string id="171">native171</string>
+ <string id="172">native172</string>
+ <string id="173">native173</string>
+ <string id="174">native174</string>
+ <string id="175">native175</string>
+ <string id="176">native176</string>
+ <string id="177">native177</string>
+ <string id="178">native178</string>
+ <string id="179">native179</string>
+ <string id="180">native180</string>
+ <string id="181">native181</string>
+ <string id="182">native182</string>
+ <string id="183">native183</string>
+ <string id="184">native184</string>
+ <string id="185">native185</string>
+ <string id="186">native186</string>
+ <string id="187">native187</string>
+ <string id="188">native188</string>
+ <string id="189">native189</string>
+ <string id="190">native190</string>
+ <string id="191">native191</string>
+ <string id="192">native192</string>
+ <string id="193">native193</string>
+ <string id="194">native194</string>
+ <string id="195">native195</string>
+ <string id="196">native196</string>
+ <string id="197">native197</string>
+ <string id="198">native198</string>
+ <string id="199">native199</string>
+ <string id="200">native200</string>
+ <string id="201">native201</string>
+ <string id="202">native202</string>
+ <string id="203">native203</string>
+ <string id="204">native204</string>
+ <string id="205">native205</string>
+ <string id="206">native206</string>
+ <string id="207">native207</string>
+ <string id="208">native208</string>
+ <string id="209">native209</string>
+ <string id="210">native210</string>
+ <string id="211">native211</string>
+ <string id="212">native212</string>
+ <string id="213">native213</string>
+ <string id="214">native214</string>
+ <string id="215">native215</string>
+ <string id="216">native216</string>
+ <string id="217">native217</string>
+ <string id="218">native218</string>
+ <string id="219">native219</string>
+ <string id="220">native220</string>
+ <string id="221">native221</string>
+ <string id="222">native222</string>
+ <string id="223">native223</string>
+ <string id="224">native224</string>
+ <string id="225">native225</string>
+ <string id="226">native226</string>
+ <string id="227">native227</string>
+ <string id="228">native228</string>
+ <string id="229">native229</string>
+ <string id="230">native230</string>
+ <string id="231">native231</string>
+ <string id="232">native232</string>
+ <string id="233">native233</string>
+ <string id="234">native234</string>
+ <string id="235">native235</string>
+ <string id="236">native236</string>
+ <string id="237">native237</string>
+ <string id="238">native238</string>
+ <string id="239">native239</string>
+ <string id="240">native240</string>
+ <string id="241">native241</string>
+ <string id="242">native242</string>
+ <string id="243">native243</string>
+ <string id="244">native244</string>
+ <string id="245">native245</string>
+ <string id="246">native246</string>
+ <string id="247">native247</string>
+ <string id="248">native248</string>
+ <string id="249">native249</string>
+ <string id="250">native250</string>
+ <string id="251">native251</string>
+ <string id="252">native252</string>
+ <string id="253">native253</string>
+ <string id="254">native254</string>
+ <string id="255">native255</string>
+ <string id="256">native256</string>
+ <string id="257">native257</string>
+ <string id="258">native258</string>
+ <string id="259">native259</string>
+ <string id="260">native260</string>
+ <string id="261">native261</string>
+ <string id="262">native262</string>
+ <string id="263">native263</string>
+ <string id="264">native264</string>
+ <string id="265">native265</string>
+ <string id="266">native266</string>
+ <string id="267">native267</string>
+ <string id="268">native268</string>
+ <string id="269">native269</string>
+ <string id="270">native270</string>
+ <string id="271">native271</string>
+ <string id="272">native272</string>
+ <string id="273">native273</string>
+ <string id="274">native274</string>
+ <string id="275">native275</string>
+ <string id="276">native276</string>
+ <string id="277">native277</string>
+ <string id="278">native278</string>
+ <string id="279">native279</string>
+ <string id="280">native280</string>
+ <string id="281">native281</string>
+ <string id="282">native282</string>
+ <string id="283">native283</string>
+ <string id="284">native284</string>
+ <string id="285">native285</string>
+ <string id="286">native286</string>
+ <string id="287">native287</string>
+ <string id="288">native288</string>
+ <string id="289">native289</string>
+ <string id="290">native290</string>
+ <string id="291">native291</string>
+ <string id="292">native292</string>
+ <string id="293">native293</string>
+ <string id="294">native294</string>
+ <string id="295">native295</string>
+ <string id="296">native296</string>
+ <string id="297">native297</string>
+ <string id="298">native298</string>
+ <string id="299">native299</string>
+ <string id="300">native300</string>
+ <string id="301">native301</string>
+ <string id="302">native302</string>
+ <string id="303">native303</string>
+ <string id="304">native304</string>
+ <string id="305">native305</string>
+ <string id="306">native306</string>
+ <string id="307">native307</string>
+ <string id="308">native308</string>
+ <string id="309">native309</string>
+ <string id="310">native310</string>
+ <string id="311">native311</string>
+ <string id="312">native312</string>
+ <string id="313">native313</string>
+ <string id="314">native314</string>
+ <string id="315">native315</string>
+ <string id="316">native316</string>
+ <string id="317">native317</string>
+ <string id="318">native318</string>
+ <string id="319">native319</string>
+ <string id="320">native320</string>
+ <string id="321">native321</string>
+ <string id="322">native322</string>
+ <string id="323">native323</string>
+ <string id="324">native324</string>
+ <string id="325">native325</string>
+ <string id="326">native326</string>
+ <string id="327">native327</string>
+ <string id="328">native328</string>
+ <string id="329">native329</string>
+ <string id="330">native330</string>
+ <string id="331">native331</string>
+ <string id="332">native332</string>
+ <string id="333">native333</string>
+ <string id="334">native334</string>
+ <string id="335">native335</string>
+ <string id="336">native336</string>
+ <string id="337">native337</string>
+ <string id="338">native338</string>
+ <string id="339">native339</string>
+ <string id="340">native340</string>
+ <string id="341">native341</string>
+ <string id="342">native342</string>
+ <string id="343">native343</string>
+ <string id="344">native344</string>
+ <string id="345">native345</string>
+ <string id="346">native346</string>
+ <string id="347">native347</string>
+ <string id="348">native348</string>
+ <string id="349">native349</string>
+ <string id="350">native350</string>
+ <string id="351">native351</string>
+ <string id="352">native352</string>
+ <string id="353">native353</string>
+ <string id="354">native354</string>
+ <string id="355">native355</string>
+ <string id="356">native356</string>
+ <string id="357">native357</string>
+ <string id="358">native358</string>
+ <string id="359">native359</string>
+ <string id="360">native360</string>
+ <string id="361">native361</string>
+ <string id="362">native362</string>
+ <string id="363">native363</string>
+ <string id="364">native364</string>
+ <string id="365">native365</string>
+ <string id="366">native366</string>
+ <string id="367">native367</string>
+ <string id="368">native368</string>
+ <string id="369">native369</string>
+ <string id="370">native370</string>
+ <string id="371">native371</string>
+ <string id="372">native372</string>
+ <string id="373">native373</string>
+ <string id="374">native374</string>
+ <string id="375">native375</string>
+ <string id="376">native376</string>
+ <string id="377">native377</string>
+ <string id="378">native378</string>
+ <string id="379">native379</string>
+ <string id="380">native380</string>
+ <string id="381">native381</string>
+ <string id="382">native382</string>
+ <string id="383">native383</string>
+ <string id="384">native384</string>
+ <string id="385">native385</string>
+ <string id="386">native386</string>
+ <string id="387">native387</string>
+ <string id="388">native388</string>
+ <string id="389">native389</string>
+ <string id="390">native390</string>
+ <string id="391">native391</string>
+ <string id="392">native392</string>
+ <string id="393">native393</string>
+ <string id="394">native394</string>
+ <string id="395">native395</string>
+ <string id="396">native396</string>
+ <string id="397">native397</string>
+ <string id="398">native398</string>
+ <string id="399">native399</string>
+ <string id="400">native400</string>
+ <string id="401">native401</string>
+ <string id="402">native402</string>
+ <string id="403">native403</string>
+ <string id="404">native404</string>
+ <string id="405">native405</string>
+ <string id="406">native406</string>
+ <string id="407">native407</string>
+ <string id="408">native408</string>
+ <string id="409">native409</string>
+ <string id="410">native410</string>
+ <string id="411">native411</string>
+ <string id="412">native412</string>
+ <string id="413">native413</string>
+ <string id="414">native414</string>
+ <string id="415">native415</string>
+ <string id="416">native416</string>
+ <string id="417">native417</string>
+ <string id="418">native418</string>
+ <string id="419">native419</string>
+ <string id="420">native420</string>
+ <string id="421">native421</string>
+ <string id="422">native422</string>
+ <string id="423">native423</string>
+ <string id="424">native424</string>
+ <string id="425">native425</string>
+ <string id="426">native426</string>
+ <string id="427">native427</string>
+ <string id="428">native428</string>
+ <string id="429">native429</string>
+ <string id="430">native430</string>
+ <string id="431">native431</string>
+ <string id="432">native432</string>
+ <string id="433">native433</string>
+ <string id="434">native434</string>
+ <string id="435">native435</string>
+ <string id="436">native436</string>
+ <string id="437">native437</string>
+ <string id="438">native438</string>
+ <string id="439">native439</string>
+ <string id="440">native440</string>
+ <string id="441">native441</string>
+ <string id="442">native442</string>
+ <string id="443">native443</string>
+ <string id="444">native444</string>
+ <string id="445">native445</string>
+ <string id="446">native446</string>
+ <string id="447">native447</string>
+ <string id="448">native448</string>
+ <string id="449">native449</string>
+ <string id="450">native450</string>
+ <string id="451">native451</string>
+ <string id="452">native452</string>
+ <string id="453">native453</string>
+ <string id="454">native454</string>
+ <string id="455">native455</string>
+ <string id="456">native456</string>
+ <string id="457">native457</string>
+ <string id="458">native458</string>
+ <string id="459">native459</string>
+ <string id="460">native460</string>
+ <string id="461">native461</string>
+ <string id="462">native462</string>
+ <string id="463">native463</string>
+ <string id="464">native464</string>
+ <string id="465">native465</string>
+ <string id="466">native466</string>
+ <string id="467">native467</string>
+ <string id="468">native468</string>
+ <string id="469">native469</string>
+ <string id="470">native470</string>
+ <string id="471">native471</string>
+ <string id="472">native472</string>
+ <string id="473">native473</string>
+ <string id="474">native474</string>
+ <string id="475">native475</string>
+ <string id="476">native476</string>
+ <string id="477">native477</string>
+ <string id="478">native478</string>
+ <string id="479">native479</string>
+ <string id="480">native480</string>
+ <string id="481">native481</string>
+ <string id="482">native482</string>
+ <string id="483">native483</string>
+ <string id="484">native484</string>
+ <string id="485">native485</string>
+ <string id="486">native486</string>
+ <string id="487">native487</string>
+ <string id="488">native488</string>
+ <string id="489">native489</string>
+ <string id="490">native490</string>
+ <string id="491">native491</string>
+ <string id="492">native492</string>
+ <string id="493">native493</string>
+ <string id="494">native494</string>
+ <string id="495">native495</string>
+ <string id="496">native496</string>
+ <string id="497">native497</string>
+ <string id="498">native498</string>
+ <string id="499">native499</string>
+ <string id="500">native500</string>
+ <string id="501">native501</string>
+ <string id="502">native502</string>
+ <string id="503">native503</string>
+ <string id="504">native504</string>
+ <string id="505">native505</string>
+ <string id="506">native506</string>
+ <string id="507">native507</string>
+ <string id="508">native508</string>
+ <string id="509">native509</string>
+ <string id="510">native510</string>
+ <string id="511">native511</string>
+ <string id="512">native512</string>
+ <string id="513">native513</string>
+ <string id="514">native514</string>
+ <string id="515">native515</string>
+ <string id="516">native516</string>
+ <string id="517">native517</string>
+ <string id="518">native518</string>
+ <string id="519">native519</string>
+ <string id="520">native520</string>
+ <string id="521">native521</string>
+ <string id="522">native522</string>
+ <string id="523">native523</string>
+ <string id="524">native524</string>
+ <string id="525">native525</string>
+ <string id="526">native526</string>
+ <string id="527">native527</string>
+ <string id="528">native528</string>
+ <string id="529">native529</string>
+ <string id="530">native530</string>
+ <string id="531">native531</string>
+ <string id="532">native532</string>
+ <string id="533">native533</string>
+ <string id="534">native534</string>
+ <string id="535">native535</string>
+ <string id="536">native536</string>
+ <string id="537">native537</string>
+ <string id="538">native538</string>
+ <string id="539">native539</string>
+ <string id="540">native540</string>
+ <string id="541">native541</string>
+ <string id="542">native542</string>
+ <string id="543">native543</string>
+ <string id="544">native544</string>
+ <string id="545">native545</string>
+ <string id="546">native546</string>
+ <string id="547">native547</string>
+ <string id="548">native548</string>
+ <string id="549">native549</string>
+ <string id="550">native550</string>
+ <string id="551">native551</string>
+ <string id="552">native552</string>
+ <string id="553">native553</string>
+ <string id="554">native554</string>
+ <string id="555">native555</string>
+ <string id="556">native556</string>
+ <string id="557">native557</string>
+ <string id="558">native558</string>
+ <string id="559">native559</string>
+ <string id="560">native560</string>
+ <string id="561">native561</string>
+ <string id="562">native562</string>
+ <string id="563">native563</string>
+ <string id="564">native564</string>
+ <string id="565">native565</string>
+ <string id="566">native566</string>
+ <string id="567">native567</string>
+ <string id="568">native568</string>
+ <string id="569">native569</string>
+ <string id="570">native570</string>
+ <string id="571">native571</string>
+ <string id="572">native572</string>
+ <string id="573">native573</string>
+ <string id="574">native574</string>
+ <string id="575">native575</string>
+ <string id="576">native576</string>
+ <string id="577">native577</string>
+ <string id="578">native578</string>
+ <string id="579">native579</string>
+ <string id="580">native580</string>
+ <string id="581">native581</string>
+ <string id="582">native582</string>
+ <string id="583">native583</string>
+ <string id="584">native584</string>
+ <string id="585">native585</string>
+ <string id="586">native586</string>
+ <string id="587">native587</string>
+ <string id="588">native588</string>
+ <string id="589">native589</string>
+ <string id="590">native590</string>
+ <string id="591">native591</string>
+ <string id="592">native592</string>
+ <string id="593">native593</string>
+ <string id="594">native594</string>
+ <string id="595">native595</string>
+ <string id="596">native596</string>
+ <string id="597">native597</string>
+ <string id="598">native598</string>
+ <string id="599">native599</string>
+ <string id="600">native600</string>
+ <string id="601">native601</string>
+ <string id="602">native602</string>
+ <string id="603">native603</string>
+ <string id="604">native604</string>
+ <string id="605">native605</string>
+ <string id="606">native606</string>
+ <string id="607">native607</string>
+ <string id="608">native608</string>
+ <string id="609">native609</string>
+ <string id="610">native610</string>
+ <string id="611">native611</string>
+ <string id="612">native612</string>
+ <string id="613">native613</string>
+ <string id="614">native614</string>
+ <string id="615">native615</string>
+ <string id="616">native616</string>
+ <string id="617">native617</string>
+ <string id="618">native618</string>
+ <string id="619">native619</string>
+ <string id="620">native620</string>
+ <string id="621">native621</string>
+ <string id="622">native622</string>
+ <string id="623">native623</string>
+ <string id="624">native624</string>
+ <string id="625">native625</string>
+ <string id="626">native626</string>
+ <string id="627">native627</string>
+ <string id="628">native628</string>
+ <string id="629">native629</string>
+ <string id="630">native630</string>
+ <string id="631">native631</string>
+ <string id="632">native632</string>
+ <string id="633">native633</string>
+ <string id="634">native634</string>
+ <string id="635">native635</string>
+ <string id="636">native636</string>
+ <string id="637">native637</string>
+ <string id="638">native638</string>
+ <string id="639">native639</string>
+ <string id="640">native640</string>
+ <string id="641">native641</string>
+ <string id="642">native642</string>
+ <string id="643">native643</string>
+ <string id="644">native644</string>
+ <string id="645">native645</string>
+ <string id="646">native646</string>
+ <string id="647">native647</string>
+ <string id="648">native648</string>
+ <string id="649">native649</string>
+ <string id="650">native650</string>
+ <string id="651">native651</string>
+ <string id="652">native652</string>
+ <string id="653">native653</string>
+ <string id="654">native654</string>
+ <string id="655">native655</string>
+ <string id="656">native656</string>
+ <string id="657">native657</string>
+ <string id="658">native658</string>
+ <string id="659">native659</string>
+ <string id="660">native660</string>
+ <string id="661">native661</string>
+ <string id="662">native662</string>
+ <string id="663">native663</string>
+ <string id="664">native664</string>
+ <string id="665">native665</string>
+ <string id="666">native666</string>
+ <string id="667">native667</string>
+ <string id="668">native668</string>
+ <string id="669">native669</string>
+ <string id="670">native670</string>
+ <string id="671">native671</string>
+ <string id="672">native672</string>
+ <string id="673">native673</string>
+ <string id="674">native674</string>
+ <string id="675">native675</string>
+ <string id="676">native676</string>
+ <string id="677">native677</string>
+ <string id="678">native678</string>
+ <string id="679">native679</string>
+ <string id="680">native680</string>
+ <string id="681">native681</string>
+ <string id="682">native682</string>
+ <string id="683">native683</string>
+ <string id="684">native684</string>
+ <string id="685">native685</string>
+ <string id="686">native686</string>
+ <string id="687">native687</string>
+ <string id="688">native688</string>
+ <string id="689">native689</string>
+ <string id="690">native690</string>
+ <string id="691">native691</string>
+ <string id="692">native692</string>
+ <string id="693">native693</string>
+ <string id="694">native694</string>
+ <string id="695">native695</string>
+ <string id="696">native696</string>
+ <string id="697">native697</string>
+ <string id="698">native698</string>
+ <string id="699">native699</string>
+ <string id="700">native700</string>
+ <string id="701">native701</string>
+ <string id="702">native702</string>
+ <string id="703">native703</string>
+ <string id="704">native704</string>
+ <string id="705">native705</string>
+ <string id="706">native706</string>
+ <string id="707">native707</string>
+ <string id="708">native708</string>
+ <string id="709">native709</string>
+ <string id="710">native710</string>
+ <string id="711">native711</string>
+ <string id="712">native712</string>
+ <string id="713">native713</string>
+ <string id="714">native714</string>
+ <string id="715">native715</string>
+ <string id="716">native716</string>
+ <string id="717">native717</string>
+ <string id="718">native718</string>
+ <string id="719">native719</string>
+ <string id="720">native720</string>
+ <string id="721">native721</string>
+ <string id="722">native722</string>
+ <string id="723">native723</string>
+ <string id="724">native724</string>
+ <string id="725">native725</string>
+ <string id="726">native726</string>
+ <string id="727">native727</string>
+ <string id="728">native728</string>
+ <string id="729">native729</string>
+ <string id="730">native730</string>
+ <string id="731">native731</string>
+ <string id="732">native732</string>
+ <string id="733">native733</string>
+ <string id="734">native734</string>
+ <string id="735">native735</string>
+ <string id="736">native736</string>
+ <string id="737">native737</string>
+ <string id="738">native738</string>
+ <string id="739">native739</string>
+ <string id="740">native740</string>
+ <string id="741">native741</string>
+ <string id="742">native742</string>
+ <string id="743">native743</string>
+ <string id="744">native744</string>
+ <string id="745">native745</string>
+ <string id="746">native746</string>
+ <string id="747">native747</string>
+ <string id="748">native748</string>
+ <string id="749">native749</string>
+ <string id="750">native750</string>
+ <string id="751">native751</string>
+ <string id="752">native752</string>
+ <string id="753">native753</string>
+ <string id="754">native754</string>
+ <string id="755">native755</string>
+ <string id="756">native756</string>
+ <string id="757">native757</string>
+ <string id="758">native758</string>
+ <string id="759">native759</string>
+ <string id="760">native760</string>
+ <string id="761">native761</string>
+ <string id="762">native762</string>
+ <string id="763">native763</string>
+ <string id="764">native764</string>
+ <string id="765">native765</string>
+ <string id="766">native766</string>
+ <string id="767">native767</string>
+ <string id="768">native768</string>
+ <string id="769">native769</string>
+ <string id="770">native770</string>
+ <string id="771">native771</string>
+ <string id="772">native772</string>
+ <string id="773">native773</string>
+ <string id="774">native774</string>
+ <string id="775">native775</string>
+ <string id="776">native776</string>
+ <string id="777">native777</string>
+ <string id="778">native778</string>
+ <string id="779">native779</string>
+ <string id="780">native780</string>
+ <string id="781">native781</string>
+ <string id="782">native782</string>
+ <string id="783">native783</string>
+ <string id="784">native784</string>
+ <string id="785">native785</string>
+ <string id="786">native786</string>
+ <string id="787">native787</string>
+ <string id="788">native788</string>
+ <string id="789">native789</string>
+ <string id="790">native790</string>
+ <string id="791">native791</string>
+ <string id="792">native792</string>
+ <string id="793">native793</string>
+ <string id="794">native794</string>
+ <string id="795">native795</string>
+ <string id="796">native796</string>
+ <string id="797">native797</string>
+ <string id="798">native798</string>
+ <string id="799">native799</string>
+ <string id="800">native800</string>
+ <string id="801">native801</string>
+ <string id="802">native802</string>
+ <string id="803">native803</string>
+ <string id="804">native804</string>
+ <string id="805">native805</string>
+ <string id="806">native806</string>
+ <string id="807">native807</string>
+ <string id="808">native808</string>
+ <string id="809">native809</string>
+ <string id="810">native810</string>
+ <string id="811">native811</string>
+ <string id="812">native812</string>
+ <string id="813">native813</string>
+ <string id="814">native814</string>
+ <string id="815">native815</string>
+ <string id="816">native816</string>
+ <string id="817">native817</string>
+ <string id="818">native818</string>
+ <string id="819">native819</string>
+ <string id="820">native820</string>
+ <string id="821">native821</string>
+ <string id="822">native822</string>
+ <string id="823">native823</string>
+ <string id="824">native824</string>
+ <string id="825">native825</string>
+ <string id="826">native826</string>
+ <string id="827">native827</string>
+ <string id="828">native828</string>
+ <string id="829">native829</string>
+ <string id="830">native830</string>
+ <string id="831">native831</string>
+ <string id="832">native832</string>
+ <string id="833">native833</string>
+ <string id="834">native834</string>
+ <string id="835">native835</string>
+ <string id="836">native836</string>
+ <string id="837">native837</string>
+ <string id="838">native838</string>
+ <string id="839">native839</string>
+ <string id="840">native840</string>
+ <string id="841">native841</string>
+ <string id="842">native842</string>
+ <string id="843">native843</string>
+ <string id="844">native844</string>
+ <string id="845">native845</string>
+ <string id="846">native846</string>
+ <string id="847">native847</string>
+ <string id="848">native848</string>
+ <string id="849">native849</string>
+ <string id="850">native850</string>
+ <string id="851">native851</string>
+ <string id="852">native852</string>
+ <string id="853">native853</string>
+ <string id="854">native854</string>
+ <string id="855">native855</string>
+ <string id="856">native856</string>
+ <string id="857">native857</string>
+ <string id="858">native858</string>
+ <string id="859">native859</string>
+ <string id="860">native860</string>
+ <string id="861">native861</string>
+ <string id="862">native862</string>
+ <string id="863">native863</string>
+ <string id="864">native864</string>
+ <string id="865">native865</string>
+ <string id="866">native866</string>
+ <string id="867">native867</string>
+ <string id="868">native868</string>
+ <string id="869">native869</string>
+ <string id="870">native870</string>
+ <string id="871">native871</string>
+ <string id="872">native872</string>
+ <string id="873">native873</string>
+ <string id="874">native874</string>
+ <string id="875">native875</string>
+ <string id="876">native876</string>
+ <string id="877">native877</string>
+ <string id="878">native878</string>
+ <string id="879">native879</string>
+ <string id="880">native880</string>
+ <string id="881">native881</string>
+ <string id="882">native882</string>
+ <string id="883">native883</string>
+ <string id="884">native884</string>
+ <string id="885">native885</string>
+ <string id="886">native886</string>
+ <string id="887">native887</string>
+ <string id="888">native888</string>
+ <string id="889">native889</string>
+ <string id="890">native890</string>
+ <string id="891">native891</string>
+ <string id="892">native892</string>
+ <string id="893">native893</string>
+ <string id="894">native894</string>
+ <string id="895">native895</string>
+ <string id="896">native896</string>
+ <string id="897">native897</string>
+ <string id="898">native898</string>
+ <string id="899">native899</string>
+ <string id="900">native900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.English_(en_US)-Help.xml b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.English_(en_US)-Help.xml
new file mode 100644
index 0000000..1705beb
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.English_(en_US)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="NativeMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Enter the mirror to use when retrieving information from IMDB.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">If enabled, Ember will attempt to retreive the movie title from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">If enabled, Ember will attempt to retreive the movie outline from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">If enabled, Ember will attempt to retreive the movie plot from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">If enabled, Ember will attempt to retreive the movie genre from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="NativeMovieInfo_chkTop250">Enable scraping movie Top 250 ranking.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Limit the number of scraped genres to the entered value.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Limit the number of scraped actors to the entered value.</string>
+ <string control="NativeMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Enable scraping movie musicians. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkProducers">Enable scraping movie producers. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkWriters">Enable scraping movie writers.</string>
+ <string control="NativeMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="NativeMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="NativeMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="NativeMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="NativeMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="NativeMovieInfo_chkDirector">Enable scraping movie director.</string>
+ <string control="NativeMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="NativeMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="NativeMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="NativeMovieInfo_chkTrailer">Enable scraping movie trailer url.</string>
+ <string control="NativeMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="NativeMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="NativeMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="NativeMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="NativeMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="NativeMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="NativeMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Enable retrieving images from theMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Enable retrieving images from</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Enable retrieving images from MoviePosterDB.com.</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Enable automatic extraction of extrathumbs from this module. (Refer to global extrathumb settings for more options)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="NativeMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.English_(en_US).xml b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.English_(en_US).xml
new file mode 100644
index 0000000..87a19b5
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.English_(en_US).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">IMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching IMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17">Partial Matches ({0})</string>
+ <string id="18">Exact Matches ({0})</string>
+ <string id="19">Popular Titles ({0})</string>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching IMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember Native Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Open In Browser</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.German_(de_DE)-Help.xml b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..f4c930d
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Aktiviert dieses Modul.</string>
+ <string control="NativeMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Gib den Mirror ein über den Ember mit der IMDB kommunizieren soll.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">Wenn aktiviert versucht Ember den Titel von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">Wenn aktiviert versucht Ember die Kurzebschreibung von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">Wenn aktiviert versucht Ember die Inhaltsangabe von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">Wenn aktiviert versucht Ember die Genres von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkCertification">Aktiviert das Scrapen der Altersbeschränkung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTop250">Aktiviert das Scrapen der IMDB Top250 mit diesem Modul.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Die Anzahl der gescrapten Genres limitieren.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Die Anzahl der gescrapten Schauspieler limitieren.</string>
+ <string control="NativeMovieInfo_chkCrew">Aktiviert das Scrapen der Sonstigen Crew mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Aktiviert das Scrapen der Musiker mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkProducers">Aktiviert das Scrapen der Produzenten mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkWriters">Aktiviert das Scrapen der Autoren mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkStudio">Aktiviert das Scrapen des Studios mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRuntime">Aktiviert das Scrapen der Spielzeit mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkPlot">Aktiviert das Scrapen des Inhalts mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkOutline">Aktiviert das Scrapen der Kurzbeschreibung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkGenre">Aktiviert das Scrapen von Genre mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkDirector">Aktiviert das Scrapen des Regisseurs mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTagline">Aktiviert das Scrapen der Tagline mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkCast">Aktiviert das Scrapen der Schauspieler mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkVotes">Aktiviert das Scrapen der Anzahl Bewertungen mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTrailer">Aktiviert das Scrapen von Trailern mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRating">Aktiviert das Scrapen der Bewertung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRelease">Aktiviert das Scrapen des Premiere Datums mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkMPAA">Aktiviert das Scrapen der MPAA Bewertung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkYear">Aktiviert das Scrapen des Jahres mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTitle">Aktiviert das Scrapen des Titels mit diesem Modul.</string>
+ <string control="NativeMovieMedia_cbEnabled">Aktiviert dieses Modul.</string>
+ <string control="NativeMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanart mit diesem Modul. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Aktiviert das Laden von Bildern von TheMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Aktiviert das Laden von Bildern von IMPA</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Aktiviert das Laden von Bildern von MoviePosterDB.com.</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Automatische Frame extraktion mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Trailer laden mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Zeite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.German_(de_DE).xml b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.German_(de_DE).xml
new file mode 100644
index 0000000..0349557
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.German_(de_DE).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">IMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der IMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17">Teil Treffer ({0})</string>
+ <string id="18">Exakte Treffer({0})</string>
+ <string id="19">Populäre Titel ({0})</string>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der IMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert.</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert.</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert.</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Alle Thumbs</string>
+ <string id="42">Alle Mittl.</string>
+ <string id="43">Alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">mittel</string>
+ <string id="50">klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">klein ({0}x{1})</string>
+ <string id="54">mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Trailer...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Man. Trailer</string>
+ <string id="67">Direktlink oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Lokaler Trailer:</string>
+ <string id="71">Die Videoformat Linkliste konnte nicht generiert werden.</string>
+ <string id="72">Fehler beim generieren der Videoformat Linkliste</string>
+ <string id="73">Format wählen</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine gewünschte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gast Star</string>
+ <string id="83">Die eingegebene ID ist keine gültige TVDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Posters</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember Nativer Film Scraper</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Im Browser öffnen</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..79a98bf
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Slå modulen av eller på.</string>
+ <string control="NativeMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Før inn speilserver til IMDB.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">Hvis påslått, EMM vil å prøve å finne filmtittel fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">Hvis påslått, EMM vil prøve å finne beskrivelse av filmen på OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">Hvis påslått, EMM vil hente filmhistorien fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">Hvis påslått, EMM vil hente filmsjanger fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="NativeMovieInfo_chkTop250">Slå på detaljhenting av IMDB Top 250-plassering.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Begrens antall detaljhentede sjangre.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Begrens antall skuespillere.</string>
+ <string control="NativeMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Slå på detaljhenting av musikere. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkProducers">Slå på detaljhenting av filmprodusenter. (Detaljhenting av full crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkWriters">Slå på detaljhenting av manusforfattere.</string>
+ <string control="NativeMovieInfo_chkStudio">Slå på detaljhenting av studio.</string>
+ <string control="NativeMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="NativeMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="NativeMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="NativeMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="NativeMovieInfo_chkDirector">Slå på detaljhetning av filmens regissør.</string>
+ <string control="NativeMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="NativeMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="NativeMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="NativeMovieInfo_chkTrailer">Slå på detaljhetning av filmens trailer URL.</string>
+ <string control="NativeMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="NativeMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="NativeMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="NativeMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="NativeMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="NativeMovieMedia_cbEnabled">Slå modulen av eller på.</string>
+ <string control="NativeMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Slå på bildehenting fra theMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Slå på bildehenting fra</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Slå på bildehenting fra MoviePosterDB.com</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Slå på automatisk henting av ekstrakunst fra denne modulen. (Se globale ekstrakunstinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Norwegian_(no_NO).xml b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..52370c3
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">IMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17">Delvise treff ({0})</string>
+ <string id="18">Eksakte treff ({0})</string>
+ <string id="19">Populære titler ({0})</string>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover {0}x{1}</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kunne spille av trailer.</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episodefankunst</string>
+ <string id="93">Vis fankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakater</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Åpne i nettleser</string>
+</strings>
diff --git a/Addons/scraper.TVDB.Poster/My Project/Application.Designer.vb b/Addons/scraper.TVDB.Poster/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.TVDB.Poster/My Project/Application.myapp b/Addons/scraper.TVDB.Poster/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.TVDB.Poster/My Project/AssemblyInfo.vb b/Addons/scraper.TVDB.Poster/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..c8525ec
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.TVDB.Poster")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.TVDB.Poster")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("60E062E9-E025-4696-A8DF-5E2FB7C69FAA")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.TVDB.Poster/My Project/Resources.Designer.vb b/Addons/scraper.TVDB.Poster/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.TVDB.Poster/My Project/Resources.resx b/Addons/scraper.TVDB.Poster/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/My Project/Settings.Designer.vb b/Addons/scraper.TVDB.Poster/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.TVDB.Poster/My Project/Settings.settings b/Addons/scraper.TVDB.Poster/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.TVDB.Poster/Resources/Logo.png b/Addons/scraper.TVDB.Poster/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.TVDB.Poster/Resources/Logo.png differ
diff --git a/Addons/scraper.TVDB.Poster/Scraper/clsScrapeIMDB.vb b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..06e23c6
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,1126 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDB
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _ExactMatches As New List(Of MediaContainers.Movie)
+ Private _PartialMatches As New List(Of MediaContainers.Movie)
+ Private _PopularTitles As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property ExactMatches() As List(Of MediaContainers.Movie)
+ Get
+ Return _ExactMatches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _ExactMatches = value
+ End Set
+ End Property
+
+ Public Property PartialMatches() As List(Of MediaContainers.Movie)
+ Get
+ Return _PartialMatches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _PartialMatches = value
+ End Set
+ End Property
+
+ Public Property PopularTitles() As List(Of MediaContainers.Movie)
+ Get
+ Return _PopularTitles
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _PopularTitles = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+ Public UseOFDBGenre As Boolean
+ Public UseOFDBOutline As Boolean
+ Public UseOFDBPlot As Boolean
+ Public UseOFDBTitle As Boolean
+
+ Friend WithEvents bwIMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const LINK_PATTERN As String = "<a[\s]+[^>]*?href[\s]?=[\s\""\']*(?<url>.*?)[\""\']*.*?>(?<name>[^<]+|.*?)?<\/a>"
+
+ Private Const ACTORTABLE_PATTERN As String = "<table class=""cast"">(.*?)</table>"
+ Private Const HREF_PATTERN As String = "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>"
+ Private Const HREF_PATTERN_2 As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>"
+ Private Const HREF_PATTERN_3 As String = "<a href=""/search/title\?certificates=[^""]*"">([^<]*):([^<]*)</a>[^<]*(<i>([^<]*)</i>)?"
+ Private Const HREF_PATTERN_4 As String = "<a.*?href=[""']/(title/tt\d{7}/|name/nm\d{7}/)[""'].*?>(?<text>.*?)</a>"
+ Private Const IMDB_ID_REGEX As String = "tt\d\d\d\d\d\d\d"
+ Private Const IMG_PATTERN As String = "<img src=""(?<thumb>.*?)"" width=""\d{1,3}"" height=""\d{1,3}"" border="".{1,3}"">"
+ Private Const MOVIE_TITLE_PATTERN As String = "(?<=<(title)>).*(?=<\/\1>)"
+ Private Const TABLE_PATTERN As String = "<table.*?>\n?(.*?)</table>"
+ Private Const TD_PATTERN_1 As String = "<td\sclass=""nm"">(.*?)</td>"
+ Private Const TD_PATTERN_2 As String = "(?<=<td\sclass=""char"">)(.*?)(?=</td>)(\s\(.*?\))?"
+ Private Const TD_PATTERN_3 As String = "<td\sclass=""hs"">(.*?)</td>"
+ Private Const TD_PATTERN_4 As String = "<td>(?<title>.*?)</td>"
+ Private Const TITLE_PATTERN As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>((\s)+?(\((?<year>\d{4})(\/.*?)?\)))?((\s)+?(\((?<type>.*?)\)))?"
+ Private Const TR_PATTERN As String = "<tr\sclass="".*?"">(.*?)</tr>"
+
+ Private sPoster As String
+
+#End Region 'Fields
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As IMDB.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwIMDB.IsBusy Then bwIMDB.CancelAsync()
+
+ While bwIMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim ofdbTitle As String = String.Empty
+ Dim ofdbOutline As String = String.Empty
+ Dim ofdbPlot As String = String.Empty
+ Dim ofdbGenre As String = String.Empty
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If (UseOFDBTitle AndAlso Options.bTitle) OrElse (UseOFDBOutline AndAlso Options.bOutline) OrElse _
+ (UseOFDBPlot AndAlso Options.bPlot) OrElse (UseOFDBGenre AndAlso Options.bGenre) Then
+ Dim OFDBScrape As New OFDB(strID, IMDBMovie)
+ If UseOFDBTitle AndAlso Options.bTitle Then ofdbTitle = OFDBScrape.Title
+ If UseOFDBOutline AndAlso Options.bOutline Then ofdbOutline = OFDBScrape.Outline
+ If UseOFDBPlot AndAlso Options.bPlot Then ofdbPlot = OFDBScrape.Plot
+ If UseOFDBGenre AndAlso Options.bGenre Then ofdbGenre = OFDBScrape.Genre
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sPlot As New HTTP
+ Dim PlotHtml As String = sPlot.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/plotsummary"))
+ sPlot = Nothing
+
+ IMDBMovie.IMDBID = strID
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim OriginalTitle As String = Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString
+ If Options.bTitle Then
+ Dim oldOTitle As String = IMDBMovie.OriginalTitle
+ IMDBMovie.OriginalTitle = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(OriginalTitle, ".*(?=\s\(\d+.*?\))").ToString)).Trim
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ If Not String.IsNullOrEmpty(ofdbTitle) Then
+ IMDBMovie.Title = ofdbTitle.Trim
+ Else
+ If Not String.IsNullOrEmpty(Master.eSettings.ForceTitle) Then
+ IMDBMovie.Title = GetForcedTitle(strID, IMDBMovie.OriginalTitle)
+ Else
+ IMDBMovie.Title = IMDBMovie.OriginalTitle.Trim
+ End If
+ End If
+ If String.IsNullOrEmpty(oldOTitle) OrElse Not oldOTitle = IMDBMovie.OriginalTitle Then
+ IMDBMovie.SortTitle = String.Empty
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ sPoster = Regex.Match(Regex.Match(HTML, "(?<=\b(name=""poster"")).*\b[</a>]\b").ToString, "(?<=\b(src=)).*\b(?=[</a>])").ToString.Replace("""", String.Empty).Replace("/></", String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Regex.Match(OriginalTitle, "(?<=\()\d+(?=.*\))", RegexOptions.RightToLeft).ToString
+
+ Dim D, W, tempD As Integer
+
+ If Options.bMPAA AndAlso (String.IsNullOrEmpty(IMDBMovie.MPAA) OrElse Not Master.eSettings.LockMPAA) Then
+ tempD = If(HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>") > 0, HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ W = If(D > 0, HTML.IndexOf("</div", D), 0)
+
+ IMDBMovie.MPAA = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Remove(0, 26)).Trim(), String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCert AndAlso (String.IsNullOrEmpty(IMDBMovie.Certification) OrElse Not Master.eSettings.LockMPAA) Then
+ 'get certifications
+ D = HTML.IndexOf("<h5>Certification:</h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Dim rCert As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN_3)
+
+ If rCert.Count > 0 Then
+ Dim Cert = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(Master.eSettings.CertificationLang)
+
+ If Not String.IsNullOrEmpty(Master.eSettings.CertificationLang) Then
+ If Cert.Count > 0 Then
+ IMDBMovie.Certification = Cert(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA AndAlso (Not Master.eSettings.CertificationLang = "USA" OrElse (Master.eSettings.CertificationLang = "USA" AndAlso String.IsNullOrEmpty(IMDBMovie.MPAA))) Then
+ IMDBMovie.MPAA = If(Master.eSettings.CertificationLang = "USA", StringUtils.USACertToMPAA(IMDBMovie.Certification), If(Master.eSettings.OnlyValueForCert, IMDBMovie.Certification.Split(Convert.ToChar(":"))(1), IMDBMovie.Certification))
+ End If
+
+
+ Else
+ 'No FSK Rating was found -> Alternative: Set USA Rating instead as fallback, MPAA will be converted to FSK, Certification from USA will be used, so people can see that US info was used!
+ If Master.eSettings.UseMPAAForFSK Then
+ Try
+ If Master.eSettings.CertificationLang = "Germany" AndAlso (IMDBMovie.MPAA.ToLower.Contains("usa") Or IMDBMovie.MPAA.ToLower.Contains("rated")) Then
+ Dim LANGRATING As String = "USA"
+ Dim Cert2 = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(LANGRATING)
+ If Cert2.Count > 0 Then
+ IMDBMovie.Certification = Cert2(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA Then
+ If IMDBMovie.MPAA.ToLower.Contains("usa:g") Or IMDBMovie.MPAA.ToLower.Contains("rated g") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:0"
+ Else
+ IMDBMovie.MPAA = "0"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg-13") Or IMDBMovie.MPAA.ToLower.Contains("rated pg-13") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:16"
+ Else
+ IMDBMovie.MPAA = "16"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg") Or IMDBMovie.MPAA.ToLower.Contains("rated pg") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:12"
+ Else
+ IMDBMovie.MPAA = "12"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:r") Or IMDBMovie.Certification.ToLower.Contains("rated r") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:nc-17") Or IMDBMovie.Certification.ToLower.Contains("rated nc") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End If
+ End If
+
+
+ Else
+
+ IMDBMovie.Certification = Strings.Join(Cert.ToArray, " / ").Trim
+
+
+ End If
+ End If
+ End If
+
+ If String.IsNullOrEmpty(IMDBMovie.Certification) AndAlso Not String.IsNullOrEmpty(IMDBMovie.MPAA) Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ Dim RelDate As Date
+ Dim sRelDate As String = Regex.Match(HTML, "\d+\s\w+\s\d\d\d\d\s").ToString.Trim
+ If Not sRelDate = String.Empty Then
+ If Date.TryParse(sRelDate, RelDate) Then
+ IMDBMovie.ReleaseDate = Strings.FormatDateTime(RelDate, DateFormat.ShortDate).ToString
+ End If
+ Else
+ IMDBMovie.ReleaseDate = Nothing
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ Dim RegexRating As String = Regex.Match(HTML, "\b\d\W\d/\d\d").ToString
+ If String.IsNullOrEmpty(RegexRating) Then
+ IMDBMovie.Rating = String.Empty
+ Else
+ IMDBMovie.Rating = RegexRating.Split(Convert.ToChar("/")).First.Trim
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ 'Get first IMDB trailer if possible
+ Dim trailers As List(Of String) = GetTrailers(IMDBMovie.IMDBID)
+ 'Dim TMDB As New TMDB.Scraper
+ 'Dim YT As String = TMDB.GetTrailers(IMDBMovie.IMDBID)
+
+ 'Dim sTrailerUrl As String = Regex.Match(HTML, "href=""(.*?/video/imdb/vi.*?)""").Groups(1).Value.Trim
+ 'If Not sTrailerUrl = String.Empty Then
+ 'Dim sTrailerURL2 As String = String.Empty
+ 'sTrailerUrl = String.Concat("http://", IMDBURL, sTrailerUrl, "player")
+ 'Dim HTTPTrailer As New HTTP
+ 'Dim HtmlTrailer As String = HTTPTrailer.DownloadData(sTrailerUrl)
+ 'HTTPTrailer = Nothing
+
+ 'sTrailerUrl = Regex.Match(HtmlTrailer, "so.addVariable\(""id"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'If sTrailerUrl = String.Empty Then
+ 'sTrailerURL2 = Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'Else
+ 'sTrailerURL2 = String.Concat(Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim, sTrailerUrl)
+ 'End If
+ 'IMDBMovie.Trailer = Web.HttpUtility.UrlDecode(sTrailerURL2)
+ 'End If
+ IMDBMovie.Trailer = trailers.FirstOrDefault()
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then IMDBMovie.Votes = Regex.Match(HTML, "class=""tn15more"">([0-9,]+) votes</a>").Groups(1).Value.Trim
+
+ 'Top250
+ 'ie: <a href="/chart/top?tt0167260">Top 250: #13</a>
+ If Options.bTop250 Then IMDBMovie.Top250 = Regex.Match(HTML, String.Concat("/chart/top\?tt", IMDBMovie.IMDBID, """>Top 250: #([0-9]+)</a>")).Groups(1).Value.Trim
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCast Then
+ 'Find all cast of the movie
+ 'Match the table only 1 time
+ Dim ActorsTable As String = Regex.Match(HTML, ACTORTABLE_PATTERN).ToString
+ Dim ThumbsSize = AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400")
+
+ Dim rCast As MatchCollection = Regex.Matches(ActorsTable, TR_PATTERN)
+
+ Dim Cast1 = From M In rCast _
+ Let m1 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_1).ToString, HREF_PATTERN) _
+ Let m2 = Regex.Match(M.ToString, TD_PATTERN_2).ToString _
+ Let m3 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_3).ToString, IMG_PATTERN) _
+ Select New MediaContainers.Person(Web.HttpUtility.HtmlDecode(m1.Groups("name").ToString.Trim), _
+ Web.HttpUtility.HtmlDecode(m2.ToString.Trim), _
+ If(m3.Groups("thumb").ToString.IndexOf("addtiny") > 0 OrElse m3.Groups("thumb").ToString.IndexOf("no_photo") > 0, String.Empty, Strings.Replace(Web.HttpUtility.HtmlDecode(m3.Groups("thumb").ToString.Trim), _
+ "._SX23_SY30_.jpg", String.Concat("._", ThumbsSize, "_.jpg")))) Take If(Master.eSettings.ActorLimit > 0, Master.eSettings.ActorLimit, 999999)
+
+ If Master.eSettings.CastImagesOnly Then
+ Cast1 = Cast1.Where(Function(p As MediaContainers.Person) (Not String.IsNullOrEmpty(p.Thumb)))
+ End If
+
+ Dim Cast As List(Of MediaContainers.Person) = Cast1.ToList
+
+ 'Clean up the actors list
+ For Each Ps As MediaContainers.Person In Cast
+ For Each sMatch As Match In Regex.Matches(Ps.Role, HREF_PATTERN)
+ Ps.Role = Ps.Role.Replace(sMatch.Value, sMatch.Groups("name").Value.ToString.Trim)
+ Next
+ ' Dim a_patterRegex = Regex.Match(Ps.Role, HREF_PATTERN)
+ ' If a_patterRegex.Success Then Ps.Role = a_patterRegex.Groups("name").ToString.Trim
+ Next
+
+ IMDBMovie.Actors = Cast
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ D = 0 : W = 0
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+
+ tempD = If(HTML.IndexOf("<h5>Tagline:</h5>") > 0, HTML.IndexOf("<h5>Tagline:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ Dim lHtmlIndexOf As Integer = If(D > 0, HTML.IndexOf("<a class=""tn15more inline""", D), 0)
+ Dim TagLineEnd As Integer = If(lHtmlIndexOf > 0, lHtmlIndexOf, 0)
+ If D > 0 Then W = If(TagLineEnd > 0, TagLineEnd, HTML.IndexOf("</div>", D))
+
+ IMDBMovie.Tagline = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Replace("<h5>Tagline:</h5>", String.Empty).Split(vbCrLf.ToCharArray)(1)).Trim, String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bDirector Then
+ 'Get the directors
+ D = If(HTML.IndexOf("<h5>Director:</h5>") > 0, HTML.IndexOf("<h5>Director:</h5>"), HTML.IndexOf("<h5>Directors:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any director(s) ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first director's name
+ Dim rDir As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Dir = From M In rDir Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Dir.Count > 0 Then
+ IMDBMovie.Director = Strings.Join(Dir.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ 'Get the countries
+ D = If(HTML.IndexOf("<h5>Country:</h5>") > 0, HTML.IndexOf("<h5>Country:</h5>"), HTML.IndexOf("<h5>Countries:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any country ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first country's name
+ Dim rCou As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Cou = From M In rCou Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Cou.Count > 0 Then
+
+ 'fix for display country flag in XBMC!
+ If Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("USA") Then
+ IMDBMovie.Country = "United States of America"
+ ElseIf Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("UK") Then
+ IMDBMovie.Country = "United Kingdom"
+ Else
+ IMDBMovie.Country = Strings.Join(Cou.ToArray, " / ").Trim()
+ End If
+
+ End If
+ End If
+
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ If Not String.IsNullOrEmpty(ofdbGenre) Then
+ IMDBMovie.Genre = ofdbGenre
+ Else
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Genre:</h5>")
+ 'Check if doesnt find genres
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString) Where Not N.Contains("more") Take If(Master.eSettings.GenreLimit > 0, Master.eSettings.GenreLimit, 999999)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ IMDBMovie.Genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+
+ If Not String.IsNullOrEmpty(ofdbOutline) Then
+ IMDBMovie.Outline = ofdbOutline
+ Else
+ 'Get the Plot Outline
+ D = 0 : W = 0
+
+ Try
+ If IMDBMovie.Title.Contains("(VG)") Then
+ D = If(HTML.IndexOf("<h5>Plot Summary:</h5>") > 0, HTML.IndexOf("<h5>Plot Summary:</h5>"), HTML.IndexOf("<h5>Tagline:</h5>"))
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ Else
+ tempD = If(HTML.IndexOf("<h5>Plot:</h5>") > 0, HTML.IndexOf("<h5>Plot:</h5>"), HTML.IndexOf("<h5>Plot Summary:</h5>"))
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+ If D <= 0 Then D = HTML.IndexOf("<h5>Plot Synopsis:</h5>")
+ If D > 0 Then
+ W = HTML.IndexOf("<a class=", D)
+ If W > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mplot
+ End If
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mPlot 'This plot synopsis is empty
+ End If
+ End If
+ Dim PlotOutline As String = HTML.Substring(D, W - D).Remove(0, 26)
+
+ PlotOutline = Web.HttpUtility.HtmlDecode(If(PlotOutline.Contains("is empty") OrElse PlotOutline.Contains("View full synopsis") _
+ , String.Empty, PlotOutline.Replace("|", String.Empty).Replace("»", String.Empty)).Trim)
+ 'check if outline has links to other IMDB entry
+ If Not String.IsNullOrEmpty(PlotOutline) Then
+ For Each rMatch As Match In Regex.Matches(PlotOutline, HREF_PATTERN_4)
+ PlotOutline = PlotOutline.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Outline = Regex.Replace(PlotOutline, HREF_PATTERN, String.Empty).Trim
+ Else
+ IMDBMovie.Outline = String.Empty
+ End If
+
+ Catch ex As Exception
+ IMDBMovie.Outline = String.Empty
+ End Try
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+mPlot:
+ 'Get the full Plot
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Not String.IsNullOrEmpty(ofdbPlot) Then
+ IMDBMovie.Plot = ofdbPlot
+ Else
+ Dim FullPlotP As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)</p>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlotI As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)<i>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlot As String = If(FullPlotI.Length < FullPlotP.Length, FullPlotI, FullPlotP)
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ For Each rMatch As Match In Regex.Matches(FullPlot, HREF_PATTERN_4)
+ FullPlot = FullPlot.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Plot = Web.HttpUtility.HtmlDecode(FullPlot.Replace("|", String.Empty)).Trim
+ End If
+
+ End If
+
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then IMDBMovie.Runtime = Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<h5>Runtime:</h5>[^0-9]*([^<]*)").Groups(1).Value.Trim)
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ D = 0 : W = 0
+ If FullCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ 'only get the first one
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString) Take 1
+ IMDBMovie.Studio = Ps(0).ToString.Trim
+ End If
+ Else
+ D = HTML.IndexOf("<h5>Company:</h5>")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ IMDBMovie.Studio = Web.HttpUtility.HtmlDecode(Regex.Match(HTML.Substring(D, W - D), HREF_PATTERN).Groups("name").ToString.Trim)
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get Writers
+ If Options.bWriters Then
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Writer")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim q = From M In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(M, Match).Groups("name").ToString.Trim = "more" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "(more)" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "WGA" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim.Contains("see more") _
+ Select Writer = Web.HttpUtility.HtmlDecode(String.Concat(DirectCast(M, Match).Groups("name").ToString, If(FullCrew, " (writer)", String.Empty)))
+
+ If q.Count > 0 Then
+ IMDBMovie.OldCredits = Strings.Join(q.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Then
+
+ D = 0 : W = 0
+ D = HTML.IndexOf("Directed by</a></h5>")
+ If D > 0 Then W = HTML.IndexOf("</body>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim qTables As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TABLE_PATTERN)
+
+ For Each M As Match In qTables
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Producers
+ If Options.bProducers AndAlso M.ToString.Contains("Produced by</a></h5>") Then
+ Dim Pr = From Po In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Where Not Po.ToString.Contains(String.Concat("http://", IMDBURL, "/Glossary/")) _
+ Let P1 = Regex.Match(Po.ToString, HREF_PATTERN_2) _
+ Where Not String.IsNullOrEmpty(P1.Groups("name").ToString) _
+ Select Producer = Web.HttpUtility.HtmlDecode(String.Concat(P1.Groups("name").ToString, " (producer)"))
+
+ If Pr.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Pr.ToArray, " / ").Trim)
+ End If
+ End If
+
+ 'Music by
+ If Options.bMusicBy AndAlso M.ToString.Contains("Original Music by</a></h5>") Then
+ Dim Mu = From Mo In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Let M1 = Regex.Match(Mo.ToString, HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(M1.Groups("name").ToString) _
+ Select Musician = Web.HttpUtility.HtmlDecode(String.Concat(M1.Groups("name").ToString, " (music by)"))
+
+ If Mu.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Mu.ToArray, " / ").Trim)
+ End If
+ End If
+
+ Next
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Special Effects
+ If Options.bOtherCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Special Effects</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(DirectCast(P1, Match).Groups("name").ToString) _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ If Ps.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Ps.ToArray, " / ").Trim)
+ End If
+ End If
+ End If
+ End If
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ alStudio.AddRange(Ps.ToArray)
+ End If
+
+ Return alStudio
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ 'r.PopularTitles.Sort()
+ 'r.ExactMatches.Sort()
+ 'r.PartialMatches.Sort()
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.ExactMatches.Count = 1 Then 'AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count = 1 AndAlso r.PopularTitles(0).Lev <= 5 Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count = 1 AndAlso r.ExactMatches(0).Lev <= 5 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgIMDBSearchResults
+ dIMDB.IMDBURL = IMDBURL
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+
+ 'check if ALL results are over lev value
+ Dim useAnyway As Boolean = False
+ If ((r.PopularTitles.Count > 0 AndAlso r.PopularTitles(0).Lev > 5) OrElse r.PopularTitles.Count = 0) AndAlso _
+ ((r.ExactMatches.Count > 0 AndAlso r.ExactMatches(0).Lev > 5) OrElse r.ExactMatches.Count = 0) AndAlso _
+ ((r.PartialMatches.Count > 0 AndAlso r.PartialMatches(0).Lev > 5) OrElse r.PartialMatches.Count = 0) Then
+ useAnyway = True
+ End If
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.ExactMatches)
+ Dim popularHaveYear As Integer = FindYear(dbMovie.Filename, r.PopularTitles)
+ 'it seems "popular matches" is a better result than "exact matches" ..... nope
+ 'If r.ExactMatches.Count = 1 AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ ' b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf (popularHaveYear >= 0 OrElse exactHaveYear = -1) AndAlso r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(If(popularHaveYear >= 0, popularHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.PopularTitles.Item(If(popularHaveYear >= 0, popularHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(If(exactHaveYear >= 0, exactHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.ExactMatches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.PartialMatches.Count > 0 Then
+ ' b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'End If
+ If r.ExactMatches.Count = 1 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count > 1 AndAlso exactHaveYear >= 0 Then
+ b = GetMovieInfo(r.ExactMatches.Item(exactHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso popularHaveYear >= 0 Then
+ b = GetMovieInfo(r.PopularTitles.Item(popularHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCrew, False, Options, True)
+ ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PartialMatches.Count > 0 AndAlso (r.PartialMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ Dim fTitle As String = oTitle
+
+ Try
+ If bwIMDB.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/releaseinfo#akas"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<h5><a name=""akas"">Also Known As (AKA)</a></h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ Dim rTitles As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TD_PATTERN_4, RegexOptions.Multiline Or RegexOptions.IgnorePatternWhitespace)
+
+ If rTitles.Count > 0 Then
+ For i As Integer = 1 To rTitles.Count - 1 Step 2
+ If rTitles(i).Value.ToString.Contains(Master.eSettings.ForceTitle) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (working title)")) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (fake working title)")) Then
+ fTitle = CleanTitle(Web.HttpUtility.HtmlDecode(rTitles(i - 1).Groups("title").Value.ToString.Trim))
+ Exit For
+ End If
+ Next
+ End If
+
+ End If
+
+ Return fTitle
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return fTitle
+ End Try
+ End Function
+
+ Private Function GetMovieID(ByVal strObj As String) As String
+ Return Regex.Match(strObj, IMDB_ID_REGEX).ToString.Replace("tt", String.Empty)
+ End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+
+ Dim D, W As Integer
+ Dim R As New MovieSearchResults
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft"))
+ Dim HTMLp As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_tt_pop"))
+ Dim HTMLm As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_ft"))
+ Dim HTMLe As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&exact=true&ref_=fn_tt_ex"))
+ Dim rUri As String = sHTTP.ResponseUri
+ sHTTP = Nothing
+
+ 'Check if we've been redirected straight to the movie page
+ If Regex.IsMatch(rUri, IMDB_ID_REGEX) Then
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(Regex.Match(rUri, IMDB_ID_REGEX).ToString, _
+ StringUtils.ProperCase(sMovie), Regex.Match(Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString, "(?<=\()\d+(?=.*\))").ToString, 0)
+ R.ExactMatches.Add(lNewMovie)
+ Return R
+ End If
+
+ 'popular titles
+ D = HTMLp.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mPartial
+ W = HTMLp.IndexOf("</table>", D) + 8
+
+ Dim Table As String = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qPopular = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PopularTitles = qPopular.ToList
+mPartial:
+
+ D = HTMLm.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mExact
+ W = HTMLm.IndexOf("</table>", D) + 8
+
+ Table = Regex.Match(HTMLm.Substring(D, W - D), TABLE_PATTERN).ToString
+ Dim qpartial = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PartialMatches = qpartial.ToList
+ 'mApprox:
+
+ ' 'Now process "Approx Matches" and merge both Partial and Approx matches
+ ' D = HTML.IndexOf("Titles (Approx Matches)")
+ ' If D <= 0 Then GoTo mExact
+ ' W = HTML.IndexOf("</table>", D) + 8
+
+ ' Table = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ ' Dim qApprox = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ ' Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ ' Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ ' Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ ' If Not IsNothing(R.PartialMatches) Then
+ ' R.PartialMatches = R.PartialMatches.Union(qApprox.ToList).ToList
+ ' Else
+ ' R.PartialMatches = qApprox.ToList
+ ' End If
+
+mExact:
+
+ D = HTMLe.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mResult
+ W = HTMLe.IndexOf("</table>", D) + 8
+
+ Table = String.Empty
+ Table = Regex.Match(HTMLe.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qExact = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString.ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.ExactMatches = qExact.ToList
+
+mResult:
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+ Public Function GetTrailers(imdbID As String) As List(Of String)
+ Dim TrailerList As New List(Of String)
+ Dim TrailerNumber As Integer = 0
+ Dim Links As MatchCollection
+ Dim trailerPage As String
+ Dim trailerUrl As String
+ Dim Link As Match
+ Dim currPage As Integer = 0
+
+ Dim WebPage As New HTTP
+ Dim _ImdbTrailerPage As String = String.Empty
+
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer"))
+ If _ImdbTrailerPage.ToLower.Contains("page not found") Then
+ _ImdbTrailerPage = String.Empty
+ End If
+
+ If Not String.IsNullOrEmpty(_ImdbTrailerPage) Then
+ Link = Regex.Match(_ImdbTrailerPage, "of [0-9]{1,3}")
+
+ If Link.Success Then
+ TrailerNumber = Convert.ToInt32(Link.Value.Substring(3))
+
+ If TrailerNumber > 0 Then
+ currPage = Convert.ToInt32(Math.Ceiling(TrailerNumber / 10))
+
+ For i As Integer = 1 To currPage
+ If Not i = 1 Then
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer?page=", i))
+ End If
+
+ Links = Regex.Matches(_ImdbTrailerPage, "screenplay/(vi[0-9]+)/")
+ Dim linksCollection As String() = From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()
+
+ Links = Regex.Matches(_ImdbTrailerPage, "imdb/(vi[0-9]+)/")
+ linksCollection = linksCollection.Concat(From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()).ToArray
+
+ For Each value As String In linksCollection
+ If value.Contains("screenplay") Then
+ trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player"))
+ trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ TrailerList.Add(trailerUrl)
+ End If
+ Else
+ ''480p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=2"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+
+ ''720p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=3"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+ End If
+ Next
+ Next
+ End If
+ End If
+ End If
+ Return TrailerList
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TVDB.Poster/Scraper/clsScrapeIMPA.vb b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..5f052ed
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,179 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TVDB.Poster/Scraper/clsScrapeImages.vb b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..7bdb821
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeImages.vb
@@ -0,0 +1,940 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class ScrapeImages
+
+#Region "Methods"
+
+ Public Shared Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(IMDBID, "poster"))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ tmpListTMDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ TMDB = Nothing
+ IMPA = Nothing
+ MPDB = Nothing
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Shared Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("UseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+ ' Duplicate of clsImage
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0, Optional ByVal sUrl As String = "")
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' If Not sUrl = "" Then
+ ' Dim stroriginalurl As String = sUrl
+
+ ' 'Image Download from tmdb is special, need original size
+ ' If Not sUrl.Contains("impawards") AndAlso Not sUrl.Contains("movieposterdb") Then
+ ' 'Always get original image...
+ ' 'links to images (tmdb) have following structure: 'example: http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w92/x65b4vsFKYuA878pLN1mJiAsgIP.jpg
+ ' Dim stringArray() As String = Split(stroriginalurl, "/")
+ ' If stringArray.Length > 4 Then
+ ' ' stringArray(5) contains values like "w185","original", "w154"...-->size -> we want original!
+ ' stringArray(5) = "original"
+ ' stroriginalurl = Join(stringArray, "/")
+ ' End If
+ ' End If
+ ' Dim webclient As New Net.WebClient
+ ' webclient.DownloadFile(stroriginalurl, sPath)
+ ' Else
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+ ' End If
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/clsScrapeMPDB.vb b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..7a7e13b
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,160 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.TVDB.Poster/Scraper/clsScrapeOFDB.vb b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..a220a06
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,280 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, Wq, Wqq, B As Integer
+ Dim tmpHTML As String
+
+ D = HTML.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ Wq = tmpHTML.IndexOf("<b>Quelle:</b>")
+ If Wq > 0 Then
+ Wqq = tmpHTML.IndexOf("<br><br>", Wq)
+ B = tmpHTML.IndexOf("</font></p>", Wqq + 8)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(Wqq + 8, B - (Wqq + 8)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<td width=""99\%""><h1 itemprop=""name""><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h1></td>").Groups(1).Value.ToString))
+ If OFDBTitle.EndsWith(", Der") Then
+ _title = String.Concat("Der ", OFDBTitle.Replace(", Der", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Die") Then
+ _title = String.Concat("Die ", OFDBTitle.Replace(", Die", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Das") Then
+ _title = String.Concat("Das ", OFDBTitle.Replace(", Das", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", The") Then
+ _title = String.Concat("The ", OFDBTitle.Replace(", The", " ")).Trim
+ Else
+ _title = OFDBTitle
+ End If
+ End If
+
+ Dim D, Dq, W, Wq, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Wq = HTML.IndexOf("<span itemprop=""description"">", Dq)
+ W = HTML.IndexOf("<a href=""plot", Wq + 29)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(Wq + 29, W - (Wq + 29)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf D > 0 Then
+ W = HTML.IndexOf("<a href=""", D + 44)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 44, W - (D + 44)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : Dq = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 197, L - (D + 197)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ ElseIf D > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 44, L - (D + 44)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?><span itemprop=""genre"">(?<name>.*?)</span></a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/clsScrapeTMDB.vb b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..d40e628
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,243 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Debug.Print("{0}/t{1}", tmdbI.@size, tmdbI.@url)
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/clsScrapeTrailers.vb b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..19327b4
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", False) Then
+ Me.GetImdbTrailer()
+ End If
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetIMDBTrailer()
+ Dim IMDB As New IMDB.Scraper
+ IMDB.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ Dim results As List(Of String) = IMDB.GetTrailers(_ImdbID)
+
+ Me._TrailerList.AddRange(results)
+
+ IMDB = Nothing
+ End Sub
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper
+ Dim YT As String = TMDB.GetTrailers(_ImdbID)
+
+ If Not String.IsNullOrEmpty(YT) Then
+ Me._TrailerList.Add(YT)
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/clsScrapeYouTube.vb b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..b4603fd
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,335 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.Designer.vb b/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..6d0924e
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.Designer.vb
@@ -0,0 +1,480 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgIMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgIMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtIMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.txtFileName = New System.Windows.Forms.TextBox()
+ Me.btnOpenFolder = New System.Windows.Forms.Button()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(501, 431)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(574, 431)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(8, 126)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 5
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(298, 160)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(295, 100)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(295, 119)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(298, 325)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(476, 160)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(476, 186)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(476, 213)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtIMDBID
+ '
+ Me.txtIMDBID.Enabled = False
+ Me.txtIMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBID.Location = New System.Drawing.Point(143, 429)
+ Me.txtIMDBID.Name = "txtIMDBID"
+ Me.txtIMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtIMDBID.TabIndex = 7
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(647, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(256, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(8, 433)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(128, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual IMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(249, 429)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(476, 277)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(35, 13)
+ Me.lblIMDB.TabIndex = 19
+ Me.lblIMDB.Text = "IMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(414, 160)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(32, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(414, 186)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(414, 213)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(414, 277)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(53, 13)
+ Me.lblIMDBHeader.TabIndex = 18
+ Me.lblIMDBHeader.Text = "IMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(295, 309)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(266, 100)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(8, 101)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(368, 213)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 20
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching IMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(312, 185)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtFileName
+ '
+ Me.txtFileName.Enabled = False
+ Me.txtFileName.Location = New System.Drawing.Point(8, 73)
+ Me.txtFileName.Name = "txtFileName"
+ Me.txtFileName.Size = New System.Drawing.Size(598, 22)
+ Me.txtFileName.TabIndex = 3
+ '
+ 'btnOpenFolder
+ '
+ Me.btnOpenFolder.Location = New System.Drawing.Point(612, 73)
+ Me.btnOpenFolder.Name = "btnOpenFolder"
+ Me.btnOpenFolder.Size = New System.Drawing.Size(29, 23)
+ Me.btnOpenFolder.TabIndex = 23
+ Me.btnOpenFolder.Text = "..."
+ Me.btnOpenFolder.UseVisualStyleBackColor = True
+ '
+ 'dlgIMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(647, 492)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnOpenFolder)
+ Me.Controls.Add(Me.txtFileName)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtIMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgIMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+ Friend WithEvents txtFileName As System.Windows.Forms.TextBox
+ Friend WithEvents btnOpenFolder As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.resx b/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.resx
new file mode 100644
index 0000000..fc0d614
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.resx
@@ -0,0 +1,190 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr5AAAK+QG0Yd4ZAAALEUlE
+ QVRoQ+1YCVCU5xle5Qa55JDTRA4XWMIpKsgRLgFRVOQGAbl21+VabuWSS0A0chiPIB5RquKRkIR4VI1N
+ SMxMjW1sik2maWOSydFOkknTZprD/+n7/i4Gcrad1CYzvDPP/N/u/v/3v+fzvt9KZmRGZmRGZmRGZmRG
+ fgZi7+CoWf2ExN5xvmb1lXh6eRsFh4TMc5fJQpycnXvs7OxbLa2s7zeznDdLc8v/X76u+KKAALeNKlW6
+ UqnsycrKurQiPv6jZcuWwd3dHXZ2dphrYfHmPBubATs7h04bW9t6Xz+/Cnom38PD8z7NFpLszCyJmflc
+ zSeJxNTMXLP6kWWq8mXl6tbevv7Xe/v6PtizZ89nnZ2dKCkpQXJyMoKDg7Fq1SohISFBWJeYiFUJCVjg
+ 5CRC6uYmkIFfBAYFfbg0MGjU1s5+iWbLaWLn4Oi2UOoeovkoMTA00qz+TVm7dq0OKaGXlpFhVFJWZqbc
+ qLLKy8uz9fPzX5Cdk/P86OgoJiYmcOvWLeHRI0fQ0NCA4uJiJCUlITQ0VMTixYtFg/Lz8rBx40ZwZHx9
+ fREVFSWUlpYK6enpoKghMTFxYllwSGpo2IPOUdHR+0NCQz+IioqGXKHA8uXL37W0tvYilb47DcMjIjUr
+ iU5waFjgvn37Snp7e49WVFScpk0u7d69+8aOHQ+9U1VV9UVOTg7i4uIgk8kEPz8/HDt2DNevX0dfXx8y
+ MjJYGaTTNTc3V7zGxMYibsUKqCsqRCPYMDYkLS0d5eXloD1RUVmJuro6lJWV31bRPRQ5NlSwsrIWvLy9
+ 4eLi8q6ugYEL6adFmG5IWHiEeI2IiMpvbGx8p7u7++OGxobbtEZ9fT02bNgA9lR/fz86OjqgIK9weixa
+ tEjMcUtLS5w/fx5nz55FkVyO+PiVpEgZUlNTERERgRWkfHh4OBLXraMoNVKalUKlKhYNZIOy1q9HS1sb
+ 2js6hO09PfydQPuDnWNrawsDAwPBxs7uS30Dg0pS04AwW1R4qjwYEZnd2dWF/Px8gdJEKKaX7HjkGIrV
+ VWCPR0ZGghVmg6hY2QDxs6OjI7S1tcUc55Q6fPgwVq5KAO2BNWvWiNHgFOFn2AiKLI5QuvG7mrdsQUtL
+ C65du4YrV65gbGwM1TU1KCoqEvdnA9hBurq60NLShomp6VZSlSudjeBI3BXt9vaOtwoLC8XQcR7nFynR
+ 99Tv0f/0BJQV9Yh4MExkFR8fH8jJy1MN0NfXF6Nw8OBBMUpsZExsHDIzM0VlONe5PlauXCkcOnQIZ86c
+ wdGjR8nYRzE+Po6LFy+K0WMHnDhxQiQCuneaAbNmzYKxsfFL2jo6HqSvDcGY9WblJcTb3vTijzgt2ACV
+ SoXcfDlaj19D44lXUHfoKhJTsyjnPWBtbY3o6GjR0KkG0OboIq+2USrU1tYiOSUF/vQ7O4PTLicnF8xS
+ rOjQ0JBY9M899xwuXbqEkZERMroB+QUFFLl8bNq8GfFkgL+//10DSE3MnTsX7h6yEVo7aGBCkEiSklOW
+ dG/b9jHnKnuWc1OuLIaq5wkU9b2A7O3jSK/sxwNeXrCwsICrqyvlefykAQIbYGVlhda2NqG6upojJGRk
+ ZAruHh4g/v+bk5NTF73GxcfXt6qxqeldVp4N6aNoNVCdscOUSgXWUY2EhoZg4UIpqFdA5uk51QDB3Nyc
+ i/8WrZnLFxDuNAsPT0+3vXv3fhAbGytw6Ni7lcQK8fJu+KmehHPOKSxSnIRPQJBoAG9E1IaAgADBwcEB
+ hkZGYg3UavKXi5d/d3Zx/a25hUUavcKMYFtTU1PZPzAwwWmmVqvBJNHc3IwtVAtcI2xAWFgYKS7DPIq0
+ Gb2HGt/dCJiZmcHBwbGa1gsJbMQcwh0hA96mohM4Cozk5CSszSmBVDUKF9UYnBVnkZBeKCqvo6MjphFH
+ YP78+f8wmmMsd3FxTSGPtS0NDHxy8ZIlv3Z2dunS09cPoK2N6HtPYqeXqA4+37SpDupytVBHaca1xEqz
+ 04g8vjJAJhPZZzI1J2vA0NDoMhUz7+lOmEfQvdtZK6uq+tgTpJjA1McezM1MQ2T5ALzbn4dr7RVkV3fD
+ zNRU0NLSEtgAKui/EDMU0eNLCbzxIoIfwZvAXjINj4xcV0DkwIXd3t4ubOvbgz3DT6ByczOyczdg9erV
+ YtdmZ3Dkpxqgp6cHYxMTmJqaYfbs2Z/MMZ6TS3v6EFwJHNVpTGT28MMP/5OZgyhTiImJAXViZGdSY2ob
+ gu9DL6Gs8xGYmpgIpqam/MIblDrZ9ByPAaws05slgRmCvTM7KDg4lfsBpyM5R9jc2IzDl1/Fo+Nv4+Cz
+ b6H35DiKqxsRFLgEUqkUzs7OYt+YaoCunp7gRuxH0TxMe7LyDC5gfcIdCQkJE68KpTJlcHBQbELc/tk7
+ 2dnZ2Ersse3gadQ2biFvmMLGxuamiYlJKj3CHVBGYF6eFO6SjDklpaVvMCNR4xMaKAJbHhrE3su30Df2
+ KnY8fhPdZyaw9eQNVLX2QeYuFYmAa2qygZEBAr2HZif3P9F+ywhBBH4fO2ua9yVSD6ZXiRaND7uGh4dF
+ TifOFmhMEI4fP44LF86DZpTblPPvU1uvoXvjCJwyd6jsaxIeFbWcCvTv3Fu421aoy9C273F0nb6JluGX
+ UX/oOlT9VxGqHsOCrBHEpijIMfNgRITg5ubGBjC7CTTJvmZgaJhMW4YSfAnTvf8tor1r1676Xxw79uG5
+ c+fwzDPPiOjq7n6Dcn6QPMR5GE/g4YlT5VslNS0tp6W19XOejbhYKyvUqOkZRt3QdZQOXEVk9VncT4rb
+ p52AY/oJBCuOwk3mJRasvb0906dAxnyiq6ObRdvxuzhVuWANCd8cJViIDTQriaS+ocGWxuWMpqbmThrG
+ aol9Mulr9sRaQjDBnjA9jFMkMzNrPTWwz1Kooa2nWaeROnFheTNyd7wIT8UoFuQ9BqfCxwmjcCp4DPfl
+ jSJNXkfFOoupWuAUouI9RVst1+ABAhfutyv/A8IhcyOwFzgHOW2+94QVExMbsX379k8oAgLTI0+aeUUq
+ +CpH4Kx8Eq6lT0OqPgdpxXksLKdoKMeQ2z2GOYYGAvO9rZ3dp7TNasIaAkfAmfC9qfNDwgrrEr7T618T
+ Y5qv3iNCEJjNuLmVl6sRnL0F0qoL8Ki/DK+WZ+HdNg7Ppitwrb6I6NZLWOzvIxIF5X4v7bGOMBlxZrc7
+ s8+9kpTU1J27Bga4QQnU5cVGxR03qHoYQbtfRszwHxB3/DWED/0OPltfQFTnrxAZHsIG/NHQ0LCAtsgg
+ cBSYOn8w6v8Lmd3U1PRRNR1YeEzhQxCfLeQFeUjb/RTyr/4Vit98jMwr7yH80E1BfuCqEBy09DbR6RA9
+ m0NYT1hB4IOMHuHeiYtUKl5J6bCdO3d+ygMbD4o8NnCzVBQVoHbXIDrGb6DixTeRePpVYe+pc3ByWnCB
+ mIi7O0eAGYiblNgYCfdWVCUl4jUxKSlz//79wgClE43bQg+duni9f/8gjlDPOXrytDDyxBgKFYpX6HYF
+ QUlgAzh9uEH9h6f5H1EAHiQlkvucnKJofH6HGuOXBw4cEE9u3CD5AHPy1Cls29bzPvH+Jrq1lKAiMG3z
+ fPXNrnuv5cCRI5qVxLyoSF5FB59f7uzt/TOl1vvUIF/Pzd1wkc67rfR7BUFN4BSKIfDfeTqEn5RwLtsQ
+ zwfS6S6V5h05fWaPFxM4dXhA5MbFvM9d9ycrzOncWe8nME0uJvgTJmd9blr3nDb/W+Ec5ybJYMN+NorP
+ yIzMyIz8rEUi+Re4NXpfio4DrwAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAAB9ElE
+ QVQ4T6XSTWgTQRQH8E0LaZPaD9oaxULRi0igJSroqYLoxaa3gpfSFrx4sGp7Kj31pDYnPQpG8dzgQcSg
+ 1orQZJPd2exWSYOxiXhKQz5oEjQxpubvm6WN2zUe1IXf7OzMe2/fLCsA+C9NF//GbwtPfD67wti5SES5
+ +GZ19ZB532zfg8Lkq+uallFVFZymqRUqdNcYY9aYMFma1igpFoshl80in88jsbkJvhZRlAfGJCN9eOH3
+ WxWF5TaiUezs1FCv13X8SiYSoD2IwaCTx5rpA20OS5KEVCqFWu07KpWyrlr9hkJhG4wxSOHwdXMypw+B
+ tTVXOBRCOr1FSVWUSkVSQrn8FcViEUyW8VkTr5iTOX14vbLSTgUK0d0j8C54IaCOZDIBRt1d9gYXjIl7
+ GhM6xjWZAvl3yGQy9BFziMfj+Phegcf3FsLMc7TdfHbPmMztexBFcZ7O+oXwM+NdRP5xf/nVJ9uEF9aJ
+ h2ifeoyOyUcve+eedjUtwNHP0x8MBMaoo/EPauioIAgW+6jH233pFrpG76DTvYRu99LGwNhtW9MCf+IY
+ WbjRf3YOfWdm0Uf3gQuLh/m60EqvID3kGDlBhoiLnCKnd52ksCO9g+dnHM4p6eDxcY/VIvzqgAJaSRux
+ kQ5ygHSa7XXDtVBOo8C/g/ATj6yxruTRIKcAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.vb b/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.vb
new file mode 100644
index 0000000..6fde061
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgIMDBSearchResults.vb
@@ -0,0 +1,520 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgIMDBSearchResults
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private IMDB As New IMDB.Scraper
+ Private sHTTP As New HTTP
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+ #Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As IMDB.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching IMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ IMDB.CancelAsync()
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.txtIMDBID.Text.Replace("tt", String.Empty), Master.tmpMovie, Master.DefaultOptions)
+ Else
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOpenFolder_Click(sender As Object, e As EventArgs) Handles btnOpenFolder.Click
+ Dim fPath As String = Directory.GetParent(Master.currMovie.Filename).FullName
+
+ If Not String.IsNullOrEmpty(fPath) Then
+ Shell("Explorer.exe " & fPath, vbNormalFocus)
+ End If
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtIMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtIMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ IMDB.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.UseOFDBTitle = UseOFDBTitle
+ IMDB.UseOFDBOutline = UseOFDBOutline
+ IMDB.UseOFDBPlot = UseOFDBPlot
+ IMDB.UseOFDBGenre = UseOFDBGenre
+ AddHandler IMDB.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler IMDB.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ If Not Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ Exit Sub
+ Else
+ If MsgBox(String.Concat(Master.eLang.GetString(13, "You have manually entered an IMDB ID but have not verified it is correct."), vbNewLine, vbNewLine, Master.eLang.GetString(101, "Are you sure you want to continue?", True)), MsgBoxStyle.YesNo, Master.eLang.GetString(14, "Continue without verification?")) = MsgBoxResult.No Then
+ Exit Sub
+ Else
+ Master.tmpMovie.IMDBID = Me.txtIMDBID.Text.Replace("tt", String.Empty)
+ End If
+ End If
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.IMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.IMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.IMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As IMDB.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) Then
+ If M.PartialMatches.Count > 0 OrElse M.PopularTitles.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Dim TnP As New TreeNode(String.Format(Master.eLang.GetString(17, "Partial Matches ({0})"), M.PartialMatches.Count))
+ Dim selNode As New TreeNode
+
+ If M.PartialMatches.Count > 0 Then
+ M.PartialMatches.Sort()
+ For Each Movie As MediaContainers.Movie In M.PartialMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+ selNode = TnP.FirstNode
+ End If
+
+ If M.PopularTitles.Count > 0 Then
+ M.PopularTitles.Sort()
+ If M.PartialMatches.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(19, "Popular Titles ({0})"), M.PopularTitles.Count))
+
+ For Each Movie As MediaContainers.Movie In M.PopularTitles
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+ End If
+
+ If M.ExactMatches.Count > 0 Then
+ M.ExactMatches.Sort()
+ If M.PartialMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(18, "Exact Matches ({0})"), M.ExactMatches.Count))
+ For Each Movie As MediaContainers.Movie In M.ExactMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+
+ End If
+ Me._prevnode = -2
+
+ 'determine if we automatically start downloading info for selected node
+ If M.ExactMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PopularTitles.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PartialMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ Else
+ Me.tvResults.SelectedNode = Nothing
+ End If
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual IMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(289, "IMDB ID:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching IMDB...")
+ Me.txtFileName.Text = Master.currMovie.Filename
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtIMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..213f00e
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,466 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlMPDB = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.lblDL1Status = New System.Windows.Forms.Label()
+ Me.lblDL1 = New System.Windows.Forms.Label()
+ Me.pbDL1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlMPDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 1
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 4
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 3
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 1
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 2
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 0
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 2
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 1
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 0
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 1
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlMPDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1Status)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1)
+ Me.pnlDLStatus.Controls.Add(Me.pbDL1)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(257, 132)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(321, 223)
+ Me.pnlDLStatus.TabIndex = 2
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlMPDB
+ '
+ Me.pnlMPDB.Controls.Add(Me.lblDL3Status)
+ Me.pnlMPDB.Controls.Add(Me.lblDL3)
+ Me.pnlMPDB.Controls.Add(Me.pbDL3)
+ Me.pnlMPDB.Location = New System.Drawing.Point(0, 147)
+ Me.pnlMPDB.Name = "pnlMPDB"
+ Me.pnlMPDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMPDB.TabIndex = 4
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 1
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 0
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 2
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.pnlSinglePic)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2)
+ Me.pnlIMPA.Controls.Add(Me.pbDL2)
+ Me.pnlIMPA.Location = New System.Drawing.Point(0, 73)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 3
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 1
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 0
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 2
+ '
+ 'lblDL1Status
+ '
+ Me.lblDL1Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1Status.Location = New System.Drawing.Point(5, 29)
+ Me.lblDL1Status.Name = "lblDL1Status"
+ Me.lblDL1Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1Status.TabIndex = 1
+ '
+ 'lblDL1
+ '
+ Me.lblDL1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1.Location = New System.Drawing.Point(5, 6)
+ Me.lblDL1.Name = "lblDL1"
+ Me.lblDL1.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1.TabIndex = 0
+ Me.lblDL1.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL1
+ '
+ Me.pbDL1.Location = New System.Drawing.Point(6, 49)
+ Me.pbDL1.Name = "pbDL1"
+ Me.pbDL1.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL1.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL1.TabIndex = 2
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(0, 1)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 1
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlMPDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblDL1Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL1 As System.Windows.Forms.Label
+ Friend WithEvents pbDL1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMPDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.resx b/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..e4a4f58
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALAAAA
+ CwAB5DetvwAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.vb b/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..7e37076
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1309 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+ Private TMDB As New TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+ Private selURL As String = ""
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal iImage As Image, ByVal sDescription As String, ByVal iIndex As Integer, ByVal sURL As String, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = iImage
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(sURL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+
+ Me.pnlSinglePic.Visible = True
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ Dim percent = 100 / posters.Count
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress(Convert.ToInt32((i + 1) * percent), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL1Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL1.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+ Me.selURL = poster.URL
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains("themoviedb.org") OrElse sURL.ToLower.Contains("d3gtl9l2a4fn1j.cloudfront.net") OrElse sURL.ToLower.Contains("cf1.imgobject.com") OrElse sURL.ToLower.Contains("cf2.imgobject.com") Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "backdrop")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "poster")
+ Else
+ Me.lblDL1.Text = Master.eLang.GetString(33, "TheMovieDB.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ Me.lblDL2.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL2.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ Me.lblDL3.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.WebImage.Image, xPoster.Description, iIndex, xPoster.URL, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ IMPA.IMDBURL = IMDBURL
+ TMDB.IMDBURL = IMDBURL
+ MPDB.IMDBURL = IMDBURL
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL3.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL2.Text = Me.lblDL3.Text
+ Me.lblDL1.Text = Me.lblDL3.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me._tmdbDone = True
+ Me.AllDoneDownloading()
+ Else
+ Me.pnlDLStatus.Visible = False
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL1.Value = 0
+
+ Me.lblDL1.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL1Status.Text = String.Empty
+
+ TMDBPosters = Posters
+ Me.pbDL1.Maximum = 100
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL1.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..2871b29
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,292 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.btnPlayBrowser = New System.Windows.Forms.Button()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(350, 340)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(120, 23)
+ Me.OK_Button.TabIndex = 6
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(350, 369)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(120, 23)
+ Me.Cancel_Button.TabIndex = 7
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(445, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(458, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(122, 60)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(130, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(445, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(410, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(395, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(71, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(426, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(151, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 369)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(224, 340)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(120, 23)
+ Me.btnSetNfo.TabIndex = 5
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(478, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'btnPlayBrowser
+ '
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnPlayBrowser.Location = New System.Drawing.Point(12, 340)
+ Me.btnPlayBrowser.Name = "btnPlayBrowser"
+ Me.btnPlayBrowser.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayBrowser.TabIndex = 4
+ Me.btnPlayBrowser.Text = "Open In Browser"
+ Me.btnPlayBrowser.UseVisualStyleBackColor = True
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(484, 398)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Controls.Add(Me.btnPlayBrowser)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents btnPlayBrowser As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.resx b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..f08e020
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAK
+ 6QAACukB/XXO0wAAABh0RVh0U29mdHdhcmUAQWRvYmUgRmlyZXdvcmtzT7MfTgAAAfdJREFUOE+lkk1r
+ E1EUhi9apQsr7vwDigUXLtzpyrWlpdD8BSEbN1p1IRJQqNXoarCNH03aKlgQjU1ahCr2a6HSRRszGSe0
+ 4nQ+M9/JjIhYeb25JGVGmo0OPMw5h/M+9zIMAfBfxBpd07osyzxv21aCMuTY9pDnugmhUjkX3YsSa8xa
+ 7ToVgIZBw4wgaGBlZRn376WHo7ttYg0NjzfDTODYcB0H38MQS0uLuDM6isz42NXofpNYQwXc7uktge95
+ 0FQVxcIs5opFfPr44UI0s6cgeoO2JAwD1Ot+c56NZmIC+g2YwLJN+E6A0NtB6O/AdwMmbTEWzcQEhq5z
+ plmjgRBflDeYF5IMQZ5nMya3zM4CVVU4XdfQcH/hffUmbi0TxjvxBr3NbzTlhqF3FsjyNqcoMjzzB94K
+ aaQWjzAWhNuo2z9B/xOoitJZ8HVri5MkCbZWx1zpLoYXjjIKpRE4RgOKLGNbkjoL+HL5gbSpYGL1GpL5
+ Y7hYOMlI5o/j0eolqN8MVEUxE83EBBvr6yP8Zx4b5TVceTWIRK6XcfllP0qVNYiCiArPp6OZ3WI/IYf6
+ +/pO5bITmfzM6+e5Z9mps6ne6pnUic0nTx9Pz74ozkxPTT4cHBg4vY+Qw3sJDhBCutmQPq13DyFdPX/N
+ uunuwWbN+nbxb4D8AU3a+lQSEAyqAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
+ DAAACwwBP0AiyAAAAAd0SU1FB9kEGhIhAdf7pBcAAAJDSURBVDhPtVJLa5pBFPWxsGoQNI2oAY1ogigI
+ GitIULQufKxcBGmzLLpwo9B/UOgmv6GKuxDdCCKIGyOBLIpE8IWIaBauFEQSwcfCuZ07PkIogW564HDn
+ m7nnzHxzhvNfsFwuE5PJ5HelUnm5u7ubDYfD5ng8/kGXDjYd7+Dp6elTv9+fJxIJcDgcJBAIQDAYhIuL
+ CxKLxaDdbkOhUPiybX8LFJdKJdBoNOT8/BxcLheYzWaw2WyA30i9Xk+y2SxkMplvW9kr6M4LWohEIoHj
+ 42MIh8OQy+VAJpOBSqVic1KpFLCnVquBQqFQMyFisVh8x+PS4Z4ejwcQ6XSafXO53P2a1WqFer1+Q8cb
+ zOfzKi2Ect+Ev7BDKpXaz+/YarVeaN2gWq3OaAEejwd8Pp/R7XYz8Xq9ZjWZTDLh7iTlchnrR8pXA6FQ
+ CCKRCMRiMfh8PiYkhDCT5+dnODo6AoFAwAxoxFhVqOdMp9MWdSZ4SYeHhyCXyyEUCjEDFNN1TIddKF4y
+ GjSbzRWtH5jBaDT6eXl5CUqlEtRqNWi1Wri6umIGuDPGeXJywpJAc6fTCff392Um3uKAxogGxGAwMEEk
+ EoHVasXSsFgsYDKZ8B3gCUmj0QCdTufeajfI5/NfHx4ewGg0EvoKmQGeyuv1sh3tdjucnp6SYrEI19fX
+ v7ayt7i9vY3SFwnxeJzF6Pf72WWiQTQahW63+754B/qf6sfHx5vBYDDrdDqA7PV6Kxpb5ezs7PO27Z/A
+ pZRTYlRCnPgbHM4fFEdnm0hssg4AAAAASUVORK5CYII=
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.vb b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..67c25ca
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailer.vb
@@ -0,0 +1,480 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As New Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnPlayBrowser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayBrowser.Click
+ If Not String.IsNullOrEmpty(Me.txtYouTube.Text) Then
+ If Master.isWindows Then
+ Process.Start(Me.txtYouTube.Text)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.txtYouTube.Text
+ Explorer.Start()
+ End Using
+ End If
+ Else
+ If Master.isWindows Then
+ Process.Start(Me.lbTrailers.SelectedItem.ToString)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.lbTrailers.SelectedItem.ToString
+ Explorer.Start()
+ End Using
+ End If
+ End If
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ cTrailer.IMDBURL = IMDBURL
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.btnPlayBrowser.Enabled = False
+ Else
+ Me.btnPlayBrowser.Enabled = True
+ End If
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnPlayBrowser.Text = Master.eLang.GetString(114, "Open In Browser")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..8d135fa
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(72, 187)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(145, 187)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(4, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(170, 121)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(10, 8)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(180, 151)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(12, 75)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(12, 12)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(200, 169)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 217)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.resx b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.vb b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/clsScrapeTVDB.vb b/Addons/scraper.TVDB.Poster/TVScraper/clsScrapeTVDB.vb
new file mode 100644
index 0000000..b0f8531
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/clsScrapeTVDB.vb
@@ -0,0 +1,1911 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Data
+Imports System.IO
+Imports System.Text
+
+Imports ICSharpCode.SharpZipLib.Zip
+Imports EmberAPI
+
+Public Class Scraper
+
+#Region "Fields"
+
+ Public Const APIKey As String = "7B090234F418D074"
+
+ Public Shared WithEvents sObject As New ScraperObject
+ Public Shared tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Public Shared tmpTVDBShow As New TVDBShow
+ Public Shared TVDBImages As New TVImages
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ AddHandler sObject.ScraperEvent, AddressOf InnerEvent
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ sObject.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String) As MediaContainers.EpisodeDetails
+ Return sObject.ChangeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .SelectedLang = Lang, .iSeason = -999})
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String) As List(Of Containers.TVLanguage)
+ Dim tvdbLangs As New List(Of Containers.TVLanguage)
+ Dim cLang As Containers.TVLanguage
+ Dim xmlTVDB As XDocument
+ Dim sHTTP As New HTTP
+
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/languages.xml", sMirror, APIKey))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbLangs
+ End Try
+
+ Dim xLangs = From xLanguages In xmlTVDB.Descendants("Language")
+
+ For Each xL As XElement In xLangs
+ cLang = New Containers.TVLanguage
+ cLang.LongLang = xL.Element("name").Value
+ cLang.ShortLang = xL.Element("abbreviation").Value
+ tvdbLangs.Add(cLang)
+ Next
+ End If
+ Return tvdbLangs
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As MediaContainers.EpisodeDetails
+ Return sObject.GetSingleEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images) As Images
+ Return sObject.GetSingleImage(New Structures.ScrapeInfo With {.ShowTitle = Title, .ShowID = ShowID, .TVDBID = TVDBID, .ImageType = Type, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .CurrentImage = CurrentImage})
+ End Function
+
+ Public Sub InnerEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Function IsBusy() As Boolean
+ Return sObject.IsBusy
+ End Function
+
+ Public Sub SaveImages()
+ sObject.SaveImages()
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iEpisode = iEpisode, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeSeason(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub SingleScrape(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean)
+ sObject.SingleScrape(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options, .ScrapeType = ScrapeType, .WithCurrent = WithCurrent, .iSeason = -999})
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ <Serializable()> _
+ Public Structure TVImages
+
+#Region "Fields"
+
+ Dim AllSeasonPoster As TVDBShowPoster
+ Dim SeasonImageList As List(Of TVDBSeasonImage)
+ Dim ShowFanart As TVDBFanart
+ Dim ShowPoster As TVDBShowPoster
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function Clone() As TVImages
+ Dim newTVI As New TVImages
+ Try
+ Using ms As New IO.MemoryStream()
+ Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
+ bf.Serialize(ms, Me)
+ ms.Position = 0
+ newTVI = DirectCast(bf.Deserialize(ms), TVImages)
+ ms.Close()
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return newTVI
+ End Function
+
+#End Region 'Methods
+
+ End Structure
+
+ Public Class ScraperObject
+
+#Region "Fields"
+
+ Friend WithEvents bwTVDB As New System.ComponentModel.BackgroundWorker
+
+ Private aXML As String = String.Empty
+ Private bXML As String = String.Empty
+ Private sXML As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Shared Sub LoadAllEpisodes(ByVal _ID As Integer, ByVal OnlySeason As Integer)
+ Try
+
+ tmpTVDBShow = New TVDBShow
+
+ tmpTVDBShow.Show = Master.DB.LoadTVFullShowFromDB(_ID)
+ tmpTVDBShow.AllSeason = Master.DB.LoadTVAllSeasonFromDB(_ID)
+
+ Using SQLCount As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLRCount As SQLite.SQLiteDataReader = SQLCount.ExecuteReader
+ If Convert.ToInt32(SQLRCount("eCount")) > 0 Then
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLReader As SQLite.SQLiteDataReader = SQLCommand.ExecuteReader
+ While SQLReader.Read
+ tmpTVDBShow.Episodes.Add(Master.DB.LoadTVEpFromDB(Convert.ToInt64(SQLReader("ID")), True))
+ End While
+ End Using
+ End Using
+ End If
+ End Using
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTVDB.IsBusy Then bwTVDB.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Try
+ Dim tEpisodes As List(Of MediaContainers.EpisodeDetails) = Me.GetListOfKnownEpisodes(sInfo)
+ If tEpisodes.Count > 0 Then
+ Using dChangeEp As New dlgTVChangeEp
+ Return dChangeEp.ShowDialog(tEpisodes)
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(79, "There are no known episodes for this show. Scrape the show, season, or episode and try again."), MsgBoxStyle.OkOnly, Master.eLang.GetString(80, "No Known Episodes"))
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Nothing
+ End Function
+
+ Public Sub DownloadSeries(ByVal sInfo As Structures.ScrapeInfo, Optional ByVal ImagesOnly As Boolean = False)
+ Try
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim fExists As Boolean = File.Exists(fPath)
+ Dim doDownload As Boolean = False
+
+ Select Case Master.eSettings.TVUpdateTime
+ Case Enums.TVUpdateTime.Always
+ doDownload = True
+ Case Enums.TVUpdateTime.Never
+ doDownload = False
+ Case Enums.TVUpdateTime.Week
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(7) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.BiWeekly
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(14) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.Month
+ If fExists AndAlso File.GetCreationTime(fPath).AddMonths(1) < Now Then doDownload = True
+ End Select
+
+ If doDownload OrElse Not fExists Then
+ Dim sHTTP As New HTTP
+ Dim xZip As Byte() = sHTTP.DownloadZip(String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, APIKey, sInfo.TVDBID, sInfo.SelectedLang))
+ sHTTP = Nothing
+
+ If Not IsNothing(xZip) AndAlso xZip.Length > 0 Then
+ 'save it to the temp dir
+ Directory.CreateDirectory(Directory.GetParent(fPath).FullName)
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Create, FileAccess.Write)
+ fStream.Write(xZip, 0, xZip.Length)
+ End Using
+
+ Me.ProcessTVDBZip(xZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End If
+ Else
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+
+ Me.ProcessTVDBZip(fZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub DownloadSeriesAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.StartingDownload, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 1, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetListOfKnownEpisodes(ByVal sInfo As Structures.ScrapeInfo) As List(Of MediaContainers.EpisodeDetails)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim tSeas As Integer = -1
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ Try
+ If File.Exists(fPath) Then
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+ Me.ProcessTVDBZip(fZip, sInfo)
+
+ 'get the actors first
+ Try
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = If(IsNothing(Actor.Element("Role")), String.Empty, Actor.Element("Role").Value), .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdEps As XDocument = XDocument.Parse(sXML)
+
+ For Each Episode As XElement In xdEps.Descendants("Episode")
+ If Not IsNothing(Episode.Element("EpisodeName").Value) AndAlso Not String.IsNullOrEmpty(Episode.Element("EpisodeName").Value) Then
+ tEpisode = New MediaContainers.EpisodeDetails
+
+ tOrdering = Enums.Ordering.Standard
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ If Not IsNothing(Episode.Element("SeasonNumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("SeasonNumber").Value)
+ If sInfo.iSeason >= 0 AndAlso Not tSeas = sInfo.iSeason Then Continue For
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("DVD_season").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If Not IsNothing(Episode.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(Episode.Element("absolute_number").Value.ToString) Then
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+ Else
+ If sInfo.iSeason >= 0 AndAlso Not Convert.ToInt32(Episode.Element("SeasonNumber").Value) = sInfo.iSeason Then Continue For
+ End If
+
+ With tEpisode
+ .Title = Episode.Element("EpisodeName").Value
+ If tOrdering = Enums.Ordering.DVD Then
+ .Season = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ .Episode = Convert.ToInt32(CLng(Episode.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ .Season = 1
+ .Episode = Convert.ToInt32(Episode.Element("absolute_number").Value)
+ Else
+ .Season = If(IsNothing(Episode.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value), 0, Convert.ToInt32(Episode.Element("SeasonNumber").Value))
+ .Episode = If(IsNothing(Episode.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(Episode.Element("EpisodeNumber").Value), 0, Convert.ToInt32(Episode.Element("EpisodeNumber").Value))
+ End If
+ .Aired = If(IsNothing(Episode.Element("FirstAired")), String.Empty, Episode.Element("FirstAired").Value)
+ .Rating = If(IsNothing(Episode.Element("Rating")), String.Empty, Episode.Element("Rating").Value)
+ .Plot = If(IsNothing(Episode.Element("Overview")), String.Empty, Episode.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ .Director = If(IsNothing(Episode.Element("Director")), String.Empty, Strings.Join(Episode.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ .Credits = CreditsString(If(IsNothing(Episode.Element("GuestStars")), String.Empty, Episode.Element("GuestStars").Value), If(IsNothing(Episode.Element("Writer")), String.Empty, Episode.Element("Writer").Value))
+ .Actors = Actors
+ .PosterURL = If(IsNothing(Episode.Element("filename")), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Episode.Element("filename").Value))
+ .LocalFile = If(IsNothing(Episode.Element("filename")), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, Episode.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+
+ tEpisodes.Add(tEpisode)
+ End If
+ Next
+
+ End If
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tEpisodes
+ End Function
+
+ Public Sub GetSearchResultsAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 0, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetSingleEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Dim tEp As New MediaContainers.EpisodeDetails
+ Try
+
+ tEp = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Season = sInfo.iSeason AndAlso e.Episode = sInfo.iEpisode)
+
+ If Not IsNothing(tEp) Then
+ Return tEp
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return New MediaContainers.EpisodeDetails
+ End Function
+
+ Public Function GetSingleImage(ByVal sInfo As Structures.ScrapeInfo) As Images
+ tmpTVDBShow = New TVDBShow
+
+ If sInfo.ImageType = Enums.TVImageType.EpisodePoster Then
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ End If
+ Else
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ End If
+ End If
+ End Function
+
+ Public Function IsBusy() As Boolean
+ Return bwTVDB.IsBusy
+ End Function
+
+ Public Sub PassEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub ProcessTVDBZip(ByVal tvZip As Byte(), ByVal sInfo As Structures.ScrapeInfo)
+ sXML = String.Empty
+ bXML = String.Empty
+ aXML = String.Empty
+
+ Try
+ Using zStream As ZipInputStream = New ZipInputStream(New MemoryStream(tvZip))
+ Dim zEntry As ZipEntry = zStream.GetNextEntry
+
+ While Not IsNothing(zEntry)
+ Dim zBuffer As Byte() = Functions.ReadStreamToEnd(zStream)
+
+ Select Case True
+ Case zEntry.Name.Equals(String.Concat(sInfo.SelectedLang, ".xml"))
+ sXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("banners.xml")
+ bXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("actors.xml")
+ aXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ End Select
+
+ zEntry = zStream.GetNextEntry
+ End While
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub SaveImages()
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SavingStarted, 0, Nothing)
+ Me.bwTVDB = New System.ComponentModel.BackgroundWorker
+ Me.bwTVDB.WorkerReportsProgress = True
+ Me.bwTVDB.WorkerSupportsCancellation = True
+ Me.bwTVDB.RunWorkerAsync(New Arguments With {.Type = 3})
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ tmpTVDBShow = New TVDBShow
+ tmpTVDBShow.Episodes.Add(Master.currShow)
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Episodes(0).TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 4, .Parameter = sInfo})
+ End Sub
+
+ Public Sub SingleScrape(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = False
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 2, .Parameter = sInfo})
+ While bwTVDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub StartSingleScraper(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If String.IsNullOrEmpty(sInfo.TVDBID) AndAlso sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Show.TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ If sInfo.ScrapeType = Enums.ScrapeType.FullAuto Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SaveAuto, 0, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ ElseIf sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ 'Ignore Show scrape if ScrapeAuto and show don't have ID
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwtvDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTVDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Type
+ Case 0 'search
+ e.Result = New Results With {.Type = 0, .Result = SearchSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))}
+ Case 1 'show download
+ Me.DownloadSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))
+ e.Result = New Results With {.Type = 1}
+ Case 2 'load episodes
+ LoadAllEpisodes(DirectCast(Args.Parameter, Structures.ScrapeInfo).ShowID, 999)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ Case 3 'save
+ Me.SaveAllTVInfo()
+ e.Result = New Results With {.Type = 3}
+ Case 4
+ Dim sInfo As Structures.ScrapeInfo = DirectCast(Args.Parameter, Structures.ScrapeInfo)
+ LoadAllEpisodes(sInfo.ShowID, sInfo.iSeason)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTVDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTVDB.ProgressChanged
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Progress, e.ProgressPercentage, e.UserState.ToString)
+ End Sub
+
+ Private Sub bwTVDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTVDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.Type
+ Case 0 'search
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SearchResultsDownloaded, 0, DirectCast(Res.Result, List(Of TVSearchResults)))
+ Case 1 'show download
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ShowDownloaded, 0, Nothing)
+ Case 2 'load episodes
+ If Not e.Cancelled Then
+ StartSingleScraper(DirectCast(Res.Result, Structures.ScrapeInfo))
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End If
+ Case 3 'save
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CreditsString(ByVal sGStars As String, ByVal sWriters As String) As String
+ Dim cString As New List(Of String)
+ Dim gString As String = Master.eLang.GetString(82, "Guest Star")
+ Dim wString As String = Master.eLang.GetString(777, "Writer", True)
+
+ If Not String.IsNullOrEmpty(sGStars) Then
+ For Each gStar In sGStars.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(gStar) Then cString.Add(String.Concat(gStar, String.Format(" ({0})", gString)))
+ Next
+ End If
+
+ If Not String.IsNullOrEmpty(sWriters) Then
+ For Each Writer In sWriters.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(Writer) Then cString.Add(String.Concat(Writer, String.Format(" ({0})", wString)))
+ Next
+ End If
+
+ Return Strings.Join(cString.ToArray, " / ")
+ End Function
+
+ Private Sub SaveAllTVInfo()
+ Dim iEp As Integer = -1
+ Dim iSea As Integer = -1
+ Dim iProgress As Integer = 1
+
+ Dim tShow As New Structures.DBTV
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+
+ Me.bwTVDB.ReportProgress(tmpTVDBShow.Episodes.Count, "max")
+
+ Using SQLTrans As SQLite.SQLiteTransaction = Master.DB.MediaDBConn.BeginTransaction()
+ If Master.eSettings.DisplayMissingEpisodes Then
+ 'clear old missing episode from db
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ SQLCommand.CommandText = String.Concat("DELETE FROM TVEps WHERE Missing = 1 AND TVShowID = ", Master.currShow.ShowID, ";")
+ SQLCommand.ExecuteNonQuery()
+ End Using
+ End If
+
+ Try
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Try
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Episode.ShowID = Master.currShow.ShowID
+
+ iEp = Episode.TVEp.Episode
+ iSea = Episode.TVEp.Season
+
+ 'remove it from tepisodes since it's a real episode
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tEpisode = tEpisodes.FirstOrDefault(Function(e) e.Episode = iEp AndAlso e.Season = iSea)
+ If Not IsNothing(tEpisode) Then tEpisodes.Remove(tEpisode)
+ tShow = Episode
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Episode.TVEp.Season > -1 AndAlso Episode.TVEp.Episode > -1 AndAlso Not Episode.IsLockEp Then
+ If Not IsNothing(Episode.TVEp.Poster.Image) Then Episode.EpPosterPath = Episode.TVEp.Poster.SaveAsEpPoster(Episode, Episode.TVEp.PosterURL)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso Not IsNothing(Episode.TVEp.Fanart.Image) Then Episode.EpFanartPath = Episode.TVEp.Fanart.SaveAsEpFanart(Episode, )
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Dim cSea = From cSeason As TVDBSeasonImage In TVDBImages.SeasonImageList Where cSeason.Season = iSea Take 1
+ If cSea.Count > 0 Then
+ If Not IsNothing(cSea(0).Poster.Image) Then Episode.SeasonPosterPath = cSea(0).Poster.SaveAsSeasonPoster(Episode)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.SeasonFanartEnabled Then
+ If Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) AndAlso File.Exists(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.FromFile(cSea(0).Fanart.LocalFile)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ ElseIf Not String.IsNullOrEmpty(cSea(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.Clear()
+ cSea(0).Fanart.Image.FromWeb(cSea(0).Fanart.URL)
+ If Not IsNothing(cSea(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(cSea(0).Fanart.LocalFile).FullName)
+ cSea(0).Fanart.Image.Save(cSea(0).Fanart.LocalFile, , , False)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Episode)
+
+ Master.DB.SaveTVEpToDB(Episode, False, True, True, True)
+
+ If Me.bwTVDB.CancellationPending Then Return
+ End If
+ Me.bwTVDB.ReportProgress(iProgress, "progress")
+
+ 'If AdvancedSettings.GetBooleanSetting("ScrapeActorsThumbs", False) Then
+ 'For Each act As MediaContainers.Person In Episode.TVEp.Actors
+ 'Dim img As New Images
+ 'img.FromWeb(act.Thumb)
+ 'img.SaveAsActorThumb(act, Directory.GetParent(Episode.Filename).FullName)
+ 'Next
+ 'End If
+
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+
+ 'now save all missing episodes
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tShow.Filename = String.Empty
+ tShow.EpFanartPath = String.Empty
+ tShow.EpPosterPath = String.Empty
+ tShow.EpNfoPath = String.Empty
+ tShow.SeasonFanartPath = String.Empty
+ tShow.SeasonPosterPath = String.Empty
+ tShow.ShowFanartPath = String.Empty
+ tShow.IsLockEp = False
+ tShow.IsMarkEp = False
+ tShow.EpID = -1
+ If tEpisodes.Count > 0 Then
+ For Each Episode As MediaContainers.EpisodeDetails In tEpisodes
+ tShow.TVEp = Episode
+ Master.DB.SaveTVEpToDB(tShow, True, True, True)
+ Next
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ SQLTrans.Commit()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Using
+ End Sub
+
+ Private Sub SaveToCache(ByVal sID As String, ByVal sURL As String, ByVal sPath As String)
+ Dim sImage As New Images
+
+ sImage.FromWeb(sURL)
+
+ If Not IsNothing(sImage.Image) Then
+ sImage.Save(Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, sPath.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), , , True)
+ End If
+ sImage = Nothing
+ End Sub
+
+ Private Function SearchSeries(ByVal sInfo As Structures.ScrapeInfo) As List(Of TVSearchResults)
+ Dim tvdbResults As New List(Of TVSearchResults)
+ Dim cResult As New TVSearchResults
+ Dim xmlTVDB As XDocument
+ Dim tmpXML As XDocument
+ Dim sHTTP As New HTTP
+ Dim sLang As String = String.Empty
+ Dim tmpID As String = String.Empty
+
+ Try
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/GetSeries.php?seriesname={1}&language={2}", Master.eSettings.TVDBMirror, sInfo.ShowTitle, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbResults
+ End Try
+
+ Dim xSer = From xSeries In xmlTVDB.Descendants("Series") Where xSeries.HasElements
+
+ 'check each unique showid to see if we have an entry for the preferred languages. If not, try to force download it
+ For Each tID As String In xSer.GroupBy(Function(s) s.Element("seriesid").Value.ToString).Select(Function(group) group.Key)
+ tmpID = tID
+ If xSer.Where(Function(s) s.Element("seriesid").Value.ToString = tmpID AndAlso s.Element("language").Value.ToString = Master.eSettings.TVDBLanguage).Count = 0 Then
+ 'no preferred language in this series, force it
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, APIKey, tmpID, Master.eSettings.TVDBLanguage))
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ Continue For
+ End Try
+
+ For Each tSer As XElement In tmpXML.Descendants("Series").Where(Function(s) s.HasElements)
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ cResult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) AndAlso xSer.Where(Function(s) s.Element("seriesid").Value.ToString = cResult.ID.ToString AndAlso s.Element("language").Value.ToString = sLang).Count = 0 Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+ End If
+ Next
+ sHTTP = Nothing
+
+ For Each xS As XElement In xSer
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(xS.Element("seriesid").Value)
+ cResult.Name = If(Not IsNothing(xS.Element("SeriesName")), xS.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(xS.Element("language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = xS.Element("language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(xS.Element("language")) Then
+ sLang = xS.Element("language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(xS.Element("FirstAired")), xS.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(xS.Element("Overview")), xS.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(xS.Element("banner")), xS.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tvdbResults
+ End Function
+
+ Private Sub ShowFromXML(ByVal sInfo As Structures.ScrapeInfo, ByVal ImagesOnly As Boolean)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim sID As String = String.Empty
+ Dim iEp As Integer = -1
+ Dim iSeas As Integer = -1
+ Dim sTitle As String = String.Empty
+ Dim byTitle As Boolean = False
+ Dim xE As XElement = Nothing
+ Dim tShow As Structures.DBTV = tmpTVDBShow.Show
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ If Not ImagesOnly Then
+ If Master.eSettings.DisplayMissingEpisodes Then tEpisodes = Me.GetListOfKnownEpisodes(sInfo)
+
+ 'get the actors first
+ Try
+ If sInfo.Options.bShowActors OrElse sInfo.Options.bEpActors Then
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = Actor.Element("Role").Value, .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ 'now let's get the show info and all the episodes
+ Try
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdShow As XDocument = XDocument.Parse(sXML)
+ Dim xS = From xShow In xdShow.Descendants("Series")
+ If xS.Count > 0 Then
+ tShow.ShowLanguage = sInfo.SelectedLang
+ If Not IsNothing(tShow.TVShow) Then
+ With tShow.TVShow
+ sID = xS(0).Element("id").Value
+ .ID = sID
+ If sInfo.Options.bShowTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.ShowLockTitle) Then .Title = If(IsNothing(xS(0).Element("SeriesName")), .Title, xS(0).Element("SeriesName").Value)
+ If sInfo.Options.bShowEpisodeGuide Then .EpisodeGuideURL = If(Not String.IsNullOrEmpty(Master.eSettings.ExternalTVDBAPIKey), String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, Master.eSettings.ExternalTVDBAPIKey, sID, Master.eSettings.TVDBLanguage), String.Empty)
+ If sInfo.Options.bShowGenre AndAlso (String.IsNullOrEmpty(.Genre) OrElse Not Master.eSettings.ShowLockGenre) Then .Genre = If(IsNothing(xS(0).Element("Genre")), .Genre, Strings.Join(xS(0).Element("Genre").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bShowMPAA Then .MPAA = If(IsNothing(xS(0).Element("ContentRating")), .MPAA, xS(0).Element("ContentRating").Value)
+ If sInfo.Options.bShowPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.ShowLockPlot) Then .Plot = If(IsNothing(xS(0).Element("Overview")), .Plot, xS(0).Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ If sInfo.Options.bShowPremiered Then .Premiered = If(IsNothing(xS(0).Element("FirstAired")), .Premiered, xS(0).Element("FirstAired").Value)
+ If sInfo.Options.bShowRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.ShowLockRating) Then .Rating = If(IsNothing(xS(0).Element("Rating")), .Rating, xS(0).Element("Rating").Value)
+ If sInfo.Options.bShowStudio AndAlso (String.IsNullOrEmpty(.Studio) OrElse Not Master.eSettings.ShowLockStudio) Then .Studio = If(IsNothing(xS(0).Element("Network")), .Studio, xS(0).Element("Network").Value)
+ If sInfo.Options.bShowActors Then .Actors = Actors
+ End With
+ End If
+
+ 'set it back
+ tmpTVDBShow.Show = tShow
+
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Episode.ShowLanguage = sInfo.SelectedLang
+
+ iEp = Episode.TVEp.Episode
+ iSeas = Episode.TVEp.Season
+ sTitle = Episode.TVEp.Title
+ byTitle = False
+ tOrdering = Enums.Ordering.Standard
+
+ If Not IsNothing(tShow.TVShow) Then Episode.TVShow = tShow.TVShow
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ 'first we need to check if dvd order is specified for every episode in the season
+ 'we'll use the regular season number as an indicator even though there are some cases
+ 'where this will not work (season 1 episode 1 = dvd_season 2 dvd_episode 1) but it
+ 'should work in most cases and is the best solution I could come up with
+
+ If xdShow.Descendants("Episode").Where(Function(e) Not IsNothing(e.Element("SeasonNumber")) AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If xdShow.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+
+ If tOrdering = Enums.Ordering.DVD Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString) AndAlso Convert.ToInt32(CLng(e.Element("DVD_episodenumber").Value.ToString)) = iEp AndAlso Not IsNothing(e.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) AndAlso Convert.ToInt32(e.Element("DVD_season").Value) = iSeas)
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If iSeas = 1 Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("absolute_number").Value.ToString) = iEp)
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("EpisodeNumber").Value.ToString) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Convert.ToInt32(e.Element("EpisodeNumber").Value) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+
+ If IsNothing(xE) Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) StringUtils.ComputeLevenshtein(e.Element("EpisodeName").Value, sTitle) < 5)
+ byTitle = True
+ End If
+
+ If Not IsNothing(xE) Then
+ With Episode.TVEp
+ If sInfo.Options.bEpTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.EpLockTitle) AndAlso Not String.IsNullOrEmpty(xE.Element("EpisodeName").Value) Then .Title = xE.Element("EpisodeName").Value
+ If byTitle Then
+ If tOrdering = Enums.Ordering.DVD Then
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("DVD_season")) OrElse String.IsNullOrEmpty(xE.Element("DVD_season").Value), 0, Convert.ToInt32(xE.Element("DVD_season").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(xE.Element("DVD_episodenumber").Value), 0, Convert.ToInt32(xE.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If sInfo.Options.bEpSeason Then .Season = 1
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("absolute_number")) OrElse String.IsNullOrEmpty(xE.Element("absolute_number").Value), 0, Convert.ToInt32(xE.Element("absolute_number").Value))
+ Else
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(xE.Element("SeasonNumber").Value), 0, Convert.ToInt32(xE.Element("SeasonNumber").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(xE.Element("EpisodeNumber").Value), 0, Convert.ToInt32(xE.Element("EpisodeNumber").Value))
+ End If
+ End If
+ If sInfo.Options.bEpAired Then .Aired = If(IsNothing(xE.Element("FirstAired")), .Aired, xE.Element("FirstAired").Value)
+ If sInfo.Options.bEpRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.EpLockRating) Then .Rating = If(IsNothing(xE.Element("Rating")), .Rating, xE.Element("Rating").Value)
+ If sInfo.Options.bEpPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.EpLockPlot) Then .Plot = If(IsNothing(xE.Element("Overview")), .Plot, xE.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ 'If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xS(0).Element("Director")), .Director, Strings.Join(xS(0).Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xE.Element("Director")), .Director, Strings.Join(xE.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpCredits Then .Credits = CreditsString(If(IsNothing(xE.Element("GuestStars")), String.Empty, xE.Element("GuestStars").Value), If(IsNothing(xE.Element("Writer")), String.Empty, xE.Element("Writer").Value))
+ If sInfo.Options.bEpActors Then .Actors = Actors
+ .PosterURL = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, xE.Element("filename").Value))
+ .LocalFile = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, xE.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+ End If
+ Next
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Else
+ sID = sInfo.TVDBID
+ End If
+ 'and finally the images
+ Try
+ If ImagesOnly OrElse Not IsNothing(tShow.TVShow) Then
+ If Not String.IsNullOrEmpty(bXML) Then
+ Dim xdImage As XDocument = XDocument.Parse(bXML)
+ For Each tImage As XElement In xdImage.Descendants("Banner")
+ If (Not IsNothing(tImage.Element("BannerPath")) AndAlso Not String.IsNullOrEmpty(tImage.Element("BannerPath").Value)) AndAlso _
+ (Not Master.eSettings.OnlyGetTVImagesForSelectedLanguage OrElse ((Not IsNothing(tImage.Element("Language")) AndAlso tImage.Element("Language").Value = Master.eSettings.TVDBLanguage) OrElse _
+ ((IsNothing(tImage.Element("Language")) OrElse tImage.Element("Language").Value = "en") AndAlso Master.eSettings.AlwaysGetEnglishTVImages))) Then
+ Select Case tImage.Element("BannerType").Value
+ Case "fanart"
+ tmpTVDBShow.Fanart.Add(New TVDBFanart With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .ThumbnailURL = If(IsNothing(tImage.Element("ThumbnailPath")) OrElse String.IsNullOrEmpty(tImage.Element("ThumbnailPath").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("ThumbnailPath").Value)), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .LocalThumb = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("ThumbnailPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "poster"
+ tmpTVDBShow.Posters.Add(New TVDBPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "posters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "season"
+ tmpTVDBShow.SeasonPosters.Add(New TVDBSeasonPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Season = If(IsNothing(tImage.Element("Season")) OrElse String.IsNullOrEmpty(tImage.Element("Season").Value), 0, Convert.ToInt32(tImage.Element("Season").Value)), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.SeasonPosterType.None, StringToSeasonPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seasonposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "series"
+ tmpTVDBShow.ShowPosters.Add(New TVDBShowPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.ShowBannerType.None, StringToShowPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seriesposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ End Select
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function StringToSeasonPosterType(ByVal sType As String) As Enums.SeasonPosterType
+ Select Case sType.ToLower
+ Case "season"
+ Return Enums.SeasonPosterType.Poster
+ Case "seasonwide"
+ Return Enums.SeasonPosterType.Wide
+ Case Else
+ Return Enums.SeasonPosterType.None
+ End Select
+ End Function
+
+ Private Function StringToShowPosterType(ByVal sType As String) As Enums.ShowBannerType
+ Select Case sType.ToLower
+ Case "blank"
+ Return Enums.ShowBannerType.Blank
+ Case "graphical"
+ Return Enums.ShowBannerType.Graphical
+ Case "text"
+ Return Enums.ShowBannerType.Text
+ Case Else
+ Return Enums.ShowBannerType.None
+ End Select
+ End Function
+
+#End Region 'Methods
+
+#Region "Other"
+
+ Private Structure Arguments
+
+ Dim Parameter As Object
+ Dim Type As Integer
+
+ End Structure
+
+ Private Structure Results
+
+ Dim Result As Object
+ Dim Type As Integer '0 = search, 1 = show download, 2 = load eps, 3 = save
+
+ End Structure
+
+#End Region 'Other
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBFanart
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _localthumb As String
+ Private _size As Size
+ Private _thumbnailurl As String
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property LocalThumb() As String
+ Get
+ Return Me._localthumb
+ End Get
+ Set(ByVal value As String)
+ Me._localthumb = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property ThumbnailURL() As String
+ Get
+ Return Me._thumbnailurl
+ End Get
+ Set(ByVal value As String)
+ Me._thumbnailurl = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._thumbnailurl = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._localthumb = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _size As Size
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBSeasonImage
+
+#Region "Fields"
+
+ Private _fanart As TVDBFanart
+ Private _poster As Images
+ Private _season As Integer
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Fanart() As TVDBFanart
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As TVDBFanart)
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Poster() As Images
+ Get
+ Return Me._poster
+ End Get
+ Set(ByVal value As Images)
+ Me._poster = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._season = -1
+ Me._poster = New Images
+ Me._fanart = New TVDBFanart
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBSeasonPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _season As Integer
+ Private _type As Enums.SeasonPosterType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.SeasonPosterType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.SeasonPosterType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._season = 0
+ Me._type = Enums.SeasonPosterType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBShow
+
+#Region "Fields"
+
+ Private _allseason As Structures.DBTV
+ Private _episodes As New List(Of Structures.DBTV)
+ Private _fanart As New List(Of TVDBFanart)
+ Private _posters As New List(Of TVDBPoster)
+ Private _seasonposters As New List(Of TVDBSeasonPoster)
+ Private _show As Structures.DBTV
+ Private _showposters As New List(Of TVDBShowPoster)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property AllSeason() As Structures.DBTV
+ Get
+ Return Me._allseason
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._allseason = value
+ End Set
+ End Property
+
+ Public Property Episodes() As List(Of Structures.DBTV)
+ Get
+ Return Me._episodes
+ End Get
+ Set(ByVal value As List(Of Structures.DBTV))
+ Me._episodes = value
+ End Set
+ End Property
+
+ Public Property Fanart() As List(Of TVDBFanart)
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As List(Of TVDBFanart))
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Posters() As List(Of TVDBPoster)
+ Get
+ Return Me._posters
+ End Get
+ Set(ByVal value As List(Of TVDBPoster))
+ Me._posters = value
+ End Set
+ End Property
+
+ Public Property SeasonPosters() As List(Of TVDBSeasonPoster)
+ Get
+ Return Me._seasonposters
+ End Get
+ Set(ByVal value As List(Of TVDBSeasonPoster))
+ Me._seasonposters = value
+ End Set
+ End Property
+
+ Public Property Show() As Structures.DBTV
+ Get
+ Return Me._show
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._show = value
+ End Set
+ End Property
+
+ Public Property ShowPosters() As List(Of TVDBShowPoster)
+ Get
+ Return Me._showposters
+ End Get
+ Set(ByVal value As List(Of TVDBShowPoster))
+ Me._showposters = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._show = New Structures.DBTV
+ Me._allseason = New Structures.DBTV
+ Me._episodes = New List(Of Structures.DBTV)
+ Me._fanart = New List(Of TVDBFanart)
+ Me._showposters = New List(Of TVDBShowPoster)
+ Me._seasonposters = New List(Of TVDBSeasonPoster)
+ Me._posters = New List(Of TVDBPoster)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBShowPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _type As Enums.ShowBannerType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.ShowBannerType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.ShowBannerType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._type = Enums.ShowBannerType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVSearchResults
+
+#Region "Fields"
+
+ Private _aired As String
+ Private _banner As String
+ Private _id As Integer
+ Private _language As Containers.TVLanguage
+ Private _lev As Integer
+ Private _name As String
+ Private _overview As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Aired() As String
+ Get
+ Return Me._aired
+ End Get
+ Set(ByVal value As String)
+ Me._aired = value
+ End Set
+ End Property
+
+ Public Property Banner() As String
+ Get
+ Return Me._banner
+ End Get
+ Set(ByVal value As String)
+ Me._banner = value
+ End Set
+ End Property
+
+ Public Property ID() As Integer
+ Get
+ Return Me._id
+ End Get
+ Set(ByVal value As Integer)
+ Me._id = value
+ End Set
+ End Property
+
+ Public Property Language() As Containers.TVLanguage
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As Containers.TVLanguage)
+ Me._language = value
+ End Set
+ End Property
+
+ Public Property Lev() As Integer
+ Get
+ Return Me._lev
+ End Get
+ Set(ByVal value As Integer)
+ Me._lev = value
+ End Set
+ End Property
+
+ Public Property Name() As String
+ Get
+ Return Me._name
+ End Get
+ Set(ByVal value As String)
+ Me._name = value
+ End Set
+ End Property
+
+ Public Property Overview() As String
+ Get
+ Return Me._overview
+ End Get
+ Set(ByVal value As String)
+ Me._overview = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._id = 0
+ Me._name = String.Empty
+ Me._aired = String.Empty
+ Me._language = New Containers.TVLanguage
+ Me._overview = String.Empty
+ Me._banner = String.Empty
+ Me._lev = 0
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.Designer.vb b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.Designer.vb
new file mode 100644
index 0000000..dd38c94
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.Designer.vb
@@ -0,0 +1,139 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVChangeEp
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lvEpisodes = New System.Windows.Forms.ListView()
+ Me.colEpisode = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colTitle = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pbPreview = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.txtPlot = New System.Windows.Forms.TextBox()
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(505, 286)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(575, 286)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lvEpisodes
+ '
+ Me.lvEpisodes.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colEpisode, Me.colTitle})
+ Me.lvEpisodes.FullRowSelect = True
+ Me.lvEpisodes.HideSelection = False
+ Me.lvEpisodes.Location = New System.Drawing.Point(3, 3)
+ Me.lvEpisodes.MultiSelect = False
+ Me.lvEpisodes.Name = "lvEpisodes"
+ Me.lvEpisodes.Size = New System.Drawing.Size(358, 278)
+ Me.lvEpisodes.TabIndex = 2
+ Me.lvEpisodes.UseCompatibleStateImageBehavior = False
+ Me.lvEpisodes.View = System.Windows.Forms.View.Details
+ '
+ 'colEpisode
+ '
+ Me.colEpisode.Text = "Episode"
+ '
+ 'colTitle
+ '
+ Me.colTitle.Text = "Title"
+ Me.colTitle.Width = 276
+ '
+ 'pbPreview
+ '
+ Me.pbPreview.Location = New System.Drawing.Point(417, 12)
+ Me.pbPreview.Name = "pbPreview"
+ Me.pbPreview.Size = New System.Drawing.Size(174, 117)
+ Me.pbPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPreview.TabIndex = 3
+ Me.pbPreview.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(367, 140)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(275, 21)
+ Me.lblTitle.TabIndex = 3
+ '
+ 'txtPlot
+ '
+ Me.txtPlot.BackColor = System.Drawing.SystemColors.Control
+ Me.txtPlot.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtPlot.Location = New System.Drawing.Point(366, 169)
+ Me.txtPlot.Multiline = True
+ Me.txtPlot.Name = "txtPlot"
+ Me.txtPlot.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+ Me.txtPlot.Size = New System.Drawing.Size(276, 111)
+ Me.txtPlot.TabIndex = 4
+ '
+ 'dlgTVChangeEp
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(646, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.txtPlot)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPreview)
+ Me.Controls.Add(Me.lvEpisodes)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVChangeEp"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Change Episode"
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lvEpisodes As System.Windows.Forms.ListView
+ Friend WithEvents colEpisode As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colTitle As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pbPreview As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents txtPlot As System.Windows.Forms.TextBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.resx b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.resx
new file mode 100644
index 0000000..717c885
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.resx
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="txtPlot.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>True</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.vb b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.vb
new file mode 100644
index 0000000..954f58a
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVChangeEp.vb
@@ -0,0 +1,120 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgTVChangeEp
+
+#Region "Fields"
+
+ Private _episode As MediaContainers.EpisodeDetails = Nothing
+ Private _tepisodes As New List(Of MediaContainers.EpisodeDetails)
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal tEpisodes As List(Of MediaContainers.EpisodeDetails)) As MediaContainers.EpisodeDetails
+ Me._tepisodes = tEpisodes
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return _episode
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.pbPreview.Image = Nothing
+ Me.lblTitle.Text = String.Empty
+ Me.txtPlot.Text = String.Empty
+ End Sub
+
+ Private Sub dlgTVChangeEp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+
+ Dim lGroup As New ListViewGroup
+ Dim lItem As New ListViewItem
+ Dim tSeason As Integer = Nothing
+
+ For Each Season As Integer In _tepisodes.GroupBy(Function(s) s.Season).Select(Function(group) group.Key)
+ tSeason = Season
+ lGroup = New ListViewGroup
+ lGroup.Header = String.Format(Master.eLang.GetString(726, "Season {0}", True), tSeason)
+ lvEpisodes.Groups.Add(lGroup)
+ For Each Episode As MediaContainers.EpisodeDetails In _tepisodes.Where(Function(s) s.Season = tSeason).OrderBy(Function(s) s.Episode)
+ lItem = lvEpisodes.Items.Add(Episode.Episode.ToString)
+ lItem.Tag = Episode
+ lItem.SubItems.Add(Episode.Title)
+ lGroup.Items.Add(lItem)
+ Next
+ Next
+ End Sub
+
+ Private Sub lvEpisodes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvEpisodes.SelectedIndexChanged
+ Me.ClearInfo()
+ If lvEpisodes.SelectedItems.Count > 0 AndAlso Not IsNothing(lvEpisodes.SelectedItems(0).Tag) Then
+ Me._episode = DirectCast(lvEpisodes.SelectedItems(0).Tag, MediaContainers.EpisodeDetails)
+
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ ElseIf Not String.IsNullOrEmpty(Me._episode.LocalFile) AndAlso File.Exists(Me._episode.LocalFile) Then
+ Me._episode.Poster.FromFile(Me._episode.LocalFile)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ ElseIf Not String.IsNullOrEmpty(Me._episode.PosterURL) Then
+ Me._episode.Poster.FromWeb(Me._episode.PosterURL)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Me._episode.LocalFile).FullName)
+ Me._episode.Poster.Save(Me._episode.LocalFile)
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ End If
+
+ Me.lblTitle.Text = Me._episode.Title
+ Me.txtPlot.Text = Me._episode.Plot
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(772, "Change Episode", True)
+
+ Me.lvEpisodes.Columns(0).Text = Master.eLang.GetString(727, "Episode", True)
+ Me.lvEpisodes.Columns(1).Text = Master.eLang.GetString(21, "Title", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.Designer.vb b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.Designer.vb
new file mode 100644
index 0000000..b05c597
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.Designer.vb
@@ -0,0 +1,368 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbBanner = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblAiredHeader = New System.Windows.Forms.Label()
+ Me.lblAired = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lvSearchResults = New System.Windows.Forms.ListView()
+ Me.colName = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLev = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colID = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colSLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.txtTVDBID = New System.Windows.Forms.TextBox()
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(485, 335)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(558, 335)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbBanner
+ '
+ Me.pbBanner.Location = New System.Drawing.Point(325, 69)
+ Me.pbBanner.Name = "pbBanner"
+ Me.pbBanner.Size = New System.Drawing.Size(300, 55)
+ Me.pbBanner.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbBanner.TabIndex = 3
+ Me.pbBanner.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(325, 132)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(300, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Visible = False
+ '
+ 'lblAiredHeader
+ '
+ Me.lblAiredHeader.AutoSize = True
+ Me.lblAiredHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblAiredHeader.Location = New System.Drawing.Point(325, 161)
+ Me.lblAiredHeader.Name = "lblAiredHeader"
+ Me.lblAiredHeader.Size = New System.Drawing.Size(38, 13)
+ Me.lblAiredHeader.TabIndex = 10
+ Me.lblAiredHeader.Text = "Aired:"
+ Me.lblAiredHeader.Visible = False
+ '
+ 'lblAired
+ '
+ Me.lblAired.AutoSize = True
+ Me.lblAired.Location = New System.Drawing.Point(387, 161)
+ Me.lblAired.Name = "lblAired"
+ Me.lblAired.Size = New System.Drawing.Size(63, 13)
+ Me.lblAired.TabIndex = 12
+ Me.lblAired.Text = "00/00/0000"
+ Me.lblAired.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(325, 189)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 13
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtOutline.Location = New System.Drawing.Point(325, 205)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(300, 127)
+ Me.txtOutline.TabIndex = 14
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lvSearchResults
+ '
+ Me.lvSearchResults.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colName, Me.colLang, Me.colLev, Me.colID, Me.colSLang})
+ Me.lvSearchResults.FullRowSelect = True
+ Me.lvSearchResults.HideSelection = False
+ Me.lvSearchResults.Location = New System.Drawing.Point(3, 96)
+ Me.lvSearchResults.MultiSelect = False
+ Me.lvSearchResults.Name = "lvSearchResults"
+ Me.lvSearchResults.Size = New System.Drawing.Size(316, 236)
+ Me.lvSearchResults.TabIndex = 5
+ Me.lvSearchResults.UseCompatibleStateImageBehavior = False
+ Me.lvSearchResults.View = System.Windows.Forms.View.Details
+ '
+ 'colName
+ '
+ Me.colName.Text = "Title"
+ Me.colName.Width = 223
+ '
+ 'colLang
+ '
+ Me.colLang.Text = "Language"
+ Me.colLang.Width = 89
+ '
+ 'colLev
+ '
+ Me.colLev.Width = 0
+ '
+ 'colID
+ '
+ Me.colID.Width = 0
+ '
+ 'colSLang
+ '
+ Me.colSLang.Width = 0
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(380, 154)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 11
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TVDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(287, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper TV show."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(216, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "TV Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(296, 67)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(3, 68)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(287, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(244, 337)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Enabled = False
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(3, 341)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(127, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual TVDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'txtTVDBID
+ '
+ Me.txtTVDBID.Enabled = False
+ Me.txtTVDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTVDBID.Location = New System.Drawing.Point(138, 337)
+ Me.txtTVDBID.Name = "txtTVDBID"
+ Me.txtTVDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTVDBID.TabIndex = 7
+ '
+ 'dlgTVDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 378)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.txtTVDBID)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.lvSearchResults)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblAiredHeader)
+ Me.Controls.Add(Me.lblAired)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbBanner)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 406)
+ Me.Name = "dlgTVDBSearchResults"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "TV Search Results"
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbBanner As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblAiredHeader As System.Windows.Forms.Label
+ Friend WithEvents lblAired As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lvSearchResults As System.Windows.Forms.ListView
+ Friend WithEvents colName As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents colLev As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colID As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colSLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents txtTVDBID As System.Windows.Forms.TextBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.resx b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.resx
new file mode 100644
index 0000000..7a332a8
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.vb b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.vb
new file mode 100644
index 0000000..cce33d3
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVDBSearchResults.vb
@@ -0,0 +1,437 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+
+ Private lvResultsSorter As New ListViewColumnSorter
+ Private sHTTP As New HTTP
+ Private sInfo As Structures.ScrapeInfo
+ Private _manualresult As Scraper.TVSearchResults = Nothing
+ Private _skipdownload As Boolean = False
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _sInfo As Structures.ScrapeInfo) As Windows.Forms.DialogResult
+ Me.sInfo = _sInfo
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal _sinfo As Structures.ScrapeInfo, ByVal SkipDownload As Boolean) As Structures.ScrapeInfo
+ Me.sInfo = _sinfo
+ Me._skipdownload = SkipDownload
+
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return Me.sInfo
+ Else
+ Return _sinfo
+ End If
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.lvSearchResults.Enabled = False
+ Me.sInfo.ShowTitle = Me.txtSearch.Text
+ Me.ClearInfo()
+ Me.chkManual.Enabled = False
+ Me.chkManual.Checked = False
+ Me.txtSearch.Text = String.Empty
+ Me.btnVerify.Enabled = False
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+ Me.pnlLoading.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If IsNumeric(Me.txtTVDBID.Text) AndAlso Me.txtTVDBID.Text.Length >= 5 Then
+ Dim tmpXML As XDocument = Nothing
+ Dim sLang As String = String.Empty
+
+ Me.ClearInfo()
+ Me.pnlLoading.Visible = True
+ Application.DoEvents()
+
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, Scraper.APIKey, Me.txtTVDBID.Text, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ End Try
+
+ If Not IsNothing(tmpXML) Then
+ Dim tSer As XElement = tmpXML.Descendants("Series").FirstOrDefault(Function(s) s.HasElements)
+
+ If Not IsNothing(tSer) Then
+ Me._manualresult = New Scraper.TVSearchResults
+ Me._manualresult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ Me._manualresult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ End If
+ Me._manualresult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ Me._manualresult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value, String.Empty)
+ Me._manualresult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(Me._manualresult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ If Not String.IsNullOrEmpty(Me._manualresult.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = Me._manualresult.Banner})
+ End If
+
+ Me.OK_Button.Tag = Me._manualresult.ID
+ Me.lblTitle.Text = Me._manualresult.Name
+ Me.txtOutline.Text = Me._manualresult.Overview
+ Me.lblAired.Text = Me._manualresult.Aired
+ Me.OK_Button.Enabled = True
+ Me.pnlLoading.Visible = False
+ Me.ControlsVisible(True)
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Else
+ MsgBox(Master.eLang.GetString(83, "The ID you entered is not a valid TVDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ sHTTP.StartDownloadImage(String.Format("http://{0}/banners/_cache/{1}", Master.eSettings.TVDBMirror, Args.pURL))
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image()}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbBanner.Image = Res.Result
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTVDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.lvSearchResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTVDBID.Text = String.Empty
+ Else
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then Me.lvSearchResults.SelectedItems(0).Selected = False
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblAired.Text = String.Empty
+ Me.pbBanner.Image = Nothing
+ Scraper.sObject.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.pbBanner.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblAiredHeader.Visible = areVisible
+ Me.lblAired.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ End Sub
+
+ Private Sub dlgTVDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ AddHandler ModulesManager.Instance.TVScraperEvent, AddressOf TVScraperEvent
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+
+ Me.lvSearchResults.ListViewItemSorter = Me.lvResultsSorter
+
+ Me.SetUp()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvSearchResults.ColumnClick
+ ' Determine if the clicked column is already the column that is
+ ' being sorted.
+ Try
+ If (e.Column = Me.lvResultsSorter.SortColumn) Then
+ ' Reverse the current sort direction for this column.
+ If (Me.lvResultsSorter.Order = SortOrder.Ascending) Then
+ Me.lvResultsSorter.Order = SortOrder.Descending
+ Else
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+ Else
+ ' Set the column number that is to be sorted; default to ascending.
+ Me.lvResultsSorter.SortColumn = e.Column
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+
+ ' Perform the sort with these new sort options.
+ Me.lvSearchResults.Sort()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvSearchResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub lvSearchResults_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvSearchResults.SelectedIndexChanged
+ Me.ClearInfo()
+ If Me.lvSearchResults.SelectedItems.Count > 0 AndAlso Not Me.chkManual.Checked Then
+ Dim SelectedShow As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ If Not String.IsNullOrEmpty(SelectedShow.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = SelectedShow.Banner})
+ End If
+
+ Me.OK_Button.Tag = SelectedShow.ID
+ Me.lblTitle.Text = SelectedShow.Name
+ Me.txtOutline.Text = SelectedShow.Overview
+ Me.lblAired.Text = SelectedShow.Aired
+ Me.OK_Button.Enabled = True
+ Me.ControlsVisible(True)
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then
+ Dim sResults As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ Me.sInfo.TVDBID = sResults.ID.ToString
+ Me.sInfo.SelectedLang = sResults.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ ElseIf Me.chkManual.Checked AndAlso Not IsNothing(Me._manualresult) Then
+ Me.sInfo.TVDBID = Me._manualresult.ID.ToString
+ Me.sInfo.SelectedLang = Me._manualresult.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label1.Text = Master.eLang.GetString(85, "TV Search Results")
+ Me.Label2.Text = Master.eLang.GetString(86, "View details of each result to find the proper TV show.")
+ Me.lblAiredHeader.Text = Master.eLang.GetString(658, "Aired:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(783, "Plot Summary:", True)
+
+ Me.lvSearchResults.Columns(0).Text = Master.eLang.GetString(21, "Title", True)
+ Me.lvSearchResults.Columns(1).Text = Master.eLang.GetString(610, "Language", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ Select Case eType
+ Case Enums.TVScraperEventType.SearchResultsDownloaded
+ Dim lItem As ListViewItem
+ Dim sResults As List(Of Scraper.TVSearchResults) = DirectCast(Parameter, List(Of Scraper.TVSearchResults))
+
+ Me.lvSearchResults.Items.Clear()
+
+ If Not IsNothing(sResults) AndAlso sResults.Count > 0 Then
+ For Each sRes As Scraper.TVSearchResults In sResults.OrderBy(Function(r) r.Lev)
+ lItem = New ListViewItem(sRes.Name)
+ lItem.SubItems.Add(sRes.Language.LongLang)
+ lItem.SubItems.Add(sRes.Lev.ToString)
+ lItem.SubItems.Add(sRes.ID.ToString)
+ lItem.SubItems.Add(sRes.Language.ShortLang)
+ lItem.Tag = sRes
+ Me.lvSearchResults.Items.Add(lItem)
+ Next
+ End If
+
+ Me.pnlLoading.Visible = False
+
+ If Me.lvSearchResults.Items.Count > 0 Then
+ If sResults.Select(Function(s) s.ID).Distinct.Count = 1 Then
+ 'they're all for the same show... try to find one with the preferred language
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ Else
+ 'we've got a bunch of different shows... try to find a "best match" title with the preferred language
+ If sResults.Where(Function(s) s.Lev <= 5).Count > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(2).Text) <= 5 AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ 'get the id for the best english match and see if we have one for the preferred language with same id
+ Dim tID As Integer = sResults.OrderBy(Function(s) s.Lev).FirstOrDefault(Function(s) s.Language.ShortLang = "en").ID
+ If tID > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(3).Text) = tID AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ Me.lvSearchResults.Items(0).Selected = True
+ End If
+ Me.lvSearchResults.Select()
+ End If
+
+ Me.chkManual.Enabled = True
+ If Not Me.chkManual.Checked Then Me.lvSearchResults.Enabled = True
+
+ Case Enums.TVScraperEventType.ShowDownloaded
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Select
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Sub txtTVDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTVDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtTVDBID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTVDBID.KeyPress
+ e.Handled = StringUtils.NumericOnly(e.KeyChar, True)
+ End Sub
+
+ Private Sub txtTVDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTVDBID.TextChanged
+ If String.IsNullOrEmpty(Me.txtTVDBID.Text) Then
+ Me.btnVerify.Enabled = False
+ Me.OK_Button.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.Designer.vb b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.Designer.vb
new file mode 100644
index 0000000..a3ebbd8
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.Designer.vb
@@ -0,0 +1,86 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTVEpisodePoster
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(292, 287)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(362, 287)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.BackColor = System.Drawing.Color.DimGray
+ Me.pbPoster.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pbPoster.Location = New System.Drawing.Point(6, 6)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(423, 276)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ '
+ 'dlgTVEpisodePoster
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVEpisodePoster"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Confirm Episode Poster"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.resx b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.vb b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.vb
new file mode 100644
index 0000000..60ed929
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVEpisodePoster.vb
@@ -0,0 +1,48 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVEpisodePoster
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal Poster As Image) As System.Windows.Forms.DialogResult
+ Me.pbPoster.Image = Poster
+ Return MyBase.ShowDialog
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbPoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbPoster.Click
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(Me.pbPoster.Image)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.Designer.vb b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.Designer.vb
new file mode 100644
index 0000000..cf05d15
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.Designer.vb
@@ -0,0 +1,213 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVImageSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVImageSelect))
+ Me.tvList = New System.Windows.Forms.TreeView()
+ Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+ Me.pnlImages = New System.Windows.Forms.Panel()
+ Me.pbCurrent = New System.Windows.Forms.PictureBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnOK = New System.Windows.Forms.Button()
+ Me.btnCancel = New System.Windows.Forms.Button()
+ Me.pbDelete = New System.Windows.Forms.PictureBox()
+ Me.pbUndo = New System.Windows.Forms.PictureBox()
+ Me.lblCurrentImage = New System.Windows.Forms.Label()
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlStatus.SuspendLayout()
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'tvList
+ '
+ Me.tvList.Enabled = False
+ Me.tvList.ImageIndex = 0
+ Me.tvList.ImageList = Me.ImageList1
+ Me.tvList.Location = New System.Drawing.Point(3, 4)
+ Me.tvList.Name = "tvList"
+ Me.tvList.SelectedImageIndex = 0
+ Me.tvList.Size = New System.Drawing.Size(214, 262)
+ Me.tvList.TabIndex = 2
+ Me.tvList.Visible = False
+ '
+ 'ImageList1
+ '
+ Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+ Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+ Me.ImageList1.Images.SetKeyName(0, "new_page.png")
+ Me.ImageList1.Images.SetKeyName(1, "image.png")
+ Me.ImageList1.Images.SetKeyName(2, "artwork.png")
+ Me.ImageList1.Images.SetKeyName(3, "star_full.png")
+ '
+ 'pnlImages
+ '
+ Me.pnlImages.AutoScroll = True
+ Me.pnlImages.BackColor = System.Drawing.SystemColors.Control
+ Me.pnlImages.Location = New System.Drawing.Point(222, 4)
+ Me.pnlImages.Name = "pnlImages"
+ Me.pnlImages.Size = New System.Drawing.Size(622, 421)
+ Me.pnlImages.TabIndex = 3
+ '
+ 'pbCurrent
+ '
+ Me.pbCurrent.BackColor = System.Drawing.SystemColors.Control
+ Me.pbCurrent.Location = New System.Drawing.Point(3, 293)
+ Me.pbCurrent.Name = "pbCurrent"
+ Me.pbCurrent.Size = New System.Drawing.Size(214, 157)
+ Me.pbCurrent.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbCurrent.TabIndex = 2
+ Me.pbCurrent.TabStop = False
+ Me.pbCurrent.Visible = False
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(264, 192)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(321, 75)
+ Me.pnlStatus.TabIndex = 5
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(5, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(310, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Gathering Data..."
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(6, 52)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(309, 19)
+ Me.pbStatus.Step = 1
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnOK
+ '
+ Me.btnOK.Enabled = False
+ Me.btnOK.Location = New System.Drawing.Point(708, 431)
+ Me.btnOK.Name = "btnOK"
+ Me.btnOK.Size = New System.Drawing.Size(65, 22)
+ Me.btnOK.TabIndex = 0
+ Me.btnOK.Text = "OK"
+ Me.btnOK.UseVisualStyleBackColor = True
+ '
+ 'btnCancel
+ '
+ Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.btnCancel.Location = New System.Drawing.Point(779, 431)
+ Me.btnCancel.Name = "btnCancel"
+ Me.btnCancel.Size = New System.Drawing.Size(65, 22)
+ Me.btnCancel.TabIndex = 1
+ Me.btnCancel.Text = "Cancel"
+ Me.btnCancel.UseVisualStyleBackColor = True
+ '
+ 'pbDelete
+ '
+ Me.pbDelete.Image = CType(resources.GetObject("pbDelete.Image"), System.Drawing.Image)
+ Me.pbDelete.Location = New System.Drawing.Point(3, 293)
+ Me.pbDelete.Name = "pbDelete"
+ Me.pbDelete.Size = New System.Drawing.Size(16, 16)
+ Me.pbDelete.TabIndex = 13
+ Me.pbDelete.TabStop = False
+ Me.pbDelete.Visible = False
+ '
+ 'pbUndo
+ '
+ Me.pbUndo.Image = CType(resources.GetObject("pbUndo.Image"), System.Drawing.Image)
+ Me.pbUndo.Location = New System.Drawing.Point(201, 293)
+ Me.pbUndo.Name = "pbUndo"
+ Me.pbUndo.Size = New System.Drawing.Size(16, 16)
+ Me.pbUndo.TabIndex = 14
+ Me.pbUndo.TabStop = False
+ Me.pbUndo.Visible = False
+ '
+ 'lblCurrentImage
+ '
+ Me.lblCurrentImage.AutoSize = True
+ Me.lblCurrentImage.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblCurrentImage.Location = New System.Drawing.Point(0, 274)
+ Me.lblCurrentImage.Name = "lblCurrentImage"
+ Me.lblCurrentImage.Size = New System.Drawing.Size(100, 17)
+ Me.lblCurrentImage.TabIndex = 4
+ Me.lblCurrentImage.Text = "Current Image:"
+ Me.lblCurrentImage.Visible = False
+ '
+ 'dlgTVImageSelect
+ '
+ Me.AcceptButton = Me.btnOK
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.btnCancel
+ Me.ClientSize = New System.Drawing.Size(849, 481)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.lblCurrentImage)
+ Me.Controls.Add(Me.pbUndo)
+ Me.Controls.Add(Me.pbDelete)
+ Me.Controls.Add(Me.btnCancel)
+ Me.Controls.Add(Me.btnOK)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.pbCurrent)
+ Me.Controls.Add(Me.pnlImages)
+ Me.Controls.Add(Me.tvList)
+ Me.DoubleBuffered = True
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(855, 491)
+ Me.Name = "dlgTVImageSelect"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "TV Image Selection"
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlStatus.ResumeLayout(False)
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents tvList As System.Windows.Forms.TreeView
+ Friend WithEvents pnlImages As System.Windows.Forms.Panel
+ Friend WithEvents pbCurrent As System.Windows.Forms.PictureBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnOK As System.Windows.Forms.Button
+ Friend WithEvents btnCancel As System.Windows.Forms.Button
+ Friend WithEvents pbDelete As System.Windows.Forms.PictureBox
+ Friend WithEvents pbUndo As System.Windows.Forms.PictureBox
+ Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+ Friend WithEvents lblCurrentImage As System.Windows.Forms.Label
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.resx b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.resx
new file mode 100644
index 0000000..db85c76
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.resx
@@ -0,0 +1,210 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
+ LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+ ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
+ CwAAAk1TRnQBSQFMAgEBBAEAATABAAEwAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+ AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+ AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+ AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+ AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+ AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+ ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+ AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+ AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+ AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+ AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+ AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+ AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+ AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+ AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+ ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+ Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+ AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+ AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+ AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+ ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+ Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+ AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+ AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+ AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+ AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+ AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+ AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AFgAC/wMA
+ Bf8DAAH/BAAL/wMAA/8BAAb/AQAD/wMABf8C9AX/AgAC/wHzAfAJvAHzAv8CAAL/AfQB8QH0AfIB8QH0
+ AfEB8wL/AwAD/wH0Af8E9AH/AvQC/wMAAf8B8QEHB7wB8gH/AwAB/wG8AfEC8gXzAvIB8AH0AwAD/wGT
+ AfQB8AGTAQABkwH0Av8DAAL/AfQBUwGZBP8B8AFTAfAC/wQAAfEB8AfxAfIEAAH0AfAB8QHyB/MB8gHx
+ AfQGAAEaAvMBmQH/AZMIAAH/AXUBMgF1AfQB/wGaAjIB9AYAAvEI8gQAAfQB8AEJCLsBCQHxAfQFAAH/
+ AZMBdAGZAXQBmQF0AfQIAAEaAjICUwIyAXUB/wYACfIB8wQAAfQBuwG5AbMGigGyAbkBuwH0BAAB8wGZ
+ BnQBkwHxAf8GAAH0BjIBGgcAAvIG8wHyAfMEAAH0AbsCuQGsAYoCrAGKAawBswG5AbsB9AQAAvEB8AG7
+ AbUBBwEaAfIB8wHwAf8GAAH2AVMFMgEbBwAK8wQAAf8BuwO5AbIDrAGzArkBuwH0BAAB8gG8Aa4BbAFL
+ AUwBUgGZAfMB8QH/BQAB8wFTBzIBGgYACvMEAAH/AbsDuQGyAqwBsgO5AbsB9AQAAfEB/wEHAW4BUgIy
+ AY4B9AHyAf8DAAH/ARoKMgF6Af8EAArzBAAB/wEJAroBswGsArIBrAGzAroBuwH0BAAB8gH2AbsCggNM
+ AvMB/wMAAfQBMgFTAlkBUwMyA1kBMgEaBAAG8wP0AfMEAAH/AQkDugSyA7oBCQH0BAABGwH0AbsB9AGO
+ AbABkwF1AfQB8wH/BAAE/wEaAjIBegX/BAAF8wH0AfIC7wHyBAAB9AHwA7sBugKyAboDuwEJAfQEAAEb
+ Af8B8wH/Ab0B8gH0AbcB8wH0Af8IAAH0AjgBGgkABfMB9AEHAewB8AUAAfQB8AoJAfAB9AQAAfMC9AEb
+ AZkBkwEaAvQBGwH/CAAB/wF6ATgB/wkABfMB9AEHAbwGAAH/AfMBGQnyAfMB/wQABP8BmQF0AfQD/woA
+ ARoBWQH/CQAB/wX0AfMIAAH0CvMB9AkAAfMBGg4AAf8B9EcAAUIBTQE+BwABPgMAASgDAAFAAwABIAMA
+ AQEBAAEBBgABARYAA/+BAAL/AZwBHQHgAQMBiAERAcABAwIAAcABAwGAAQEBwAEDAYABAQHAAUMBgAEB
+ AeABBwGAAQEB+AEfAeABBwHgAQcBgAEBAfABDwHwAQcB4AEHAYABAQHgAQMB8AEPAeABBwGAAQEB4AED
+ AfABDwHgAQcBgAEBAeABAwHgAQcB4AEHAYABAQHgAQMBgAEBAeABBwGAAQEB4AEDAYABAQHgAQcBgAEB
+ AeABAwHAAQEB4AEHAYABAQHgAQMB/AE/AeABDwGAAQEB4AEDAfwBPwHgAR8BgAEBAeABBwH+AT8B4AE/
+ AcABAwH+AX8B/gF/CP8L
+</value>
+ </data>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="pbDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB60lEQVQ4T2P4//8/AyUYRfN9B2Pfu3YGzbgMvGdnkHnP3qgQWR5uwC1X
+ s4grBqr/L2kp/L9upbsF3ZAbdgaNl3WV/1/WUfp/w96w9//BmYwgNWADrnpYcZ3WUf5/XFEajE+py/2/
+ aIkw5LKtQeNpbSWgnBQYn9JU/H/eTNsUbsBOTi7GA4rSPQeUZf6DMVDRITW5/2csdVecszesOaqt+H8/
+ UAwuryS9/4CsBDfcAJhzdyrL9O5Qkv6/E4h3KEj93wN0yT4txf/bFSQhYhC5/Us0FVlgejBiYCPQkA1A
+ hWAMtHU90CAYf6OS9N752iqsWAMRWXCFkvTxFcCwQMPvNpkawG3G6YIFitINCxWk/gDxf3S8QFFqI3rs
+ oHhhhqJ040ygRhieAWSDMKqY9Jb/T7/D9YEZE1TlGSYqSDVMlJf6D8MTQGwF6c2TFKS7wGxkrCC1ZZKK
+ HAc8FnrVFLg65SX/o+H9tfqqTCBFXQpSvR1o8l2K0mYo0dihJJvYBLSlSU7yP5De9y3AG6wZhpvlpbrB
+ ckDcoigz/bGzFViegZkBjAWAFG+cpGh9trTYFm4WZgMgXwcobgzCQDaIr5AiKTo3U1p8IZAtAsR8cBcA
+ FTEDMdhPYEEGBk4gnxcZA8V4kOTZQHowUiI52RoAvKofAJdcVi8AAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="pbUndo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAHHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3MgQ1M0BrLToAAAAihJREFUOE9j+P//PwMlmCLNIIupZwATAwMjOxs7Q8XKkwzFG2+y
+ GnYd8XOZdprZedopBr9FVxiSNt5jqD3wjGHC6TcMvadegzGKCxgYGFhVdE0Y0ldcYVFt3LeYIWfrO9aS
+ XZzmU84weC+6ypBMhAEsPoU9nBJV+w4xpG/4z5C//SN/zf4ou1kXDIAGsKRvvsdQfxCPC7jFFIVFc9fu
+ ZEhb+58hZ9N/hoLt/xlL9/xnqT78X6Ln3D3bRbfaSvc+FZ927g3DpDMQjOIF1ohptxlSgJrTEQYwlOz+
+ z1C+/z9D1eH/jM2n/6vOuf06dtsT64ydTxjSdjxBNYApdf1/huSVmAZUHPjPUHPkP0P9if8MLWf/K8y7
+ 98lw0T1do0V3UQ0QsoqIZc/e/AXZCwyFuyAuABtw8j9D05n/LF2X/2ssfnTEeOkDVAPYmRgZtLJn2bFk
+ b/7BkLURFAa/NbuOdUi1HY8QbjsZKtN3Pkl20uUpHD2Xn/FNuf3fYNljF4xotPGLYohacsWOIXPDW4a8
+ bW/lmw9yKXedYJDuOs2gO/0Sg/vyOwxZu56yGCy+Xy086/58dAMYxSRlGJq3XWOIWnhBS6hy93rB6r0c
+ YnX7GWQ6TzJoT7vE4Lz0NkPW7ucMkdufM1mufOJP3aQMMo2ZgYEZiEWBWBaYtKVYOPkNWMRUvYFscSCW
+ BYqLAzErcu5FyUxASUaQAiDmAGIuIAbLA2l2qBgbSA2yAQAKojORM6Lv5AAAAABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.vb b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.vb
new file mode 100644
index 0000000..288414e
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/TVScraper/dlgTVImageSelect.vb
@@ -0,0 +1,1224 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+'TODO: 1.5 - TV Show renaming (including "dump folder")
+'TODO: 1.5 - Support VIDEO_TS/BDMV folders for TV Shows
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTVImageSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadFanart As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadData As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadImages As New System.ComponentModel.BackgroundWorker
+
+ Private DefaultImages As New Scraper.TVImages
+ Private FanartList As New List(Of Scraper.TVDBFanart)
+ Private GenericPosterList As New List(Of Scraper.TVDBPoster)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private SeasonList As New List(Of Scraper.TVDBSeasonPoster)
+ Private SelIsPoster As Boolean = True
+ Private SelSeason As Integer = -999
+ Private ShowPosterList As New List(Of Scraper.TVDBShowPoster)
+ Private _fanartchanged As Boolean = False
+ Private _id As Integer = -1
+ Private _season As Integer = -999
+ Private _type As Enums.TVImageType = Enums.TVImageType.All
+ Private _withcurrent As Boolean = True
+ Private _ScrapeType As Enums.ScrapeType
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function SetDefaults() As Boolean
+ Dim iSeason As Integer = -1
+ Dim iEpisode As Integer = -1
+ Dim iProgress As Integer = 3
+
+ Dim tSea As Scraper.TVDBSeasonPoster
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.TVDBImages.SeasonImageList.Count + Scraper.tmpTVDBShow.Episodes.Count + 3, "defaults")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster) AndAlso IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ If Master.eSettings.IsShowBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) p.Language = Master.eSettings.TVDBLanguage AndAlso Not IsNothing(p.Image.Image))
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(1, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Dim tSF As Scraper.TVDBFanart = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize AndAlso f.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize)
+
+ 'no fanart of the preferred size, just get the first available
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image))
+
+ If Not IsNothing(tSF) Then
+ If Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso File.Exists(tSF.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(tSF.LocalFile)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ ElseIf Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso Not String.IsNullOrEmpty(tSF.URL) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(tSF.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tSF.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(tSF.LocalFile, , , False)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(2, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled AndAlso IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ If Master.eSettings.IsAllSBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(3, "progress")
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.SeasonFanart Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList
+ Try
+ iSeason = cSeason.Season
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster) AndAlso IsNothing(cSeason.Poster.Image) Then
+ tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason)
+ If Not IsNothing(tSea) Then cSeason.Poster = tSea.Image
+ End If
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonFanart) AndAlso Master.eSettings.SeasonFanartEnabled AndAlso IsNothing(cSeason.Fanart.Image.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then cSeason.Fanart.Image = Scraper.TVDBImages.ShowFanart.Image
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Episode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not String.IsNullOrEmpty(Episode.TVEp.LocalFile) Then
+ Episode.TVEp.Poster.FromFile(Episode.TVEp.LocalFile)
+ ElseIf Not String.IsNullOrEmpty(Episode.EpPosterPath) Then
+ Episode.TVEp.Poster.FromFile(Episode.EpPosterPath)
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled Then
+ If Not String.IsNullOrEmpty(Episode.EpFanartPath) Then
+ Episode.TVEp.Fanart.FromFile(Episode.EpFanartPath)
+ ElseIf Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Episode.TVEp.Fanart = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ DefaultImages = Scraper.TVDBImages.Clone
+
+ Return False
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As System.Windows.Forms.DialogResult
+ Me._id = ShowID
+ Me._type = Type
+ Me._withcurrent = WithCurrent
+ Me._ScrapeType = ScrapeType
+ Return MyBase.ShowDialog
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal CurrentImage As Images) As Images
+ Me._id = ShowID
+ Me._type = Type
+ Me._season = Season
+ Me.pbCurrent.Image = CurrentImage.Image
+ Me.pbCurrent.Tag = CurrentImage
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return CType(Me.pbCurrent.Tag, Images)
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal fTag As ImageTag)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.lblImage(iIndex) = New Label()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(187, 187)
+ Me.pbImage(iIndex).Size = New Size(181, 151)
+ Me.lblImage(iIndex).Size = New Size(181, 30)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblImage(iIndex).Text = sDescription
+ Me.pbImage(iIndex).Image = fTag.ImageObj.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.lblImage(iIndex).Left = 0
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.lblImage(iIndex).Top = 151
+ Me.pnlImage(iIndex).Tag = fTag
+ Me.pbImage(iIndex).Tag = fTag
+ Me.lblImage(iIndex).Tag = fTag
+ Me.pnlImages.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 192
+ Else
+ Me.iLeft += 192
+ End If
+ End Sub
+
+ Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
+ If Me.bwLoadData.IsBusy Then Me.bwLoadData.CancelAsync()
+ If Me.bwLoadImages.IsBusy Then Me.bwLoadImages.CancelAsync()
+
+ While Me.bwLoadData.IsBusy OrElse Me.bwLoadImages.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+ DoneAndClose()
+ End Sub
+
+ Private Sub DoneAndClose()
+ If Me._type = Enums.TVImageType.All Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ Master.currShow.ShowPosterPath = Scraper.TVDBImages.ShowPoster.LocalFile
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ End If
+ End If
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Master.currShow.SeasonPosterPath = Scraper.TVDBImages.AllSeasonPoster.LocalFile
+ End If
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromFile(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Clear()
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromWeb(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile).FullName)
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Save(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ End If
+ End If
+ ElseIf (Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+ End If
+
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+
+ Private Sub bwLoadData_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadData.DoWork
+ Dim cSI As Scraper.TVDBSeasonImage
+ Dim iProgress As Integer = 1
+ Dim iSeason As Integer = -1
+
+ Me.bwLoadData.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count, "current")
+
+ 'initialize the struct
+ Scraper.TVDBImages.ShowPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.ShowFanart = New Scraper.TVDBFanart
+ Scraper.TVDBImages.AllSeasonPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.SeasonImageList = New List(Of Scraper.TVDBSeasonImage)
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Select Case Me._type
+ Case Enums.TVImageType.AllSeasonPoster
+ Scraper.TVDBImages.AllSeasonPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.SeasonFanart
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Fanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.SeasonPoster
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Poster = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.ShowFanart, Enums.TVImageType.EpisodeFanart
+ Scraper.TVDBImages.ShowFanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.ShowPoster
+ Scraper.TVDBImages.ShowPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.All
+
+ If _withcurrent Then
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowPosterPath)
+ Scraper.TVDBImages.ShowPoster.LocalFile = Scraper.tmpTVDBShow.Show.ShowPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = Scraper.tmpTVDBShow.Show.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image.FromFile(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath)
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+ If iSeason > -1 Then
+ If IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(sEpisode.ShowPosterPath)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(sEpisode.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = sEpisode.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ If Not String.IsNullOrEmpty(sEpisode.SeasonPosterPath) Then
+ cSI.Poster.FromFile(sEpisode.SeasonPosterPath)
+ End If
+ If Master.eSettings.SeasonFanartEnabled AndAlso Not String.IsNullOrEmpty(sEpisode.SeasonFanartPath) Then
+ cSI.Fanart.Image.FromFile(sEpisode.SeasonFanartPath)
+ cSI.Fanart.LocalFile = sEpisode.SeasonFanartPath
+ End If
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ End If
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ Else
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ End Select
+ End Sub
+
+ Private Sub bwLoadData_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadData.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "current" Then
+ Me.lblStatus.Text = Master.eLang.GetString(88, "Loading Current Images...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadData_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadData.RunWorkerCompleted
+ If Not e.Cancelled Then
+ Me.GenerateList()
+
+ Me.lblStatus.Text = Master.eLang.GetString(89, "(Down)Loading New Images...")
+ Me.bwLoadImages.WorkerReportsProgress = True
+ Me.bwLoadImages.WorkerSupportsCancellation = True
+ Me.bwLoadImages.RunWorkerAsync()
+ End If
+ End Sub
+
+ Private Sub bwLoadImages_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadImages.DoWork
+ e.Cancel = Me.DownloadAllImages()
+ End Sub
+
+ Private Sub bwLoadImages_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadImages.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "defaults" Then
+ Me.lblStatus.Text = Master.eLang.GetString(90, "Setting Defaults...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadImages_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadImages.RunWorkerCompleted
+ Me.pnlStatus.Visible = False
+ If _ScrapeType = Enums.ScrapeType.FullAuto Then
+ DoneAndClose()
+ Else
+ If Not e.Cancelled Then
+ Me.tvList.Enabled = True
+ Me.tvList.Visible = True
+ Me.tvList.SelectedNode = Me.tvList.Nodes(0)
+ Me.tvList.Focus()
+
+ Me.btnOK.Enabled = True
+ End If
+
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ End If
+ End Sub
+
+ Private Sub CheckCurrentImage()
+ Me.pbDelete.Visible = Not IsNothing(Me.pbCurrent.Image) AndAlso Me.pbCurrent.Visible
+ Me.pbUndo.Visible = Me.pbCurrent.Visible
+ End Sub
+
+ Private Sub ClearImages()
+ Try
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop = 5
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+
+ If Me.pnlImages.Controls.Count > 0 Then
+ For i As Integer = UBound(Me.pnlImage) To 0 Step -1
+ If Not IsNothing(Me.pnlImage(i)) Then
+ If Not IsNothing(Me.lblImage(i)) AndAlso Me.pnlImage(i).Contains(Me.lblImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.lblImage(i))
+ If Not IsNothing(Me.pbImage(i)) AndAlso Me.pnlImage(i).Contains(Me.pbImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.pbImage(i))
+ If Me.pnlImages.Contains(Me.pnlImage(i)) Then Me.pnlImages.Controls.Remove(Me.pnlImage(i))
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgTVImageSelect_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ AddHandler pnlImages.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler tvList.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlImages)
+
+ Me.SetUp()
+ End Sub
+
+ Private Sub dlgTVImageSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.bwLoadData.WorkerReportsProgress = True
+ Me.bwLoadData.WorkerSupportsCancellation = True
+ Me.bwLoadData.RunWorkerAsync()
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, ByVal SelTag As ImageTag)
+ Try
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ Next
+
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+
+ SetImage(SelTag)
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function DownloadAllImages() As Boolean
+ Dim iProgress As Integer = 1
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count + Scraper.tmpTVDBShow.SeasonPosters.Count + Scraper.tmpTVDBShow.ShowPosters.Count + Scraper.tmpTVDBShow.Fanart.Count + Scraper.tmpTVDBShow.Posters.Count, "max")
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Epi As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not File.Exists(Epi.TVEp.LocalFile) Then
+ If Not String.IsNullOrEmpty(Epi.TVEp.PosterURL) Then
+ Epi.TVEp.Poster.FromWeb(Epi.TVEp.PosterURL)
+ If Not IsNothing(Epi.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Epi.TVEp.LocalFile).FullName)
+ Epi.TVEp.Poster.Save(Epi.TVEp.LocalFile)
+ End If
+ End If
+ Else
+ Epi.TVEp.Poster.FromFile(Epi.TVEp.LocalFile)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Seas As Scraper.TVDBSeasonPoster In Scraper.tmpTVDBShow.SeasonPosters
+ Try
+ If Not File.Exists(Seas.LocalFile) Then
+ If Not String.IsNullOrEmpty(Seas.URL) Then
+ Seas.Image.FromWeb(Seas.URL)
+ If Not IsNothing(Seas.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Seas.LocalFile).FullName)
+ Seas.Image.Save(Seas.LocalFile, , , False)
+ SeasonList.Add(Seas)
+ End If
+ End If
+ Else
+ Seas.Image.FromFile(Seas.LocalFile)
+ SeasonList.Add(Seas)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each SPost As Scraper.TVDBShowPoster In Scraper.tmpTVDBShow.ShowPosters
+ Try
+ If Not File.Exists(SPost.LocalFile) Then
+ If Not String.IsNullOrEmpty(SPost.URL) Then
+ SPost.Image.FromWeb(SPost.URL)
+ If Not IsNothing(SPost.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SPost.LocalFile).FullName)
+ SPost.Image.Save(SPost.LocalFile, , , False)
+ ShowPosterList.Add(SPost)
+ End If
+ End If
+ Else
+ SPost.Image.FromFile(SPost.LocalFile)
+ ShowPosterList.Add(SPost)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.SeasonFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then
+ For Each SFan As Scraper.TVDBFanart In Scraper.tmpTVDBShow.Fanart
+ Try
+ If Not File.Exists(SFan.LocalThumb) Then
+ If Not String.IsNullOrEmpty(SFan.ThumbnailURL) Then
+ SFan.Image.FromWeb(SFan.ThumbnailURL)
+ If Not IsNothing(SFan.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SFan.LocalThumb).FullName)
+ SFan.Image.Save(SFan.LocalThumb, , , False)
+ FanartList.Add(SFan)
+ End If
+ End If
+ Else
+ SFan.Image.FromFile(SFan.LocalThumb)
+ FanartList.Add(SFan)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse _
+ Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Post As Scraper.TVDBPoster In Scraper.tmpTVDBShow.Posters
+ Try
+ If Not File.Exists(Post.LocalFile) Then
+ If Not String.IsNullOrEmpty(Post.URL) Then
+ Post.Image.FromWeb(Post.URL)
+ If Not IsNothing(Post.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Post.LocalFile).FullName)
+ Post.Image.Save(Post.LocalFile, , , False)
+ GenericPosterList.Add(Post)
+ End If
+ End If
+ Else
+ Post.Image.FromFile(Post.LocalFile)
+ GenericPosterList.Add(Post)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Me.SetDefaults()
+ End Function
+
+ Private Function DownloadFanart(ByVal iTag As ImageTag) As Image
+ Dim sHTTP As New HTTP
+
+ Using tImage As New Images
+ If Not String.IsNullOrEmpty(iTag.Path) AndAlso File.Exists(iTag.Path) Then
+ tImage.FromFile(iTag.Path)
+ ElseIf Not String.IsNullOrEmpty(iTag.Path) AndAlso Not String.IsNullOrEmpty(iTag.URL) Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+
+ Application.DoEvents()
+
+ tImage.FromWeb(iTag.URL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(iTag.Path).FullName)
+ tImage.Save(iTag.Path, , , False)
+ End If
+
+ sHTTP = Nothing
+
+ Me.pnlStatus.Visible = False
+ End If
+
+ Return tImage.Image
+ End Using
+ End Function
+
+ Private Sub GenerateList()
+ Try
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(91, "Show Poster"), .Tag = "showp", .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then Me.tvList.Nodes.Add(New TreeNode With {.Text = If(Me._type = Enums.TVImageType.EpisodeFanart, Master.eLang.GetString(92, "Episode Fanart"), Master.eLang.GetString(93, "Show Fanart")), .Tag = "showf", .ImageIndex = 1, .SelectedImageIndex = 1})
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(94, "All Seasons Poster"), .Tag = "allp", .ImageIndex = 2, .SelectedImageIndex = 2})
+
+ Dim TnS As TreeNode
+ If Me._type = Enums.TVImageType.All Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList.OrderBy(Function(s) s.Season)
+ Try
+ TnS = New TreeNode(String.Format(Master.eLang.GetString(726, "Season {0}", True), cSeason.Season), 3, 3)
+ TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(95, "Season Posters"), .Tag = String.Concat("p", cSeason.Season.ToString), .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Master.eSettings.SeasonFanartEnabled Then TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(96, "Season Fanart"), .Tag = String.Concat("f", cSeason.Season.ToString), .ImageIndex = 1, .SelectedImageIndex = 1})
+ Me.tvList.Nodes.Add(TnS)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ ElseIf Me._type = Enums.TVImageType.SeasonPoster Then
+ Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(97, "Season {0} Posters"), Me._season), .Tag = String.Concat("p", Me._season)})
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart Then
+ If Master.eSettings.SeasonFanartEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(99, "Season {0} Fanart"), Me._season), .Tag = String.Concat("f", Me._season)})
+ End If
+
+ Me.tvList.ExpandAll()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetFanartDims(ByVal fSize As Size) As Enums.FanartSize
+ Try
+ If (fSize.Width > 1000 AndAlso fSize.Height > 750) OrElse (fSize.Height > 1000 AndAlso fSize.Width > 750) Then
+ Return Enums.FanartSize.Lrg
+ ElseIf (fSize.Width > 700 AndAlso fSize.Height > 400) OrElse (fSize.Height > 700 AndAlso fSize.Width > 400) Then
+ Return Enums.FanartSize.Mid
+ Else
+ Return Enums.FanartSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Function GetPosterDims(ByVal pSize As Size) As Enums.PosterSize
+ Try
+ If (pSize.Width > pSize.Height) AndAlso (pSize.Width > (pSize.Height * 2)) AndAlso (pSize.Width > 300) Then
+ 'at least twice as wide than tall... consider it wide (also make sure it's big enough)
+ Return Enums.PosterSize.Wide
+ ElseIf (pSize.Height > 1000 AndAlso pSize.Width > 750) OrElse (pSize.Width > 1000 AndAlso pSize.Height > 750) Then
+ Return Enums.PosterSize.Xlrg
+ ElseIf (pSize.Height > 700 AndAlso pSize.Width > 500) OrElse (pSize.Width > 700 AndAlso pSize.Height > 500) Then
+ Return Enums.PosterSize.Lrg
+ ElseIf (pSize.Height > 250 AndAlso pSize.Width > 150) OrElse (pSize.Width > 250 AndAlso pSize.Height > 150) Then
+ Return Enums.PosterSize.Mid
+ Else
+ Return Enums.PosterSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iindex As Integer = Convert.ToInt32(DirectCast(sender, Label).Name)
+ Me.DoSelect(iindex, DirectCast(DirectCast(sender, Label).Tag, ImageTag))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlImages.VerticalScroll.Value + 50) <= pnlImages.VerticalScroll.Maximum Then
+ pnlImages.VerticalScroll.Value += 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlImages.VerticalScroll.Value - 50) >= pnlImages.VerticalScroll.Minimum Then
+ pnlImages.VerticalScroll.Value -= 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub pbDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbDelete.Click
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+ Me.SetImage(New ImageTag)
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim tImage As Image = Nothing
+ Dim iTag As ImageTag = DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag)
+ If Not IsNothing(iTag) OrElse Not iTag.isFanart Then
+ tImage = DownloadFanart(iTag)
+ Else
+ tImage = DirectCast(sender, PictureBox).Image
+ End If
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage)
+ End Sub
+
+ Private Sub pbUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUndo.Click
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = DefaultImages.ShowPoster.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = DefaultImages.ShowPoster.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = DefaultImages.ShowPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowPoster.Image
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = DefaultImages.ShowFanart.Image
+ Scraper.TVDBImages.ShowFanart.LocalFile = DefaultImages.ShowFanart.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = DefaultImages.ShowFanart.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = DefaultImages.AllSeasonPoster.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = DefaultImages.AllSeasonPoster.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = DefaultImages.AllSeasonPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.AllSeasonPoster.Image
+ Else
+ If Me.SelIsPoster Then
+ Dim dSPost As Images = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = dSPost
+ Me.pbCurrent.Image = dSPost.Image
+ Me.pbCurrent.Tag = dSPost
+ Else
+ Dim dSFan As Scraper.TVDBFanart = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ Dim tSFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ tSFan.Image = dSFan.Image
+ tSFan.LocalFile = dSFan.LocalFile
+ tSFan.URL = dSFan.URL
+ Me.pbCurrent.Image = dSFan.Image.Image
+ Me.pbCurrent.Tag = dSFan.Image
+ End If
+ End If
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iIndex As Integer = Convert.ToInt32(DirectCast(sender, Panel).Name)
+ Me.DoSelect(iIndex, DirectCast(DirectCast(sender, Panel).Tag, ImageTag))
+ End Sub
+
+ Private Sub SetImage(ByVal SelTag As ImageTag)
+ Me.pbCurrent.Image = SelTag.ImageObj.Image
+ Me.pbCurrent.Tag = SelTag.ImageObj
+
+ Me._fanartchanged = True
+
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowPoster.URL = SelTag.URL
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowFanart.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowFanart.URL = SelTag.URL
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.AllSeasonPoster.URL = SelTag.URL
+ Else
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = SelTag.ImageObj
+ Else
+ Dim tFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ If Not IsNothing(tFan) Then
+ tFan.Image = SelTag.ImageObj
+ tFan.LocalFile = SelTag.Path
+ tFan.URL = SelTag.URL
+ End If
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(99, "TV Image Selection")
+ Me.btnOK.Text = Master.eLang.GetString(179, "OK", True)
+ Me.btnCancel.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.lblCurrentImage.Text = Master.eLang.GetString(100, "Current Image:")
+ End Sub
+
+ Private Sub tvList_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvList.AfterSelect
+ Dim iCount As Integer = 0
+
+ Try
+ ClearImages()
+ If Not IsNothing(e.Node.Tag) AndAlso Not String.IsNullOrEmpty(e.Node.Tag.ToString) Then
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ If e.Node.Tag.ToString = "showp" Then
+ Me.SelSeason = -999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.ShowPoster) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = ShowPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To GenericPosterList.Count - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "showf" Then
+
+ Me.SelSeason = -999
+ Me.SelIsPoster = False
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "allp" Then
+ Me.SelSeason = 999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.AllSeasonPoster) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = GenericPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To ShowPosterList.Count - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+ Else
+ Dim tMatch As Match = Regex.Match(e.Node.Tag.ToString, "(?<type>f|p)(?<num>[0-9]+)")
+ If tMatch.Success Then
+ If tMatch.Groups("type").Value = "f" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = False
+ Dim tFanart As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(tFanart) AndAlso Not IsNothing(tFanart.Fanart) AndAlso Not IsNothing(tFanart.Fanart.Image) AndAlso Not IsNothing(tFanart.Fanart.Image.Image) Then
+ Me.pbCurrent.Image = tFanart.Fanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+ ElseIf tMatch.Groups("type").Value = "p" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = True
+ Dim tPoster As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Me.SelSeason)
+ If Not IsNothing(tPoster) AndAlso Not IsNothing(tPoster.Poster) AndAlso Not IsNothing(tPoster.Poster.Image) Then
+ Me.pbCurrent.Image = tPoster.Poster.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ iCount = 0
+ For Each SImage As Scraper.TVDBSeasonPoster In SeasonList.Where(Function(s) s.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(SImage.Image) AndAlso Not IsNothing(SImage.Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", SImage.Image.Image.Width, SImage.Image.Image.Height), iCount, New ImageTag With {.URL = SImage.URL, .Path = SImage.LocalFile, .isFanart = False, .ImageObj = SImage.Image})
+ End If
+ iCount += 1
+ Next
+ End If
+ End If
+ End If
+ Else
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Visible = False
+ Me.lblCurrentImage.Visible = False
+ End If
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure ImageTag
+
+#Region "Fields"
+
+ Dim isFanart As Boolean
+ Dim Path As String
+ Dim URL As String
+ Dim ImageObj As Images
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.Designer.vb b/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..c3675d6
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.Designer.vb
@@ -0,0 +1,632 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtIMDBURL = New System.Windows.Forms.TextBox()
+ Me.GroupBox15 = New System.Windows.Forms.GroupBox()
+ Me.chkOFDBGenre = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBOutline = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBTitle = New System.Windows.Forms.CheckBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCertification = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkTop250 = New System.Windows.Forms.CheckBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkMusicBy = New System.Windows.Forms.CheckBox()
+ Me.chkProducers = New System.Windows.Forms.CheckBox()
+ Me.chkFullCast = New System.Windows.Forms.CheckBox()
+ Me.chkWriters = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkFullCrew = New System.Windows.Forms.CheckBox()
+ Me.chkPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkDirector = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.GroupBox15.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtIMDBURL)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(213, 69)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "IMDB"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(73, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "IMDB Mirror:"
+ '
+ 'txtIMDBURL
+ '
+ Me.txtIMDBURL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBURL.Location = New System.Drawing.Point(8, 32)
+ Me.txtIMDBURL.Name = "txtIMDBURL"
+ Me.txtIMDBURL.Size = New System.Drawing.Size(192, 22)
+ Me.txtIMDBURL.TabIndex = 1
+ '
+ 'GroupBox15
+ '
+ Me.GroupBox15.Controls.Add(Me.chkOFDBGenre)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBPlot)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBOutline)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBTitle)
+ Me.GroupBox15.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox15.Location = New System.Drawing.Point(8, 114)
+ Me.GroupBox15.Name = "GroupBox15"
+ Me.GroupBox15.Size = New System.Drawing.Size(213, 87)
+ Me.GroupBox15.TabIndex = 2
+ Me.GroupBox15.TabStop = False
+ Me.GroupBox15.Text = "OFDB (German)"
+ '
+ 'chkOFDBGenre
+ '
+ Me.chkOFDBGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBGenre.Location = New System.Drawing.Point(6, 65)
+ Me.chkOFDBGenre.Name = "chkOFDBGenre"
+ Me.chkOFDBGenre.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBGenre.TabIndex = 3
+ Me.chkOFDBGenre.Text = "Use OFDB Genre"
+ Me.chkOFDBGenre.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBPlot
+ '
+ Me.chkOFDBPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBPlot.Location = New System.Drawing.Point(6, 49)
+ Me.chkOFDBPlot.Name = "chkOFDBPlot"
+ Me.chkOFDBPlot.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBPlot.TabIndex = 2
+ Me.chkOFDBPlot.Text = "Use OFDB Plot"
+ Me.chkOFDBPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBOutline
+ '
+ Me.chkOFDBOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBOutline.Location = New System.Drawing.Point(6, 33)
+ Me.chkOFDBOutline.Name = "chkOFDBOutline"
+ Me.chkOFDBOutline.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBOutline.TabIndex = 1
+ Me.chkOFDBOutline.Text = "Use OFDB Outline"
+ Me.chkOFDBOutline.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBTitle
+ '
+ Me.chkOFDBTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBTitle.Location = New System.Drawing.Point(6, 17)
+ Me.chkOFDBTitle.Name = "chkOFDBTitle"
+ Me.chkOFDBTitle.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBTitle.TabIndex = 0
+ Me.chkOFDBTitle.Text = "Use OFDB Title"
+ Me.chkOFDBTitle.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.GroupBox15)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCertification)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkTop250)
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkMusicBy)
+ Me.gbOptions.Controls.Add(Me.chkProducers)
+ Me.gbOptions.Controls.Add(Me.chkFullCast)
+ Me.gbOptions.Controls.Add(Me.chkWriters)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkFullCrew)
+ Me.gbOptions.Controls.Add(Me.chkPlot)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkDirector)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(227, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(387, 161)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCertification
+ '
+ Me.chkCertification.AutoSize = True
+ Me.chkCertification.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCertification.Location = New System.Drawing.Point(6, 70)
+ Me.chkCertification.Name = "chkCertification"
+ Me.chkCertification.Size = New System.Drawing.Size(89, 17)
+ Me.chkCertification.TabIndex = 3
+ Me.chkCertification.Text = "Certification"
+ Me.chkCertification.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(237, 53)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkTop250
+ '
+ Me.chkTop250.AutoSize = True
+ Me.chkTop250.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTop250.Location = New System.Drawing.Point(237, 19)
+ Me.chkTop250.Name = "chkTop250"
+ Me.chkTop250.Size = New System.Drawing.Size(66, 17)
+ Me.chkTop250.TabIndex = 16
+ Me.chkTop250.Text = "Top 250"
+ Me.chkTop250.UseVisualStyleBackColor = True
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Enabled = False
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(246, 104)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(85, 17)
+ Me.chkCrew.TabIndex = 21
+ Me.chkCrew.Text = "Other Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkMusicBy
+ '
+ Me.chkMusicBy.AutoSize = True
+ Me.chkMusicBy.Enabled = False
+ Me.chkMusicBy.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMusicBy.Location = New System.Drawing.Point(246, 121)
+ Me.chkMusicBy.Name = "chkMusicBy"
+ Me.chkMusicBy.Size = New System.Drawing.Size(71, 17)
+ Me.chkMusicBy.TabIndex = 22
+ Me.chkMusicBy.Text = "Music By"
+ Me.chkMusicBy.UseVisualStyleBackColor = True
+ '
+ 'chkProducers
+ '
+ Me.chkProducers.AutoSize = True
+ Me.chkProducers.Enabled = False
+ Me.chkProducers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkProducers.Location = New System.Drawing.Point(246, 138)
+ Me.chkProducers.Name = "chkProducers"
+ Me.chkProducers.Size = New System.Drawing.Size(77, 17)
+ Me.chkProducers.TabIndex = 23
+ Me.chkProducers.Text = "Producers"
+ Me.chkProducers.UseVisualStyleBackColor = True
+ '
+ 'chkFullCast
+ '
+ Me.chkFullCast.AutoSize = True
+ Me.chkFullCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCast.Location = New System.Drawing.Point(237, 70)
+ Me.chkFullCast.Name = "chkFullCast"
+ Me.chkFullCast.Size = New System.Drawing.Size(107, 17)
+ Me.chkFullCast.TabIndex = 19
+ Me.chkFullCast.Text = "Scrape Full Cast"
+ Me.chkFullCast.UseVisualStyleBackColor = True
+ '
+ 'chkWriters
+ '
+ Me.chkWriters.AutoSize = True
+ Me.chkWriters.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkWriters.Location = New System.Drawing.Point(131, 121)
+ Me.chkWriters.Name = "chkWriters"
+ Me.chkWriters.Size = New System.Drawing.Size(63, 17)
+ Me.chkWriters.TabIndex = 14
+ Me.chkWriters.Text = "Writers"
+ Me.chkWriters.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 104)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkFullCrew
+ '
+ Me.chkFullCrew.AutoSize = True
+ Me.chkFullCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCrew.Location = New System.Drawing.Point(237, 87)
+ Me.chkFullCrew.Name = "chkFullCrew"
+ Me.chkFullCrew.Size = New System.Drawing.Size(111, 17)
+ Me.chkFullCrew.TabIndex = 20
+ Me.chkFullCrew.Text = "Scrape Full Crew"
+ Me.chkFullCrew.UseVisualStyleBackColor = True
+ '
+ 'chkPlot
+ '
+ Me.chkPlot.AutoSize = True
+ Me.chkPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkPlot.Location = New System.Drawing.Point(131, 70)
+ Me.chkPlot.Name = "chkPlot"
+ Me.chkPlot.Size = New System.Drawing.Size(46, 17)
+ Me.chkPlot.TabIndex = 11
+ Me.chkPlot.Text = "Plot"
+ Me.chkPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 138)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkDirector
+ '
+ Me.chkDirector.AutoSize = True
+ Me.chkDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDirector.Location = New System.Drawing.Point(131, 104)
+ Me.chkDirector.Name = "chkDirector"
+ Me.chkDirector.Size = New System.Drawing.Size(67, 17)
+ Me.chkDirector.TabIndex = 13
+ Me.chkDirector.Text = "Director"
+ Me.chkDirector.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 87)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 138)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(237, 36)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 121)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 87)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'frmInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.GroupBox15.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBURL As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkOFDBGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCertification As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTop250 As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMusicBy As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkProducers As System.Windows.Forms.CheckBox
+ Friend WithEvents chkWriters As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDirector As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.resx b/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.resx
new file mode 100644
index 0000000..1a3b6b2
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.resx
@@ -0,0 +1,193 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsIAAALCAHAvaXaAAAHHElE
+ QVRYR8WWeVAUVBzHX5mpZcekIAoKCYLLvQe7XLucHiCoIDcqJHgmeaaLW2bHGIZZTXYqmigiCosKi4og
+ oCUKeTVehViToo2hljrO5Djz7fd71WJCE/1DzHzYt+/33u993+/33u+tAPC/0mVnT9JlZ0/SZWdP0mVn
+ TyL/XWxtFd9fvChaW1rExg0FfebNnZMzflxU2YSY6KoJ46It1LYkJ8RbUpMSLEmT4i2TU1Ms0zKmWjIm
+ p1sy0tNkm/uSJsVZUhMT5NgJNIfnso/x0WPN06dlLqg7UNuX17v3228Sq4BLP/4o2i5fZhG9Z2ZPM5Mj
+ pKckITLUgNSkRMydPRNx42ORFB+HRQvmYfoLmUhOmIRF8+dj8cIFSElMQFZmBhaTLXlSPOJiY+Sc9OQ/
+ fKQlJ4J9zs+Za6F1+vx09aq40tbWIaBkW7Ewl+4Qa1a/EzsmPAz3799HW1sbgnR+qKmupiHASy/OwbKl
+ S2R7b1UV4knQL7/cxN27d5EQNxG7dpZL24rlr2JmdpZsHzrYgACtBrQx+X1sZDiWGZckffLRWvHhB+93
+ CBg3ZpSIGTtakNrcCFJcsWsXCr/YiAA/NVatXIkDtTUyIlmZU9FQX4f8VXmIjY7CrvJyWCoqQKFGfl4e
+ Dn/1JWZNz6LoxONATQ1oQ9LHhvXrUGWpxJiIMPquWk4bE4xVACkTUaMixKiwkFzetT5AJ3c4OSUZKRRq
+ DmvmlHRMmzoFU9JSkZUxFbNnTAflXsI7ZhFjIyPknIzJaUikqCRSytIohXGx46TPYH8tYwr29xOMVQAv
+ Hj06kiNgZAG1+6tx584d3Lxx49+5eQO3b93Ce++uxtLFi3C9vR03qP/69XbZZm6Rvb7uAAyB/gjUakzB
+ Oq1gOkUg3BBsJHD+3Dm008SrV650i1u//orioi0U8tW4fft2J3v7zz/jQkuLTIG/RmkK0mkoBZoOAWSQ
+ IkL1QcYwfSCOHmmUB+fCd9+h5V/gMZcvXULBus+x8q03ZfvhMezr2Ndfg1IMndrXFKhVC8YqgAxidHio
+ CAkKMBJ0eg/i2/Pnceb06W7ReqEVn378Ed5Y8RqopnSynydfRw4fRkSIHlqljylAoxKMVUBkqEGKoBwZ
+ +bDU7t+Pb06dwvFjx7rF2TNnQNcKr72yDOfOnu1kP3XyJN2eeoTrg+Dn622iKAjGKiDCoBeRIQah99cZ
+ g+kQ7rFY0NzUhEZS3R1OHD+ONfn5sk6cOH6ik73p6FFU79uHUIqu2sfT5Kf0EYxVQJg+iA8g300j5QY7
+ y8348tAhOrl13aKxsVHWi5cXLcQRaj9s55RW7t4tr6LKy8Ok8fESjFUA5V2EBgcKKhpGf7USJdu2oZYK
+ yb69e7tFfV093np9BRbMy0FDQ4Pc7YOwL3Npqaysvh4KE4kQjFUAKeP8C1rcSIcEmws3wVJpwW6qiN2B
+ RSx/xYScObNRTaW7gnb7IFWU0uKtW2VV9HZ3M/l6KgRjFUB5p/xrhVblY1T7eKGASqe5rAw7tm/vFiyC
+ 8z97RrZcsHTHjr9RbjZjE5V2ncoXnm4jTN4KN8FYBQT6qUWQVsN5MVJosLGg4D8J4EWXGZdilhRQ0cnO
+ vgo3bQIdPLiPcDaRCMFYBVB1ovyrBJ1Qo7vLcFlQeOLWoqJ/pPiBTx6bTU80vx/FW4v/tG2xjt1eUoK8
+ t1fS7l2gGDHc5O7qLBirALqbdC28hdLLPdf1eUe4ODrwdZGnVqdSQuPrDQO19VTLOYx8mLhk+2tUEq6e
+ niNdwXM5z4YAf1A0ueiAUguVtydchjnAbbgj3JydTPQp6LNDQAgdQHIifDxG5rLK0u0lVNnWYqidDXKX
+ vEx1oRJcIbmW791TRT885mOE01D5ZBcXbSbHTlhIN6Cmeh/oWacHR42qykpZmBwGDcRaKlI7zWUg/3Ae
+ Zr/cW+EqPB6MgP1gO0G/fMSKV00xalJ77949/PD9RQyxeQ7lZaU0BJgYE01PbZJsFxUWsiNcu3ZNvnS8
+ s/WffyZt2S9kSKH8t6eqEnYDnqVSfE5+54jkzJmZGE2/PZ595ukOAfz3CKFwc+ul9PIoHRVmQGhwgEwF
+ HVDERo2GF4XYl3YwISaKUqCBwuV5ev/DQK8o51WOm0g2ul580uUcHudMoQ8J1NFDZKCHSFkx0tW1N6/F
+ f1YBvWh94knqG/Rkv34u9oNs8xzsbBsc7Qc3OQyyaRps81yTk8MQpnmI7cBmxyF2zc6OQ5tpjMR52NBm
+ GittPIbHDrYZ0GRPc53Yh53tQfKZ/3T//q60hu2jtBav+bCApwgHUudMDKO2Cw1UEB6EF+FD+BJKQkWo
+ H4L72MZjeCzPcScU7It9EsN5DaI/8TcBf8FCHiV6EY8RvYnHiT5EX6LfnzzxD/xl57E8h+eyD/bFPtk3
+ ryHXswr4P+mysyfpsrPngPgd1z91K2zEiQAAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.vb b/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.vb
new file mode 100644
index 0000000..21a3d0b
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmInfoSettingsHolder.vb
@@ -0,0 +1,237 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCertification_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCertification.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkDirector_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDirector.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+
+ Me.chkProducers.Enabled = Me.chkFullCrew.Checked
+ Me.chkMusicBy.Enabled = Me.chkFullCrew.Checked
+ Me.chkCrew.Enabled = Me.chkFullCrew.Checked
+
+ If Not Me.chkFullCrew.Checked Then
+ Me.chkProducers.Checked = False
+ Me.chkMusicBy.Checked = False
+ Me.chkCrew.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMusicBy_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMusicBy.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkProducers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkProducers.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTop250_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTop250.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkWriters_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkWriters.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.chkOFDBGenre.Text = Master.eLang.GetString(1, "Use OFDB Genre")
+ Me.chkOFDBPlot.Text = Master.eLang.GetString(2, "Use OFDB Plot")
+ Me.chkOFDBOutline.Text = Master.eLang.GetString(3, "Use OFDB Outline")
+ Me.chkOFDBTitle.Text = Master.eLang.GetString(4, "Use OFDB Title")
+ Me.Label18.Text = Master.eLang.GetString(5, "IMDB Mirror:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkCrew.Text = Master.eLang.GetString(391, "Other Crew", True)
+ Me.chkMusicBy.Text = Master.eLang.GetString(392, "Music By", True)
+ Me.chkProducers.Text = Master.eLang.GetString(393, "Producers", True)
+ Me.chkWriters.Text = Master.eLang.GetString(394, "Writers", True)
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkPlot.Text = Master.eLang.GetString(65, "Plot", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkDirector.Text = Master.eLang.GetString(62, "Director", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(398, "Cast", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(401, "MPAA", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.chkCountry.Text = Master.eLang.GetString(301, "Country", True)
+ Me.chkFullCast.Text = Master.eLang.GetString(512, "Scrape Full Cast", True)
+ Me.chkFullCrew.Text = Master.eLang.GetString(513, "Scrape Full Crew", True)
+ Me.chkTop250.Text = Master.eLang.GetString(868, "Top250", True)
+ Me.GroupBox30.Text = Master.eLang.GetString(106, "IMDB")
+ Me.GroupBox15.Text = Master.eLang.GetString(107, "OFDB (German)")
+ End Sub
+
+ Private Sub txtIMDBURL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBURL.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.Designer.vb b/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..2c09e78
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.Designer.vb
@@ -0,0 +1,524 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.cbActorThumbsSize = New System.Windows.Forms.ComboBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseTMDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(587, 177)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.cbActorThumbsSize)
+ Me.GroupBox6.Location = New System.Drawing.Point(374, 98)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 73)
+ Me.GroupBox6.TabIndex = 5
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Actor Thumbs Size:"
+ '
+ 'cbActorThumbsSize
+ '
+ Me.cbActorThumbsSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbActorThumbsSize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbActorThumbsSize.FormattingEnabled = True
+ Me.cbActorThumbsSize.Items.AddRange(New Object() {"SY275_SX400", "SY720_SX1080", "SY1080_SX1920"})
+ Me.cbActorThumbsSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbActorThumbsSize.Name = "cbActorThumbsSize"
+ Me.cbActorThumbsSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbActorThumbsSize.TabIndex = 0
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(374, 11)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Enabled = False
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseTMDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 11)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox9.TabIndex = 3
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Images From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseTMDB
+ '
+ Me.chkUseTMDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseTMDB.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseTMDB.Name = "chkUseTMDB"
+ Me.chkUseTMDB.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseTMDB.TabIndex = 0
+ Me.chkUseTMDB.Text = "themoviedb.org"
+ Me.chkUseTMDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.GroupBox5)
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 214)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(587, 112)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(374, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 2
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbActorThumbsSize As System.Windows.Forms.ComboBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.resx b/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.resx
new file mode 100644
index 0000000..023cf14
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.resx
@@ -0,0 +1,237 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABxxJREFUWEfFlnlQFFQc
+ x1+ZqWXHpCAKCgmCy70Hu1y7nB4gqCA3KiR4Jnmmi1tmxxiGWU12KpooIgqLCouKIKAlCnk1XoVYk6KN
+ oZY6zuQ48+33e9ViQhP9Q8x82Lfv997vfd/v997vrQDwv9JlZ0/SZWdP0mVnT9JlZ08i/11sbRXfX7wo
+ WltaxMYNBX3mzZ2TM35cVNmEmOiqCeOiLdS2JCfEW1KTEixJk+Itk1NTLNMyployJqdbMtLTZJv7kibF
+ WVITE+TYCTSH57KP8dFjzdOnZS6oO1Dbl9e799tvEquASz/+KNouX2YRvWdmTzOTI6SnJCEy1IDUpETM
+ nT0TceNjkRQfh0UL5mH6C5lITpiERfPnY/HCBUhJTEBWZgYWky15UjziYmPknPTkP3ykJSeCfc7PmWuh
+ dfr8dPWquNLW1iGgZFuxMJfuEGtWvxM7JjwM9+/fR1tbG4J0fqiprqYhwEsvzsGypUtke29VFeJJ0C+/
+ 3MTdu3eREDcRu3aWS9uK5a9iZnaWbB862IAArQa0Mfl9bGQ4lhmXJH3y0Vrx4QfvdwgYN2aUiBk7WpDa
+ 3AhSXLFrFwq/2IgAPzVWrVyJA7U1MiJZmVPRUF+H/FV5iI2Owq7yclgqKkChRn5eHg5/9SVmTc+i6MTj
+ QE0NaEPSx4b161BlqcSYiDD6rlpOGxOMVQApE1GjIsSosJBc3rU+QCd3ODklGSkUag5r5pR0TJs6BVPS
+ UpGVMRWzZ0wH5V7CO2YRYyMj5JyMyWlIpKgkUsrSKIVxseOkz2B/LWMK9vcTjFUALx49OpIjYGQBtfur
+ cefOHdy8cePfuXkDt2/dwnvvrsbSxYtwvb0dN6j/+vV22WZukb2+7gAMgf4I1GpMwTqtYDpFINwQbCRw
+ /tw5tNPEq1eudItbv/6K4qItFPLVuH37did7+88/40JLi0yBv0ZpCtJpKAWaDgFkkCJC9UHGMH0gjh5p
+ lAfnwnffoeVf4DGXL11CwbrPsfKtN2X74THs69jXX4NSDJ3a1xSoVQvGKoAMYnR4qAgJCjASdHoP4tvz
+ 53Hm9Olu0XqhFZ9+/BHeWPEaqKZ0sp8nX0cOH0ZEiB5apY8pQKMSjFVAZKhBiqAcGfmw1O7fj29OncLx
+ Y8e6xdkzZ0DXCq+9sgznzp7tZD918iTdnnqE64Pg5+ttoigIxiogwqAXkSEGoffXGYPpEO6xWNDc1IRG
+ Ut0dThw/jjX5+bJOnDh+opO96ehRVO/bh1CKrtrH0+Sn9BGMVUCYPogPIN9NI+UGO8vN+PLQITq5dd2i
+ sbFR1ouXFy3EEWo/bOeUVu7eLa+iysvDpPHxEoxVAOVdhAYHCioaRn+1EiXbtqGWCsm+vXu7RX1dPd56
+ fQUWzMtBQ0OD3O2DsC9zaamsrL4eChOJEIxVACnj/Ata3EiHBJsLN8FSacFuqojdgUUsf8WEnDmzUU2l
+ u4J2+yBVlNLirVtlVfR2dzP5eioEYxVAeaf8a4VW5WNU+3ihgEqnuawMO7Zv7xYsgvM/e0a2XLB0x46/
+ UW42YxOVdp3KF55uI0zeCjfBWAUE+qlFkFbDeTFSaLCxoOA/CeBFlxmXYpYUUNHJzr4KN20CHTy4j3A2
+ kQjBWAVQdaL8qwSdUKO7y3BZUHji1qKif6T4gU8em01PNL8fxVuL/7RtsY7dXlKCvLdX0u5doBgx3OTu
+ 6iwYqwC6m3QtvIXSyz3X9XlHuDg68HWRp1anUkLj6w0DtfVUyzmMfJi4ZPtrVBKunp4jXcFzOc+GAH9Q
+ NLnogFILlbcnXIY5wG24I9ycnUz0KeizQ0AIHUByInw8RuayytLtJVTZ1mKonQ1yl7xMdaESXCG5lu/d
+ U0U/POZjhNNQ+WQXF20mx05YSDegpnof6FmnB0eNqspKWZgcBg3EWipSO81lIP9wHma/3FvhKjwejID9
+ YDtBv3zEildNMWpSe+/ePfzw/UUMsXkO5WWlNASYGBNNT22SbBcVFrIjXLt2Tb50vLP1n38mbdkvZEih
+ /LenqhJ2A56lUnxOfueI5MyZmRhNvz2efebpDgH89wihcHPrpfTyKB0VZkBocIBMBR1QxEaNhheF2Jd2
+ MCEmilKggcLleXr/w0CvKOdVjptINrpefNLlHB7nTKEPCdTRQ2Sgh0hZMdLVtTevxX9WAb1ofeJJ6hv0
+ ZL9+LvaDbPMc7GwbHO0HNzkMsmkabPNck5PDEKZ5iO3AZschds3OjkObaYzEedjQZhorbTyGxw62GdBk
+ T3Od2Ied7UHymf90//6utIbto7QWr/mwgKcIB1LnTAyjtgsNVBAehBfhQ/gSSkJFqB+C+9jGY3gsz3En
+ FOyLfRLDeQ2iP/E3AX/BQh4lehGPEb2Jx4k+RF+i35888Q/8ZeexPIfnsg/2xT7ZN68h17MK+D/psrMn
+ 6bKz54D4Hdc/dStsxIkAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.vb b/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.vb
new file mode 100644
index 0000000..401240a
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmMediaSettingsHolder.vb
@@ -0,0 +1,172 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerIMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerIMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerIMDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseTMDB.CheckedChanged
+ cbManualETSize.Enabled = chkUseTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.GroupBox9.Text = Master.eLang.GetString(9, "Get Images From:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.GroupBox3.Text = Master.eLang.GetString(497, "Images", True)
+ Me.GroupBox4.Text = Master.eLang.GetString(108, "TMDB Extrathumbs Size:")
+ Me.GroupBox1.Text = Master.eLang.GetString(109, "Trailers")
+ Me.GroupBox5.Text = Master.eLang.GetString(110, "Youtube/TMDB Trailer:")
+ Me.chkTrailerTMDBXBMC.Text = Master.eLang.GetString(111, "XBMC Format")
+ Me.Label2.Text = Master.eLang.GetString(112, "Preferred language")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(113, "Save Fanart In:")
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbActorThumbsSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbActorThumbsSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.Designer.vb b/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..4a8cc4e
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.Designer.vb
@@ -0,0 +1,169 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.resx b/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.resx
new file mode 100644
index 0000000..0950d0f
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.resx
@@ -0,0 +1,177 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.vb b/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.vb
new file mode 100644
index 0000000..98761ce
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmTVInfoSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.Designer.vb b/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f5cb735
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.Designer.vb
@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVMediaSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.InitialImage = CType(resources.GetObject("PictureBox1.InitialImage"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.resx b/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.resx
new file mode 100644
index 0000000..d47391f
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.resx
@@ -0,0 +1,197 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEAAA
+ CxABrSO9dQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.vb b/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.vb
new file mode 100644
index 0000000..06928ef
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/frmTVMediaSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/packages.config b/Addons/scraper.TVDB.Poster/packages.config
new file mode 100644
index 0000000..053d0bc6
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="SharpZipLib" version="0.86.0" />
+ <package id="System.Data.SQLite" version="1.0.84.0" targetFramework="net35" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/scraper.TVDB.Poster.vbproj b/Addons/scraper.TVDB.Poster/scraper.TVDB.Poster.vbproj
new file mode 100644
index 0000000..91b455c
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/scraper.TVDB.Poster.vbproj
@@ -0,0 +1,342 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{3FAF50AA-AD5F-455A-8711-6D791C457F0F}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.TVDB.Poster</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Data.SQLite">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Data.SQLite.Linq">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.Linq.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Diagnostics" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="frmTVMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperTVNativeModule.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\dlgIMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgIMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieNativeModule.vb" />
+ <Compile Include="TVScraper\clsScrapeTVDB.vb" />
+ <Compile Include="TVScraper\dlgTVChangeEp.Designer.vb">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVChangeEp.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.Designer.vb">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.Designer.vb">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="frmTVMediaSettingsHolder.resx">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTVInfoSettingsHolder.resx">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgIMDBSearchResults.resx">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmMediaSettingsHolder.resx">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmInfoSettingsHolder.resx">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVChangeEp.resx">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVDBSearchResults.resx">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVEpisodePoster.resx">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVImageSelect.resx">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x64\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x86\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/scraperMovieNativeModule.vb b/Addons/scraper.TVDB.Poster/scraperMovieNativeModule.vb
new file mode 100644
index 0000000..6889071
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/scraperMovieNativeModule.vb
@@ -0,0 +1,702 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private IMDB As New IMDB.Scraper
+ Private MySettings As New _MySettings
+ Private _Name As String = "Ember Native Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmInfoSettingsHolder
+ Private _setupPost As frmMediaSettingsHolder
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ If MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Poster
+ If MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer
+ dTrailer.IMDBURL = MySettings.IMDBURL
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ Dim IMDB As New IMDB.Scraper
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ IMDB.IMDBURL = MySettings.IMDBURL
+ studio = IMDB.GetMovieStudios(DBMovie.Movie.IMDBID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseTMDB.Checked = MySettings.UseTMDB
+ _setupPost.chkUseIMPA.Checked = MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = MySettings.UseMPDB
+ _setupPost.cbManualETSize.Text = MySettings.ManualETSize
+ _setupPost.cbActorThumbsSize.Text = MySettings.ActorThumbsSize
+ _setupPost.txtTimeout.Text = MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ Spanel.Prefix = "NativeMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return Spanel
+ End Function
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkPlot.Checked = ConfigOptions.bPlot
+ _setup.chkCast.Checked = ConfigOptions.bCast
+ _setup.chkDirector.Checked = ConfigOptions.bDirector
+ _setup.chkWriters.Checked = ConfigOptions.bWriters
+ _setup.chkProducers.Checked = ConfigOptions.bProducers
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkMusicBy.Checked = ConfigOptions.bMusicBy
+ _setup.chkCrew.Checked = ConfigOptions.bOtherCrew
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkTop250.Checked = ConfigOptions.bTop250
+ _setup.chkCertification.Checked = ConfigOptions.bCert
+ _setup.chkOFDBTitle.Checked = MySettings.UseOFDBTitle
+ _setup.chkOFDBOutline.Checked = MySettings.UseOFDBOutline
+ _setup.chkOFDBPlot.Checked = MySettings.UseOFDBPlot
+ _setup.chkOFDBGenre.Checked = MySettings.UseOFDBGenre
+ _setup.chkFullCast.Checked = ConfigOptions.bFullCast
+ _setup.chkFullCrew.Checked = ConfigOptions.bFullCrew
+
+ If String.IsNullOrEmpty(MySettings.IMDBURL) Then
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ _setup.txtIMDBURL.Text = MySettings.IMDBURL
+ _setup.orderChanged()
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ SPanel.Prefix = "NativeMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ MySettings.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ MySettings.UseOFDBTitle = AdvancedSettings.GetBooleanSetting("UseOFDBTitle", False)
+ MySettings.UseOFDBOutline = AdvancedSettings.GetBooleanSetting("UseOFDBOutline", False)
+ MySettings.UseOFDBPlot = AdvancedSettings.GetBooleanSetting("UseOFDBPlot", False)
+ MySettings.UseOFDBGenre = AdvancedSettings.GetBooleanSetting("UseOFDBGenre", False)
+ MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ MySettings.UseTMDB = AdvancedSettings.GetBooleanSetting("UseTMDB", True)
+ MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ MySettings.ActorThumbsSize = Convert.ToString(AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400"))
+ MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As New Trailers
+ LoadSettings()
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Trailer.IMDBURL = MySettings.IMDBURL
+ Dim doSave As Boolean = False
+ If Master.GlobalScrapeMod.Poster AndAlso (MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB) Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If ScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.IMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart AndAlso MySettings.UseTMDB Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If ScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.IMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ ScrapeImages.GetPreferredFAasET(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+ AdvancedSettings.SetSetting("IMDBURL", MySettings.IMDBURL)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("UseOFDBTitle", MySettings.UseOFDBTitle)
+ AdvancedSettings.SetBooleanSetting("UseOFDBOutline", MySettings.UseOFDBOutline)
+ AdvancedSettings.SetBooleanSetting("UseOFDBPlot", MySettings.UseOFDBPlot)
+ AdvancedSettings.SetBooleanSetting("UseOFDBGenre", MySettings.UseOFDBGenre)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseTMDB", MySettings.UseTMDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", MySettings.UseIMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", MySettings.UseTMDBTrailerXBMC)
+
+ AdvancedSettings.SetSetting("ManualETSize", MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("ActorThumbsSize", MySettings.ActorThumbsSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ 'AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ MySettings.UseTMDB = _setupPost.chkUseTMDB.Checked
+ MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ MySettings.ActorThumbsSize = _setupPost.cbActorThumbsSize.Text
+ MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtIMDBURL.Text) Then
+ MySettings.IMDBURL = Strings.Replace(_setup.txtIMDBURL.Text, "http://", String.Empty)
+ Else
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ MySettings.UseOFDBTitle = _setup.chkOFDBTitle.Checked
+ MySettings.UseOFDBOutline = _setup.chkOFDBOutline.Checked
+ MySettings.UseOFDBPlot = _setup.chkOFDBPlot.Checked
+ MySettings.UseOFDBGenre = _setup.chkOFDBGenre.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = _setup.chkPlot.Checked
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkDirector.Checked
+ ConfigOptions.bWriters = _setup.chkWriters.Checked
+ ConfigOptions.bProducers = _setup.chkProducers.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkMusicBy.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = _setup.chkTop250.Checked
+ ConfigOptions.bCert = _setup.chkCertification.Checked
+ ConfigOptions.bFullCrew = _setup.chkFullCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkFullCast.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ IMDB.IMDBURL = MySettings.IMDBURL
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = IMDB.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgIMDBSearchResults
+ dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect
+ If preload Then
+ dFImgSelect = New dlgImgSelect
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure _MySettings
+
+#Region "Fields"
+
+ Dim DownloadTrailers As Boolean
+ Dim IMDBURL As String
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseTMDBTrailer As Boolean
+ Dim UseIMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim ActorThumbsSize As String
+ Dim UseTMDBTrailerPref As String
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/scraperTVNativeModule.vb b/Addons/scraper.TVDB.Poster/scraperTVNativeModule.vb
new file mode 100644
index 0000000..450e6d6
--- /dev/null
+++ b/Addons/scraper.TVDB.Poster/scraperTVNativeModule.vb
@@ -0,0 +1,221 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeTVScraperModule
+ Implements Interfaces.EmberTVScraperModule
+
+#Region "Fields"
+
+ Public Shared TVScraper As New Scraper
+
+ Private _Name As String = "Ember Native TV Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTVInfoSettingsHolder
+ Private _setupPost As frmTVMediaSettingsHolder
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberTVScraperModule.ModuleSettingsChanged
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupPostScraperChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupScraperChanged
+
+ Public Event TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object) Implements Interfaces.EmberTVScraperModule.TVScraperEvent
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property IsBusy() As Boolean Implements Interfaces.EmberTVScraperModule.IsBusy
+ Get
+ Return TVScraper.IsBusy
+ End Get
+ End Property
+
+ Public ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleName() As String Implements Interfaces.EmberTVScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberTVScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Public Property PostScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Public Property ScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync() Implements Interfaces.EmberTVScraperModule.CancelAsync
+ TVScraper.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String, ByRef epDet As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ChangeEpisode
+ epDet = TVScraper.ChangeEpisode(ShowID, TVDBID, Lang)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String, ByRef Langs As List(Of Containers.TVLanguage)) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetLangs
+ Langs = TVScraper.GetLangs(sMirror)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByRef epDetails As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleEpisode
+ epDetails = TVScraper.GetSingleEpisode(ShowID, TVDBID, Season, Episode, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images, ByRef Image As Images) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleImage
+ Image = TVScraper.GetSingleImage(Title, ShowID, TVDBID, Type, Season, Episode, Lang, Ordering, CurrentImage)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Sub Handler_ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent TVScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberTVScraperModule.Init
+ AddHandler TVScraper.ScraperEvent, AddressOf Handler_ScraperEvent
+ End Sub
+
+ Public Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupPostScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setupPost = New frmTVMediaSettingsHolder
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "PostScraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setupPost.pnlSettings
+ SPanel.Parent = "pnlTVMedia"
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberTVScraperModule.ScraperUpdateMediaList
+ Public Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTVInfoSettingsHolder
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Prefix = "NativeTV_"
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setup.pnlSettings
+ SPanel.Parent = "pnlTVData"
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return SPanel
+ End Function
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+ Public Function PostScraper(ByRef DBTV As Structures.DBTV, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.PostScraper
+ End Function
+
+ Public Function SaveImages() As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.SaveImages
+ TVScraper.SaveImages()
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupPostScraper
+ End Sub
+
+ Public Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupScraper
+ End Sub
+
+ Public Function ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeEpisode
+ TVScraper.ScrapeEpisode(ShowID, ShowTitle, TVDBID, iEpisode, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function Scraper(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.Scraper
+ TVScraper.SingleScrape(ShowID, ShowTitle, TVDBID, Lang, Ordering, Options, ScrapeType, WithCurrent)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeSeason
+ TVScraper.ScrapeSeason(ShowID, ShowTitle, TVDBID, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.TVDB.Poster/x64/SQLite.Interop.dll b/Addons/scraper.TVDB.Poster/x64/SQLite.Interop.dll
new file mode 100644
index 0000000..860c0e5
Binary files /dev/null and b/Addons/scraper.TVDB.Poster/x64/SQLite.Interop.dll differ
diff --git a/Addons/scraper.TVDB.Poster/x86/SQLite.Interop.dll b/Addons/scraper.TVDB.Poster/x86/SQLite.Interop.dll
new file mode 100644
index 0000000..6f6fd4f
Binary files /dev/null and b/Addons/scraper.TVDB.Poster/x86/SQLite.Interop.dll differ
diff --git a/Addons/scraper.YouTube.Trailer/AssemblyInfo.vb b/Addons/scraper.YouTube.Trailer/AssemblyInfo.vb
new file mode 100644
index 0000000..1b59a44
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.EmberCore")>
+<Assembly: AssemblyDescription("www.embermm.com")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.EmberCore")>
+<Assembly: AssemblyCopyright("Copyright © 2011")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("4c4e9cbd-06e2-44ed-bbed-0f51f6c3f4ef")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.5")>
+<Assembly: AssemblyFileVersion("1.3.0.5")>
diff --git a/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Debug_(db_DB).xml b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Debug_(db_DB).xml
new file mode 100644
index 0000000..0fba5b0
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">native1</string>
+ <string id="2">native2</string>
+ <string id="3">native3</string>
+ <string id="4">native4</string>
+ <string id="5">native5</string>
+ <string id="6">native6</string>
+ <string id="7">native7</string>
+ <string id="8">native8</string>
+ <string id="9">native9</string>
+ <string id="10">native10</string>
+ <string id="11">native11</string>
+ <string id="12">native12</string>
+ <string id="13">native13</string>
+ <string id="14">native14</string>
+ <string id="15">native15</string>
+ <string id="16">native16</string>
+ <string id="17">native17</string>
+ <string id="18">native18</string>
+ <string id="19">native19</string>
+ <string id="20">native20</string>
+ <string id="21">native21</string>
+ <string id="22">native22</string>
+ <string id="23">native23</string>
+ <string id="24">native24</string>
+ <string id="25">native25</string>
+ <string id="26">native26</string>
+ <string id="27">native27</string>
+ <string id="28">native28</string>
+ <string id="29">native29</string>
+ <string id="30">native30</string>
+ <string id="31">native31</string>
+ <string id="32">native32</string>
+ <string id="33">native33</string>
+ <string id="34">native34</string>
+ <string id="35">native35</string>
+ <string id="36">native36</string>
+ <string id="37">native37</string>
+ <string id="38">native38</string>
+ <string id="39">native39</string>
+ <string id="40">native40</string>
+ <string id="41">native41</string>
+ <string id="42">native42</string>
+ <string id="43">native43</string>
+ <string id="44">native44</string>
+ <string id="45">native45</string>
+ <string id="46">native46</string>
+ <string id="47">native47</string>
+ <string id="48">native48</string>
+ <string id="49">native49</string>
+ <string id="50">native50</string>
+ <string id="51">native51</string>
+ <string id="52">native52</string>
+ <string id="53">native53</string>
+ <string id="54">native54</string>
+ <string id="55">native55</string>
+ <string id="56">native56</string>
+ <string id="57">native57</string>
+ <string id="58">native58</string>
+ <string id="59">native59</string>
+ <string id="60">native60</string>
+ <string id="61">native61</string>
+ <string id="62">native62</string>
+ <string id="63">native63</string>
+ <string id="64">native64</string>
+ <string id="65">native65</string>
+ <string id="66">native66</string>
+ <string id="67">native67</string>
+ <string id="68">native68</string>
+ <string id="69">native69</string>
+ <string id="70">native70</string>
+ <string id="71">native71</string>
+ <string id="72">native72</string>
+ <string id="73">native73</string>
+ <string id="74">native74</string>
+ <string id="75">native75</string>
+ <string id="76">native76</string>
+ <string id="77">native77</string>
+ <string id="78">native78</string>
+ <string id="79">native79</string>
+ <string id="80">native80</string>
+ <string id="81">native81</string>
+ <string id="82">native82</string>
+ <string id="83">native83</string>
+ <string id="84">native84</string>
+ <string id="85">native85</string>
+ <string id="86">native86</string>
+ <string id="87">native87</string>
+ <string id="88">native88</string>
+ <string id="89">native89</string>
+ <string id="90">native90</string>
+ <string id="91">native91</string>
+ <string id="92">native92</string>
+ <string id="93">native93</string>
+ <string id="94">native94</string>
+ <string id="95">native95</string>
+ <string id="96">native96</string>
+ <string id="97">native97</string>
+ <string id="98">native98</string>
+ <string id="99">native99</string>
+ <string id="100">native100</string>
+ <string id="101">native101</string>
+ <string id="102">native102</string>
+ <string id="103">native103</string>
+ <string id="104">native104</string>
+ <string id="105">native105</string>
+ <string id="106">native106</string>
+ <string id="107">native107</string>
+ <string id="108">native108</string>
+ <string id="109">native109</string>
+ <string id="110">native110</string>
+ <string id="111">native111</string>
+ <string id="112">native112</string>
+ <string id="113">native113</string>
+ <string id="114">native114</string>
+ <string id="115">native115</string>
+ <string id="116">native116</string>
+ <string id="117">native117</string>
+ <string id="118">native118</string>
+ <string id="119">native119</string>
+ <string id="120">native120</string>
+ <string id="121">native121</string>
+ <string id="122">native122</string>
+ <string id="123">native123</string>
+ <string id="124">native124</string>
+ <string id="125">native125</string>
+ <string id="126">native126</string>
+ <string id="127">native127</string>
+ <string id="128">native128</string>
+ <string id="129">native129</string>
+ <string id="130">native130</string>
+ <string id="131">native131</string>
+ <string id="132">native132</string>
+ <string id="133">native133</string>
+ <string id="134">native134</string>
+ <string id="135">native135</string>
+ <string id="136">native136</string>
+ <string id="137">native137</string>
+ <string id="138">native138</string>
+ <string id="139">native139</string>
+ <string id="140">native140</string>
+ <string id="141">native141</string>
+ <string id="142">native142</string>
+ <string id="143">native143</string>
+ <string id="144">native144</string>
+ <string id="145">native145</string>
+ <string id="146">native146</string>
+ <string id="147">native147</string>
+ <string id="148">native148</string>
+ <string id="149">native149</string>
+ <string id="150">native150</string>
+ <string id="151">native151</string>
+ <string id="152">native152</string>
+ <string id="153">native153</string>
+ <string id="154">native154</string>
+ <string id="155">native155</string>
+ <string id="156">native156</string>
+ <string id="157">native157</string>
+ <string id="158">native158</string>
+ <string id="159">native159</string>
+ <string id="160">native160</string>
+ <string id="161">native161</string>
+ <string id="162">native162</string>
+ <string id="163">native163</string>
+ <string id="164">native164</string>
+ <string id="165">native165</string>
+ <string id="166">native166</string>
+ <string id="167">native167</string>
+ <string id="168">native168</string>
+ <string id="169">native169</string>
+ <string id="170">native170</string>
+ <string id="171">native171</string>
+ <string id="172">native172</string>
+ <string id="173">native173</string>
+ <string id="174">native174</string>
+ <string id="175">native175</string>
+ <string id="176">native176</string>
+ <string id="177">native177</string>
+ <string id="178">native178</string>
+ <string id="179">native179</string>
+ <string id="180">native180</string>
+ <string id="181">native181</string>
+ <string id="182">native182</string>
+ <string id="183">native183</string>
+ <string id="184">native184</string>
+ <string id="185">native185</string>
+ <string id="186">native186</string>
+ <string id="187">native187</string>
+ <string id="188">native188</string>
+ <string id="189">native189</string>
+ <string id="190">native190</string>
+ <string id="191">native191</string>
+ <string id="192">native192</string>
+ <string id="193">native193</string>
+ <string id="194">native194</string>
+ <string id="195">native195</string>
+ <string id="196">native196</string>
+ <string id="197">native197</string>
+ <string id="198">native198</string>
+ <string id="199">native199</string>
+ <string id="200">native200</string>
+ <string id="201">native201</string>
+ <string id="202">native202</string>
+ <string id="203">native203</string>
+ <string id="204">native204</string>
+ <string id="205">native205</string>
+ <string id="206">native206</string>
+ <string id="207">native207</string>
+ <string id="208">native208</string>
+ <string id="209">native209</string>
+ <string id="210">native210</string>
+ <string id="211">native211</string>
+ <string id="212">native212</string>
+ <string id="213">native213</string>
+ <string id="214">native214</string>
+ <string id="215">native215</string>
+ <string id="216">native216</string>
+ <string id="217">native217</string>
+ <string id="218">native218</string>
+ <string id="219">native219</string>
+ <string id="220">native220</string>
+ <string id="221">native221</string>
+ <string id="222">native222</string>
+ <string id="223">native223</string>
+ <string id="224">native224</string>
+ <string id="225">native225</string>
+ <string id="226">native226</string>
+ <string id="227">native227</string>
+ <string id="228">native228</string>
+ <string id="229">native229</string>
+ <string id="230">native230</string>
+ <string id="231">native231</string>
+ <string id="232">native232</string>
+ <string id="233">native233</string>
+ <string id="234">native234</string>
+ <string id="235">native235</string>
+ <string id="236">native236</string>
+ <string id="237">native237</string>
+ <string id="238">native238</string>
+ <string id="239">native239</string>
+ <string id="240">native240</string>
+ <string id="241">native241</string>
+ <string id="242">native242</string>
+ <string id="243">native243</string>
+ <string id="244">native244</string>
+ <string id="245">native245</string>
+ <string id="246">native246</string>
+ <string id="247">native247</string>
+ <string id="248">native248</string>
+ <string id="249">native249</string>
+ <string id="250">native250</string>
+ <string id="251">native251</string>
+ <string id="252">native252</string>
+ <string id="253">native253</string>
+ <string id="254">native254</string>
+ <string id="255">native255</string>
+ <string id="256">native256</string>
+ <string id="257">native257</string>
+ <string id="258">native258</string>
+ <string id="259">native259</string>
+ <string id="260">native260</string>
+ <string id="261">native261</string>
+ <string id="262">native262</string>
+ <string id="263">native263</string>
+ <string id="264">native264</string>
+ <string id="265">native265</string>
+ <string id="266">native266</string>
+ <string id="267">native267</string>
+ <string id="268">native268</string>
+ <string id="269">native269</string>
+ <string id="270">native270</string>
+ <string id="271">native271</string>
+ <string id="272">native272</string>
+ <string id="273">native273</string>
+ <string id="274">native274</string>
+ <string id="275">native275</string>
+ <string id="276">native276</string>
+ <string id="277">native277</string>
+ <string id="278">native278</string>
+ <string id="279">native279</string>
+ <string id="280">native280</string>
+ <string id="281">native281</string>
+ <string id="282">native282</string>
+ <string id="283">native283</string>
+ <string id="284">native284</string>
+ <string id="285">native285</string>
+ <string id="286">native286</string>
+ <string id="287">native287</string>
+ <string id="288">native288</string>
+ <string id="289">native289</string>
+ <string id="290">native290</string>
+ <string id="291">native291</string>
+ <string id="292">native292</string>
+ <string id="293">native293</string>
+ <string id="294">native294</string>
+ <string id="295">native295</string>
+ <string id="296">native296</string>
+ <string id="297">native297</string>
+ <string id="298">native298</string>
+ <string id="299">native299</string>
+ <string id="300">native300</string>
+ <string id="301">native301</string>
+ <string id="302">native302</string>
+ <string id="303">native303</string>
+ <string id="304">native304</string>
+ <string id="305">native305</string>
+ <string id="306">native306</string>
+ <string id="307">native307</string>
+ <string id="308">native308</string>
+ <string id="309">native309</string>
+ <string id="310">native310</string>
+ <string id="311">native311</string>
+ <string id="312">native312</string>
+ <string id="313">native313</string>
+ <string id="314">native314</string>
+ <string id="315">native315</string>
+ <string id="316">native316</string>
+ <string id="317">native317</string>
+ <string id="318">native318</string>
+ <string id="319">native319</string>
+ <string id="320">native320</string>
+ <string id="321">native321</string>
+ <string id="322">native322</string>
+ <string id="323">native323</string>
+ <string id="324">native324</string>
+ <string id="325">native325</string>
+ <string id="326">native326</string>
+ <string id="327">native327</string>
+ <string id="328">native328</string>
+ <string id="329">native329</string>
+ <string id="330">native330</string>
+ <string id="331">native331</string>
+ <string id="332">native332</string>
+ <string id="333">native333</string>
+ <string id="334">native334</string>
+ <string id="335">native335</string>
+ <string id="336">native336</string>
+ <string id="337">native337</string>
+ <string id="338">native338</string>
+ <string id="339">native339</string>
+ <string id="340">native340</string>
+ <string id="341">native341</string>
+ <string id="342">native342</string>
+ <string id="343">native343</string>
+ <string id="344">native344</string>
+ <string id="345">native345</string>
+ <string id="346">native346</string>
+ <string id="347">native347</string>
+ <string id="348">native348</string>
+ <string id="349">native349</string>
+ <string id="350">native350</string>
+ <string id="351">native351</string>
+ <string id="352">native352</string>
+ <string id="353">native353</string>
+ <string id="354">native354</string>
+ <string id="355">native355</string>
+ <string id="356">native356</string>
+ <string id="357">native357</string>
+ <string id="358">native358</string>
+ <string id="359">native359</string>
+ <string id="360">native360</string>
+ <string id="361">native361</string>
+ <string id="362">native362</string>
+ <string id="363">native363</string>
+ <string id="364">native364</string>
+ <string id="365">native365</string>
+ <string id="366">native366</string>
+ <string id="367">native367</string>
+ <string id="368">native368</string>
+ <string id="369">native369</string>
+ <string id="370">native370</string>
+ <string id="371">native371</string>
+ <string id="372">native372</string>
+ <string id="373">native373</string>
+ <string id="374">native374</string>
+ <string id="375">native375</string>
+ <string id="376">native376</string>
+ <string id="377">native377</string>
+ <string id="378">native378</string>
+ <string id="379">native379</string>
+ <string id="380">native380</string>
+ <string id="381">native381</string>
+ <string id="382">native382</string>
+ <string id="383">native383</string>
+ <string id="384">native384</string>
+ <string id="385">native385</string>
+ <string id="386">native386</string>
+ <string id="387">native387</string>
+ <string id="388">native388</string>
+ <string id="389">native389</string>
+ <string id="390">native390</string>
+ <string id="391">native391</string>
+ <string id="392">native392</string>
+ <string id="393">native393</string>
+ <string id="394">native394</string>
+ <string id="395">native395</string>
+ <string id="396">native396</string>
+ <string id="397">native397</string>
+ <string id="398">native398</string>
+ <string id="399">native399</string>
+ <string id="400">native400</string>
+ <string id="401">native401</string>
+ <string id="402">native402</string>
+ <string id="403">native403</string>
+ <string id="404">native404</string>
+ <string id="405">native405</string>
+ <string id="406">native406</string>
+ <string id="407">native407</string>
+ <string id="408">native408</string>
+ <string id="409">native409</string>
+ <string id="410">native410</string>
+ <string id="411">native411</string>
+ <string id="412">native412</string>
+ <string id="413">native413</string>
+ <string id="414">native414</string>
+ <string id="415">native415</string>
+ <string id="416">native416</string>
+ <string id="417">native417</string>
+ <string id="418">native418</string>
+ <string id="419">native419</string>
+ <string id="420">native420</string>
+ <string id="421">native421</string>
+ <string id="422">native422</string>
+ <string id="423">native423</string>
+ <string id="424">native424</string>
+ <string id="425">native425</string>
+ <string id="426">native426</string>
+ <string id="427">native427</string>
+ <string id="428">native428</string>
+ <string id="429">native429</string>
+ <string id="430">native430</string>
+ <string id="431">native431</string>
+ <string id="432">native432</string>
+ <string id="433">native433</string>
+ <string id="434">native434</string>
+ <string id="435">native435</string>
+ <string id="436">native436</string>
+ <string id="437">native437</string>
+ <string id="438">native438</string>
+ <string id="439">native439</string>
+ <string id="440">native440</string>
+ <string id="441">native441</string>
+ <string id="442">native442</string>
+ <string id="443">native443</string>
+ <string id="444">native444</string>
+ <string id="445">native445</string>
+ <string id="446">native446</string>
+ <string id="447">native447</string>
+ <string id="448">native448</string>
+ <string id="449">native449</string>
+ <string id="450">native450</string>
+ <string id="451">native451</string>
+ <string id="452">native452</string>
+ <string id="453">native453</string>
+ <string id="454">native454</string>
+ <string id="455">native455</string>
+ <string id="456">native456</string>
+ <string id="457">native457</string>
+ <string id="458">native458</string>
+ <string id="459">native459</string>
+ <string id="460">native460</string>
+ <string id="461">native461</string>
+ <string id="462">native462</string>
+ <string id="463">native463</string>
+ <string id="464">native464</string>
+ <string id="465">native465</string>
+ <string id="466">native466</string>
+ <string id="467">native467</string>
+ <string id="468">native468</string>
+ <string id="469">native469</string>
+ <string id="470">native470</string>
+ <string id="471">native471</string>
+ <string id="472">native472</string>
+ <string id="473">native473</string>
+ <string id="474">native474</string>
+ <string id="475">native475</string>
+ <string id="476">native476</string>
+ <string id="477">native477</string>
+ <string id="478">native478</string>
+ <string id="479">native479</string>
+ <string id="480">native480</string>
+ <string id="481">native481</string>
+ <string id="482">native482</string>
+ <string id="483">native483</string>
+ <string id="484">native484</string>
+ <string id="485">native485</string>
+ <string id="486">native486</string>
+ <string id="487">native487</string>
+ <string id="488">native488</string>
+ <string id="489">native489</string>
+ <string id="490">native490</string>
+ <string id="491">native491</string>
+ <string id="492">native492</string>
+ <string id="493">native493</string>
+ <string id="494">native494</string>
+ <string id="495">native495</string>
+ <string id="496">native496</string>
+ <string id="497">native497</string>
+ <string id="498">native498</string>
+ <string id="499">native499</string>
+ <string id="500">native500</string>
+ <string id="501">native501</string>
+ <string id="502">native502</string>
+ <string id="503">native503</string>
+ <string id="504">native504</string>
+ <string id="505">native505</string>
+ <string id="506">native506</string>
+ <string id="507">native507</string>
+ <string id="508">native508</string>
+ <string id="509">native509</string>
+ <string id="510">native510</string>
+ <string id="511">native511</string>
+ <string id="512">native512</string>
+ <string id="513">native513</string>
+ <string id="514">native514</string>
+ <string id="515">native515</string>
+ <string id="516">native516</string>
+ <string id="517">native517</string>
+ <string id="518">native518</string>
+ <string id="519">native519</string>
+ <string id="520">native520</string>
+ <string id="521">native521</string>
+ <string id="522">native522</string>
+ <string id="523">native523</string>
+ <string id="524">native524</string>
+ <string id="525">native525</string>
+ <string id="526">native526</string>
+ <string id="527">native527</string>
+ <string id="528">native528</string>
+ <string id="529">native529</string>
+ <string id="530">native530</string>
+ <string id="531">native531</string>
+ <string id="532">native532</string>
+ <string id="533">native533</string>
+ <string id="534">native534</string>
+ <string id="535">native535</string>
+ <string id="536">native536</string>
+ <string id="537">native537</string>
+ <string id="538">native538</string>
+ <string id="539">native539</string>
+ <string id="540">native540</string>
+ <string id="541">native541</string>
+ <string id="542">native542</string>
+ <string id="543">native543</string>
+ <string id="544">native544</string>
+ <string id="545">native545</string>
+ <string id="546">native546</string>
+ <string id="547">native547</string>
+ <string id="548">native548</string>
+ <string id="549">native549</string>
+ <string id="550">native550</string>
+ <string id="551">native551</string>
+ <string id="552">native552</string>
+ <string id="553">native553</string>
+ <string id="554">native554</string>
+ <string id="555">native555</string>
+ <string id="556">native556</string>
+ <string id="557">native557</string>
+ <string id="558">native558</string>
+ <string id="559">native559</string>
+ <string id="560">native560</string>
+ <string id="561">native561</string>
+ <string id="562">native562</string>
+ <string id="563">native563</string>
+ <string id="564">native564</string>
+ <string id="565">native565</string>
+ <string id="566">native566</string>
+ <string id="567">native567</string>
+ <string id="568">native568</string>
+ <string id="569">native569</string>
+ <string id="570">native570</string>
+ <string id="571">native571</string>
+ <string id="572">native572</string>
+ <string id="573">native573</string>
+ <string id="574">native574</string>
+ <string id="575">native575</string>
+ <string id="576">native576</string>
+ <string id="577">native577</string>
+ <string id="578">native578</string>
+ <string id="579">native579</string>
+ <string id="580">native580</string>
+ <string id="581">native581</string>
+ <string id="582">native582</string>
+ <string id="583">native583</string>
+ <string id="584">native584</string>
+ <string id="585">native585</string>
+ <string id="586">native586</string>
+ <string id="587">native587</string>
+ <string id="588">native588</string>
+ <string id="589">native589</string>
+ <string id="590">native590</string>
+ <string id="591">native591</string>
+ <string id="592">native592</string>
+ <string id="593">native593</string>
+ <string id="594">native594</string>
+ <string id="595">native595</string>
+ <string id="596">native596</string>
+ <string id="597">native597</string>
+ <string id="598">native598</string>
+ <string id="599">native599</string>
+ <string id="600">native600</string>
+ <string id="601">native601</string>
+ <string id="602">native602</string>
+ <string id="603">native603</string>
+ <string id="604">native604</string>
+ <string id="605">native605</string>
+ <string id="606">native606</string>
+ <string id="607">native607</string>
+ <string id="608">native608</string>
+ <string id="609">native609</string>
+ <string id="610">native610</string>
+ <string id="611">native611</string>
+ <string id="612">native612</string>
+ <string id="613">native613</string>
+ <string id="614">native614</string>
+ <string id="615">native615</string>
+ <string id="616">native616</string>
+ <string id="617">native617</string>
+ <string id="618">native618</string>
+ <string id="619">native619</string>
+ <string id="620">native620</string>
+ <string id="621">native621</string>
+ <string id="622">native622</string>
+ <string id="623">native623</string>
+ <string id="624">native624</string>
+ <string id="625">native625</string>
+ <string id="626">native626</string>
+ <string id="627">native627</string>
+ <string id="628">native628</string>
+ <string id="629">native629</string>
+ <string id="630">native630</string>
+ <string id="631">native631</string>
+ <string id="632">native632</string>
+ <string id="633">native633</string>
+ <string id="634">native634</string>
+ <string id="635">native635</string>
+ <string id="636">native636</string>
+ <string id="637">native637</string>
+ <string id="638">native638</string>
+ <string id="639">native639</string>
+ <string id="640">native640</string>
+ <string id="641">native641</string>
+ <string id="642">native642</string>
+ <string id="643">native643</string>
+ <string id="644">native644</string>
+ <string id="645">native645</string>
+ <string id="646">native646</string>
+ <string id="647">native647</string>
+ <string id="648">native648</string>
+ <string id="649">native649</string>
+ <string id="650">native650</string>
+ <string id="651">native651</string>
+ <string id="652">native652</string>
+ <string id="653">native653</string>
+ <string id="654">native654</string>
+ <string id="655">native655</string>
+ <string id="656">native656</string>
+ <string id="657">native657</string>
+ <string id="658">native658</string>
+ <string id="659">native659</string>
+ <string id="660">native660</string>
+ <string id="661">native661</string>
+ <string id="662">native662</string>
+ <string id="663">native663</string>
+ <string id="664">native664</string>
+ <string id="665">native665</string>
+ <string id="666">native666</string>
+ <string id="667">native667</string>
+ <string id="668">native668</string>
+ <string id="669">native669</string>
+ <string id="670">native670</string>
+ <string id="671">native671</string>
+ <string id="672">native672</string>
+ <string id="673">native673</string>
+ <string id="674">native674</string>
+ <string id="675">native675</string>
+ <string id="676">native676</string>
+ <string id="677">native677</string>
+ <string id="678">native678</string>
+ <string id="679">native679</string>
+ <string id="680">native680</string>
+ <string id="681">native681</string>
+ <string id="682">native682</string>
+ <string id="683">native683</string>
+ <string id="684">native684</string>
+ <string id="685">native685</string>
+ <string id="686">native686</string>
+ <string id="687">native687</string>
+ <string id="688">native688</string>
+ <string id="689">native689</string>
+ <string id="690">native690</string>
+ <string id="691">native691</string>
+ <string id="692">native692</string>
+ <string id="693">native693</string>
+ <string id="694">native694</string>
+ <string id="695">native695</string>
+ <string id="696">native696</string>
+ <string id="697">native697</string>
+ <string id="698">native698</string>
+ <string id="699">native699</string>
+ <string id="700">native700</string>
+ <string id="701">native701</string>
+ <string id="702">native702</string>
+ <string id="703">native703</string>
+ <string id="704">native704</string>
+ <string id="705">native705</string>
+ <string id="706">native706</string>
+ <string id="707">native707</string>
+ <string id="708">native708</string>
+ <string id="709">native709</string>
+ <string id="710">native710</string>
+ <string id="711">native711</string>
+ <string id="712">native712</string>
+ <string id="713">native713</string>
+ <string id="714">native714</string>
+ <string id="715">native715</string>
+ <string id="716">native716</string>
+ <string id="717">native717</string>
+ <string id="718">native718</string>
+ <string id="719">native719</string>
+ <string id="720">native720</string>
+ <string id="721">native721</string>
+ <string id="722">native722</string>
+ <string id="723">native723</string>
+ <string id="724">native724</string>
+ <string id="725">native725</string>
+ <string id="726">native726</string>
+ <string id="727">native727</string>
+ <string id="728">native728</string>
+ <string id="729">native729</string>
+ <string id="730">native730</string>
+ <string id="731">native731</string>
+ <string id="732">native732</string>
+ <string id="733">native733</string>
+ <string id="734">native734</string>
+ <string id="735">native735</string>
+ <string id="736">native736</string>
+ <string id="737">native737</string>
+ <string id="738">native738</string>
+ <string id="739">native739</string>
+ <string id="740">native740</string>
+ <string id="741">native741</string>
+ <string id="742">native742</string>
+ <string id="743">native743</string>
+ <string id="744">native744</string>
+ <string id="745">native745</string>
+ <string id="746">native746</string>
+ <string id="747">native747</string>
+ <string id="748">native748</string>
+ <string id="749">native749</string>
+ <string id="750">native750</string>
+ <string id="751">native751</string>
+ <string id="752">native752</string>
+ <string id="753">native753</string>
+ <string id="754">native754</string>
+ <string id="755">native755</string>
+ <string id="756">native756</string>
+ <string id="757">native757</string>
+ <string id="758">native758</string>
+ <string id="759">native759</string>
+ <string id="760">native760</string>
+ <string id="761">native761</string>
+ <string id="762">native762</string>
+ <string id="763">native763</string>
+ <string id="764">native764</string>
+ <string id="765">native765</string>
+ <string id="766">native766</string>
+ <string id="767">native767</string>
+ <string id="768">native768</string>
+ <string id="769">native769</string>
+ <string id="770">native770</string>
+ <string id="771">native771</string>
+ <string id="772">native772</string>
+ <string id="773">native773</string>
+ <string id="774">native774</string>
+ <string id="775">native775</string>
+ <string id="776">native776</string>
+ <string id="777">native777</string>
+ <string id="778">native778</string>
+ <string id="779">native779</string>
+ <string id="780">native780</string>
+ <string id="781">native781</string>
+ <string id="782">native782</string>
+ <string id="783">native783</string>
+ <string id="784">native784</string>
+ <string id="785">native785</string>
+ <string id="786">native786</string>
+ <string id="787">native787</string>
+ <string id="788">native788</string>
+ <string id="789">native789</string>
+ <string id="790">native790</string>
+ <string id="791">native791</string>
+ <string id="792">native792</string>
+ <string id="793">native793</string>
+ <string id="794">native794</string>
+ <string id="795">native795</string>
+ <string id="796">native796</string>
+ <string id="797">native797</string>
+ <string id="798">native798</string>
+ <string id="799">native799</string>
+ <string id="800">native800</string>
+ <string id="801">native801</string>
+ <string id="802">native802</string>
+ <string id="803">native803</string>
+ <string id="804">native804</string>
+ <string id="805">native805</string>
+ <string id="806">native806</string>
+ <string id="807">native807</string>
+ <string id="808">native808</string>
+ <string id="809">native809</string>
+ <string id="810">native810</string>
+ <string id="811">native811</string>
+ <string id="812">native812</string>
+ <string id="813">native813</string>
+ <string id="814">native814</string>
+ <string id="815">native815</string>
+ <string id="816">native816</string>
+ <string id="817">native817</string>
+ <string id="818">native818</string>
+ <string id="819">native819</string>
+ <string id="820">native820</string>
+ <string id="821">native821</string>
+ <string id="822">native822</string>
+ <string id="823">native823</string>
+ <string id="824">native824</string>
+ <string id="825">native825</string>
+ <string id="826">native826</string>
+ <string id="827">native827</string>
+ <string id="828">native828</string>
+ <string id="829">native829</string>
+ <string id="830">native830</string>
+ <string id="831">native831</string>
+ <string id="832">native832</string>
+ <string id="833">native833</string>
+ <string id="834">native834</string>
+ <string id="835">native835</string>
+ <string id="836">native836</string>
+ <string id="837">native837</string>
+ <string id="838">native838</string>
+ <string id="839">native839</string>
+ <string id="840">native840</string>
+ <string id="841">native841</string>
+ <string id="842">native842</string>
+ <string id="843">native843</string>
+ <string id="844">native844</string>
+ <string id="845">native845</string>
+ <string id="846">native846</string>
+ <string id="847">native847</string>
+ <string id="848">native848</string>
+ <string id="849">native849</string>
+ <string id="850">native850</string>
+ <string id="851">native851</string>
+ <string id="852">native852</string>
+ <string id="853">native853</string>
+ <string id="854">native854</string>
+ <string id="855">native855</string>
+ <string id="856">native856</string>
+ <string id="857">native857</string>
+ <string id="858">native858</string>
+ <string id="859">native859</string>
+ <string id="860">native860</string>
+ <string id="861">native861</string>
+ <string id="862">native862</string>
+ <string id="863">native863</string>
+ <string id="864">native864</string>
+ <string id="865">native865</string>
+ <string id="866">native866</string>
+ <string id="867">native867</string>
+ <string id="868">native868</string>
+ <string id="869">native869</string>
+ <string id="870">native870</string>
+ <string id="871">native871</string>
+ <string id="872">native872</string>
+ <string id="873">native873</string>
+ <string id="874">native874</string>
+ <string id="875">native875</string>
+ <string id="876">native876</string>
+ <string id="877">native877</string>
+ <string id="878">native878</string>
+ <string id="879">native879</string>
+ <string id="880">native880</string>
+ <string id="881">native881</string>
+ <string id="882">native882</string>
+ <string id="883">native883</string>
+ <string id="884">native884</string>
+ <string id="885">native885</string>
+ <string id="886">native886</string>
+ <string id="887">native887</string>
+ <string id="888">native888</string>
+ <string id="889">native889</string>
+ <string id="890">native890</string>
+ <string id="891">native891</string>
+ <string id="892">native892</string>
+ <string id="893">native893</string>
+ <string id="894">native894</string>
+ <string id="895">native895</string>
+ <string id="896">native896</string>
+ <string id="897">native897</string>
+ <string id="898">native898</string>
+ <string id="899">native899</string>
+ <string id="900">native900</string>
+</strings>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.English_(en_US)-Help.xml b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.English_(en_US)-Help.xml
new file mode 100644
index 0000000..1705beb
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.English_(en_US)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Enable or disable this module.</string>
+ <string control="NativeMovieInfo_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieInfo_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Enter the mirror to use when retrieving information from IMDB.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">If enabled, Ember will attempt to retreive the movie title from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">If enabled, Ember will attempt to retreive the movie outline from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">If enabled, Ember will attempt to retreive the movie plot from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">If enabled, Ember will attempt to retreive the movie genre from OFDB (a German language site) when scraping.</string>
+ <string control="NativeMovieInfo_chkCertification">Enable scraping movie certification.</string>
+ <string control="NativeMovieInfo_chkTop250">Enable scraping movie Top 250 ranking.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Limit the number of scraped genres to the entered value.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Limit the number of scraped actors to the entered value.</string>
+ <string control="NativeMovieInfo_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Enable scraping movie musicians. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkProducers">Enable scraping movie producers. (Scrape Full Crew must be enabled)</string>
+ <string control="NativeMovieInfo_chkWriters">Enable scraping movie writers.</string>
+ <string control="NativeMovieInfo_chkStudio">Enable scraping movie studio.</string>
+ <string control="NativeMovieInfo_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="NativeMovieInfo_chkPlot">Enable scraping movie plot.</string>
+ <string control="NativeMovieInfo_chkOutline">Enable scraping movie outline.</string>
+ <string control="NativeMovieInfo_chkGenre">Enable scraping movie genre.</string>
+ <string control="NativeMovieInfo_chkDirector">Enable scraping movie director.</string>
+ <string control="NativeMovieInfo_chkTagline">Enable scraping movie tagline.</string>
+ <string control="NativeMovieInfo_chkCast">Enable scraping movie cast.</string>
+ <string control="NativeMovieInfo_chkVotes">Enable scraping movie votes.</string>
+ <string control="NativeMovieInfo_chkTrailer">Enable scraping movie trailer url.</string>
+ <string control="NativeMovieInfo_chkRating">Enable scraping movie rating.</string>
+ <string control="NativeMovieInfo_chkRelease">Enable scraping movie release date.</string>
+ <string control="NativeMovieInfo_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="NativeMovieInfo_chkYear">Enable scraping movie year.</string>
+ <string control="NativeMovieInfo_chkTitle">Enable scraping movie title.</string>
+ <string control="NativeMovieMedia_cbEnabled">Enable or disable this module.</string>
+ <string control="NativeMovieMedia_btnUp">Move this scraper module up in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieMedia_btnDown">Move this scraper module down in order. (Scraper modules will be processed in order from top to bottom)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Enable scraping posters from this module. (Refer to global poster settings for more options)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Enable scraping fanart from this module. (Refer to global fanart settings for more options)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Enable retrieving images from theMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Enable retrieving images from</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Enable retrieving images from MoviePosterDB.com.</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Enable automatic extraction of extrathumbs from this module. (Refer to global extrathumb settings for more options)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Enable trailer downloading from this module. (Refer to global trailer settings for more options)</string>
+ <string control="NativeMovieMedia_txtTimeout">Enter the time (in seconds) you wish to use as a time out for the trailer sites. (If there is no response in the given time frame, the trailer site will be temporarily skipped.)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Select the sites from which you would like to retrieve trailer URLs and/or files.</string>
+</strings>
diff --git a/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.English_(en_US).xml b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.English_(en_US).xml
new file mode 100644
index 0000000..87a19b5
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.English_(en_US).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Native TV Scrapers</string>
+ <string id="1">Use OFDB Genre</string>
+ <string id="2">Use OFDB Plot</string>
+ <string id="3">Use OFDB Outline</string>
+ <string id="4">Use OFDB Title</string>
+ <string id="5">IMDB Mirror:</string>
+ <string id="6">Scraper Fields - Scraper specific</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Supported Sites:</string>
+ <string id="9">Get Images From:</string>
+ <string id="10">Search Results</string>
+ <string id="11">Searching IMDB...</string>
+ <string id="12">The ID you entered is not a valid IMDB ID.</string>
+ <string id="13">You have manually entered an IMDB ID but have not verified it is correct.</string>
+ <string id="14">Continue without verification?</string>
+ <string id="15">Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again.</string>
+ <string id="16">Verification Failed</string>
+ <string id="17">Partial Matches ({0})</string>
+ <string id="18">Exact Matches ({0})</string>
+ <string id="19">Popular Titles ({0})</string>
+ <string id="20">No Matches Found</string>
+ <string id="21">View details of each result to find the proper movie.</string>
+ <string id="22">Movie Search Results</string>
+ <string id="23">Manual IMDB Entry:</string>
+ <string id="24">Verify</string>
+ <string id="25">Searching IMDB...</string>
+ <string id="26">Downloading details...</string>
+ <string id="27">Downloading {0}</string>
+ <string id="28">No Fanart found for this movie.</string>
+ <string id="29">No Fanart Found</string>
+ <string id="30">No Posters found for this movie.</string>
+ <string id="31">No Posters Found</string>
+ <string id="32">Retrieving data from TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com is not enabled</string>
+ <string id="34">Retrieving data from IMPAwards.com...</string>
+ <string id="35">IMPAwards.com is not enabled</string>
+ <string id="36">Retrieving data from MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com is not enabled</string>
+ <string id="38">Preparing images...</string>
+ <string id="39">Select Poster</string>
+ <string id="40">Select Fanart</string>
+ <string id="41">Check All Thumb</string>
+ <string id="42">Check All Mid</string>
+ <string id="43">Check All Original</string>
+ <string id="44">Selected item will be set as fanart. All checked items will be saved to \extrathumbs.</string>
+ <string id="45">Performing Preliminary Tasks...</string>
+ <string id="46">Downloading Selected Image...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Small</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">Small ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Multiple</string>
+ <string id="56">Downloading selected trailer...</string>
+ <string id="57">Copying specified file to trailer...</string>
+ <string id="58">The trailer could not be played. This could be due to an invalid URL or you do not have the proper player to play the trailer type.</string>
+ <string id="59">Error Playing Trailer</string>
+ <string id="60">Move</string>
+ <string id="61">Copy</string>
+ <string id="62">Moving specified file to trailer...</string>
+ <string id="63">Set To Nfo</string>
+ <string id="64">Select Trailer</string>
+ <string id="65">Select Trailer to Download</string>
+ <string id="66">Manual Trailer Entry</string>
+ <string id="67">Direct Link or YouTube URL:</string>
+ <string id="68">Compiling trailer list...</string>
+ <string id="69">Preview Trailer</string>
+ <string id="70">Local Trailer:</string>
+ <string id="71">The video format links could not be retrieved.</string>
+ <string id="72">Error Retrieving Video Format Links</string>
+ <string id="73">Select Format</string>
+ <string id="74">Getting available formats...</string>
+ <string id="75">Available Formats</string>
+ <string id="76">A poster of your preferred size could not be found. Please choose another.</string>
+ <string id="77">No Preferred Size</string>
+ <string id="78">Fanart of your preferred size could not be found. Please choose another.</string>
+ <string id="79">There are no known episodes for this show. Scrape the show, season, or episode and try again.</string>
+ <string id="80">No Known Episodes</string>
+ <string id="81">There is no poster available for this episode.</string>
+ <string id="82">Guest Star</string>
+ <string id="83">The ID you entered is not a valid TVDB ID.</string>
+ <string id="84">Downloading show info...</string>
+ <string id="85">TV Search Results</string>
+ <string id="86">View details of each result to find the proper TV show.</string>
+ <string id="87">Downloading Fullsize Fanart Image...</string>
+ <string id="88">Loading Current Images...</string>
+ <string id="89">(Down)Loading New Images...</string>
+ <string id="90">Setting Defaults...</string>
+ <string id="91">Show Poster</string>
+ <string id="92">Episode Fanart</string>
+ <string id="93">Show Fanart</string>
+ <string id="94">All Seasons Poster</string>
+ <string id="95">Season Posters</string>
+ <string id="96">Season Fanart</string>
+ <string id="97">Season {0} Posters</string>
+ <string id="98">Season {0} Fanart</string>
+ <string id="99">TV Image Selection</string>
+ <string id="100">Current Image:</string>
+ <string id="101">Get Posters</string>
+ <string id="102">Get Fanart</string>
+ <string id="103">These settings are specific to this module.{0}Please refer to the global settings for more options.</string>
+ <string id="104">Ember Native Movie Scrapers</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Size:</string>
+ <string id="109">Trailers</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Preferred language</string>
+ <string id="113">Save Fanart In:</string>
+ <string id="114">Open In Browser</string>
+</strings>
diff --git a/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.German_(de_DE)-Help.xml b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
new file mode 100644
index 0000000..f4c930d
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.German_(de_DE)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Aktiviert dieses Modul.</string>
+ <string control="NativeMovieInfo_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieInfo_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Gib den Mirror ein über den Ember mit der IMDB kommunizieren soll.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">Wenn aktiviert versucht Ember den Titel von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">Wenn aktiviert versucht Ember die Kurzebschreibung von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">Wenn aktiviert versucht Ember die Inhaltsangabe von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">Wenn aktiviert versucht Ember die Genres von der deutschen Seite OFDB.DE zu scrapen.</string>
+ <string control="NativeMovieInfo_chkCertification">Aktiviert das Scrapen der Altersbeschränkung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTop250">Aktiviert das Scrapen der IMDB Top250 mit diesem Modul.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Die Anzahl der gescrapten Genres limitieren.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Die Anzahl der gescrapten Schauspieler limitieren.</string>
+ <string control="NativeMovieInfo_chkCrew">Aktiviert das Scrapen der Sonstigen Crew mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Aktiviert das Scrapen der Musiker mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkProducers">Aktiviert das Scrapen der Produzenten mit diesem Modul. (Die Gesamte Crew scrapen muss aktiviert sein!)</string>
+ <string control="NativeMovieInfo_chkWriters">Aktiviert das Scrapen der Autoren mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkStudio">Aktiviert das Scrapen des Studios mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRuntime">Aktiviert das Scrapen der Spielzeit mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkPlot">Aktiviert das Scrapen des Inhalts mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkOutline">Aktiviert das Scrapen der Kurzbeschreibung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkGenre">Aktiviert das Scrapen von Genre mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkDirector">Aktiviert das Scrapen des Regisseurs mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTagline">Aktiviert das Scrapen der Tagline mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkCast">Aktiviert das Scrapen der Schauspieler mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkVotes">Aktiviert das Scrapen der Anzahl Bewertungen mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTrailer">Aktiviert das Scrapen von Trailern mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRating">Aktiviert das Scrapen der Bewertung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkRelease">Aktiviert das Scrapen des Premiere Datums mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkMPAA">Aktiviert das Scrapen der MPAA Bewertung mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkYear">Aktiviert das Scrapen des Jahres mit diesem Modul.</string>
+ <string control="NativeMovieInfo_chkTitle">Aktiviert das Scrapen des Titels mit diesem Modul.</string>
+ <string control="NativeMovieMedia_cbEnabled">Aktiviert dieses Modul.</string>
+ <string control="NativeMovieMedia_btnUp">Verschiebt diesen Scraper in der Reihenfolge einen nach oben (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieMedia_btnDown">Verschiebt diesen Scraper in der Reihenfolge einen nach unten (Scrape Module werden von oben nach unten abgearbeitet.)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Aktiviert das Laden von Postern mit diesem Modul. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Aktiviert das Laden von Fanart mit diesem Modul. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Aktiviert das Laden von Bildern von TheMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Aktiviert das Laden von Bildern von IMPA</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Aktiviert das Laden von Bildern von MoviePosterDB.com.</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Automatische Frame extraktion mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Trailer laden mit diesem Modul aktivieren. (Schau auch in die Globale Konfiguration!)</string>
+ <string control="NativeMovieMedia_txtTimeout">Wähle die Zeit (in Sekunden) die auf Trailerseiten gewartet werden soll. (Wenn die Zeite in dieser Zeit nicht geantwortet hat wird sie übersprungen)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Wähle die Seite von der Trailer URLs/Dateien geladen werden sollen.</string>
+</strings>
diff --git a/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.German_(de_DE).xml b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.German_(de_DE).xml
new file mode 100644
index 0000000..0349557
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.German_(de_DE).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">Ember Nativer TV Scraper</string>
+ <string id="1">OFDB Genre benutzen</string>
+ <string id="2">OFDB Handlung benutzen</string>
+ <string id="3">OFDB Kurzbeschr. benutzen</string>
+ <string id="4">OFDB Titel benutzen</string>
+ <string id="5">IMDB Mirror:</string>
+ <string id="6">Scraper Felder - Scraper spezifisch</string>
+ <string id="7">Timeout:</string>
+ <string id="8">Unterstützte Seiten:</string>
+ <string id="9">Bilder holen von:</string>
+ <string id="10">Suchergebnis</string>
+ <string id="11">Suche in der IMDB...</string>
+ <string id="12">Die eingegebene ID ist keine gültige IMDB ID.</string>
+ <string id="13">Die IMDB ID ist noch nicht geprüft.</string>
+ <string id="14">Ohne Prüfung fortfahren?</string>
+ <string id="15">Zu der eingegebene IMDB ID konnten keine Informationen geholt werden. Bitte prüfe deine Eingaben.</string>
+ <string id="16">Prüfung fehlgeschlagen</string>
+ <string id="17">Teil Treffer ({0})</string>
+ <string id="18">Exakte Treffer({0})</string>
+ <string id="19">Populäre Titel ({0})</string>
+ <string id="20">Keine Treffer</string>
+ <string id="21">Schaue dir die Details an um den richtigen Film zu finden.</string>
+ <string id="22">Film Suchergebnis</string>
+ <string id="23">Man. IMDB ID:</string>
+ <string id="24">Prüfen</string>
+ <string id="25">Suche in der IMDB...</string>
+ <string id="26">Lade Details...</string>
+ <string id="27">Lade {0} herunter</string>
+ <string id="28">Kein Fanart für diesen Film gefunden</string>
+ <string id="29">Kein Fanart gefunden</string>
+ <string id="30">Kein Poster für diesen Film gefunden</string>
+ <string id="31">Kein Poster gefunden</string>
+ <string id="32">Lade Daten von TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com ist nicht aktiviert.</string>
+ <string id="34">Lade Daten von IMPAwards.com...</string>
+ <string id="35">IMPAwards.com ist nicht aktiviert.</string>
+ <string id="36">Lade Daten von MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com ist nicht aktiviert.</string>
+ <string id="38">Bereite Bilder vor...</string>
+ <string id="39">Wähle Poster</string>
+ <string id="40">Wähle Fanart</string>
+ <string id="41">Alle Thumbs</string>
+ <string id="42">Alle Mittl.</string>
+ <string id="43">Alle Original</string>
+ <string id="44">Markiertes Bild wird Fanart. Alle aktivierten werden Extrathumbs.</string>
+ <string id="45">Vorarbeit läuft...</string>
+ <string id="46">Lade gewähltes Bild...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">mittel</string>
+ <string id="50">klein</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover ({0}x{1})</string>
+ <string id="53">klein ({0}x{1})</string>
+ <string id="54">mittel ({0}x{1})</string>
+ <string id="55">Mehrfach</string>
+ <string id="56">Lade gewählten Trailer...</string>
+ <string id="57">Kopiere gewählten Trailer...</string>
+ <string id="58">Der Trailer konnte nicht abgespielt werden. Dies könnte an einer Fehlerhaften URL liegen oder es ist kein Player für diesen Dateityp vorhanden.</string>
+ <string id="59">Fehler beim Abspielen des Trailers</string>
+ <string id="60">Verschieben</string>
+ <string id="61">Kopieren</string>
+ <string id="62">Verschiebe gewählten Trailer...</string>
+ <string id="63">In NFO speichern</string>
+ <string id="64">Trailer wählen</string>
+ <string id="65">Trailer zum laden wählen</string>
+ <string id="66">Man. Trailer</string>
+ <string id="67">Direktlink oder YouTube URL:</string>
+ <string id="68">Stelle Trailerliste zusammen...</string>
+ <string id="69">Trailer Vorschau</string>
+ <string id="70">Lokaler Trailer:</string>
+ <string id="71">Die Videoformat Linkliste konnte nicht generiert werden.</string>
+ <string id="72">Fehler beim generieren der Videoformat Linkliste</string>
+ <string id="73">Format wählen</string>
+ <string id="74">Hole verfügbare Formate...</string>
+ <string id="75">Verfügbare Formate</string>
+ <string id="76">Es konnte kein Poster in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="77">Keine gewünschte Größe</string>
+ <string id="78">Es konnte kein Fanart in der gewünschten Größe gefunden werden. Wähle ein anderes.</string>
+ <string id="79">Keine Episoden für diese TV-Serie verfügbar. Scrape diese Serie, Staffel oder Episode und versuche es erneut.</string>
+ <string id="80">Keine Episoden verfügbar</string>
+ <string id="81">Kein Poster für diese Episode vorhanden.</string>
+ <string id="82">Gast Star</string>
+ <string id="83">Die eingegebene ID ist keine gültige TVDB ID.</string>
+ <string id="84">Lade Serien Informationen...</string>
+ <string id="85">Serien Suchergebnis</string>
+ <string id="86">Betrachte die Details um die richtige TV-Serie zu erkennen.</string>
+ <string id="87">Lade Fanart in Originalgröße...</string>
+ <string id="88">Lade aktuelle Bilder...</string>
+ <string id="89">Lade neue Bilder...</string>
+ <string id="90">Setze Standardwerte...</string>
+ <string id="91">Serien Poster</string>
+ <string id="92">Episoden Fanart</string>
+ <string id="93">Serien Fanart</string>
+ <string id="94">Alle-Staffeln Poster</string>
+ <string id="95">Staffel Posters</string>
+ <string id="96">Staffel Fanart</string>
+ <string id="97">Staffel {0} Poster</string>
+ <string id="98">Staffel {0} Fanart</string>
+ <string id="99">Bilderwahl TV-Serien</string>
+ <string id="100">Aktuelles Bild:</string>
+ <string id="101">Poster laden</string>
+ <string id="102">Fanart laden</string>
+ <string id="103">Diese Einstellungen sind Modul-spezifisch. {0} Bitte werfen sie einen blick in die Globalen Einstellungen für noch mehr Optionen.</string>
+ <string id="104">Ember Nativer Film Scraper</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (German)</string>
+ <string id="108">TMDB Extrathumbs Grösse:</string>
+ <string id="109">Trailer</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC Format</string>
+ <string id="112">Bevorzugte Sprache</string>
+ <string id="113">Speichere Fanart in:</string>
+ <string id="114">Im Browser öffnen</string>
+</strings>
diff --git a/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..79a98bf
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,45 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string control="NativeMovieInfo_cbEnabled">Slå modulen av eller på.</string>
+ <string control="NativeMovieInfo_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieInfo_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieInfo_txtIMDBURL">Før inn speilserver til IMDB.</string>
+ <string control="NativeMovieInfo_chkOFDBTitle">Hvis påslått, EMM vil å prøve å finne filmtittel fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBOutline">Hvis påslått, EMM vil prøve å finne beskrivelse av filmen på OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBPlot">Hvis påslått, EMM vil hente filmhistorien fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkOFDBGenre">Hvis påslått, EMM vil hente filmsjanger fra OFDB (en tyskspråklig side) under detaljhenting.</string>
+ <string control="NativeMovieInfo_chkCertification">Slå på detaljhenting av filmsertifisering.</string>
+ <string control="NativeMovieInfo_chkTop250">Slå på detaljhenting av IMDB Top 250-plassering.</string>
+ <string control="NativeMovieInfo_txtGenreLimit">Begrens antall detaljhentede sjangre.</string>
+ <string control="NativeMovieInfo_txtActorLimit">Begrens antall skuespillere.</string>
+ <string control="NativeMovieInfo_chkCrew">Slå på detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkMusicBy">Slå på detaljhenting av musikere. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkProducers">Slå på detaljhenting av filmprodusenter. (Detaljhenting av full crew må være påslått)</string>
+ <string control="NativeMovieInfo_chkWriters">Slå på detaljhenting av manusforfattere.</string>
+ <string control="NativeMovieInfo_chkStudio">Slå på detaljhenting av studio.</string>
+ <string control="NativeMovieInfo_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="NativeMovieInfo_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="NativeMovieInfo_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="NativeMovieInfo_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="NativeMovieInfo_chkDirector">Slå på detaljhetning av filmens regissør.</string>
+ <string control="NativeMovieInfo_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="NativeMovieInfo_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="NativeMovieInfo_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="NativeMovieInfo_chkTrailer">Slå på detaljhetning av filmens trailer URL.</string>
+ <string control="NativeMovieInfo_chkRating">Slå på detaljhetning av filmens aldersgrense.</string>
+ <string control="NativeMovieInfo_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="NativeMovieInfo_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="NativeMovieInfo_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="NativeMovieInfo_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="NativeMovieMedia_cbEnabled">Slå modulen av eller på.</string>
+ <string control="NativeMovieMedia_btnUp">Flytt denne detaljhentermodulen opp i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieMedia_btnDown">Flytt denne detaljhentermodulen ned i rekkefølgen. (Detaljhentermoduler vil bli bruk fra toppen ned.)</string>
+ <string control="NativeMovieMedia_chkScrapePoster">Slå på detaljhetning av plakater i denne modulen. (Se globale plakatinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkScrapeFanart">Slå på detaljhetning av fankunst i denne modulen. (Se globale fankunstinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkUseTMDB">Slå på bildehenting fra theMovieDB.org.</string>
+ <string control="NativeMovieMedia_chkUseIMPA">Slå på bildehenting fra</string>
+ <string control="NativeMovieMedia_chkUseMPDB">Slå på bildehenting fra MoviePosterDB.com</string>
+ <string control="NativeMovieMedia_chkAutoThumbs">Slå på automatisk henting av ekstrakunst fra denne modulen. (Se globale ekstrakunstinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_chkDownloadTrailer">Slå på automatisk henting av trailer fra denne modulen. (Se globale trailerinnstillinger for flere valg)</string>
+ <string control="NativeMovieMedia_txtTimeout">Før inn tiden (i sekunder) du vil bruke for timeout for trailersider. (Hvis siden ikke svarer innen timeoutfristen, så vil den bli hoppet over)</string>
+ <string control="NativeMovieMedia_lbTrailerSites">Velg sidene du vil bruke til trailer URL og/eller filer.</string>
+</strings>
diff --git a/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Norwegian_(no_NO).xml b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
new file mode 100644
index 0000000..52370c3
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Langs/scraper.EmberCore.Norwegian_(no_NO).xml
@@ -0,0 +1,117 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="0">EMM TV-detaljhentere</string>
+ <string id="1">Bruk OFDB-sjangere</string>
+ <string id="2">Bruk OFDB-filmhistorie</string>
+ <string id="3">Bruk OFDB-beskrivelse</string>
+ <string id="4">Bruk OFDB-tittel</string>
+ <string id="5">IMDB-speilserver:</string>
+ <string id="6">Detaljhenterområder - Detaljhenterspesifikk</string>
+ <string id="7">Tidsavbrudd:</string>
+ <string id="8">Støttede sider:</string>
+ <string id="9">Hent bilder fra:</string>
+ <string id="10">Søkeresultater</string>
+ <string id="11">Søker TMDB...</string>
+ <string id="12">IDen du førte inn er ikke en riktig IMDB-ID.</string>
+ <string id="13">Du har ført inn en IMDB-ID, men har ikke verifisert om den er riktig.</string>
+ <string id="14">Fortsette uten verifisering?</string>
+ <string id="15">Kunne ikke hente filmdetaljer for den innførte IDen. Vennligst sjekk IDen og prøv igjen.</string>
+ <string id="16">Verifisering feilet</string>
+ <string id="17">Delvise treff ({0})</string>
+ <string id="18">Eksakte treff ({0})</string>
+ <string id="19">Populære titler ({0})</string>
+ <string id="20">Ingen funnet</string>
+ <string id="21">Se detaljer fra hvert treff for å finne riktig film.</string>
+ <string id="22">Filmsøkresultater</string>
+ <string id="23">Manuell IMDB innføring:</string>
+ <string id="24">Verifiser</string>
+ <string id="25">Søker TMDB...</string>
+ <string id="26">Laster ned detaljer...</string>
+ <string id="27">Laster ned {0}</string>
+ <string id="28">Ingen fankunst funnet for denne filmen.</string>
+ <string id="29">Ingen fankunst funnet</string>
+ <string id="30">Ingen plakater funnet for denne filmen.</string>
+ <string id="31">Ingen plakater funnet</string>
+ <string id="32">Henter data fra TheMovieDB.com...</string>
+ <string id="33">TheMovieDB.com er ikke påslått</string>
+ <string id="34">Henter data fra IMPAwards.com...</string>
+ <string id="35">IMPAwards.com er ikke påslått</string>
+ <string id="36">Henter data fra MoviePosterDB.com...</string>
+ <string id="37">MoviePostersDB.com er ikke påslått</string>
+ <string id="38">Forbereder bilder...</string>
+ <string id="39">Velg plakat</string>
+ <string id="40">Velg fankunst</string>
+ <string id="41">Huk av alle tommelbilder</string>
+ <string id="42">Huk av alle Mid</string>
+ <string id="43">Huk av alle originale</string>
+ <string id="44">Valgte objekt vil bli satt som fankunst. Alle hukede objekter vil bli lagret i \extrathumbs.</string>
+ <string id="45">Utfører forberedende oppgaver...</string>
+ <string id="46">Laster ned valgte bilde...</string>
+ <string id="47">Original</string>
+ <string id="48">Cover</string>
+ <string id="49">Medium</string>
+ <string id="50">Liten</string>
+ <string id="51">Original ({0}x{1})</string>
+ <string id="52">Cover {0}x{1}</string>
+ <string id="53">Liten ({0}x{1})</string>
+ <string id="54">Medium ({0}x{1})</string>
+ <string id="55">Flere</string>
+ <string id="56">Laster ned valgt trailer...</string>
+ <string id="57">Kopierer valgt fil til trailer...</string>
+ <string id="58">Traileren kunne ikke spilles av. Det kan være at URL ikke er gyldig, eller at du ikke har riktig avspiller for denne filtypen.</string>
+ <string id="59">Kunne spille av trailer.</string>
+ <string id="60">Flytt</string>
+ <string id="61">Kopiér</string>
+ <string id="62">Flytter valgt fil til trailer...</string>
+ <string id="63">Sett i nfo</string>
+ <string id="64">Velg trailer</string>
+ <string id="65">Velg trailer til å laste ned</string>
+ <string id="66">Manuell trailerinnføring</string>
+ <string id="67">Direkte link eller YouTube URL:</string>
+ <string id="68">Kompilerer trailerliste...</string>
+ <string id="69">Sniktitt på trailer</string>
+ <string id="70">Lokal trailer:</string>
+ <string id="71">Videoformatlenkene kunne ikke hentes</string>
+ <string id="72">Kunne ikke hente videoformatlenker</string>
+ <string id="73">Velg format</string>
+ <string id="74">Henter tilgjengelige formater...</string>
+ <string id="75">Tilgjengelige formater</string>
+ <string id="76">En plakat i din valgte størrelse kunne ikke hentes. Vennligst velg en annen.</string>
+ <string id="77">Ingen foretrukket størrelse</string>
+ <string id="78">Fankunst i din foretrukkede størrelse kunne ikke bli funnet. Vennligst velg en annen.</string>
+ <string id="79">Det er ingen kjente episoder for denne serien. Detaljhent serien, sesongen eller episoden og prøv på nytt.</string>
+ <string id="80">Ingen kjente episoder</string>
+ <string id="81">Det er ingen plakater for denne episoden.</string>
+ <string id="82">Gjesteskuespiller</string>
+ <string id="83">IDen du innførte er ikke en gyldig TVDB ID.</string>
+ <string id="84">Laster ned serieinfo...</string>
+ <string id="85">TVsøk-resultater</string>
+ <string id="86">Se detaljer fra hvert resultat for å finne riktig serie.</string>
+ <string id="87">Laster ned fankunst i full størrelse...</string>
+ <string id="88">Laster inn nåværende bilder...</string>
+ <string id="89">Laster (ned) nye bilder...</string>
+ <string id="90">Setter standarder...</string>
+ <string id="91">Serieplakat</string>
+ <string id="92">Episodefankunst</string>
+ <string id="93">Vis fankunst</string>
+ <string id="94">Alle sesonger-plakat</string>
+ <string id="95">Sesongplakater</string>
+ <string id="96">Sesongfankunst</string>
+ <string id="97">Sesong {0}-plakater</string>
+ <string id="98">Sesong {0}-fankunst</string>
+ <string id="99">TV-bilde valg</string>
+ <string id="100">Nåværende bilde:</string>
+ <string id="101">Hent plakater</string>
+ <string id="102">Hent fankunst</string>
+ <string id="103">Disse innstillingene er spesifikk til denne modulen.{0}Vennligst se globale innstillinger for flere valg.</string>
+ <string id="104">EMM film-detaljhentere</string>
+ <string id="105"/>
+ <string id="106">IMDB</string>
+ <string id="107">OFDB (Tysk)</string>
+ <string id="108">TMDB Ekstrakunst-størrelse:</string>
+ <string id="109">Trailere</string>
+ <string id="110">Youtube/TMDB Trailer:</string>
+ <string id="111">XBMC-format</string>
+ <string id="112">Foretrukket språk</string>
+ <string id="113">Lagre fankunst i:</string>
+ <string id="114">Åpne i nettleser</string>
+</strings>
diff --git a/Addons/scraper.YouTube.Trailer/My Project/Application.Designer.vb b/Addons/scraper.YouTube.Trailer/My Project/Application.Designer.vb
new file mode 100644
index 0000000..66fb81a
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/My Project/Application.Designer.vb
@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
diff --git a/Addons/scraper.YouTube.Trailer/My Project/Application.myapp b/Addons/scraper.YouTube.Trailer/My Project/Application.myapp
new file mode 100644
index 0000000..758895d
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/My Project/Application.myapp
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <MySubMain>false</MySubMain>
+ <SingleInstance>false</SingleInstance>
+ <ShutdownMode>0</ShutdownMode>
+ <EnableVisualStyles>true</EnableVisualStyles>
+ <AuthenticationMode>0</AuthenticationMode>
+ <ApplicationType>1</ApplicationType>
+ <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>
diff --git a/Addons/scraper.YouTube.Trailer/My Project/AssemblyInfo.vb b/Addons/scraper.YouTube.Trailer/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..fcd3cd2
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("scraper.YouTube.Trailer")>
+<Assembly: AssemblyDescription("http://forum.xbmc.org/showthread.php?tid=116941")>
+<Assembly: AssemblyCompany("Ember Media Manager")>
+<Assembly: AssemblyProduct("scraper.YouTube.Trailer")>
+<Assembly: AssemblyCopyright("Copyright © 2013")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("89C794BA-A71E-455B-A732-1C1B3094E707")>
+
+' Version information for an assembly consists of the following four values:
+'
+' Major Version
+' Minor Version
+' Build Number
+' Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.0.11")>
+<Assembly: AssemblyFileVersion("1.3.0.11")>
diff --git a/Addons/scraper.YouTube.Trailer/My Project/Resources.Designer.vb b/Addons/scraper.YouTube.Trailer/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..bb85827
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/My Project/Resources.Designer.vb
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EmberScraperModule.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.YouTube.Trailer/My Project/Resources.resx b/Addons/scraper.YouTube.Trailer/My Project/Resources.resx
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/My Project/Resources.resx
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/My Project/Settings.Designer.vb b/Addons/scraper.YouTube.Trailer/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..f020222
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.239
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Module MySettingsProperty
+
+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+ Friend ReadOnly Property Settings() As Global.EmberScraperModule.My.MySettings
+ Get
+ Return Global.EmberScraperModule.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/Addons/scraper.YouTube.Trailer/My Project/Settings.settings b/Addons/scraper.YouTube.Trailer/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/My Project/Settings.settings
@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+ <Profiles>
+ <Profile Name="(Default)" />
+ </Profiles>
+ <Settings />
+</SettingsFile>
diff --git a/Addons/scraper.YouTube.Trailer/Resources/Logo.png b/Addons/scraper.YouTube.Trailer/Resources/Logo.png
new file mode 100644
index 0000000..a89dae1
Binary files /dev/null and b/Addons/scraper.YouTube.Trailer/Resources/Logo.png differ
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeIMDB.vb b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeIMDB.vb
new file mode 100644
index 0000000..06e23c6
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeIMDB.vb
@@ -0,0 +1,1126 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Globalization
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMDB
+
+ Public Class MovieSearchResults
+
+#Region "Fields"
+
+ Private _ExactMatches As New List(Of MediaContainers.Movie)
+ Private _PartialMatches As New List(Of MediaContainers.Movie)
+ Private _PopularTitles As New List(Of MediaContainers.Movie)
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property ExactMatches() As List(Of MediaContainers.Movie)
+ Get
+ Return _ExactMatches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _ExactMatches = value
+ End Set
+ End Property
+
+ Public Property PartialMatches() As List(Of MediaContainers.Movie)
+ Get
+ Return _PartialMatches
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _PartialMatches = value
+ End Set
+ End Property
+
+ Public Property PopularTitles() As List(Of MediaContainers.Movie)
+ Get
+ Return _PopularTitles
+ End Get
+ Set(ByVal value As List(Of MediaContainers.Movie))
+ _PopularTitles = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+ Public UseOFDBGenre As Boolean
+ Public UseOFDBOutline As Boolean
+ Public UseOFDBPlot As Boolean
+ Public UseOFDBTitle As Boolean
+
+ Friend WithEvents bwIMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const LINK_PATTERN As String = "<a[\s]+[^>]*?href[\s]?=[\s\""\']*(?<url>.*?)[\""\']*.*?>(?<name>[^<]+|.*?)?<\/a>"
+
+ Private Const ACTORTABLE_PATTERN As String = "<table class=""cast"">(.*?)</table>"
+ Private Const HREF_PATTERN As String = "<a.*?href=[""'](?<url>.*?)[""'].*?>(?<name>.*?)</a>"
+ Private Const HREF_PATTERN_2 As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>"
+ Private Const HREF_PATTERN_3 As String = "<a href=""/search/title\?certificates=[^""]*"">([^<]*):([^<]*)</a>[^<]*(<i>([^<]*)</i>)?"
+ Private Const HREF_PATTERN_4 As String = "<a.*?href=[""']/(title/tt\d{7}/|name/nm\d{7}/)[""'].*?>(?<text>.*?)</a>"
+ Private Const IMDB_ID_REGEX As String = "tt\d\d\d\d\d\d\d"
+ Private Const IMG_PATTERN As String = "<img src=""(?<thumb>.*?)"" width=""\d{1,3}"" height=""\d{1,3}"" border="".{1,3}"">"
+ Private Const MOVIE_TITLE_PATTERN As String = "(?<=<(title)>).*(?=<\/\1>)"
+ Private Const TABLE_PATTERN As String = "<table.*?>\n?(.*?)</table>"
+ Private Const TD_PATTERN_1 As String = "<td\sclass=""nm"">(.*?)</td>"
+ Private Const TD_PATTERN_2 As String = "(?<=<td\sclass=""char"">)(.*?)(?=</td>)(\s\(.*?\))?"
+ Private Const TD_PATTERN_3 As String = "<td\sclass=""hs"">(.*?)</td>"
+ Private Const TD_PATTERN_4 As String = "<td>(?<title>.*?)</td>"
+ Private Const TITLE_PATTERN As String = "<a\shref=[""""'](?<url>.*?)[""""'].*?>(?<name>.*?)</a>((\s)+?(\((?<year>\d{4})(\/.*?)?\)))?((\s)+?(\((?<type>.*?)\)))?"
+ Private Const TR_PATTERN As String = "<tr\sclass="".*?"">(.*?)</tr>"
+
+ Private sPoster As String
+
+#End Region 'Fields
+
+#Region "Enumerations"
+
+ Private Enum SearchType
+ Movies = 0
+ Details = 1
+ SearchDetails = 2
+ End Enum
+
+#End Region 'Enumerations
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+
+ Public Event SearchResultsDownloaded(ByVal mResults As IMDB.MovieSearchResults)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwIMDB.IsBusy Then bwIMDB.CancelAsync()
+
+ While bwIMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Function GetMovieInfo(ByVal strID As String, ByRef IMDBMovie As MediaContainers.Movie, ByVal FullCrew As Boolean, ByVal FullCast As Boolean, ByVal GetPoster As Boolean, ByVal Options As Structures.ScrapeOptions, ByVal IsSearch As Boolean) As Boolean
+ Try
+ Dim ofdbTitle As String = String.Empty
+ Dim ofdbOutline As String = String.Empty
+ Dim ofdbPlot As String = String.Empty
+ Dim ofdbGenre As String = String.Empty
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If (UseOFDBTitle AndAlso Options.bTitle) OrElse (UseOFDBOutline AndAlso Options.bOutline) OrElse _
+ (UseOFDBPlot AndAlso Options.bPlot) OrElse (UseOFDBGenre AndAlso Options.bGenre) Then
+ Dim OFDBScrape As New OFDB(strID, IMDBMovie)
+ If UseOFDBTitle AndAlso Options.bTitle Then ofdbTitle = OFDBScrape.Title
+ If UseOFDBOutline AndAlso Options.bOutline Then ofdbOutline = OFDBScrape.Outline
+ If UseOFDBPlot AndAlso Options.bPlot Then ofdbPlot = OFDBScrape.Plot
+ If UseOFDBGenre AndAlso Options.bGenre Then ofdbGenre = OFDBScrape.Genre
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim sPlot As New HTTP
+ Dim PlotHtml As String = sPlot.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/plotsummary"))
+ sPlot = Nothing
+
+ IMDBMovie.IMDBID = strID
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ Dim OriginalTitle As String = Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString
+ If Options.bTitle Then
+ Dim oldOTitle As String = IMDBMovie.OriginalTitle
+ IMDBMovie.OriginalTitle = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(OriginalTitle, ".*(?=\s\(\d+.*?\))").ToString)).Trim
+ If String.IsNullOrEmpty(IMDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ If Not String.IsNullOrEmpty(ofdbTitle) Then
+ IMDBMovie.Title = ofdbTitle.Trim
+ Else
+ If Not String.IsNullOrEmpty(Master.eSettings.ForceTitle) Then
+ IMDBMovie.Title = GetForcedTitle(strID, IMDBMovie.OriginalTitle)
+ Else
+ IMDBMovie.Title = IMDBMovie.OriginalTitle.Trim
+ End If
+ End If
+ If String.IsNullOrEmpty(oldOTitle) OrElse Not oldOTitle = IMDBMovie.OriginalTitle Then
+ IMDBMovie.SortTitle = String.Empty
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If GetPoster Then
+ sPoster = Regex.Match(Regex.Match(HTML, "(?<=\b(name=""poster"")).*\b[</a>]\b").ToString, "(?<=\b(src=)).*\b(?=[</a>])").ToString.Replace("""", String.Empty).Replace("/></", String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bYear Then IMDBMovie.Year = Regex.Match(OriginalTitle, "(?<=\()\d+(?=.*\))", RegexOptions.RightToLeft).ToString
+
+ Dim D, W, tempD As Integer
+
+ If Options.bMPAA AndAlso (String.IsNullOrEmpty(IMDBMovie.MPAA) OrElse Not Master.eSettings.LockMPAA) Then
+ tempD = If(HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>") > 0, HTML.IndexOf("<h5><a href=""/mpaa"">MPAA</a>:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ W = If(D > 0, HTML.IndexOf("</div", D), 0)
+
+ IMDBMovie.MPAA = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Remove(0, 26)).Trim(), String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCert AndAlso (String.IsNullOrEmpty(IMDBMovie.Certification) OrElse Not Master.eSettings.LockMPAA) Then
+ 'get certifications
+ D = HTML.IndexOf("<h5>Certification:</h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Dim rCert As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN_3)
+
+ If rCert.Count > 0 Then
+ Dim Cert = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(Master.eSettings.CertificationLang)
+
+ If Not String.IsNullOrEmpty(Master.eSettings.CertificationLang) Then
+ If Cert.Count > 0 Then
+ IMDBMovie.Certification = Cert(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA AndAlso (Not Master.eSettings.CertificationLang = "USA" OrElse (Master.eSettings.CertificationLang = "USA" AndAlso String.IsNullOrEmpty(IMDBMovie.MPAA))) Then
+ IMDBMovie.MPAA = If(Master.eSettings.CertificationLang = "USA", StringUtils.USACertToMPAA(IMDBMovie.Certification), If(Master.eSettings.OnlyValueForCert, IMDBMovie.Certification.Split(Convert.ToChar(":"))(1), IMDBMovie.Certification))
+ End If
+
+
+ Else
+ 'No FSK Rating was found -> Alternative: Set USA Rating instead as fallback, MPAA will be converted to FSK, Certification from USA will be used, so people can see that US info was used!
+ If Master.eSettings.UseMPAAForFSK Then
+ Try
+ If Master.eSettings.CertificationLang = "Germany" AndAlso (IMDBMovie.MPAA.ToLower.Contains("usa") Or IMDBMovie.MPAA.ToLower.Contains("rated")) Then
+ Dim LANGRATING As String = "USA"
+ Dim Cert2 = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(LANGRATING)
+ If Cert2.Count > 0 Then
+ IMDBMovie.Certification = Cert2(0).ToString.Replace("West", String.Empty).Trim
+ If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA Then
+ If IMDBMovie.MPAA.ToLower.Contains("usa:g") Or IMDBMovie.MPAA.ToLower.Contains("rated g") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:0"
+ Else
+ IMDBMovie.MPAA = "0"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg-13") Or IMDBMovie.MPAA.ToLower.Contains("rated pg-13") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:16"
+ Else
+ IMDBMovie.MPAA = "16"
+ End If
+
+ ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg") Or IMDBMovie.MPAA.ToLower.Contains("rated pg") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:12"
+ Else
+ IMDBMovie.MPAA = "12"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:r") Or IMDBMovie.Certification.ToLower.Contains("rated r") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ ElseIf IMDBMovie.Certification.ToLower.Contains("usa:nc-17") Or IMDBMovie.Certification.ToLower.Contains("rated nc") Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ If Master.eSettings.OnlyValueForCert = False Then
+ IMDBMovie.MPAA = "Germany:18"
+ Else
+ IMDBMovie.MPAA = "18"
+ End If
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End If
+ End If
+
+
+ Else
+
+ IMDBMovie.Certification = Strings.Join(Cert.ToArray, " / ").Trim
+
+
+ End If
+ End If
+ End If
+
+ If String.IsNullOrEmpty(IMDBMovie.Certification) AndAlso Not String.IsNullOrEmpty(IMDBMovie.MPAA) Then
+ IMDBMovie.Certification = IMDBMovie.MPAA
+ End If
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRelease Then
+ Dim RelDate As Date
+ Dim sRelDate As String = Regex.Match(HTML, "\d+\s\w+\s\d\d\d\d\s").ToString.Trim
+ If Not sRelDate = String.Empty Then
+ If Date.TryParse(sRelDate, RelDate) Then
+ IMDBMovie.ReleaseDate = Strings.FormatDateTime(RelDate, DateFormat.ShortDate).ToString
+ End If
+ Else
+ IMDBMovie.ReleaseDate = Nothing
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bRating AndAlso (String.IsNullOrEmpty(IMDBMovie.Rating) OrElse Not Master.eSettings.LockRating) Then
+ Dim RegexRating As String = Regex.Match(HTML, "\b\d\W\d/\d\d").ToString
+ If String.IsNullOrEmpty(RegexRating) Then
+ IMDBMovie.Rating = String.Empty
+ Else
+ IMDBMovie.Rating = RegexRating.Split(Convert.ToChar("/")).First.Trim
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'trailer
+ If Options.bTrailer AndAlso (String.IsNullOrEmpty(IMDBMovie.Trailer) OrElse Not Master.eSettings.LockTrailer) Then
+ 'Get first IMDB trailer if possible
+ Dim trailers As List(Of String) = GetTrailers(IMDBMovie.IMDBID)
+ 'Dim TMDB As New TMDB.Scraper
+ 'Dim YT As String = TMDB.GetTrailers(IMDBMovie.IMDBID)
+
+ 'Dim sTrailerUrl As String = Regex.Match(HTML, "href=""(.*?/video/imdb/vi.*?)""").Groups(1).Value.Trim
+ 'If Not sTrailerUrl = String.Empty Then
+ 'Dim sTrailerURL2 As String = String.Empty
+ 'sTrailerUrl = String.Concat("http://", IMDBURL, sTrailerUrl, "player")
+ 'Dim HTTPTrailer As New HTTP
+ 'Dim HtmlTrailer As String = HTTPTrailer.DownloadData(sTrailerUrl)
+ 'HTTPTrailer = Nothing
+
+ 'sTrailerUrl = Regex.Match(HtmlTrailer, "so.addVariable\(""id"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'If sTrailerUrl = String.Empty Then
+ 'sTrailerURL2 = Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim
+ 'Else
+ 'sTrailerURL2 = String.Concat(Regex.Match(HtmlTrailer, "so.addVariable\(""file"", ""(.*?)""\);").Groups(1).Value.Trim, sTrailerUrl)
+ 'End If
+ 'IMDBMovie.Trailer = Web.HttpUtility.UrlDecode(sTrailerURL2)
+ 'End If
+ IMDBMovie.Trailer = trailers.FirstOrDefault()
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bVotes Then IMDBMovie.Votes = Regex.Match(HTML, "class=""tn15more"">([0-9,]+) votes</a>").Groups(1).Value.Trim
+
+ 'Top250
+ 'ie: <a href="/chart/top?tt0167260">Top 250: #13</a>
+ If Options.bTop250 Then IMDBMovie.Top250 = Regex.Match(HTML, String.Concat("/chart/top\?tt", IMDBMovie.IMDBID, """>Top 250: #([0-9]+)</a>")).Groups(1).Value.Trim
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bCast Then
+ 'Find all cast of the movie
+ 'Match the table only 1 time
+ Dim ActorsTable As String = Regex.Match(HTML, ACTORTABLE_PATTERN).ToString
+ Dim ThumbsSize = AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400")
+
+ Dim rCast As MatchCollection = Regex.Matches(ActorsTable, TR_PATTERN)
+
+ Dim Cast1 = From M In rCast _
+ Let m1 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_1).ToString, HREF_PATTERN) _
+ Let m2 = Regex.Match(M.ToString, TD_PATTERN_2).ToString _
+ Let m3 = Regex.Match(Regex.Match(M.ToString, TD_PATTERN_3).ToString, IMG_PATTERN) _
+ Select New MediaContainers.Person(Web.HttpUtility.HtmlDecode(m1.Groups("name").ToString.Trim), _
+ Web.HttpUtility.HtmlDecode(m2.ToString.Trim), _
+ If(m3.Groups("thumb").ToString.IndexOf("addtiny") > 0 OrElse m3.Groups("thumb").ToString.IndexOf("no_photo") > 0, String.Empty, Strings.Replace(Web.HttpUtility.HtmlDecode(m3.Groups("thumb").ToString.Trim), _
+ "._SX23_SY30_.jpg", String.Concat("._", ThumbsSize, "_.jpg")))) Take If(Master.eSettings.ActorLimit > 0, Master.eSettings.ActorLimit, 999999)
+
+ If Master.eSettings.CastImagesOnly Then
+ Cast1 = Cast1.Where(Function(p As MediaContainers.Person) (Not String.IsNullOrEmpty(p.Thumb)))
+ End If
+
+ Dim Cast As List(Of MediaContainers.Person) = Cast1.ToList
+
+ 'Clean up the actors list
+ For Each Ps As MediaContainers.Person In Cast
+ For Each sMatch As Match In Regex.Matches(Ps.Role, HREF_PATTERN)
+ Ps.Role = Ps.Role.Replace(sMatch.Value, sMatch.Groups("name").Value.ToString.Trim)
+ Next
+ ' Dim a_patterRegex = Regex.Match(Ps.Role, HREF_PATTERN)
+ ' If a_patterRegex.Success Then Ps.Role = a_patterRegex.Groups("name").ToString.Trim
+ Next
+
+ IMDBMovie.Actors = Cast
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ D = 0 : W = 0
+
+ If Options.bTagline AndAlso (String.IsNullOrEmpty(IMDBMovie.Tagline) OrElse Not Master.eSettings.LockTagline) Then
+
+ tempD = If(HTML.IndexOf("<h5>Tagline:</h5>") > 0, HTML.IndexOf("<h5>Tagline:</h5>"), 0)
+
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+
+ Dim lHtmlIndexOf As Integer = If(D > 0, HTML.IndexOf("<a class=""tn15more inline""", D), 0)
+ Dim TagLineEnd As Integer = If(lHtmlIndexOf > 0, lHtmlIndexOf, 0)
+ If D > 0 Then W = If(TagLineEnd > 0, TagLineEnd, HTML.IndexOf("</div>", D))
+
+ IMDBMovie.Tagline = If(D > 0 AndAlso W > 0, Web.HttpUtility.HtmlDecode(HTML.Substring(D, W - D).Replace("<h5>Tagline:</h5>", String.Empty).Split(vbCrLf.ToCharArray)(1)).Trim, String.Empty)
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bDirector Then
+ 'Get the directors
+ D = If(HTML.IndexOf("<h5>Director:</h5>") > 0, HTML.IndexOf("<h5>Director:</h5>"), HTML.IndexOf("<h5>Directors:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any director(s) ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first director's name
+ Dim rDir As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Dir = From M In rDir Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Dir.Count > 0 Then
+ IMDBMovie.Director = Strings.Join(Dir.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get countries of the movie
+ If Options.bCountry Then
+ 'Get the countries
+ D = If(HTML.IndexOf("<h5>Country:</h5>") > 0, HTML.IndexOf("<h5>Country:</h5>"), HTML.IndexOf("<h5>Countries:</h5>"))
+ W = If(D > 0, HTML.IndexOf("</div>", D), 0)
+ 'got any country ?
+ If D > 0 AndAlso Not W <= 0 Then
+ 'get only the first country's name
+ Dim rCou As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+ Dim Cou = From M In rCou Where Not DirectCast(M, Match).Groups("name").ToString.Contains("more") _
+ Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+
+ If Cou.Count > 0 Then
+
+ 'fix for display country flag in XBMC!
+ If Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("USA") Then
+ IMDBMovie.Country = "United States of America"
+ ElseIf Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("UK") Then
+ IMDBMovie.Country = "United Kingdom"
+ Else
+ IMDBMovie.Country = Strings.Join(Cou.ToArray, " / ").Trim()
+ End If
+
+ End If
+ End If
+
+
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get genres of the movie
+ If Options.bGenre AndAlso (String.IsNullOrEmpty(IMDBMovie.Genre) OrElse Not Master.eSettings.LockGenre) Then
+ If Not String.IsNullOrEmpty(ofdbGenre) Then
+ IMDBMovie.Genre = ofdbGenre
+ Else
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Genre:</h5>")
+ 'Check if doesnt find genres
+ If D > 0 Then
+ W = HTML.IndexOf("</div>", D)
+
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN)
+
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString) Where Not N.Contains("more") Take If(Master.eSettings.GenreLimit > 0, Master.eSettings.GenreLimit, 999999)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ IMDBMovie.Genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ If Options.bOutline AndAlso (String.IsNullOrEmpty(IMDBMovie.Outline) OrElse Not Master.eSettings.LockOutline) Then
+
+ If Not String.IsNullOrEmpty(ofdbOutline) Then
+ IMDBMovie.Outline = ofdbOutline
+ Else
+ 'Get the Plot Outline
+ D = 0 : W = 0
+
+ Try
+ If IMDBMovie.Title.Contains("(VG)") Then
+ D = If(HTML.IndexOf("<h5>Plot Summary:</h5>") > 0, HTML.IndexOf("<h5>Plot Summary:</h5>"), HTML.IndexOf("<h5>Tagline:</h5>"))
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ Else
+ tempD = If(HTML.IndexOf("<h5>Plot:</h5>") > 0, HTML.IndexOf("<h5>Plot:</h5>"), HTML.IndexOf("<h5>Plot Summary:</h5>"))
+ D = If(tempD > 0, HTML.IndexOf("<div class=""info-content"">", tempD), 0)
+ If D <= 0 Then D = HTML.IndexOf("<h5>Plot Synopsis:</h5>")
+ If D > 0 Then
+ W = HTML.IndexOf("<a class=", D)
+ If W > 0 Then
+ W = HTML.IndexOf("</div>", D)
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mplot
+ End If
+ Else
+ IMDBMovie.Outline = String.Empty
+ GoTo mPlot 'This plot synopsis is empty
+ End If
+ End If
+ Dim PlotOutline As String = HTML.Substring(D, W - D).Remove(0, 26)
+
+ PlotOutline = Web.HttpUtility.HtmlDecode(If(PlotOutline.Contains("is empty") OrElse PlotOutline.Contains("View full synopsis") _
+ , String.Empty, PlotOutline.Replace("|", String.Empty).Replace("»", String.Empty)).Trim)
+ 'check if outline has links to other IMDB entry
+ If Not String.IsNullOrEmpty(PlotOutline) Then
+ For Each rMatch As Match In Regex.Matches(PlotOutline, HREF_PATTERN_4)
+ PlotOutline = PlotOutline.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Outline = Regex.Replace(PlotOutline, HREF_PATTERN, String.Empty).Trim
+ Else
+ IMDBMovie.Outline = String.Empty
+ End If
+
+ Catch ex As Exception
+ IMDBMovie.Outline = String.Empty
+ End Try
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+mPlot:
+ 'Get the full Plot
+ If Options.bPlot AndAlso (String.IsNullOrEmpty(IMDBMovie.Plot) OrElse Not Master.eSettings.LockPlot) Then
+ If Not String.IsNullOrEmpty(ofdbPlot) Then
+ IMDBMovie.Plot = ofdbPlot
+ Else
+ Dim FullPlotP As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)</p>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlotI As String = Regex.Match(PlotHtml, "<p class=.plotpar.>(.*?)<i>", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline).Groups(1).Value.ToString.Trim
+ Dim FullPlot As String = If(FullPlotI.Length < FullPlotP.Length, FullPlotI, FullPlotP)
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ For Each rMatch As Match In Regex.Matches(FullPlot, HREF_PATTERN_4)
+ FullPlot = FullPlot.Replace(rMatch.Value, rMatch.Groups("text").Value.Trim)
+ Next
+ IMDBMovie.Plot = Web.HttpUtility.HtmlDecode(FullPlot.Replace("|", String.Empty)).Trim
+ End If
+
+ End If
+
+ If Master.eSettings.OutlineForPlot AndAlso String.IsNullOrEmpty(IMDBMovie.Plot) AndAlso Not String.IsNullOrEmpty(IMDBMovie.Outline) Then
+ IMDBMovie.Plot = IMDBMovie.Outline
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get the movie duration
+ If Options.bRuntime Then IMDBMovie.Runtime = Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<h5>Runtime:</h5>[^0-9]*([^<]*)").Groups(1).Value.Trim)
+
+ 'Get Production Studio
+ If Options.bStudio AndAlso (String.IsNullOrEmpty(IMDBMovie.Studio) OrElse Not Master.eSettings.LockStudio) Then
+ D = 0 : W = 0
+ If FullCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ 'only get the first one
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString) Take 1
+ IMDBMovie.Studio = Ps(0).ToString.Trim
+ End If
+ Else
+ D = HTML.IndexOf("<h5>Company:</h5>")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ IMDBMovie.Studio = Web.HttpUtility.HtmlDecode(Regex.Match(HTML.Substring(D, W - D), HREF_PATTERN).Groups("name").ToString.Trim)
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get Writers
+ If Options.bWriters Then
+ D = 0 : W = 0
+ D = HTML.IndexOf("<h5>Writer")
+ If D > 0 Then W = HTML.IndexOf("</div>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim q = From M In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(M, Match).Groups("name").ToString.Trim = "more" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "(more)" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim = "WGA" _
+ AndAlso Not DirectCast(M, Match).Groups("name").ToString.Trim.Contains("see more") _
+ Select Writer = Web.HttpUtility.HtmlDecode(String.Concat(DirectCast(M, Match).Groups("name").ToString, If(FullCrew, " (writer)", String.Empty)))
+
+ If q.Count > 0 Then
+ IMDBMovie.OldCredits = Strings.Join(q.ToArray, " / ").Trim
+ End If
+ End If
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Get All Other Info
+ If FullCrew Then
+
+ D = 0 : W = 0
+ D = HTML.IndexOf("Directed by</a></h5>")
+ If D > 0 Then W = HTML.IndexOf("</body>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim qTables As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TABLE_PATTERN)
+
+ For Each M As Match In qTables
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Producers
+ If Options.bProducers AndAlso M.ToString.Contains("Produced by</a></h5>") Then
+ Dim Pr = From Po In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Where Not Po.ToString.Contains(String.Concat("http://", IMDBURL, "/Glossary/")) _
+ Let P1 = Regex.Match(Po.ToString, HREF_PATTERN_2) _
+ Where Not String.IsNullOrEmpty(P1.Groups("name").ToString) _
+ Select Producer = Web.HttpUtility.HtmlDecode(String.Concat(P1.Groups("name").ToString, " (producer)"))
+
+ If Pr.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Pr.ToArray, " / ").Trim)
+ End If
+ End If
+
+ 'Music by
+ If Options.bMusicBy AndAlso M.ToString.Contains("Original Music by</a></h5>") Then
+ Dim Mu = From Mo In Regex.Matches(M.ToString, "<td\svalign=""top"">(.*?)</td>") _
+ Let M1 = Regex.Match(Mo.ToString, HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(M1.Groups("name").ToString) _
+ Select Musician = Web.HttpUtility.HtmlDecode(String.Concat(M1.Groups("name").ToString, " (music by)"))
+
+ If Mu.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Mu.ToArray, " / ").Trim)
+ End If
+ End If
+
+ Next
+ End If
+
+ If bwIMDB.CancellationPending Then Return Nothing
+
+ 'Special Effects
+ If Options.bOtherCrew Then
+ D = HTML.IndexOf("<b class=""blackcatheader"">Special Effects</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not String.IsNullOrEmpty(DirectCast(P1, Match).Groups("name").ToString) _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ If Ps.Count > 0 Then
+ IMDBMovie.OldCredits = String.Concat(IMDBMovie.OldCredits, " / ", Strings.Join(Ps.ToArray, " / ").Trim)
+ End If
+ End If
+ End If
+ End If
+
+ Return True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Function GetMovieStudios(ByVal strID As String) As List(Of String)
+ Dim alStudio As New List(Of String)
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/combined"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<b class=""blackcatheader"">Production Companies</b>")
+ If D > 0 Then W = HTML.IndexOf("</ul>", D)
+ If D > 0 AndAlso W > 0 Then
+ Dim Ps = From P1 In Regex.Matches(HTML.Substring(D, W - D), HREF_PATTERN) _
+ Where Not DirectCast(P1, Match).Groups("name").ToString = String.Empty _
+ Select Studio = Web.HttpUtility.HtmlDecode(DirectCast(P1, Match).Groups("name").ToString)
+ alStudio.AddRange(Ps.ToArray)
+ End If
+
+ Return alStudio
+ End Function
+
+ Public Function GetSearchMovieInfo(ByVal sMovieName As String, ByRef dbMovie As Structures.DBMovie, ByVal iType As Enums.ScrapeType, ByVal Options As Structures.ScrapeOptions) As MediaContainers.Movie
+ Dim r As MovieSearchResults = SearchMovie(sMovieName)
+ Dim b As Boolean = False
+ Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie
+
+ 'r.PopularTitles.Sort()
+ 'r.ExactMatches.Sort()
+ 'r.PartialMatches.Sort()
+
+ Try
+ Select Case iType
+ Case Enums.ScrapeType.FullAsk, Enums.ScrapeType.UpdateAsk, Enums.ScrapeType.NewAsk, Enums.ScrapeType.MarkAsk, Enums.ScrapeType.FilterAsk
+
+ If r.ExactMatches.Count = 1 Then 'AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count = 1 AndAlso r.PopularTitles(0).Lev <= 5 Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count = 1 AndAlso r.ExactMatches(0).Lev <= 5 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ Else
+ Master.tmpMovie.Clear()
+ Using dIMDB As New dlgIMDBSearchResults
+ dIMDB.IMDBURL = IMDBURL
+ If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then
+ If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ b = False
+ Else
+ b = GetMovieInfo(Master.tmpMovie.IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ Else
+ b = False
+ End If
+ End Using
+ End If
+ Case Enums.ScrapeType.FullAuto, Enums.ScrapeType.UpdateAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.SingleScrape, Enums.ScrapeType.FilterAuto
+
+ 'check if ALL results are over lev value
+ Dim useAnyway As Boolean = False
+ If ((r.PopularTitles.Count > 0 AndAlso r.PopularTitles(0).Lev > 5) OrElse r.PopularTitles.Count = 0) AndAlso _
+ ((r.ExactMatches.Count > 0 AndAlso r.ExactMatches(0).Lev > 5) OrElse r.ExactMatches.Count = 0) AndAlso _
+ ((r.PartialMatches.Count > 0 AndAlso r.PartialMatches(0).Lev > 5) OrElse r.PartialMatches.Count = 0) Then
+ useAnyway = True
+ End If
+ Dim exactHaveYear As Integer = FindYear(dbMovie.Filename, r.ExactMatches)
+ Dim popularHaveYear As Integer = FindYear(dbMovie.Filename, r.PopularTitles)
+ 'it seems "popular matches" is a better result than "exact matches" ..... nope
+ 'If r.ExactMatches.Count = 1 AndAlso r.PopularTitles.Count = 0 AndAlso r.PartialMatches.Count = 0 Then 'redirected to imdb info page
+ ' b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf (popularHaveYear >= 0 OrElse exactHaveYear = -1) AndAlso r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(If(popularHaveYear >= 0, popularHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.PopularTitles.Item(If(popularHaveYear >= 0, popularHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(If(exactHaveYear >= 0, exactHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then
+ ' b = GetMovieInfo(r.ExactMatches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'ElseIf r.PartialMatches.Count > 0 Then
+ ' b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ 'End If
+ If r.ExactMatches.Count = 1 Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.ExactMatches.Count > 1 AndAlso exactHaveYear >= 0 Then
+ b = GetMovieInfo(r.ExactMatches.Item(exactHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso popularHaveYear >= 0 Then
+ b = GetMovieInfo(r.PopularTitles.Item(popularHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCrew, False, Options, True)
+ ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ ElseIf r.PartialMatches.Count > 0 AndAlso (r.PartialMatches(0).Lev <= 5 OrElse useAnyway) Then
+ b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True)
+ End If
+ End Select
+
+ If b Then
+ Return imdbMovie
+ Else
+ Return New MediaContainers.Movie
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New MediaContainers.Movie
+ End Try
+ End Function
+
+ Private Function FindYear(ByVal tmpname As String, ByVal lst As List(Of MediaContainers.Movie)) As Integer
+ Dim tmpyear As String = ""
+ Dim i As Integer
+ Dim ret As Integer = -1
+ tmpname = Path.GetFileNameWithoutExtension(tmpname)
+ tmpname = tmpname.Replace(".", " ").Trim.Replace("(", " ").Replace(")", "").Trim
+ i = tmpname.LastIndexOf(" ")
+ If i >= 0 Then
+ tmpyear = tmpname.Substring(i + 1, tmpname.Length - i - 1)
+ If IsNumeric(tmpyear) AndAlso Convert.ToInt32(tmpyear) > 1950 Then 'let's assume there are no movies older then 1950
+ For c = 0 To lst.Count - 1
+ If lst(c).Year = tmpyear Then
+ ret = c
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ Return ret
+ End Function
+
+ Public Sub GetSearchMovieInfoAsync(ByVal imdbID As String, ByVal IMDBMovie As MediaContainers.Movie, ByVal Options As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.SearchDetails, _
+ .Parameter = imdbID, .IMDBMovie = IMDBMovie, .Options = Options})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+
+ Public Sub SearchMovieAsync(ByVal sMovie As String, ByVal filterOptions As Structures.ScrapeOptions)
+ Try
+ If Not bwIMDB.IsBusy Then
+ bwIMDB.WorkerReportsProgress = False
+ bwIMDB.WorkerSupportsCancellation = True
+ bwIMDB.RunWorkerAsync(New Arguments With {.Search = SearchType.Movies, .Parameter = sMovie, .Options = filterOptions})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Search
+ Case SearchType.Movies
+ Dim r As MovieSearchResults = SearchMovie(Args.Parameter)
+ e.Result = New Results With {.ResultType = SearchType.Movies, .Result = r}
+ Case SearchType.SearchDetails
+ Dim s As Boolean = GetMovieInfo(Args.Parameter, Args.IMDBMovie, False, False, True, Args.Options, True)
+ e.Result = New Results With {.ResultType = SearchType.SearchDetails, .Success = s}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub BW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.ResultType
+ Case SearchType.Movies
+ RaiseEvent SearchResultsDownloaded(DirectCast(Res.Result, MovieSearchResults))
+ Case SearchType.SearchDetails
+ Dim movieInfo As MovieSearchResults = DirectCast(Res.Result, MovieSearchResults)
+ RaiseEvent SearchMovieInfoDownloaded(sPoster, Res.Success)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Function GetForcedTitle(ByVal strID As String, ByVal oTitle As String) As String
+ Dim fTitle As String = oTitle
+
+ Try
+ If bwIMDB.CancellationPending Then Return Nothing
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", strID, "/releaseinfo#akas"))
+ sHTTP = Nothing
+
+ Dim D, W As Integer
+
+ D = HTML.IndexOf("<h5><a name=""akas"">Also Known As (AKA)</a></h5>")
+
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ Dim rTitles As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), TD_PATTERN_4, RegexOptions.Multiline Or RegexOptions.IgnorePatternWhitespace)
+
+ If rTitles.Count > 0 Then
+ For i As Integer = 1 To rTitles.Count - 1 Step 2
+ If rTitles(i).Value.ToString.Contains(Master.eSettings.ForceTitle) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (working title)")) AndAlso Not rTitles(i).Value.ToString.Contains(String.Concat(Master.eSettings.ForceTitle, " (fake working title)")) Then
+ fTitle = CleanTitle(Web.HttpUtility.HtmlDecode(rTitles(i - 1).Groups("title").Value.ToString.Trim))
+ Exit For
+ End If
+ Next
+ End If
+
+ End If
+
+ Return fTitle
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return fTitle
+ End Try
+ End Function
+
+ Private Function GetMovieID(ByVal strObj As String) As String
+ Return Regex.Match(strObj, IMDB_ID_REGEX).ToString.Replace("tt", String.Empty)
+ End Function
+
+ Private Function SearchMovie(ByVal sMovie As String) As MovieSearchResults
+ Try
+
+ Dim D, W As Integer
+ Dim R As New MovieSearchResults
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft"))
+ Dim HTMLp As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_tt_pop"))
+ Dim HTMLm As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_ft"))
+ Dim HTMLe As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&exact=true&ref_=fn_tt_ex"))
+ Dim rUri As String = sHTTP.ResponseUri
+ sHTTP = Nothing
+
+ 'Check if we've been redirected straight to the movie page
+ If Regex.IsMatch(rUri, IMDB_ID_REGEX) Then
+ Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(Regex.Match(rUri, IMDB_ID_REGEX).ToString, _
+ StringUtils.ProperCase(sMovie), Regex.Match(Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString, "(?<=\()\d+(?=.*\))").ToString, 0)
+ R.ExactMatches.Add(lNewMovie)
+ Return R
+ End If
+
+ 'popular titles
+ D = HTMLp.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mPartial
+ W = HTMLp.IndexOf("</table>", D) + 8
+
+ Dim Table As String = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qPopular = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PopularTitles = qPopular.ToList
+mPartial:
+
+ D = HTMLm.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mExact
+ W = HTMLm.IndexOf("</table>", D) + 8
+
+ Table = Regex.Match(HTMLm.Substring(D, W - D), TABLE_PATTERN).ToString
+ Dim qpartial = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.PartialMatches = qpartial.ToList
+ 'mApprox:
+
+ ' 'Now process "Approx Matches" and merge both Partial and Approx matches
+ ' D = HTML.IndexOf("Titles (Approx Matches)")
+ ' If D <= 0 Then GoTo mExact
+ ' W = HTML.IndexOf("</table>", D) + 8
+
+ ' Table = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ ' Dim qApprox = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ ' Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ ' Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ ' Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ ' If Not IsNothing(R.PartialMatches) Then
+ ' R.PartialMatches = R.PartialMatches.Union(qApprox.ToList).ToList
+ ' Else
+ ' R.PartialMatches = qApprox.ToList
+ ' End If
+
+mExact:
+
+ D = HTMLe.IndexOf("</a>Titles</h3>")
+ If D <= 0 Then GoTo mResult
+ W = HTMLe.IndexOf("</table>", D) + 8
+
+ Table = String.Empty
+ Table = Regex.Match(HTMLe.Substring(D, W - D), TABLE_PATTERN).ToString
+
+ Dim qExact = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _
+ Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("<img") AndAlso Not DirectCast(Mtr, Match).Groups("type").ToString.Contains("VG") _
+ Select New MediaContainers.Movie(GetMovieID(DirectCast(Mtr, Match).Groups("url").ToString), _
+ Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString.ToString), Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("year").ToString), StringUtils.ComputeLevenshtein(StringUtils.FilterYear(sMovie).ToLower, StringUtils.FilterYear(Web.HttpUtility.HtmlDecode(DirectCast(Mtr, Match).Groups("name").ToString)).ToLower))
+
+ R.ExactMatches = qExact.ToList
+
+mResult:
+ Return R
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return Nothing
+ End Try
+ End Function
+
+ Public Function GetTrailers(imdbID As String) As List(Of String)
+ Dim TrailerList As New List(Of String)
+ Dim TrailerNumber As Integer = 0
+ Dim Links As MatchCollection
+ Dim trailerPage As String
+ Dim trailerUrl As String
+ Dim Link As Match
+ Dim currPage As Integer = 0
+
+ Dim WebPage As New HTTP
+ Dim _ImdbTrailerPage As String = String.Empty
+
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer"))
+ If _ImdbTrailerPage.ToLower.Contains("page not found") Then
+ _ImdbTrailerPage = String.Empty
+ End If
+
+ If Not String.IsNullOrEmpty(_ImdbTrailerPage) Then
+ Link = Regex.Match(_ImdbTrailerPage, "of [0-9]{1,3}")
+
+ If Link.Success Then
+ TrailerNumber = Convert.ToInt32(Link.Value.Substring(3))
+
+ If TrailerNumber > 0 Then
+ currPage = Convert.ToInt32(Math.Ceiling(TrailerNumber / 10))
+
+ For i As Integer = 1 To currPage
+ If Not i = 1 Then
+ _ImdbTrailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/title/tt", imdbID, "/videogallery/content_type-Trailer?page=", i))
+ End If
+
+ Links = Regex.Matches(_ImdbTrailerPage, "screenplay/(vi[0-9]+)/")
+ Dim linksCollection As String() = From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()
+
+ Links = Regex.Matches(_ImdbTrailerPage, "imdb/(vi[0-9]+)/")
+ linksCollection = linksCollection.Concat(From m As Object In Links Select CType(m, Match).Value Distinct.ToArray()).ToArray
+
+ For Each value As String In linksCollection
+ If value.Contains("screenplay") Then
+ trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player"))
+ trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ TrailerList.Add(trailerUrl)
+ End If
+ Else
+ ''480p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=2"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+
+ ''720p Trailer
+ 'trailerPage = WebPage.DownloadData(String.Concat("http://", IMDBURL, "/video/", value, "player?uff=3"))
+ 'trailerUrl = Web.HttpUtility.UrlDecode(Regex.Match(trailerPage, "http.+mp4").Value)
+ 'If Not String.IsNullOrEmpty(trailerUrl) AndAlso WebPage.IsValidURL(trailerUrl) Then
+ ' Me._TrailerList.Add(trailerUrl)
+ 'End If
+ End If
+ Next
+ Next
+ End If
+ End If
+ End If
+ Return TrailerList
+ End Function
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim FullCast As Boolean
+ Dim FullCrew As Boolean
+ Dim IMDBMovie As MediaContainers.Movie
+ Dim Options As Structures.ScrapeOptions
+ Dim Parameter As String
+ Dim Search As SearchType
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultType As SearchType
+ Dim Success As Boolean
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeIMPA.vb b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..5f052ed
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,179 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace IMPA
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPA As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwIMPA.IsBusy Then Me.bwIMPA.CancelAsync()
+
+ While Me.bwIMPA.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal sURL As String)
+ Try
+ If Not bwIMPA.IsBusy Then
+ bwIMPA.WorkerSupportsCancellation = True
+ bwIMPA.WorkerReportsProgress = True
+ bwIMPA.RunWorkerAsync(New Arguments With {.Parameter = sURL})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetIMPAPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPoster As New List(Of MediaContainers.Image)
+
+ Try
+ If bwIMPA.CancellationPending Then Return Nothing
+ Dim sURL As String = GetLink(imdbID)
+
+ If Not String.IsNullOrEmpty(sURL) Then
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If bwIMPA.CancellationPending Then Return Nothing
+
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "(thumbs/imp_([^>]*ver[^>]*.jpg))|(thumbs/imp_([^>]*.jpg))")
+
+ Dim PosterURL As String
+
+ For Each mPoster As Match In mcPoster
+ If bwIMPA.CancellationPending Then Return Nothing
+ PosterURL = Strings.Replace(String.Format("{0}/{1}", sURL.Substring(0, sURL.LastIndexOf("/")), mPoster.Value.ToString()).Replace("thumbs", "posters"), "imp_", String.Empty)
+
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+
+ PosterURL = PosterURL.Insert(PosterURL.LastIndexOf("."), "_xlg")
+ alPoster.Add(New MediaContainers.Image With {.Description = "original", .URL = PosterURL})
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMPA_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPA.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMPAPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMPA_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPA.ProgressChanged
+ If Not bwIMPA.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMPA_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPA.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ Private Function GetLink(ByVal IMDBID As String) As String
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.imdb.com/title/tt", IMDBID, "/posters"))
+ sHTTP = Nothing
+
+ Dim mcIMPA As MatchCollection = Regex.Matches(HTML, "http://([^""]*)impawards.com/([^""]*)")
+ If mcIMPA.Count > 0 Then
+ 'just use the first one if more are found
+ Return mcIMPA(0).Value.ToString
+ Else
+ Return String.Empty
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return String.Empty
+ End Try
+ End Function
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeImages.vb b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeImages.vb
new file mode 100644
index 0000000..7bdb821
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeImages.vb
@@ -0,0 +1,940 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class ScrapeImages
+
+#Region "Methods"
+
+ Public Shared Function GetPreferredImage(ByRef Image As Images, ByVal IMDBID As String, ByVal iType As Enums.ImageType, ByRef imgResult As Containers.ImgResult, ByVal sPath As String, ByVal doETs As Boolean, Optional ByVal doAsk As Boolean = False) As Boolean
+ '//
+ ' Try to get the best match between what the user selected in settings and the actual posters downloaded
+ '\\
+
+ Dim hasImages As Boolean = False
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim tmpListIMPA As New List(Of MediaContainers.Image)
+ Dim tmpListMPDB As New List(Of MediaContainers.Image)
+ Dim tmpIMPAX As Images = Nothing
+ Dim tmpIMPAL As Images = Nothing
+ Dim tmpIMPAM As Images = Nothing
+ Dim tmpIMPAS As Images = Nothing
+ Dim tmpIMPAW As Images = Nothing
+ Dim tmpMPDBX As Images = Nothing
+ Dim tmpMPDBL As Images = Nothing
+ Dim tmpMPDBM As Images = Nothing
+ Dim tmpMPDBS As Images = Nothing
+ Dim tmpMPDBW As Images = Nothing
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, If(iType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Try
+
+ If iType = Enums.ImageType.Posters Then 'posters
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tImage.URL)
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ tmpListTMDB.AddRange(TMDB.GetTMDBImages(IMDBID, "poster"))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ tmpListTMDB.AddRange(IMPA.GetIMPAPosters(IMDBID))
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ tmpListTMDB.AddRange(MPDB.GetMPDBPosters(IMDBID))
+ End If
+
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ tmdbThumb.WebImage.FromWeb(tmdbThumb.URL)
+ If Not IsNothing(tmdbThumb.WebImage.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(tmdbThumb.URL)
+ Image = tmdbThumb.WebImage
+ Image.Save(Path.Combine(CachePath, String.Concat("poster_(", tmdbThumb.Description, ")_(url=", StringUtils.CleanURL(tmdbThumb.URL), ").jpg")), , , False)
+ End If
+ Image.Clear()
+ Next
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetPosterDims(iMovie.WebImage.Image) = Master.eSettings.PreferredPosterSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+ End If
+ Else
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'download all TMBD images
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "poster")
+
+ 'check each one for it's size to see if it matched the preferred size
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ For Each tmdbThumb As MediaContainers.Image In tmpListTMDB
+ imgResult.Posters.Add(tmdbThumb.URL)
+ Next
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Xlrg
+ If iMovie.Description.ToLower = "original" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Lrg
+ If iMovie.Description.ToLower = "mid" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Mid
+ If iMovie.Description.ToLower = "cover" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ Case Enums.PosterSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ Image.FromWeb(iMovie.URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+ 'no "wide" for TMDB
+ End Select
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB found... try IMPA
+
+ tmpListIMPA = IMPA.GetIMPAPosters(IMDBID)
+
+ If tmpListIMPA.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListIMPA
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpIMPAX) Then
+ tmpIMPAX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpIMPAL) Then
+ tmpIMPAL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpIMPAM) Then
+ tmpIMPAM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpIMPAS) Then
+ tmpIMPAS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpIMPAW) Then
+ tmpIMPAW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If IsNothing(Image.Image) Then
+ 'no poster of the proper size from TMDB or IMPA found... try MPDB
+
+ tmpListMPDB = MPDB.GetMPDBPosters(IMDBID)
+
+ If tmpListMPDB.Count > 0 Then
+ hasImages = True
+ For Each iImage As MediaContainers.Image In tmpListMPDB
+ Image.FromWeb(iImage.URL)
+ If Not IsNothing(Image.Image) Then
+ If Not Master.eSettings.NoSaveImagesToNfo Then imgResult.Posters.Add(iImage.URL)
+ Dim tmpSize As Enums.PosterSize = Images.GetPosterDims(Image.Image)
+ If Not tmpSize = Master.eSettings.PreferredPosterSize Then
+ 'cache the first result from each type in case the preferred size is not available
+ Select Case tmpSize
+ Case Enums.PosterSize.Xlrg
+ If IsNothing(tmpMPDBX) Then
+ tmpMPDBX = Image
+ End If
+ Case Enums.PosterSize.Lrg
+ If IsNothing(tmpMPDBL) Then
+ tmpMPDBL = Image
+ End If
+ Case Enums.PosterSize.Mid
+ If IsNothing(tmpMPDBM) Then
+ tmpMPDBM = Image
+ End If
+ Case Enums.PosterSize.Small
+ If IsNothing(tmpMPDBS) Then
+ tmpMPDBS = Image
+ End If
+ Case Enums.PosterSize.Wide
+ If IsNothing(tmpMPDBW) Then
+ tmpMPDBW = Image
+ End If
+ End Select
+ Else
+ 'image found
+ GoTo foundIT
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+ End If
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+ 'STILL no image found, just get the first available image, starting with the largest
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ 'check TMDB first
+ If tmpListTMDB.Count > 0 Then
+ Dim x = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If x.Count > 0 Then
+ Image.FromWeb(x(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "cover"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ If Not IsNothing(Image.Image) Then GoTo foundIT
+ End If
+
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ If tmpListIMPA.Count > 0 Then
+ If Not IsNothing(tmpIMPAX) Then
+ Image = tmpIMPAX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAL) Then
+ Image = tmpIMPAL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAM) Then
+ Image = tmpIMPAM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAS) Then
+ Image = tmpIMPAS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpIMPAW) Then
+ Image = tmpIMPAW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ If tmpListMPDB.Count > 0 Then
+ If Not IsNothing(tmpMPDBX) Then
+ Image = tmpMPDBX
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBL) Then
+ Image = tmpMPDBL
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBM) Then
+ Image = tmpMPDBM
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBS) Then
+ Image = tmpMPDBS
+ GoTo foundIT
+ End If
+ If Not IsNothing(tmpMPDBW) Then
+ Image = tmpMPDBW
+ GoTo foundIT
+ End If
+ End If
+ End If
+
+ Image.Clear()
+
+ End If
+
+ End If
+
+ Else 'fanart
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim ETHashes As New List(Of String)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso doETs AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ Image.SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ tmpListTMDB.Add(tImage)
+ Image.Clear()
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Master.eSettings.AutoET AndAlso doETs Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ End If
+ End If
+ Image.Clear()
+ Next
+ End If
+ End If
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+ 'remove all entries without images
+ For i As Integer = tmpListTMDB.Count - 1 To 0 Step -1
+ If IsNothing(tmpListTMDB(i).WebImage.Image) Then
+ tmpListTMDB.RemoveAt(i)
+ End If
+ Next
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ If Images.GetFanartDims(iMovie.WebImage.Image) = Master.eSettings.PreferredFanartSize Then
+ Image = iMovie.WebImage
+ GoTo foundit
+ End If
+ Next
+
+ Image.Clear()
+
+ If Not doAsk Then
+ Image = tmpListTMDB.OrderBy(Function(i) i.WebImage.Image.Height + i.WebImage.Image.Height).FirstOrDefault.WebImage
+ End If
+
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+ hasImages = True
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ imgResult.Fanart.URL = "http://images.themoviedb.org"
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ If Not miFanart.URL.Contains("_thumb.") Then
+ thumbLink = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)
+ If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("_poster.", "_thumb.")
+ Else
+ thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "_thumb")
+ End If
+ imgResult.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = miFanart.URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Next
+ End If
+
+ If Master.eSettings.AutoET AndAlso doETs Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ Image = miFanart.WebImage
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ Image.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ Image.SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+ FileUtils.Delete.DeleteDirectory(CachePath)
+ End If
+
+ For Each iMovie As MediaContainers.Image In tmpListTMDB
+ Select Case Master.eSettings.PreferredFanartSize
+ Case Enums.FanartSize.Lrg
+ If iMovie.Description.ToLower = "original" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Mid
+ If iMovie.Description.ToLower = "mid" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ Case Enums.FanartSize.Small
+ If iMovie.Description.ToLower = "thumb" Then
+ If Not IsNothing(iMovie.WebImage.Image) Then
+ Image = iMovie.WebImage
+ Else
+ Image.FromWeb(iMovie.URL)
+ End If
+ GoTo foundIT
+ End If
+ End Select
+ Next
+
+ Image.Clear()
+
+ If IsNothing(Image.Image) AndAlso Not doAsk Then
+
+ 'STILL no image found, just get the first available image, starting with the largest
+
+ Dim l = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "original"
+ If l.Count > 0 Then
+ Image.FromWeb(l(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim m = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "mid"
+ If m.Count > 0 Then
+ Image.FromWeb(m(0).URL)
+ GoTo foundIT
+ End If
+
+ Dim s = From MI As MediaContainers.Image In tmpListTMDB Where MI.Description = "thumb"
+ If s.Count > 0 Then
+ Image.FromWeb(s(0).URL)
+ GoTo foundIT
+ End If
+
+ End If
+
+ Image.Clear()
+
+ End If
+ End If
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+foundIT:
+ TMDB = Nothing
+ IMPA = Nothing
+ MPDB = Nothing
+ tmpListTMDB = Nothing
+ tmpListIMPA = Nothing
+ tmpListMPDB = Nothing
+ Return hasImages
+ End Function
+
+ Public Shared Sub GetPreferredFAasET(ByVal IMDBID As String, ByVal sPath As String)
+ Dim _Image As Image
+ Dim TMDB As New TMDB.Scraper
+ Dim IMPA As New IMPA.Scraper
+ Dim MPDB As New MPDB.Scraper
+
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+
+ Dim tmpListTMDB As New List(Of MediaContainers.Image)
+ Dim ETHashes As New List(Of String)
+
+ Dim CachePath As String = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, IMDBID, Path.DirectorySeparatorChar, "fanart")
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(sPath)
+ End If
+
+ If Master.eSettings.UseImgCacheUpdaters Then
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Dim di As New DirectoryInfo(CachePath)
+
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ For Each sFile As FileInfo In lFi
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(mid)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ SaveFAasET(sFile.FullName, sPath)
+ End If
+ End If
+ End Select
+ Next
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ 'setup fanart for nfo
+ Dim thumbLink As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ Dim savePath As String = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Master.eSettings.AutoET Then
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End Select
+ End If
+ End If
+ Next
+ End If
+ End If
+ Else
+ 'download all the fanart from TMDB
+ tmpListTMDB = TMDB.GetTMDBImages(IMDBID, "backdrop")
+
+ If tmpListTMDB.Count > 0 Then
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Dim savePath As String = String.Empty
+ For Each miFanart As MediaContainers.Image In tmpListTMDB
+ Select Case miFanart.Description.ToLower
+ Case "original"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "mid"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ Case "thumb"
+ If Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ miFanart.WebImage.FromWeb(miFanart.URL)
+ If Not IsNothing(miFanart.WebImage.Image) Then
+ _Image = miFanart.WebImage.Image
+ savePath = Path.Combine(CachePath, String.Concat("fanart_(", miFanart.Description, ")_(url=", StringUtils.CleanURL(miFanart.URL), ").jpg"))
+ miFanart.WebImage.Save(savePath, , , False)
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ SaveFAasET(savePath, sPath)
+ End If
+ End If
+ End If
+ End Select
+ 'Me.Clear()
+ Next
+
+ _Image = Nothing
+ FileUtils.Delete.DeleteDirectory(CachePath)
+
+ End If
+ End If
+ End If
+ End Sub
+
+ Public Function IsAllowedToDownload(ByVal mMovie As Structures.DBMovie, ByVal fType As Enums.ImageType, Optional ByVal isChange As Boolean = False) As Boolean
+ Try
+ Select Case fType
+ Case Enums.ImageType.Fanart
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.FanartPath) OrElse Master.eSettings.OverwriteFanart)) AndAlso _
+ (Master.eSettings.MovieNameDotFanartJPG OrElse Master.eSettings.MovieNameFanartJPG OrElse Master.eSettings.FanartJPG) AndAlso _
+ AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Return True
+ Else
+ Return False
+ End If
+ Case Else
+ If (isChange OrElse (String.IsNullOrEmpty(mMovie.PosterPath) OrElse Master.eSettings.OverwritePoster)) AndAlso _
+ (Master.eSettings.MovieTBN OrElse Master.eSettings.MovieNameTBN OrElse Master.eSettings.MovieJPG OrElse _
+ Master.eSettings.MovieNameJPG OrElse Master.eSettings.PosterTBN OrElse Master.eSettings.PosterJPG OrElse Master.eSettings.FolderJPG) AndAlso _
+ (AdvancedSettings.GetBooleanSetting("UseIMPA", False) OrElse AdvancedSettings.GetBooleanSetting("UseMPDB", False) OrElse AdvancedSettings.GetBooleanSetting("UseTMDB", True)) Then
+ Return True
+ Else
+ Return False
+ End If
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return False
+ End Try
+ End Function
+
+ Public Shared Sub SaveFAasET(ByVal faPath As String, ByVal inPath As String)
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName).FullName, "extrathumbs")
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(inPath) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(inPath).FullName).FullName, "extrathumbs")
+ Else
+ extraPath = Path.Combine(Directory.GetParent(inPath).FullName, "extrathumbs")
+ End If
+
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ FileUtils.Common.MoveFileWithStream(faPath, Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")))
+ End Sub
+
+ ' Duplicate of clsImage
+ 'Public Shared Sub Save(ByVal _image As Image, ByVal sPath As String, Optional ByVal iQuality As Long = 0, Optional ByVal sUrl As String = "")
+ ' Try
+ ' If IsNothing(_image) Then Exit Sub
+
+ ' Dim doesExist As Boolean = File.Exists(sPath)
+ ' Dim fAtt As New FileAttributes
+ ' If Not String.IsNullOrEmpty(sPath) AndAlso (Not doesExist OrElse (Not CBool(File.GetAttributes(sPath) And FileAttributes.ReadOnly))) Then
+ ' If doesExist Then
+ ' 'get the current attributes to set them back after writing
+ ' fAtt = File.GetAttributes(sPath)
+ ' 'set attributes to none for writing
+ ' File.SetAttributes(sPath, FileAttributes.Normal)
+ ' End If
+
+ ' If Not sUrl = "" Then
+ ' Dim stroriginalurl As String = sUrl
+
+ ' 'Image Download from tmdb is special, need original size
+ ' If Not sUrl.Contains("impawards") AndAlso Not sUrl.Contains("movieposterdb") Then
+ ' 'Always get original image...
+ ' 'links to images (tmdb) have following structure: 'example: http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w92/x65b4vsFKYuA878pLN1mJiAsgIP.jpg
+ ' Dim stringArray() As String = Split(stroriginalurl, "/")
+ ' If stringArray.Length > 4 Then
+ ' ' stringArray(5) contains values like "w185","original", "w154"...-->size -> we want original!
+ ' stringArray(5) = "original"
+ ' stroriginalurl = Join(stringArray, "/")
+ ' End If
+ ' End If
+ ' Dim webclient As New Net.WebClient
+ ' webclient.DownloadFile(stroriginalurl, sPath)
+ ' Else
+ ' Using msSave As New MemoryStream
+ ' Dim retSave() As Byte
+ ' Dim ICI As ImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
+ ' Dim EncPars As EncoderParameters = New EncoderParameters(If(iQuality > 0, 2, 1))
+
+ ' EncPars.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderNonProgressive)
+
+ ' If iQuality > 0 Then
+ ' EncPars.Param(1) = New EncoderParameter(Encoder.Quality, iQuality)
+ ' End If
+
+ ' _image.Save(msSave, ICI, EncPars)
+
+ ' retSave = msSave.ToArray
+
+ ' Using fs As New FileStream(sPath, FileMode.Create, FileAccess.Write)
+ ' fs.Write(retSave, 0, retSave.Length)
+ ' fs.Flush()
+ ' End Using
+ ' msSave.Flush()
+ ' End Using
+ ' End If
+
+ ' If doesExist Then File.SetAttributes(sPath, fAtt)
+ ' End If
+ ' Catch ex As Exception
+ ' Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ ' End Try
+ 'End Sub
+
+ Private Shared Function GetEncoderInfo(ByVal Format As ImageFormat) As ImageCodecInfo
+ Dim Encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
+
+ For i As Integer = 0 To UBound(Encoders)
+ If Encoders(i).FormatID = Format.Guid Then
+ Return Encoders(i)
+ End If
+ Next
+
+ Return Nothing
+ End Function
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeMPDB.vb b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeMPDB.vb
new file mode 100644
index 0000000..7a7e13b
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeMPDB.vb
@@ -0,0 +1,160 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Namespace MPDB
+
+ Public Class Scraper
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwMPDB As New System.ComponentModel.BackgroundWorker
+
+ #End Region 'Fields
+
+ #Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+ #End Region 'Events
+
+ #Region "Methods"
+
+ Public Sub Cancel()
+ If Me.bwMPDB.IsBusy Then Me.bwMPDB.CancelAsync()
+
+ While Me.bwMPDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String)
+ Try
+ If Not Me.bwMPDB.IsBusy Then
+ Me.bwMPDB.WorkerSupportsCancellation = True
+ Me.bwMPDB.WorkerReportsProgress = True
+ Me.bwMPDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetMPDBPosters(ByVal imdbID As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ Try
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.movieposterdb.com/movie/", imdbID))
+ sHTTP = Nothing
+
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(1)
+ End If
+
+ If Regex.IsMatch(HTML, String.Concat("http://www.imdb.com/title/tt", imdbID), RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline) Then
+ Dim mcPoster As MatchCollection = Regex.Matches(HTML, "http://www.movieposterdb.com/posters/[0-9_](.*?)/[0-9](.*?)/[0-9](.*?)/[a-z0-9_](.*?).jpg")
+
+ Dim PosterURL As String = String.Empty
+
+ For Each mPoster As Match In mcPoster
+ If Me.bwMPDB.CancellationPending Then Return Nothing
+ PosterURL = mPoster.Value.Remove(mPoster.Value.LastIndexOf("/") + 1, 1)
+ PosterURL = PosterURL.Insert(mPoster.Value.LastIndexOf("/") + 1, "l")
+ alPosters.Add(New MediaContainers.Image With {.Description = "poster", .URL = PosterURL})
+ Next
+ End If
+ If bwMPDB.WorkerReportsProgress Then
+ bwMPDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPosters
+ End Function
+
+ Private Sub bwMPDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetMPDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwMPDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDB.ProgressChanged
+ If Not bwMPDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwMPDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim Parameter As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeOFDB.vb b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeOFDB.vb
new file mode 100644
index 0000000..a220a06
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeOFDB.vb
@@ -0,0 +1,280 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class OFDB
+
+ #Region "Fields"
+
+ Private imdbID As String
+ Private OFDBMovie As MediaContainers.Movie
+ Private _genre As String
+ Private _outline As String
+ Private _plot As String
+ Private _title As String
+
+ #End Region 'Fields
+
+ #Region "Constructors"
+
+ Public Sub New(ByVal sID As String, ByRef mMovie As MediaContainers.Movie)
+ Clear()
+ imdbID = sID
+ OFDBMovie = mMovie
+
+ GetOFDBDetails()
+ End Sub
+
+ #End Region 'Constructors
+
+ #Region "Properties"
+
+ Public Property Genre() As String
+ Get
+ Return _genre
+ End Get
+ Set(ByVal value As String)
+ _genre = value
+ End Set
+ End Property
+
+ Public Property Outline() As String
+ Get
+ Return _outline
+ End Get
+ Set(ByVal value As String)
+ _outline = value
+ End Set
+ End Property
+
+ Public Property Plot() As String
+ Get
+ Return _plot
+ End Get
+ Set(ByVal value As String)
+ _plot = value
+ End Set
+ End Property
+
+ Public Property Title() As String
+ Get
+ Return _title
+ End Get
+ Set(ByVal value As String)
+ _title = value
+ End Set
+ End Property
+
+ #End Region 'Properties
+
+ #Region "Methods"
+
+ Private Function CleanTitle(ByVal sString As String) As String
+ Dim CleanString As String = sString
+
+ Try
+ If sString.StartsWith("""") Then CleanString = sString.Remove(0, 1)
+
+ If sString.EndsWith("""") Then CleanString = CleanString.Remove(CleanString.Length - 1, 1)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return CleanString
+ End Function
+
+ Private Sub Clear()
+ _title = String.Empty
+ _outline = String.Empty
+ _plot = String.Empty
+ _genre = String.Empty
+ End Sub
+
+ Private Function GetFullPlot(ByVal sURL As String) As String
+ Dim FullPlot As String = String.Empty
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ Dim D, W, Wq, Wqq, B As Integer
+ Dim tmpHTML As String
+
+ D = HTML.IndexOf("Eine Inhaltsangabe von")
+ If D > 0 Then
+ Dim L As Integer = Html.Length
+ tmpHTML = Html.Substring(D + 22, L - (D + 22)).Trim
+ W = tmpHTML.IndexOf("</b></b><br><br>")
+ Wq = tmpHTML.IndexOf("<b>Quelle:</b>")
+ If Wq > 0 Then
+ Wqq = tmpHTML.IndexOf("<br><br>", Wq)
+ B = tmpHTML.IndexOf("</font></p>", Wqq + 8)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(Wqq + 8, B - (Wqq + 8)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf W > 0 Then
+ B = tmpHTML.IndexOf("</font></p>", W + 16)
+ FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return FullPlot
+ End Function
+
+ Private Sub GetOFDBDetails()
+ Dim sURL As String = GetOFDBUrlFromIMDBID()
+
+ Try
+ If Not String.IsNullOrEmpty(sURL) Then
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(sURL)
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(Html) Then
+ 'title
+ If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then
+ Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(HTML, "<td width=""99\%""><h1 itemprop=""name""><font face=""Arial,Helvetica,sans-serif"" size=""3""><b>([^<]+)</b></font></h1></td>").Groups(1).Value.ToString))
+ If OFDBTitle.EndsWith(", Der") Then
+ _title = String.Concat("Der ", OFDBTitle.Replace(", Der", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Die") Then
+ _title = String.Concat("Die ", OFDBTitle.Replace(", Die", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", Das") Then
+ _title = String.Concat("Das ", OFDBTitle.Replace(", Das", " ")).Trim
+ ElseIf OFDBTitle.EndsWith(", The") Then
+ _title = String.Concat("The ", OFDBTitle.Replace(", The", " ")).Trim
+ Else
+ _title = OFDBTitle
+ End If
+ End If
+
+ Dim D, Dq, W, Wq, B As Integer
+ Dim tmpHTML As String
+
+ 'outline
+ If String.IsNullOrEmpty(OFDBMovie.Outline) OrElse Not Master.eSettings.LockOutline Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Wq = HTML.IndexOf("<span itemprop=""description"">", Dq)
+ W = HTML.IndexOf("<a href=""plot", Wq + 29)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(Wq + 29, W - (Wq + 29)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ ElseIf D > 0 Then
+ W = HTML.IndexOf("<a href=""", D + 44)
+ _outline = Web.HttpUtility.HtmlDecode(HTML.Substring(D + 44, W - (D + 44)).Replace("<br />", String.Empty).Replace(vbCrLf, " ").Trim)
+ End If
+ End If
+
+ 'full plot
+ D = 0 : Dq = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Plot) OrElse Not Master.eSettings.LockPlot Then
+ D = HTML.IndexOf("<b>Inhalt:</b>")
+ Dq = HTML.IndexOf("<b>Inhalt:</b> <font style=")
+
+ If Dq > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 197, L - (D + 197)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ ElseIf D > 0 Then
+ Dim L As Integer = HTML.Length
+ tmpHTML = HTML.Substring(D + 44, L - (D + 44)).Trim
+ W = tmpHTML.IndexOf("<a href=""")
+ If W > 0 Then
+ B = tmpHTML.IndexOf("""><b>[mehr]</b>", W + 9)
+ If B > 0 Then
+ Dim FullPlot = GetFullPlot(String.Concat("http://www.ofdb.de/", tmpHTML.Substring(W + 9, B - (W + 9))))
+ If Not String.IsNullOrEmpty(FullPlot) Then
+ _plot = FullPlot
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ 'genre
+ D = 0 : W = 0
+ If String.IsNullOrEmpty(OFDBMovie.Genre) OrElse Not Master.eSettings.LockGenre Then
+ D = HTML.IndexOf("class=""Normal"">Genre(s):</font></td>")
+ If D > 0 Then
+ W = HTML.IndexOf("</table>", D)
+ If W > 0 Then
+ Dim rGenres As MatchCollection = Regex.Matches(HTML.Substring(D, W - D), "<a.*?href=[""'](?<url>.*?)[""'].*?><span itemprop=""genre"">(?<name>.*?)</span></a>")
+ Dim Gen = From M In rGenres _
+ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString)
+ If Gen.Count > 0 Then
+ Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim
+ tGenre = StringUtils.GenreFilter(tGenre)
+ If Not String.IsNullOrEmpty(tGenre) Then
+ _genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim
+ End If
+ End If
+ End If
+ End If
+ End If
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetOFDBUrlFromIMDBID() As String
+ Dim ofdbURL As String = String.Empty
+ Try
+
+ Dim sHTTP As New HTTP
+ Dim HTML As String = sHTTP.DownloadData(String.Concat("http://www.ofdb.de/view.php?SText=", imdbID, "&Kat=IMDb&page=suchergebnis&sourceid=mozilla-search"))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(HTML) Then
+ Dim mcOFDBURL As MatchCollection = Regex.Matches(HTML, "<a href=""film/([^<]+)"" onmouseover")
+ If mcOFDBURL.Count > 0 Then
+ 'just use the first one if more are found
+ ofdbURL = String.Concat("http://www.ofdb.de/", Regex.Match(mcOFDBURL(0).Value.ToString, """(film/([^<]+))""").Groups(1).Value.ToString)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return ofdbURL
+ End Function
+
+ #End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeTMDB.vb b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeTMDB.vb
new file mode 100644
index 0000000..d40e628
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeTMDB.vb
@@ -0,0 +1,243 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports EmberAPI
+
+Namespace TMDB
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwTMDB As New System.ComponentModel.BackgroundWorker
+
+ Private Const APIKey As String = "b1ecff8c76278262b27de1569f57f6bd"
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event PostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ If bwTMDB.IsBusy Then bwTMDB.CancelAsync()
+
+ While bwTMDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetImagesAsync(ByVal imdbID As String, ByVal sType As String)
+ Try
+ If Not bwTMDB.IsBusy Then
+ bwTMDB.WorkerSupportsCancellation = True
+ bwTMDB.WorkerReportsProgress = True
+ bwTMDB.RunWorkerAsync(New Arguments With {.Parameter = imdbID, .sType = sType})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetTMDBImages(ByVal imdbID As String, ByVal sType As String) As List(Of MediaContainers.Image)
+ Dim alPosters As New List(Of MediaContainers.Image)
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getImages/en/xml/{0}/tt{1}", APIKey, imdbID))
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return alPosters
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ If Not xmlTMDB...<OpenSearchDescription>...<movies>.Value = "Nothing found." Then
+ If sType = "poster" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<poster>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ ElseIf sType = "backdrop" Then
+ Dim tmdbImages = From iNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<images>...<backdrop>.Elements Select iNode
+ If tmdbImages.Count > 0 Then
+ For Each tmdbI As XElement In tmdbImages
+ Dim parentID As String = tmdbI.Parent.Attribute("id").Value
+ If bwTMDB.CancellationPending Then Return Nothing
+ Debug.Print("{0}/t{1}", tmdbI.@size, tmdbI.@url)
+ Dim tmpPoster As New MediaContainers.Image With {.URL = tmdbI.@url, .Description = tmdbI.@size, .Width = tmdbI.@width, .Height = tmdbI.@height, .ParentID = parentID}
+ alPosters.Add(tmpPoster)
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ sHTTP = Nothing
+
+ Return alPosters
+ End Function
+
+ Public Function GetTrailers(ByVal imdbID As String) As String
+ Dim xmlTMDB As XDocument
+ Dim sHTTP As New HTTP
+ Dim tLang As String
+
+ tLang = AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en")
+
+ If bwTMDB.CancellationPending Then Return Nothing
+ Try
+ Dim ApiXML As String = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/{0}/tt{1}", APIKey, imdbID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(1)
+ End If
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim tmdbNode = From xNode In xmlTMDB.Elements
+
+ If tmdbNode.Count > 0 Then
+ If Not tmdbNode(0).Value = "Your query didn't return any results." Then
+ Dim movieID As String = xmlTMDB...<OpenSearchDescription>...<movies>...<movie>...<id>.Value
+ Dim i As Integer
+
+
+ For i = 0 To 1 Step 1
+ sHTTP = New HTTP
+ ApiXML = sHTTP.DownloadData(String.Format("http://api.themoviedb.org/2.1/Movie.getInfo/{0}/xml/{1}/{2}", tLang, APIKey, movieID))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(ApiXML) Then
+
+ Try
+ xmlTMDB = XDocument.Parse(ApiXML)
+ Catch
+ Return String.Empty
+ End Try
+
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(2)
+ End If
+
+ If bwTMDB.CancellationPending Then Return Nothing
+
+ Dim Trailers = From tNode In xmlTMDB...<OpenSearchDescription>...<movies>...<movie> Select tNode.<trailer>
+ If Trailers.Count > 0 AndAlso Not String.IsNullOrEmpty(Trailers(0).Value) Then
+ If Trailers(0).Value.ToLower.IndexOf("youtube.com") > 0 Then
+ Return Trailers(0).Value
+ i += 1
+ End If
+ Else
+ tLang = "en"
+ End If
+ End If
+ Next
+ End If
+ End If
+ End If
+ If bwTMDB.WorkerReportsProgress Then
+ bwTMDB.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return String.Empty
+ End Function
+
+ Private Sub bwTMDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetTMDBImages(Args.Parameter, Args.sType)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwTMDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDB.ProgressChanged
+ If Not bwTMDB.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwTMDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDB.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeTrailers.vb b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeTrailers.vb
new file mode 100644
index 0000000..19327b4
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeTrailers.vb
@@ -0,0 +1,265 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Xml
+Imports EmberAPI
+
+Public Class Trailers
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Private WebPage As New HTTP
+ Private _ImdbID As String = String.Empty
+ Private _ImdbTrailerPage As String = String.Empty
+ Private _TrailerList As New List(Of String)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ AddHandler WebPage.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ProgressUpdated(ByVal iPercent As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub Cancel()
+ Me.WebPage.Cancel()
+ End Sub
+
+ Public Sub Clear()
+ Me._TrailerList.Clear()
+ Me._ImdbID = String.Empty
+ Me._ImdbTrailerPage = String.Empty
+ End Sub
+
+ Public Sub DeleteTrailers(ByVal sPath As String, ByVal NewTrailer As String)
+ Dim parPath As String = Directory.GetParent(sPath).FullName
+ Dim tmpName As String = Path.Combine(parPath, StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(sPath)))
+ Dim tmpNameNoStack As String = Path.Combine(parPath, Path.GetFileNameWithoutExtension(sPath))
+ For Each t As String In Master.eSettings.ValidExts
+ If File.Exists(String.Concat(tmpName, "-trailer", t)) AndAlso Not String.Concat(tmpName, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpName, "[trailer]", t)) AndAlso Not String.Concat(tmpName, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpName, "[trailer]", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "-trailer", t)) AndAlso Not String.Concat(tmpNameNoStack, "-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "-trailer", t))
+ ElseIf File.Exists(String.Concat(tmpNameNoStack, "[trailer]", t)) AndAlso Not String.Concat(tmpNameNoStack, "[trailer]", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(tmpNameNoStack, "[trailer]", t))
+ ElseIf Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(sPath) AndAlso File.Exists(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t)) AndAlso Not String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t).ToLower = NewTrailer.ToLower Then
+ File.Delete(String.Concat(Directory.GetParent(Directory.GetParent(sPath).FullName).FullName, "\", "index-trailer", t))
+ End If
+ Next
+ End Sub
+
+ Public Sub DownloadProgressUpdated(ByVal iPercent As Integer)
+ RaiseEvent ProgressUpdated(iPercent)
+ End Sub
+
+ Public Function DownloadSingleTrailer(ByVal sPath As String, ByVal ImdbID As String, ByVal isSingle As Boolean, ByVal currNfoTrailer As String) As String
+ Dim tURL As String = String.Empty
+ Try
+ Me._TrailerList.Clear()
+
+ If Not Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, True) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+
+ Dim tLink As String = String.Empty
+ If Regex.IsMatch(Me._TrailerList.Item(0).ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Dim YT As New YouTube.Scraper
+ YT.GetVideoLinks(Me._TrailerList.Item(0).ToString)
+ If YT.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ tLink = YT.VideoLinks(Master.eSettings.PreferredTrailerQuality).URL
+ Else
+ Select Case Master.eSettings.PreferredTrailerQuality
+ Case Enums.TrailerQuality.HD1080p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720p) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720p).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD1080pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HD720pVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HD720pVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HD720p
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQFLV).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HD720pVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.HQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.HQVP8).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.HQFLV
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQMP4) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQMP4).URL
+ ElseIf YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.HQVP8
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQVP8) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQVP8).URL
+ End If
+ Case Enums.TrailerQuality.SQMP4
+ If YT.VideoLinks.ContainsKey(Enums.TrailerQuality.SQFLV) Then
+ tLink = YT.VideoLinks(Enums.TrailerQuality.SQFLV).URL
+ End If
+ Case Enums.TrailerQuality.SQFLV
+ tLink = String.Empty
+ Case Enums.TrailerQuality.SQVP8
+ tLink = String.Empty
+ End Select
+ End If
+ Else
+ tLink = Me._TrailerList.Item(0).ToString
+ End If
+
+ If Not String.IsNullOrEmpty(tLink) Then
+ tURL = WebPage.DownloadFile(tLink, sPath, False, "trailer")
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ End If
+ ElseIf Master.eSettings.UpdaterTrailersNoDownload AndAlso IsAllowedToDownload(sPath, isSingle, currNfoTrailer, False) Then
+ Me.GetTrailers(ImdbID, True)
+
+ If Me._TrailerList.Count > 0 Then
+ tURL = Me._TrailerList.Item(0).ToString
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return tURL
+ End Function
+
+ Public Function DownloadTrailer(ByVal sPath As String, ByVal sURL As String) As String
+ Dim tURL As String = String.Empty
+ If Not String.IsNullOrEmpty(sURL) Then
+ tURL = WebPage.DownloadFile(sURL, sPath, True, "trailer")
+
+ If Not String.IsNullOrEmpty(tURL) Then
+ 'delete any other trailer if enabled in settings and download successful
+ If Master.eSettings.DeleteAllTrailers Then
+ Me.DeleteTrailers(sPath, tURL)
+ End If
+ End If
+ End If
+ Return tURL
+ End Function
+
+ Public Function GetTrailers(ByVal ImdbID As String, Optional ByVal BreakAfterFound As Boolean = True) As List(Of String)
+ Me._ImdbID = ImdbID
+ If AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", False) Then
+ Me.GetImdbTrailer()
+ End If
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", False) Then
+ Me.GetTMDBTrailer()
+ End If
+
+ Return Me._TrailerList
+ End Function
+
+ Public Function IsAllowedToDownload(ByVal sPath As String, ByVal isDL As Boolean, ByVal currNfoTrailer As String, Optional ByVal isSS As Boolean = False) As Boolean
+ Dim fScanner As New Scanner
+
+ If isDL Then
+ If String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) OrElse Master.eSettings.OverwriteTrailer Then
+ Return True
+ Else
+ If isSS AndAlso String.IsNullOrEmpty(fScanner.GetTrailerPath(sPath)) Then
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ Else
+ Return False
+ End If
+ End If
+ Else
+ If String.IsNullOrEmpty(currNfoTrailer) OrElse Not Master.eSettings.LockTrailer Then
+ Return True
+ Else
+ Return False
+ End If
+ End If
+ End Function
+
+ Private Sub GetIMDBTrailer()
+ Dim IMDB As New IMDB.Scraper
+ IMDB.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ Dim results As List(Of String) = IMDB.GetTrailers(_ImdbID)
+
+ Me._TrailerList.AddRange(results)
+
+ IMDB = Nothing
+ End Sub
+
+ Private Sub GetTMDBTrailer()
+ Dim TMDB As New TMDB.Scraper
+ Dim YT As String = TMDB.GetTrailers(_ImdbID)
+
+ If Not String.IsNullOrEmpty(YT) Then
+ Me._TrailerList.Add(YT)
+ End If
+
+ TMDB = Nothing
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeYouTube.vb b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeYouTube.vb
new file mode 100644
index 0000000..b4603fd
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/clsScrapeYouTube.vb
@@ -0,0 +1,335 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Namespace YouTube
+
+ Public Class Scraper
+
+#Region "Fields"
+
+ Friend WithEvents bwYT As New System.ComponentModel.BackgroundWorker
+
+ Private _VideoLinks As VideoLinkItemCollection
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event Exception(ByVal ex As Exception)
+
+ Public Event VideoLinksRetrieved(ByVal bSuccess As Boolean)
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property VideoLinks() As VideoLinkItemCollection
+ Get
+ If _VideoLinks Is Nothing Then
+ _VideoLinks = New VideoLinkItemCollection
+ End If
+ Return _VideoLinks
+ End Get
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ If bwYT.IsBusy Then bwYT.CancelAsync()
+
+ While bwYT.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub GetVideoLinks(ByVal url As String)
+ Try
+ _VideoLinks = ParseYTFormats(url, False)
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub GetVideoLinksAsync(ByVal url As String)
+ Try
+ If Not bwYT.IsBusy Then
+ _VideoLinks = Nothing
+ bwYT.WorkerSupportsCancellation = True
+ bwYT.RunWorkerAsync(url)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwYT.DoWork
+ Dim Url As String = DirectCast(e.Argument, String)
+
+ Try
+ e.Result = ParseYTFormats(Url, True)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwYT_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwYT.RunWorkerCompleted
+ Try
+ If e.Cancelled Then
+ 'user cancelled
+ RaiseEvent VideoLinksRetrieved(False)
+ ElseIf e.Error IsNot Nothing Then
+ 'exception occurred
+ RaiseEvent Exception(e.Error)
+ Else
+ 'all good
+ If e.Result IsNot Nothing Then
+ _VideoLinks = DirectCast(e.Result, VideoLinkItemCollection)
+ RaiseEvent VideoLinksRetrieved(True)
+ Else
+ RaiseEvent VideoLinksRetrieved(False)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetVideoTitle(ByVal HTML As String) As String
+ Dim result As String = ""
+ 'Dim KeyPattern As String = "'VIDEO_TITLE':\s*'([^']*?)'"
+ Dim KeyPattern As String = "meta name=\""title\"" content=\s*\""([^']*?)\"""
+ 'meta name="title" content=
+ If Regex.IsMatch(HTML, KeyPattern) Then
+ result = Regex.Match(HTML, KeyPattern).Groups(1).Value
+ End If
+
+ Return result
+ End Function
+
+ Private Function ParseYTFormats(ByVal url As String, ByVal doProgress As Boolean) As VideoLinkItemCollection
+ Dim DownloadLinks As New VideoLinkItemCollection
+ Dim sHTTP As New HTTP
+
+ Try
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim Html As String = sHTTP.DownloadData(url)
+ If Html.ToLower.Contains("page not found") Then
+ Html = String.Empty
+ End If
+
+ If String.IsNullOrEmpty(Html.Trim) Then Return DownloadLinks
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Dim VideoTitle As String = GetVideoTitle(Html)
+ VideoTitle = Regex.Replace(VideoTitle, "['?\\:*<>]*", "")
+
+ Dim fmtMatch As Match = Regex.Match(Html, "url_encoded_fmt_stream_map\"": \""(.*?)\"", \""", RegexOptions.IgnoreCase)
+ If fmtMatch.Success Then
+ Dim FormatMap As String = fmtMatch.Groups(1).Value
+ Dim decoded As String = Web.HttpUtility.UrlDecode(FormatMap)
+ Dim FormatArray() As String = Split(decoded.Replace(", ", ";"), ",")
+
+ Dim rurl As New Regex("url=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim rsig As New Regex("sig=([^\\]+)", RegexOptions.IgnoreCase)
+ Dim ritag As New Regex("itag=(\d+)", RegexOptions.IgnoreCase)
+
+ For i As Integer = 0 To FormatArray.Length - 1
+ Dim yturl As String = rurl.Match(FormatArray(i)).Groups(1).Value
+ Dim ytitag As String = ritag.Match(FormatArray(i)).Groups(1).Value
+ Dim ytsig As String = rsig.Match(FormatArray(i)).Groups(1).Value
+
+ 'Console.WriteLine("Trailer Itag: {0}", ytitag)
+ 'Console.WriteLine("Trailer Url: {0}", yturl)
+ 'Console.WriteLine("Trailer Sig: {0}", ytsig)
+
+ Dim Link As New VideoLinkItem
+ Select Case ytitag
+ ' **********************************************************************
+ ' see all itags http://en.wikipedia.org/wiki/YouTube#Quality_and_codecs
+ ' **********************************************************************
+ Case "5"
+ Link.Description = "240p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "6"
+ Link.Description = "270p (FLV, H.263)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "13"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "17"
+ Link.Description = "144p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "18"
+ Link.Description = "360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQMP4
+ Case "22"
+ Link.Description = "720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720p
+ Case "34"
+ Link.Description = "360p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.SQFLV
+ Case "35"
+ Link.Description = "480p (FLV, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HQFLV
+ Case "36"
+ Link.Description = "240p (3GP, MPEG-4)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "37"
+ Link.Description = "1080p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080p
+ Case "38"
+ Link.Description = "1536p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "43"
+ Link.Description = "360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.SQVP8
+ Case "44"
+ Link.Description = "480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HQVP8
+ Case "45"
+ Link.Description = "720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD720pVP8
+ Case "46"
+ Link.Description = "1080p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.HD1080pVP8
+ Case "82"
+ Link.Description = "3D 360p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "83"
+ Link.Description = "3D 480p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "84"
+ Link.Description = "3D 720p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "85"
+ Link.Description = "3D 520p (MP4, H.264)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "100"
+ Link.Description = "3D 360p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "101"
+ Link.Description = "3D 480p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "102"
+ Link.Description = "3D 720p (WebM, VP8)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case "120"
+ Link.Description = "720p LiveStream (FLV, AVC)"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ Case Else
+ Link.Description = "Other"
+ Link.FormatQuality = Enums.TrailerQuality.OTHERS
+ 'Continue For
+ End Select
+
+ Link.URL = Web.HttpUtility.UrlDecode(Web.HttpUtility.UrlDecode(yturl)) & "&signature=" & ytsig & "&title=" & Web.HttpUtility.UrlEncode(VideoTitle)
+ Link.URL = Link.URL.Replace("sig=", "signature=") ' sig= returns HTTP 403 //oldstyle, keep it
+ 'Console.WriteLine("Trailer Url decoded: {0}", Link.URL)
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ If Not String.IsNullOrEmpty(Link.URL) AndAlso sHTTP.IsValidURL(Link.URL) Then
+ DownloadLinks.Add(Link)
+ End If
+
+ If bwYT.CancellationPending Then Return DownloadLinks
+
+ Next
+
+ End If
+ Return DownloadLinks
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Return New VideoLinkItemCollection
+ Finally
+ sHTTP = Nothing
+ End Try
+ End Function
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class VideoLinkItem
+
+#Region "Fields"
+
+ Private _Description As String
+ Private _FormatQuality As Enums.TrailerQuality
+ Private _URL As String
+
+#End Region 'Fields
+
+#Region "Properties"
+
+ Public Property Description() As String
+ Get
+ Return _Description
+ End Get
+ Set(ByVal value As String)
+ _Description = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return _URL
+ End Get
+ Set(ByVal value As String)
+ _URL = value
+ End Set
+ End Property
+
+ Friend Property FormatQuality() As Enums.TrailerQuality
+ Get
+ Return _FormatQuality
+ End Get
+ Set(ByVal value As Enums.TrailerQuality)
+ _FormatQuality = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+ End Class
+
+ Public Class VideoLinkItemCollection
+ Inherits Generic.SortedList(Of Enums.TrailerQuality, VideoLinkItem)
+
+#Region "Methods"
+
+ Public Shadows Sub Add(ByVal Link As VideoLinkItem)
+ If Not MyBase.ContainsKey(Link.FormatQuality) Then MyBase.Add(Link.FormatQuality, Link)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+End Namespace
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.Designer.vb b/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.Designer.vb
new file mode 100644
index 0000000..6d0924e
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.Designer.vb
@@ -0,0 +1,480 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgIMDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgIMDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.tvResults = New System.Windows.Forms.TreeView()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblTagline = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lblYear = New System.Windows.Forms.Label()
+ Me.lblDirector = New System.Windows.Forms.Label()
+ Me.lblGenre = New System.Windows.Forms.Label()
+ Me.txtIMDBID = New System.Windows.Forms.TextBox()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.lblIMDB = New System.Windows.Forms.Label()
+ Me.lblYearHeader = New System.Windows.Forms.Label()
+ Me.lblDirectorHeader = New System.Windows.Forms.Label()
+ Me.lblGenreHeader = New System.Windows.Forms.Label()
+ Me.lblIMDBHeader = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlPicStatus = New System.Windows.Forms.Panel()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.txtFileName = New System.Windows.Forms.TextBox()
+ Me.btnOpenFolder = New System.Windows.Forms.Button()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlPicStatus.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(501, 431)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 22)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(574, 431)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 22)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'tvResults
+ '
+ Me.tvResults.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.tvResults.HideSelection = False
+ Me.tvResults.Location = New System.Drawing.Point(8, 126)
+ Me.tvResults.Name = "tvResults"
+ Me.tvResults.Size = New System.Drawing.Size(281, 299)
+ Me.tvResults.TabIndex = 5
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.Location = New System.Drawing.Point(298, 160)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(110, 130)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ Me.pbPoster.Visible = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(295, 100)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(346, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Text = "Title"
+ Me.lblTitle.Visible = False
+ '
+ 'lblTagline
+ '
+ Me.lblTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblTagline.Location = New System.Drawing.Point(295, 119)
+ Me.lblTagline.Name = "lblTagline"
+ Me.lblTagline.Size = New System.Drawing.Size(346, 16)
+ Me.lblTagline.TabIndex = 10
+ Me.lblTagline.Text = "Tagline"
+ Me.lblTagline.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOutline.Location = New System.Drawing.Point(298, 325)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(343, 100)
+ Me.txtOutline.TabIndex = 22
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lblYear
+ '
+ Me.lblYear.AutoSize = True
+ Me.lblYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblYear.Location = New System.Drawing.Point(476, 160)
+ Me.lblYear.Name = "lblYear"
+ Me.lblYear.Size = New System.Drawing.Size(31, 13)
+ Me.lblYear.TabIndex = 13
+ Me.lblYear.Text = "0000"
+ Me.lblYear.Visible = False
+ '
+ 'lblDirector
+ '
+ Me.lblDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDirector.Location = New System.Drawing.Point(476, 186)
+ Me.lblDirector.Name = "lblDirector"
+ Me.lblDirector.Size = New System.Drawing.Size(165, 16)
+ Me.lblDirector.TabIndex = 15
+ Me.lblDirector.Text = "Director"
+ Me.lblDirector.Visible = False
+ '
+ 'lblGenre
+ '
+ Me.lblGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblGenre.Location = New System.Drawing.Point(476, 213)
+ Me.lblGenre.Name = "lblGenre"
+ Me.lblGenre.Size = New System.Drawing.Size(165, 52)
+ Me.lblGenre.TabIndex = 17
+ Me.lblGenre.Text = "Genre"
+ Me.lblGenre.Visible = False
+ '
+ 'txtIMDBID
+ '
+ Me.txtIMDBID.Enabled = False
+ Me.txtIMDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBID.Location = New System.Drawing.Point(143, 429)
+ Me.txtIMDBID.Name = "txtIMDBID"
+ Me.txtIMDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtIMDBID.TabIndex = 7
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(647, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(276, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper movie."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(256, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Movie Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(8, 433)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(128, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual IMDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(249, 429)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'lblIMDB
+ '
+ Me.lblIMDB.AutoSize = True
+ Me.lblIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblIMDB.Location = New System.Drawing.Point(476, 277)
+ Me.lblIMDB.Name = "lblIMDB"
+ Me.lblIMDB.Size = New System.Drawing.Size(35, 13)
+ Me.lblIMDB.TabIndex = 19
+ Me.lblIMDB.Text = "IMDB"
+ Me.lblIMDB.Visible = False
+ '
+ 'lblYearHeader
+ '
+ Me.lblYearHeader.AutoSize = True
+ Me.lblYearHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblYearHeader.Location = New System.Drawing.Point(414, 160)
+ Me.lblYearHeader.Name = "lblYearHeader"
+ Me.lblYearHeader.Size = New System.Drawing.Size(32, 13)
+ Me.lblYearHeader.TabIndex = 12
+ Me.lblYearHeader.Text = "Year:"
+ Me.lblYearHeader.Visible = False
+ '
+ 'lblDirectorHeader
+ '
+ Me.lblDirectorHeader.AutoSize = True
+ Me.lblDirectorHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDirectorHeader.Location = New System.Drawing.Point(414, 186)
+ Me.lblDirectorHeader.Name = "lblDirectorHeader"
+ Me.lblDirectorHeader.Size = New System.Drawing.Size(51, 13)
+ Me.lblDirectorHeader.TabIndex = 14
+ Me.lblDirectorHeader.Text = "Director:"
+ Me.lblDirectorHeader.Visible = False
+ '
+ 'lblGenreHeader
+ '
+ Me.lblGenreHeader.AutoSize = True
+ Me.lblGenreHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblGenreHeader.Location = New System.Drawing.Point(414, 213)
+ Me.lblGenreHeader.Name = "lblGenreHeader"
+ Me.lblGenreHeader.Size = New System.Drawing.Size(54, 13)
+ Me.lblGenreHeader.TabIndex = 16
+ Me.lblGenreHeader.Text = "Genre(s):"
+ Me.lblGenreHeader.Visible = False
+ '
+ 'lblIMDBHeader
+ '
+ Me.lblIMDBHeader.AutoSize = True
+ Me.lblIMDBHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblIMDBHeader.Location = New System.Drawing.Point(414, 277)
+ Me.lblIMDBHeader.Name = "lblIMDBHeader"
+ Me.lblIMDBHeader.Size = New System.Drawing.Size(53, 13)
+ Me.lblIMDBHeader.TabIndex = 18
+ Me.lblIMDBHeader.Text = "IMDB ID:"
+ Me.lblIMDBHeader.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(295, 309)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 21
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(266, 100)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(8, 101)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(252, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(368, 213)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 20
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching IMDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlPicStatus
+ '
+ Me.pnlPicStatus.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlPicStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlPicStatus.Controls.Add(Me.Label4)
+ Me.pnlPicStatus.Location = New System.Drawing.Point(312, 185)
+ Me.pnlPicStatus.Name = "pnlPicStatus"
+ Me.pnlPicStatus.Size = New System.Drawing.Size(81, 45)
+ Me.pnlPicStatus.TabIndex = 11
+ '
+ 'Label4
+ '
+ Me.Label4.Location = New System.Drawing.Point(5, 5)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(70, 33)
+ Me.Label4.TabIndex = 0
+ Me.Label4.Text = "Fetching Poster..."
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtFileName
+ '
+ Me.txtFileName.Enabled = False
+ Me.txtFileName.Location = New System.Drawing.Point(8, 73)
+ Me.txtFileName.Name = "txtFileName"
+ Me.txtFileName.Size = New System.Drawing.Size(598, 22)
+ Me.txtFileName.TabIndex = 3
+ '
+ 'btnOpenFolder
+ '
+ Me.btnOpenFolder.Location = New System.Drawing.Point(612, 73)
+ Me.btnOpenFolder.Name = "btnOpenFolder"
+ Me.btnOpenFolder.Size = New System.Drawing.Size(29, 23)
+ Me.btnOpenFolder.TabIndex = 23
+ Me.btnOpenFolder.Text = "..."
+ Me.btnOpenFolder.UseVisualStyleBackColor = True
+ '
+ 'dlgIMDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(647, 492)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnOpenFolder)
+ Me.Controls.Add(Me.txtFileName)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.pnlPicStatus)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.lblIMDBHeader)
+ Me.Controls.Add(Me.lblGenreHeader)
+ Me.Controls.Add(Me.lblDirectorHeader)
+ Me.Controls.Add(Me.lblYearHeader)
+ Me.Controls.Add(Me.lblIMDB)
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.txtIMDBID)
+ Me.Controls.Add(Me.lblGenre)
+ Me.Controls.Add(Me.lblDirector)
+ Me.Controls.Add(Me.lblYear)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblTagline)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.tvResults)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 460)
+ Me.Name = "dlgIMDBSearchResults"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Search Results"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlPicStatus.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents tvResults As System.Windows.Forms.TreeView
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblTagline As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lblYear As System.Windows.Forms.Label
+ Friend WithEvents lblDirector As System.Windows.Forms.Label
+ Friend WithEvents lblGenre As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBID As System.Windows.Forms.TextBox
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents lblIMDB As System.Windows.Forms.Label
+ Friend WithEvents lblYearHeader As System.Windows.Forms.Label
+ Friend WithEvents lblDirectorHeader As System.Windows.Forms.Label
+ Friend WithEvents lblGenreHeader As System.Windows.Forms.Label
+ Friend WithEvents lblIMDBHeader As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlPicStatus As System.Windows.Forms.Panel
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+ Friend WithEvents txtFileName As System.Windows.Forms.TextBox
+ Friend WithEvents btnOpenFolder As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.resx b/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.resx
new file mode 100644
index 0000000..fc0d614
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.resx
@@ -0,0 +1,190 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr5AAAK+QG0Yd4ZAAALEUlE
+ QVRoQ+1YCVCU5xle5Qa55JDTRA4XWMIpKsgRLgFRVOQGAbl21+VabuWSS0A0chiPIB5RquKRkIR4VI1N
+ SMxMjW1sik2maWOSydFOkknTZprD/+n7/i4Gcrad1CYzvDPP/N/u/v/3v+fzvt9KZmRGZmRGZmRGZmRG
+ fgZi7+CoWf2ExN5xvmb1lXh6eRsFh4TMc5fJQpycnXvs7OxbLa2s7zeznDdLc8v/X76u+KKAALeNKlW6
+ UqnsycrKurQiPv6jZcuWwd3dHXZ2dphrYfHmPBubATs7h04bW9t6Xz+/Cnom38PD8z7NFpLszCyJmflc
+ zSeJxNTMXLP6kWWq8mXl6tbevv7Xe/v6PtizZ89nnZ2dKCkpQXJyMoKDg7Fq1SohISFBWJeYiFUJCVjg
+ 5CRC6uYmkIFfBAYFfbg0MGjU1s5+iWbLaWLn4Oi2UOoeovkoMTA00qz+TVm7dq0OKaGXlpFhVFJWZqbc
+ qLLKy8uz9fPzX5Cdk/P86OgoJiYmcOvWLeHRI0fQ0NCA4uJiJCUlITQ0VMTixYtFg/Lz8rBx40ZwZHx9
+ fREVFSWUlpYK6enpoKghMTFxYllwSGpo2IPOUdHR+0NCQz+IioqGXKHA8uXL37W0tvYilb47DcMjIjUr
+ iU5waFjgvn37Snp7e49WVFScpk0u7d69+8aOHQ+9U1VV9UVOTg7i4uIgk8kEPz8/HDt2DNevX0dfXx8y
+ MjJYGaTTNTc3V7zGxMYibsUKqCsqRCPYMDYkLS0d5eXloD1RUVmJuro6lJWV31bRPRQ5NlSwsrIWvLy9
+ 4eLi8q6ugYEL6adFmG5IWHiEeI2IiMpvbGx8p7u7++OGxobbtEZ9fT02bNgA9lR/fz86OjqgIK9weixa
+ tEjMcUtLS5w/fx5nz55FkVyO+PiVpEgZUlNTERERgRWkfHh4OBLXraMoNVKalUKlKhYNZIOy1q9HS1sb
+ 2js6hO09PfydQPuDnWNrawsDAwPBxs7uS30Dg0pS04AwW1R4qjwYEZnd2dWF/Px8gdJEKKaX7HjkGIrV
+ VWCPR0ZGghVmg6hY2QDxs6OjI7S1tcUc55Q6fPgwVq5KAO2BNWvWiNHgFOFn2AiKLI5QuvG7mrdsQUtL
+ C65du4YrV65gbGwM1TU1KCoqEvdnA9hBurq60NLShomp6VZSlSudjeBI3BXt9vaOtwoLC8XQcR7nFynR
+ 99Tv0f/0BJQV9Yh4MExkFR8fH8jJy1MN0NfXF6Nw8OBBMUpsZExsHDIzM0VlONe5PlauXCkcOnQIZ86c
+ wdGjR8nYRzE+Po6LFy+K0WMHnDhxQiQCuneaAbNmzYKxsfFL2jo6HqSvDcGY9WblJcTb3vTijzgt2ACV
+ SoXcfDlaj19D44lXUHfoKhJTsyjnPWBtbY3o6GjR0KkG0OboIq+2USrU1tYiOSUF/vQ7O4PTLicnF8xS
+ rOjQ0JBY9M899xwuXbqEkZERMroB+QUFFLl8bNq8GfFkgL+//10DSE3MnTsX7h6yEVo7aGBCkEiSklOW
+ dG/b9jHnKnuWc1OuLIaq5wkU9b2A7O3jSK/sxwNeXrCwsICrqyvlefykAQIbYGVlhda2NqG6upojJGRk
+ ZAruHh4g/v+bk5NTF73GxcfXt6qxqeldVp4N6aNoNVCdscOUSgXWUY2EhoZg4UIpqFdA5uk51QDB3Nyc
+ i/8WrZnLFxDuNAsPT0+3vXv3fhAbGytw6Ni7lcQK8fJu+KmehHPOKSxSnIRPQJBoAG9E1IaAgADBwcEB
+ hkZGYg3UavKXi5d/d3Zx/a25hUUavcKMYFtTU1PZPzAwwWmmVqvBJNHc3IwtVAtcI2xAWFgYKS7DPIq0
+ Gb2HGt/dCJiZmcHBwbGa1gsJbMQcwh0hA96mohM4Cozk5CSszSmBVDUKF9UYnBVnkZBeKCqvo6MjphFH
+ YP78+f8wmmMsd3FxTSGPtS0NDHxy8ZIlv3Z2dunS09cPoK2N6HtPYqeXqA4+37SpDupytVBHaca1xEqz
+ 04g8vjJAJhPZZzI1J2vA0NDoMhUz7+lOmEfQvdtZK6uq+tgTpJjA1McezM1MQ2T5ALzbn4dr7RVkV3fD
+ zNRU0NLSEtgAKui/EDMU0eNLCbzxIoIfwZvAXjINj4xcV0DkwIXd3t4ubOvbgz3DT6ByczOyczdg9erV
+ YtdmZ3Dkpxqgp6cHYxMTmJqaYfbs2Z/MMZ6TS3v6EFwJHNVpTGT28MMP/5OZgyhTiImJAXViZGdSY2ob
+ gu9DL6Gs8xGYmpgIpqam/MIblDrZ9ByPAaws05slgRmCvTM7KDg4lfsBpyM5R9jc2IzDl1/Fo+Nv4+Cz
+ b6H35DiKqxsRFLgEUqkUzs7OYt+YaoCunp7gRuxH0TxMe7LyDC5gfcIdCQkJE68KpTJlcHBQbELc/tk7
+ 2dnZ2Ersse3gadQ2biFvmMLGxuamiYlJKj3CHVBGYF6eFO6SjDklpaVvMCNR4xMaKAJbHhrE3su30Df2
+ KnY8fhPdZyaw9eQNVLX2QeYuFYmAa2qygZEBAr2HZif3P9F+ywhBBH4fO2ua9yVSD6ZXiRaND7uGh4dF
+ TifOFmhMEI4fP44LF86DZpTblPPvU1uvoXvjCJwyd6jsaxIeFbWcCvTv3Fu421aoy9C273F0nb6JluGX
+ UX/oOlT9VxGqHsOCrBHEpijIMfNgRITg5ubGBjC7CTTJvmZgaJhMW4YSfAnTvf8tor1r1676Xxw79uG5
+ c+fwzDPPiOjq7n6Dcn6QPMR5GE/g4YlT5VslNS0tp6W19XOejbhYKyvUqOkZRt3QdZQOXEVk9VncT4rb
+ p52AY/oJBCuOwk3mJRasvb0906dAxnyiq6ObRdvxuzhVuWANCd8cJViIDTQriaS+ocGWxuWMpqbmThrG
+ aol9Mulr9sRaQjDBnjA9jFMkMzNrPTWwz1Kooa2nWaeROnFheTNyd7wIT8UoFuQ9BqfCxwmjcCp4DPfl
+ jSJNXkfFOoupWuAUouI9RVst1+ABAhfutyv/A8IhcyOwFzgHOW2+94QVExMbsX379k8oAgLTI0+aeUUq
+ +CpH4Kx8Eq6lT0OqPgdpxXksLKdoKMeQ2z2GOYYGAvO9rZ3dp7TNasIaAkfAmfC9qfNDwgrrEr7T618T
+ Y5qv3iNCEJjNuLmVl6sRnL0F0qoL8Ki/DK+WZ+HdNg7Ppitwrb6I6NZLWOzvIxIF5X4v7bGOMBlxZrc7
+ s8+9kpTU1J27Bga4QQnU5cVGxR03qHoYQbtfRszwHxB3/DWED/0OPltfQFTnrxAZHsIG/NHQ0LCAtsgg
+ cBSYOn8w6v8Lmd3U1PRRNR1YeEzhQxCfLeQFeUjb/RTyr/4Vit98jMwr7yH80E1BfuCqEBy09DbR6RA9
+ m0NYT1hB4IOMHuHeiYtUKl5J6bCdO3d+ygMbD4o8NnCzVBQVoHbXIDrGb6DixTeRePpVYe+pc3ByWnCB
+ mIi7O0eAGYiblNgYCfdWVCUl4jUxKSlz//79wgClE43bQg+duni9f/8gjlDPOXrytDDyxBgKFYpX6HYF
+ QUlgAzh9uEH9h6f5H1EAHiQlkvucnKJofH6HGuOXBw4cEE9u3CD5AHPy1Cls29bzPvH+Jrq1lKAiMG3z
+ fPXNrnuv5cCRI5qVxLyoSF5FB59f7uzt/TOl1vvUIF/Pzd1wkc67rfR7BUFN4BSKIfDfeTqEn5RwLtsQ
+ zwfS6S6V5h05fWaPFxM4dXhA5MbFvM9d9ycrzOncWe8nME0uJvgTJmd9blr3nDb/W+Ec5ybJYMN+NorP
+ yIzMyIz8rEUi+Re4NXpfio4DrwAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAArpAAAK6QH9dc7TAAAB9ElE
+ QVQ4T6XSTWgTQRQH8E0LaZPaD9oaxULRi0igJSroqYLoxaa3gpfSFrx4sGp7Kj31pDYnPQpG8dzgQcSg
+ 1orQZJPd2exWSYOxiXhKQz5oEjQxpubvm6WN2zUe1IXf7OzMe2/fLCsA+C9NF//GbwtPfD67wti5SES5
+ +GZ19ZB532zfg8Lkq+uallFVFZymqRUqdNcYY9aYMFma1igpFoshl80in88jsbkJvhZRlAfGJCN9eOH3
+ WxWF5TaiUezs1FCv13X8SiYSoD2IwaCTx5rpA20OS5KEVCqFWu07KpWyrlr9hkJhG4wxSOHwdXMypw+B
+ tTVXOBRCOr1FSVWUSkVSQrn8FcViEUyW8VkTr5iTOX14vbLSTgUK0d0j8C54IaCOZDIBRt1d9gYXjIl7
+ GhM6xjWZAvl3yGQy9BFziMfj+Phegcf3FsLMc7TdfHbPmMztexBFcZ7O+oXwM+NdRP5xf/nVJ9uEF9aJ
+ h2ifeoyOyUcve+eedjUtwNHP0x8MBMaoo/EPauioIAgW+6jH233pFrpG76DTvYRu99LGwNhtW9MCf+IY
+ WbjRf3YOfWdm0Uf3gQuLh/m60EqvID3kGDlBhoiLnCKnd52ksCO9g+dnHM4p6eDxcY/VIvzqgAJaSRux
+ kQ5ygHSa7XXDtVBOo8C/g/ATj6yxruTRIKcAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.vb b/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.vb
new file mode 100644
index 0000000..6fde061
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgIMDBSearchResults.vb
@@ -0,0 +1,520 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Text.RegularExpressions
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgIMDBSearchResults
+
+ #Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents tmrLoad As New System.Windows.Forms.Timer
+ Friend WithEvents tmrWait As New System.Windows.Forms.Timer
+
+ Private IMDB As New IMDB.Scraper
+ Private sHTTP As New HTTP
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Private _currnode As Integer = -1
+ Private _prevnode As Integer = -2
+
+ Private _InfoCache As New Dictionary(Of String, MediaContainers.Movie)
+ Private _PosterCache As New Dictionary(Of String, System.Drawing.Image)
+ Private _filterOptions As Structures.ScrapeOptions
+
+#End Region 'Fields
+
+ #Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal sMovieTitle As String, ByVal filterOptions As Structures.ScrapeOptions) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ _filterOptions = filterOptions
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ chkManual.Enabled = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(sMovieTitle, _filterOptions)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal Res As IMDB.MovieSearchResults, ByVal sMovieTitle As String) As Windows.Forms.DialogResult
+ Me.tmrWait.Enabled = False
+ Me.tmrWait.Interval = 250
+ Me.tmrLoad.Enabled = False
+ Me.tmrLoad.Interval = 100
+
+ Me.Text = String.Concat(Master.eLang.GetString(10, "Search Results"), " - ", sMovieTitle)
+ Me.txtSearch.Text = sMovieTitle
+ SearchResultsDownloaded(Res)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.OK_Button.Enabled = False
+ pnlPicStatus.Visible = False
+ _InfoCache.Clear()
+ _PosterCache.Clear()
+ Me.ClearInfo()
+ Me.Label3.Text = Master.eLang.GetString(11, "Searching IMDB...")
+ Me.pnlLoading.Visible = True
+ chkManual.Enabled = False
+ IMDB.CancelAsync()
+ IMDB.IMDBURL = IMDBURL
+ IMDB.SearchMovieAsync(Me.txtSearch.Text, _filterOptions)
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.txtIMDBID.Text.Replace("tt", String.Empty), Master.tmpMovie, Master.DefaultOptions)
+ Else
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ sHTTP.StartDownloadImage(Args.pURL)
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image, .IMDBId = Args.IMDBId}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ '//
+ ' Thread finished: display pic if it was able to get one
+ '\\
+
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbPoster.Image = Res.Result
+ If Not _PosterCache.ContainsKey(Res.IMDBId) Then
+ _PosterCache.Add(Res.IMDBId, Res.Result)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ pnlPicStatus.Visible = False
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Master.tmpMovie.Clear()
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOpenFolder_Click(sender As Object, e As EventArgs) Handles btnOpenFolder.Click
+ Dim fPath As String = Directory.GetParent(Master.currMovie.Filename).FullName
+
+ If Not String.IsNullOrEmpty(fPath) Then
+ Shell("Explorer.exe " & fPath, vbNormalFocus)
+ End If
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtIMDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.tvResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtIMDBID.Text = String.Empty
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblTagline.Text = String.Empty
+ Me.lblYear.Text = String.Empty
+ Me.lblDirector.Text = String.Empty
+ Me.lblGenre.Text = String.Empty
+ Me.txtOutline.Text = String.Empty
+ Me.lblIMDB.Text = String.Empty
+ Me.pbPoster.Image = Nothing
+
+ Master.tmpMovie.Clear()
+
+ IMDB.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.lblYearHeader.Visible = areVisible
+ Me.lblDirectorHeader.Visible = areVisible
+ Me.lblGenreHeader.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.lblIMDBHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ Me.lblYear.Visible = areVisible
+ Me.lblTagline.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblDirector.Visible = areVisible
+ Me.lblGenre.Visible = areVisible
+ Me.lblIMDB.Visible = areVisible
+ Me.pbPoster.Visible = areVisible
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ pnlPicStatus.Visible = False
+ IMDB.IMDBURL = IMDBURL
+ IMDB.UseOFDBTitle = UseOFDBTitle
+ IMDB.UseOFDBOutline = UseOFDBOutline
+ IMDB.UseOFDBPlot = UseOFDBPlot
+ IMDB.UseOFDBGenre = UseOFDBGenre
+ AddHandler IMDB.SearchMovieInfoDownloaded, AddressOf SearchMovieInfoDownloaded
+ AddHandler IMDB.SearchResultsDownloaded, AddressOf SearchResultsDownloaded
+
+ Try
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgIMDBSearchResults_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ Me.tvResults.Focus()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ If Me.chkManual.Checked AndAlso Me.btnVerify.Enabled Then
+ If Not Regex.IsMatch(Me.txtIMDBID.Text.Replace("tt", String.Empty), "\d\d\d\d\d\d\d") Then
+ MsgBox(Master.eLang.GetString(12, "The ID you entered is not a valid IMDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ Exit Sub
+ Else
+ If MsgBox(String.Concat(Master.eLang.GetString(13, "You have manually entered an IMDB ID but have not verified it is correct."), vbNewLine, vbNewLine, Master.eLang.GetString(101, "Are you sure you want to continue?", True)), MsgBoxStyle.YesNo, Master.eLang.GetString(14, "Continue without verification?")) = MsgBoxResult.No Then
+ Exit Sub
+ Else
+ Master.tmpMovie.IMDBID = Me.txtIMDBID.Text.Replace("tt", String.Empty)
+ End If
+ End If
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.Close()
+ End Sub
+
+ Private Sub SearchMovieInfoDownloaded(ByVal sPoster As String, ByVal bSuccess As Boolean)
+ '//
+ ' Info downloaded... fill form with data
+ '\\
+
+ Me.pnlLoading.Visible = False
+ Me.OK_Button.Enabled = True
+
+ Try
+ If bSuccess Then
+ Me.ControlsVisible(True)
+ Me.lblTitle.Text = Master.tmpMovie.Title
+ Me.lblTagline.Text = Master.tmpMovie.Tagline
+ Me.lblYear.Text = Master.tmpMovie.Year
+ Me.lblDirector.Text = Master.tmpMovie.Director
+ Me.lblGenre.Text = Master.tmpMovie.Genre
+ Me.txtOutline.Text = Master.tmpMovie.Outline
+ Me.lblIMDB.Text = Master.tmpMovie.IMDBID
+
+ If _PosterCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ 'just set it
+ Me.pbPoster.Image = _PosterCache(Master.tmpMovie.IMDBID)
+ Else
+ 'go download it, if available
+ If Not String.IsNullOrEmpty(sPoster) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+ pnlPicStatus.Visible = True
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = sPoster, .IMDBId = Master.tmpMovie.IMDBID})
+ End If
+
+ End If
+
+ 'store clone of tmpmovie
+ If Not _InfoCache.ContainsKey(Master.tmpMovie.IMDBID) Then
+ _InfoCache.Add(Master.tmpMovie.IMDBID, GetMovieClone(Master.tmpMovie))
+ End If
+
+
+ Me.btnVerify.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ MsgBox(Master.eLang.GetString(15, "Unable to retrieve movie details for the entered IMDB ID. Please check your entry and try again."), MsgBoxStyle.Exclamation, Master.eLang.GetString(16, "Verification Failed"))
+ Me.btnVerify.Enabled = True
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SearchResultsDownloaded(ByVal M As IMDB.MovieSearchResults)
+ '//
+ ' Process the results that IMDB gave us
+ '\\
+
+ Try
+ Me.tvResults.Nodes.Clear()
+ Me.ClearInfo()
+ If Not IsNothing(M) Then
+ If M.PartialMatches.Count > 0 OrElse M.PopularTitles.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Dim TnP As New TreeNode(String.Format(Master.eLang.GetString(17, "Partial Matches ({0})"), M.PartialMatches.Count))
+ Dim selNode As New TreeNode
+
+ If M.PartialMatches.Count > 0 Then
+ M.PartialMatches.Sort()
+ For Each Movie As MediaContainers.Movie In M.PartialMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+ selNode = TnP.FirstNode
+ End If
+
+ If M.PopularTitles.Count > 0 Then
+ M.PopularTitles.Sort()
+ If M.PartialMatches.Count > 0 OrElse M.ExactMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(19, "Popular Titles ({0})"), M.PopularTitles.Count))
+
+ For Each Movie As MediaContainers.Movie In M.PopularTitles
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+ End If
+
+ If M.ExactMatches.Count > 0 Then
+ M.ExactMatches.Sort()
+ If M.PartialMatches.Count > 0 Then
+ Me.tvResults.Nodes(TnP.Index).Collapse()
+ End If
+ TnP = New TreeNode(String.Format(Master.eLang.GetString(18, "Exact Matches ({0})"), M.ExactMatches.Count))
+ For Each Movie As MediaContainers.Movie In M.ExactMatches
+ TnP.Nodes.Add(New TreeNode() With {.Text = String.Concat(Movie.Title, If(Not String.IsNullOrEmpty(Movie.Year), String.Format(" ({0})", Movie.Year), String.Empty)), .Tag = Movie.IMDBID})
+ Next
+ TnP.Expand()
+ Me.tvResults.Nodes.Add(TnP)
+
+ selNode = TnP.FirstNode
+
+ End If
+ Me._prevnode = -2
+
+ 'determine if we automatically start downloading info for selected node
+ If M.ExactMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PopularTitles.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ ElseIf M.PartialMatches.Count > 0 Then
+ Me.tvResults.SelectedNode = selNode
+ Else
+ Me.tvResults.SelectedNode = Nothing
+ End If
+ Me.tvResults.Focus()
+ Else
+ Me.tvResults.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(20, "No Matches Found")})
+ End If
+ End If
+ Me.pnlLoading.Visible = False
+ chkManual.Enabled = True
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub SetUp()
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.Label2.Text = Master.eLang.GetString(21, "View details of each result to find the proper movie.")
+ Me.Label1.Text = Master.eLang.GetString(22, "Movie Search Results")
+ Me.chkManual.Text = Master.eLang.GetString(23, "Manual IMDB Entry:")
+ Me.btnVerify.Text = Master.eLang.GetString(24, "Verify")
+ Me.lblYearHeader.Text = Master.eLang.GetString(49, "Year:", True)
+ Me.lblDirectorHeader.Text = Master.eLang.GetString(239, "Director:", True)
+ Me.lblGenreHeader.Text = Master.eLang.GetString(51, "Genre(s):", True)
+ Me.lblIMDBHeader.Text = Master.eLang.GetString(289, "IMDB ID:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(242, "Plot Outline:", True)
+ Me.Label3.Text = Master.eLang.GetString(25, "Searching IMDB...")
+ Me.txtFileName.Text = Master.currMovie.Filename
+ End Sub
+
+ Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+ Me.pnlLoading.Visible = True
+ Me.Label3.Text = Master.eLang.GetString(26, "Downloading details...")
+
+ IMDB.IMDBURL = IMDBURL
+ IMDB.GetSearchMovieInfoAsync(Me.tvResults.SelectedNode.Tag.ToString, Master.tmpMovie, Master.DefaultOptions)
+ End Sub
+
+ Private Sub tmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWait.Tick
+ If Not Me._prevnode = Me._currnode Then
+ Me._prevnode = Me._currnode
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Start()
+ Else
+ Me.tmrLoad.Stop()
+ Me.tmrWait.Stop()
+ End If
+ End Sub
+ Private Sub tvResults_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvResults.AfterSelect
+ Try
+ Me.tmrWait.Stop()
+ Me.tmrLoad.Stop()
+
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+
+ If Not IsNothing(Me.tvResults.SelectedNode.Tag) AndAlso Not String.IsNullOrEmpty(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Me._currnode = Me.tvResults.SelectedNode.Index
+
+ 'check if this movie is in the cache already
+ If _InfoCache.ContainsKey(Me.tvResults.SelectedNode.Tag.ToString) Then
+ Master.tmpMovie = GetMovieClone(_InfoCache(Me.tvResults.SelectedNode.Tag.ToString))
+ SearchMovieInfoDownloaded(String.Empty, True)
+ Return
+ End If
+
+ Me.pnlLoading.Visible = True
+ Me.tmrWait.Start()
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub tvResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub txtIMDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtIMDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtIMDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBID.TextChanged
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Function GetMovieClone(ByVal original As MediaContainers.Movie) As MediaContainers.Movie
+ 'have to do this the old-fashioned way because it is not serializable
+ Dim result As New MediaContainers.Movie
+ With result
+ .IMDBID = original.IMDBID
+ .Genre = original.Genre
+ .Title = original.Title
+ .Tagline = original.Tagline
+ .Year = original.Year
+ .Director = original.Director
+ .Genre = original.Genre
+ .Outline = original.Outline
+ End With
+ Return result
+ 'Using mem As New IO.MemoryStream()
+ ' Dim bin As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter(Nothing, New System.Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.Clone))
+ ' bin.Serialize(mem, original)
+ ' mem.Seek(0, IO.SeekOrigin.Begin)
+ ' Return DirectCast(bin.Deserialize(mem), MediaContainers.Movie)
+ 'End Using
+ End Function
+
+
+ #End Region 'Methods
+
+ #Region "Nested Types"
+
+ Private Structure Arguments
+
+ #Region "Fields"
+
+ Dim pURL As String
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+ #Region "Fields"
+
+ Dim Result As Image
+ Dim IMDBId As String
+
+ #End Region 'Fields
+
+ End Structure
+
+ #End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.Designer.vb b/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.Designer.vb
new file mode 100644
index 0000000..213f00e
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.Designer.vb
@@ -0,0 +1,466 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgImgSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgImgSelect))
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pnlBG = New System.Windows.Forms.Panel()
+ Me.pnlBottomMain = New System.Windows.Forms.Panel()
+ Me.pnlSize = New System.Windows.Forms.Panel()
+ Me.btnPreview = New System.Windows.Forms.Button()
+ Me.rbSmall = New System.Windows.Forms.RadioButton()
+ Me.rbMedium = New System.Windows.Forms.RadioButton()
+ Me.rbLarge = New System.Windows.Forms.RadioButton()
+ Me.rbXLarge = New System.Windows.Forms.RadioButton()
+ Me.pnlFanart = New System.Windows.Forms.Panel()
+ Me.chkThumb = New System.Windows.Forms.CheckBox()
+ Me.chkMid = New System.Windows.Forms.CheckBox()
+ Me.chkOriginal = New System.Windows.Forms.CheckBox()
+ Me.lblInfo = New System.Windows.Forms.Label()
+ Me.pnlDLStatus = New System.Windows.Forms.Panel()
+ Me.pnlMPDB = New System.Windows.Forms.Panel()
+ Me.lblDL3Status = New System.Windows.Forms.Label()
+ Me.lblDL3 = New System.Windows.Forms.Label()
+ Me.pbDL3 = New System.Windows.Forms.ProgressBar()
+ Me.pnlIMPA = New System.Windows.Forms.Panel()
+ Me.lblDL2Status = New System.Windows.Forms.Label()
+ Me.lblDL2 = New System.Windows.Forms.Label()
+ Me.pbDL2 = New System.Windows.Forms.ProgressBar()
+ Me.lblDL1Status = New System.Windows.Forms.Label()
+ Me.lblDL1 = New System.Windows.Forms.Label()
+ Me.pbDL1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlSinglePic = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.pnlBottomMain.SuspendLayout()
+ Me.pnlSize.SuspendLayout()
+ Me.pnlFanart.SuspendLayout()
+ Me.pnlDLStatus.SuspendLayout()
+ Me.pnlMPDB.SuspendLayout()
+ Me.pnlIMPA.SuspendLayout()
+ Me.pnlSinglePic.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(687, 11)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pnlBG
+ '
+ Me.pnlBG.AutoScroll = True
+ Me.pnlBG.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pnlBG.Location = New System.Drawing.Point(0, 0)
+ Me.pnlBG.Name = "pnlBG"
+ Me.pnlBG.Size = New System.Drawing.Size(836, 495)
+ Me.pnlBG.TabIndex = 1
+ Me.pnlBG.Visible = False
+ '
+ 'pnlBottomMain
+ '
+ Me.pnlBottomMain.Controls.Add(Me.pnlSize)
+ Me.pnlBottomMain.Controls.Add(Me.pnlFanart)
+ Me.pnlBottomMain.Controls.Add(Me.lblInfo)
+ Me.pnlBottomMain.Controls.Add(Me.TableLayoutPanel1)
+ Me.pnlBottomMain.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlBottomMain.Location = New System.Drawing.Point(0, 495)
+ Me.pnlBottomMain.Name = "pnlBottomMain"
+ Me.pnlBottomMain.Size = New System.Drawing.Size(836, 50)
+ Me.pnlBottomMain.TabIndex = 0
+ '
+ 'pnlSize
+ '
+ Me.pnlSize.BackColor = System.Drawing.Color.White
+ Me.pnlSize.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.pnlSize.Controls.Add(Me.btnPreview)
+ Me.pnlSize.Controls.Add(Me.rbSmall)
+ Me.pnlSize.Controls.Add(Me.rbMedium)
+ Me.pnlSize.Controls.Add(Me.rbLarge)
+ Me.pnlSize.Controls.Add(Me.rbXLarge)
+ Me.pnlSize.Location = New System.Drawing.Point(8, 8)
+ Me.pnlSize.Name = "pnlSize"
+ Me.pnlSize.Size = New System.Drawing.Size(673, 34)
+ Me.pnlSize.TabIndex = 1
+ Me.pnlSize.Visible = False
+ '
+ 'btnPreview
+ '
+ Me.btnPreview.Enabled = False
+ Me.btnPreview.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.btnPreview.Image = CType(resources.GetObject("btnPreview.Image"), System.Drawing.Image)
+ Me.btnPreview.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPreview.Location = New System.Drawing.Point(593, 5)
+ Me.btnPreview.Name = "btnPreview"
+ Me.btnPreview.Size = New System.Drawing.Size(75, 23)
+ Me.btnPreview.TabIndex = 4
+ Me.btnPreview.Text = "Preview"
+ Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPreview.UseVisualStyleBackColor = True
+ '
+ 'rbSmall
+ '
+ Me.rbSmall.AutoSize = True
+ Me.rbSmall.Enabled = False
+ Me.rbSmall.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbSmall.Location = New System.Drawing.Point(475, 8)
+ Me.rbSmall.Name = "rbSmall"
+ Me.rbSmall.Size = New System.Drawing.Size(53, 17)
+ Me.rbSmall.TabIndex = 3
+ Me.rbSmall.TabStop = True
+ Me.rbSmall.Text = "Small"
+ Me.rbSmall.UseVisualStyleBackColor = True
+ '
+ 'rbMedium
+ '
+ Me.rbMedium.AutoSize = True
+ Me.rbMedium.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbMedium.Location = New System.Drawing.Point(201, 8)
+ Me.rbMedium.Name = "rbMedium"
+ Me.rbMedium.Size = New System.Drawing.Size(69, 17)
+ Me.rbMedium.TabIndex = 1
+ Me.rbMedium.TabStop = True
+ Me.rbMedium.Text = "Medium"
+ Me.rbMedium.UseVisualStyleBackColor = True
+ '
+ 'rbLarge
+ '
+ Me.rbLarge.AutoSize = True
+ Me.rbLarge.Enabled = False
+ Me.rbLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbLarge.Location = New System.Drawing.Point(343, 8)
+ Me.rbLarge.Name = "rbLarge"
+ Me.rbLarge.Size = New System.Drawing.Size(55, 17)
+ Me.rbLarge.TabIndex = 2
+ Me.rbLarge.TabStop = True
+ Me.rbLarge.Text = "Cover"
+ Me.rbLarge.UseVisualStyleBackColor = True
+ '
+ 'rbXLarge
+ '
+ Me.rbXLarge.AutoSize = True
+ Me.rbXLarge.Enabled = False
+ Me.rbXLarge.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.rbXLarge.Location = New System.Drawing.Point(26, 8)
+ Me.rbXLarge.Name = "rbXLarge"
+ Me.rbXLarge.Size = New System.Drawing.Size(66, 17)
+ Me.rbXLarge.TabIndex = 0
+ Me.rbXLarge.TabStop = True
+ Me.rbXLarge.Text = "Original"
+ Me.rbXLarge.UseVisualStyleBackColor = True
+ '
+ 'pnlFanart
+ '
+ Me.pnlFanart.BackColor = System.Drawing.Color.White
+ Me.pnlFanart.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlFanart.Controls.Add(Me.chkThumb)
+ Me.pnlFanart.Controls.Add(Me.chkMid)
+ Me.pnlFanart.Controls.Add(Me.chkOriginal)
+ Me.pnlFanart.Location = New System.Drawing.Point(8, 8)
+ Me.pnlFanart.Name = "pnlFanart"
+ Me.pnlFanart.Size = New System.Drawing.Size(339, 34)
+ Me.pnlFanart.TabIndex = 5
+ Me.pnlFanart.Visible = False
+ '
+ 'chkThumb
+ '
+ Me.chkThumb.AutoSize = True
+ Me.chkThumb.Location = New System.Drawing.Point(231, 8)
+ Me.chkThumb.Name = "chkThumb"
+ Me.chkThumb.Size = New System.Drawing.Size(111, 17)
+ Me.chkThumb.TabIndex = 2
+ Me.chkThumb.Text = "Check All Thumb"
+ Me.chkThumb.UseVisualStyleBackColor = True
+ '
+ 'chkMid
+ '
+ Me.chkMid.AutoSize = True
+ Me.chkMid.Location = New System.Drawing.Point(131, 8)
+ Me.chkMid.Name = "chkMid"
+ Me.chkMid.Size = New System.Drawing.Size(96, 17)
+ Me.chkMid.TabIndex = 1
+ Me.chkMid.Text = "Check All Mid"
+ Me.chkMid.UseVisualStyleBackColor = True
+ '
+ 'chkOriginal
+ '
+ Me.chkOriginal.AutoSize = True
+ Me.chkOriginal.Location = New System.Drawing.Point(7, 8)
+ Me.chkOriginal.Name = "chkOriginal"
+ Me.chkOriginal.Size = New System.Drawing.Size(118, 17)
+ Me.chkOriginal.TabIndex = 0
+ Me.chkOriginal.Text = "Check All Original"
+ Me.chkOriginal.UseVisualStyleBackColor = True
+ '
+ 'lblInfo
+ '
+ Me.lblInfo.Location = New System.Drawing.Point(402, 10)
+ Me.lblInfo.Name = "lblInfo"
+ Me.lblInfo.Size = New System.Drawing.Size(240, 31)
+ Me.lblInfo.TabIndex = 1
+ Me.lblInfo.Text = "Selected item will be set as fanart. All checked items will be saved to \extrathu" & _
+ "mbs."
+ Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblInfo.Visible = False
+ '
+ 'pnlDLStatus
+ '
+ Me.pnlDLStatus.BackColor = System.Drawing.Color.White
+ Me.pnlDLStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlDLStatus.Controls.Add(Me.pnlMPDB)
+ Me.pnlDLStatus.Controls.Add(Me.pnlIMPA)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1Status)
+ Me.pnlDLStatus.Controls.Add(Me.lblDL1)
+ Me.pnlDLStatus.Controls.Add(Me.pbDL1)
+ Me.pnlDLStatus.Location = New System.Drawing.Point(257, 132)
+ Me.pnlDLStatus.Name = "pnlDLStatus"
+ Me.pnlDLStatus.Size = New System.Drawing.Size(321, 223)
+ Me.pnlDLStatus.TabIndex = 2
+ Me.pnlDLStatus.Visible = False
+ '
+ 'pnlMPDB
+ '
+ Me.pnlMPDB.Controls.Add(Me.lblDL3Status)
+ Me.pnlMPDB.Controls.Add(Me.lblDL3)
+ Me.pnlMPDB.Controls.Add(Me.pbDL3)
+ Me.pnlMPDB.Location = New System.Drawing.Point(0, 147)
+ Me.pnlMPDB.Name = "pnlMPDB"
+ Me.pnlMPDB.Size = New System.Drawing.Size(321, 75)
+ Me.pnlMPDB.TabIndex = 4
+ '
+ 'lblDL3Status
+ '
+ Me.lblDL3Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL3Status.Name = "lblDL3Status"
+ Me.lblDL3Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3Status.TabIndex = 1
+ '
+ 'lblDL3
+ '
+ Me.lblDL3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL3.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL3.Name = "lblDL3"
+ Me.lblDL3.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL3.TabIndex = 0
+ Me.lblDL3.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL3
+ '
+ Me.pbDL3.Location = New System.Drawing.Point(6, 53)
+ Me.pbDL3.Name = "pbDL3"
+ Me.pbDL3.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL3.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL3.TabIndex = 2
+ '
+ 'pnlIMPA
+ '
+ Me.pnlIMPA.Controls.Add(Me.pnlSinglePic)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2Status)
+ Me.pnlIMPA.Controls.Add(Me.lblDL2)
+ Me.pnlIMPA.Controls.Add(Me.pbDL2)
+ Me.pnlIMPA.Location = New System.Drawing.Point(0, 73)
+ Me.pnlIMPA.Name = "pnlIMPA"
+ Me.pnlIMPA.Size = New System.Drawing.Size(321, 75)
+ Me.pnlIMPA.TabIndex = 3
+ '
+ 'lblDL2Status
+ '
+ Me.lblDL2Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL2Status.Location = New System.Drawing.Point(5, 34)
+ Me.lblDL2Status.Name = "lblDL2Status"
+ Me.lblDL2Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2Status.TabIndex = 1
+ '
+ 'lblDL2
+ '
+ Me.lblDL2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblDL2.Location = New System.Drawing.Point(5, 10)
+ Me.lblDL2.Name = "lblDL2"
+ Me.lblDL2.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL2.TabIndex = 0
+ Me.lblDL2.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL2
+ '
+ Me.pbDL2.Location = New System.Drawing.Point(6, 52)
+ Me.pbDL2.Name = "pbDL2"
+ Me.pbDL2.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL2.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL2.TabIndex = 2
+ '
+ 'lblDL1Status
+ '
+ Me.lblDL1Status.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1Status.Location = New System.Drawing.Point(5, 29)
+ Me.lblDL1Status.Name = "lblDL1Status"
+ Me.lblDL1Status.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1Status.TabIndex = 1
+ '
+ 'lblDL1
+ '
+ Me.lblDL1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblDL1.Location = New System.Drawing.Point(5, 6)
+ Me.lblDL1.Name = "lblDL1"
+ Me.lblDL1.Size = New System.Drawing.Size(310, 13)
+ Me.lblDL1.TabIndex = 0
+ Me.lblDL1.Text = "Performing Preliminary Tasks..."
+ '
+ 'pbDL1
+ '
+ Me.pbDL1.Location = New System.Drawing.Point(6, 49)
+ Me.pbDL1.Name = "pbDL1"
+ Me.pbDL1.Size = New System.Drawing.Size(309, 19)
+ Me.pbDL1.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbDL1.TabIndex = 2
+ '
+ 'pnlSinglePic
+ '
+ Me.pnlSinglePic.BackColor = System.Drawing.Color.White
+ Me.pnlSinglePic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlSinglePic.Controls.Add(Me.Label2)
+ Me.pnlSinglePic.Controls.Add(Me.ProgressBar1)
+ Me.pnlSinglePic.Location = New System.Drawing.Point(0, 1)
+ Me.pnlSinglePic.Name = "pnlSinglePic"
+ Me.pnlSinglePic.Size = New System.Drawing.Size(321, 75)
+ Me.pnlSinglePic.TabIndex = 1
+ Me.pnlSinglePic.Visible = False
+ '
+ 'Label2
+ '
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label2.Location = New System.Drawing.Point(5, 10)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(310, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Downloading Selected Image..."
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(6, 53)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(309, 19)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'dlgImgSelect
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.AutoScroll = True
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(836, 545)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pnlDLStatus)
+ Me.Controls.Add(Me.pnlBG)
+ Me.Controls.Add(Me.pnlBottomMain)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgImgSelect"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Poster"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.pnlBottomMain.ResumeLayout(False)
+ Me.pnlSize.ResumeLayout(False)
+ Me.pnlSize.PerformLayout()
+ Me.pnlFanart.ResumeLayout(False)
+ Me.pnlFanart.PerformLayout()
+ Me.pnlDLStatus.ResumeLayout(False)
+ Me.pnlMPDB.ResumeLayout(False)
+ Me.pnlIMPA.ResumeLayout(False)
+ Me.pnlSinglePic.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pnlBG As System.Windows.Forms.Panel
+ Friend WithEvents pnlBottomMain As System.Windows.Forms.Panel
+ Friend WithEvents pnlDLStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblDL1Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL1 As System.Windows.Forms.Label
+ Friend WithEvents pbDL1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlIMPA As System.Windows.Forms.Panel
+ Friend WithEvents lblDL2Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL2 As System.Windows.Forms.Label
+ Friend WithEvents pbDL2 As System.Windows.Forms.ProgressBar
+ Friend WithEvents lblInfo As System.Windows.Forms.Label
+ Friend WithEvents pnlSize As System.Windows.Forms.Panel
+ Friend WithEvents rbSmall As System.Windows.Forms.RadioButton
+ Friend WithEvents rbMedium As System.Windows.Forms.RadioButton
+ Friend WithEvents rbLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents rbXLarge As System.Windows.Forms.RadioButton
+ Friend WithEvents pnlSinglePic As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlMPDB As System.Windows.Forms.Panel
+ Friend WithEvents lblDL3Status As System.Windows.Forms.Label
+ Friend WithEvents lblDL3 As System.Windows.Forms.Label
+ Friend WithEvents pbDL3 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlFanart As System.Windows.Forms.Panel
+ Friend WithEvents chkThumb As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMid As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOriginal As System.Windows.Forms.CheckBox
+ Friend WithEvents btnPreview As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.resx b/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.resx
new file mode 100644
index 0000000..e4a4f58
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.resx
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnPreview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALAAAA
+ CwAB5DetvwAAAuRJREFUOE+lkltsS3Ecx3+ILAsPFrfEyxJPXkh0bokg4UG78TQNI5FImPBAJKiNhBAy
+ MTwRMRJ1ibsZ29jc2t00Vrq1p3q6tqft6Tk9t87YeLCHff3/3Sp4dZJPvv/f5fs7///5HwJA/8Nv88jw
+ 8ApD1y+blnnNtKwGjmXl/qCQMxt+fB9xjI2NEYdGR0dp9OfP6Yph+gOKjpBmMcy8CoxwPi5gok81kDGt
+ BPOUci+xt1LO0Gy+ZAZuUcbtCe4NpHEtLKNBkHGfrQt5dySNrpSKIcvcbJkmka5pNKhrtrfxFE71RlD3
+ UcT5gIjt7THMvhLHTEZlSwz1n0ScZTXe8yKextec6TRNY3zAF0O3tUYl7Ovqh+t9EHs8IRSdC4FO9+WZ
+ VBfEjlchHPEF8z2PRQnDg9b4AE3L0hA7wqNwDFWvP2Cn1w9Hox90zAc6McFRH9Y97MWuDn++56YwgJEc
+ G2CwAdmsSkPsCLf6I1jb3IUNL3sY3Zhxxgs67AG5PCg+4YW9uRsbWY33XAp8xrBlOHVdI1IVhb5oWdv1
+ QBjLn3qwtqUDq5s6MOd0O2jfizwlx9uwqtGLdazGey76Q/hm6k4tmyXKyDLlVMV29aOApU0erHnWgWmH
+ noF2NYL2Ph2nuhFF+5uw8okXy1hP/YcghjTVqSgZoqQkkZZK2m58ErDouRfzLjSDKt2grbf+ZpMbJSeb
+ sPA520FvCINqxinLaaKoKHJsETGK1rCIh+8F3HnTh7vvgrjHbqMAjx/0CGiNDCAqJZGUEk45zQYk4nG+
+ i7LPgoBkNIpsOglTzcDSFOQ0FTmdwdRiyvNqKolELAZZlre0t7URLSkro21VVSVdnZ1pSZKQSqXAPizY
+ /wHDMMCuKg+Ps6oKJZNBsL//6+7q6gWTaPzhWjx31qzF5Xb7Acf69S6mNRV2e22Fw1G7gcGVUcPyro3l
+ 5Qfnl5auYZ4Zk7l3ClsxuBQGTszNx/9SqHHDVG76BaMnpgu1OH2ZAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.vb b/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.vb
new file mode 100644
index 0000000..7e37076
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgImgSelect.vb
@@ -0,0 +1,1309 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgImgSelect
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwIMPADownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwMPDBDownload As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwTMDBDownload As New System.ComponentModel.BackgroundWorker
+
+ Private CachePath As String = String.Empty
+ Private chkImage() As CheckBox
+ Private DLType As Enums.ImageType
+ Private ETHashes As New List(Of String)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private IMPA As New IMPA.Scraper
+ Private IMPAPosters As New List(Of MediaContainers.Image)
+ Private isEdit As Boolean = False
+ Private isShown As Boolean = False
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private MPDB As New MPDB.Scraper
+ Private MPDBPosters As New List(Of MediaContainers.Image)
+ Private noImages As Boolean = False
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private PreDL As Boolean = False
+ Private Results As New Containers.ImgResult
+ Private selIndex As Integer = -1
+ Private TMDB As New TMDB.Scraper
+ Private TMDBPosters As New List(Of MediaContainers.Image)
+ Private tMovie As New Structures.DBMovie
+ Private tmpImage As New MediaContainers.Image
+ Private _impaDone As Boolean = True
+ Private _mpdbDone As Boolean = True
+ Private _tmdbDone As Boolean = True
+ Private selURL As String = ""
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Private Event IMPADone()
+
+ Private Event MPDBDone()
+
+ Private Event TMDBDone()
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub PreLoad(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False)
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.PreDL = True
+ Me.SetUp()
+ Me.StartDownload()
+ End Sub
+
+ Public Overloads Function ShowDialog(ByVal mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, Optional ByVal _isEdit As Boolean = False) As Containers.ImgResult
+ '//
+ ' Overload to pass data
+ '\\
+
+ Me.tMovie = mMovie
+ Me.DLType = _DLType
+ Me.isEdit = _isEdit
+ Me.isShown = True
+
+ MyBase.ShowDialog()
+ Return Results
+ End Function
+
+ Public Overloads Function ShowDialog() As Containers.ImgResult
+ Me.isShown = True
+ MyBase.ShowDialog()
+
+ Return Results
+ End Function
+
+ 'Rewrite to simplify
+ Private Sub AddImage(ByVal iImage As Image, ByVal sDescription As String, ByVal iIndex As Integer, ByVal sURL As String, ByVal isChecked As Boolean, poster As MediaContainers.Image)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(256, 286)
+ Me.pbImage(iIndex).Size = New Size(250, 250)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.pnlImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Tag = poster
+ Me.pbImage(iIndex).Image = iImage
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.pnlBG.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ ReDim Preserve Me.chkImage(iIndex)
+ Me.chkImage(iIndex) = New CheckBox()
+ Me.chkImage(iIndex).Name = iIndex.ToString
+ Me.chkImage(iIndex).Size = New Size(250, 30)
+ Me.chkImage(iIndex).AutoSize = False
+ Me.chkImage(iIndex).BackColor = Color.White
+ Me.chkImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.chkImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ 'Me.chkImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ Me.chkImage(iIndex).Left = 0
+ Me.chkImage(iIndex).Top = 250
+ Me.chkImage(iIndex).Checked = isChecked
+ Me.pnlImage(iIndex).Controls.Add(Me.chkImage(iIndex))
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ Else
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.lblImage(iIndex) = New Label()
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Size = New Size(250, 30)
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ If IsTMDBURL(sURL) Then
+ Me.lblImage(iIndex).Text = Master.eLang.GetString(55, "Multiple")
+ Else
+ Me.lblImage(iIndex).Text = String.Format("{0}x{1} ({2})", Me.pbImage(iIndex).Image.Width.ToString, Me.pbImage(iIndex).Image.Height.ToString, sDescription)
+ End If
+ Me.lblImage(iIndex).Tag = poster
+ Me.lblImage(iIndex).Left = 0
+ Me.lblImage(iIndex).Top = 250
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 301
+ Else
+ Me.iLeft += 271
+ End If
+ End Sub
+
+ Private Sub AllDoneDownloading()
+ If Me._impaDone AndAlso Me._tmdbDone AndAlso Me._mpdbDone Then
+ Me.pnlDLStatus.Visible = False
+ Me.TMDBPosters.AddRange(Me.IMPAPosters)
+ Me.TMDBPosters.AddRange(Me.MPDBPosters)
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
+ PreviewImage()
+ End Sub
+ Private Sub PreviewImage()
+ Try
+ Dim tImage As New Images
+
+ Me.pnlSinglePic.Visible = True
+ Application.DoEvents()
+
+ Select Case True
+ Case rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ Case rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ Case rbMedium.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(cover)_(url=", Me.rbMedium.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ tImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ tImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End Select
+
+ Me.pnlSinglePic.Visible = False
+
+ If Not IsNothing(tImage.Image) Then
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage.Image)
+
+ End If
+
+ tImage.Dispose()
+ tImage = Nothing
+
+ Catch ex As Exception
+ Me.pnlSinglePic.Visible = False
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMPADownload.DoWork
+ '//
+ ' Thread to download impa posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+
+ For i As Integer = 0 To Me.IMPAPosters.Count - 1
+ If bwIMPADownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwIMPADownload.ReportProgress(i + 1, Me.IMPAPosters.Item(i).URL)
+ Try
+ Me.IMPAPosters.Item(i).WebImage.FromWeb(Me.IMPAPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.IMPAPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.IMPAPosters.Item(i).URL = StringUtils.CleanURL(Me.IMPAPosters.Item(i).URL)
+ Me.IMPAPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.IMPAPosters.Item(i).Description, ")_(url=", Me.IMPAPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwIMPADownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMPADownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL2Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL2.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwIMPADownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMPADownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._impaDone = True
+ RaiseEvent IMPADone()
+ End If
+ End Sub
+
+ Private Sub bwMPDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwMPDBDownload.DoWork
+ '//
+ ' Thread to download mpdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ For i As Integer = 0 To Me.MPDBPosters.Count - 1
+ Try
+ If Me.bwMPDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwMPDBDownload.ReportProgress(i + 1, Me.MPDBPosters.Item(i).URL)
+ Try
+ Me.MPDBPosters.Item(i).WebImage.FromWeb(Me.MPDBPosters.Item(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then Me.Results.Posters.Add(Me.MPDBPosters.Item(i).URL)
+ If Master.eSettings.UseImgCache Then
+ Try
+ Me.MPDBPosters.Item(i).URL = StringUtils.CleanURL(Me.MPDBPosters.Item(i).URL)
+ Me.MPDBPosters.Item(i).WebImage.Save(Path.Combine(CachePath, String.Concat("poster_(", Me.MPDBPosters.Item(i).Description, ")_(url=", Me.MPDBPosters.Item(i).URL, ").jpg")))
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwMPDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwMPDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL3Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL3.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwMPDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwMPDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._mpdbDone = True
+ RaiseEvent MPDBDone()
+ End If
+ End Sub
+
+ Private Sub bwTMDBDownload_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTMDBDownload.DoWork
+ '//
+ ' Thread to download tmdb posters from the internet (multi-threaded because sometimes
+ ' the web server is slow to respond or not reachable, hanging the GUI)
+ '\\
+ Dim thumbLink As String = String.Empty
+ Dim savePath As String = String.Empty
+ Dim extrathumbSize As String = String.Empty
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ 'Only download the posters themselves that match the cover criteria for display purposes, no need to download them all.
+ Dim posters As MediaContainers.Image()
+ If Me.DLType = Enums.ImageType.Fanart Then
+ posters = TMDBPosters.Where(Function(s) s.Description = extrathumbSize).ToArray()
+ Else
+ posters = TMDBPosters.Where(Function(s) s.Description = "cover").ToArray()
+ End If
+
+ Dim percent = 100 / posters.Count
+ For i As Integer = 0 To posters.Count - 1
+ Try
+ If Me.DLType = Enums.ImageType.Fanart OrElse (Master.eSettings.UseImgCache OrElse (posters(i).Description = "cover" OrElse Master.eSettings.PosterPrefSizeOnly)) Then
+ If Me.bwTMDBDownload.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ Me.bwTMDBDownload.ReportProgress(Convert.ToInt32((i + 1) * percent), posters(i).URL)
+ Try
+ posters(i).WebImage.FromWeb(posters(i).URL)
+ If Not Master.eSettings.NoSaveImagesToNfo Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+
+
+ If Not posters(i).URL.Contains("-thumb.") Then
+ Me.Results.Fanart.URL = GetServerURL(posters(i).URL) ' "http://images.themoviedb.org"
+ thumbLink = RemoveServerURL(posters(i).URL)
+ 'If thumbLink.Contains("_poster.") Then
+ thumbLink = thumbLink.Replace("-poster.", "-thumb.")
+ thumbLink = thumbLink.Replace("-original.", "-thumb.")
+ ''Else
+ 'thumbLink = thumbLink.Insert(thumbLink.LastIndexOf("."), "-thumb")
+ 'End If
+ Me.Results.Fanart.Thumb.Add(New MediaContainers.Thumb With {.Preview = thumbLink, .Text = posters(i).URL.Replace("http://images.themoviedb.org", String.Empty)})
+ End If
+ Else
+ Me.Results.Posters.Add(posters(i).URL)
+ End If
+ End If
+ If Master.eSettings.UseImgCache OrElse Master.eSettings.AutoET Then
+ Try
+ posters(i).URL = Me.CleanTMDBURL(posters(i).URL)
+
+ savePath = Path.Combine(CachePath, String.Concat(If(Me.DLType = Enums.ImageType.Fanart, "fanart_(", "poster_("), posters(i).Description, ")_(url=", posters(i).URL, ").jpg"))
+ posters(i).WebImage.Save(savePath)
+
+ If Master.eSettings.AutoET Then
+ Dim tSize As New Enums.FanartSize
+ Select Case posters(i).Description.ToLower
+ Case "original"
+ tSize = Enums.FanartSize.Lrg
+ Case "mid"
+ tSize = Enums.FanartSize.Mid
+ Case "thumb"
+ tSize = Enums.FanartSize.Small
+ End Select
+ If Master.eSettings.AutoETSize = tSize Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(savePath)) Then
+ posters(i).isChecked = True
+ End If
+ End If
+ End If
+
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ End If
+ Catch
+ End Try
+ Next
+ End Sub
+
+ Private Sub bwTMDBDownload_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTMDBDownload.ProgressChanged
+ '//
+ ' Update the status bar with the name of the current media name and increase progress bar
+ '\\
+ Try
+ Dim sStatus As String = e.UserState.ToString
+ Me.lblDL1Status.Text = String.Format(Master.eLang.GetString(27, "Downloading {0}"), If(sStatus.Length > 40, StringUtils.TruncateURL(sStatus, 40), sStatus))
+ Me.pbDL1.Value = e.ProgressPercentage
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTMDBDownload_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTMDBDownload.RunWorkerCompleted
+ '//
+ ' Thread finished: process the pics
+ '\\
+
+ If Not e.Cancelled Then
+ Me._tmdbDone = True
+ RaiseEvent TMDBDone()
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ IMPA.Cancel()
+ MPDB.Cancel()
+ TMDB.Cancel()
+
+ If bwIMPADownload.IsBusy Then bwIMPADownload.CancelAsync()
+ If bwMPDBDownload.IsBusy Then bwMPDBDownload.CancelAsync()
+ If bwTMDBDownload.IsBusy Then bwTMDBDownload.CancelAsync()
+
+ While bwIMPADownload.IsBusy OrElse bwMPDBDownload.IsBusy OrElse bwTMDBDownload.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub CheckAll(ByVal sType As String, ByVal Checked As Boolean)
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Text.ToLower.Contains(sType) Then
+ Me.chkImage(i).Checked = Checked
+ End If
+ Next
+ End Sub
+
+ Private Sub chkMid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMid.CheckedChanged
+ Me.CheckAll("(poster)", chkMid.Checked)
+ End Sub
+
+ Private Sub chkOriginal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOriginal.CheckedChanged
+ Me.CheckAll("(original)", chkOriginal.Checked)
+ End Sub
+
+ Private Sub chkThumb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkThumb.CheckedChanged
+ Me.CheckAll("(thumb)", chkThumb.Checked)
+ End Sub
+
+ Private Sub dlgImgSelect_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ 'Me.tmpImage.Dispose()
+
+ IMPA = Nothing
+ MPDB = Nothing
+ TMDB = Nothing
+
+ IMPAPosters = Nothing
+ MPDBPosters = Nothing
+ TMDBPosters = Nothing
+ End Sub
+
+ Private Sub dlgImgSelect_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+ If Master.eSettings.AutoET AndAlso Not Master.eSettings.UseImgCache Then FileUtils.Delete.DeleteDirectory(Me.CachePath)
+ End Sub
+
+ Private Sub dlgImgSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ If Not PreDL Then SetUp()
+ End Sub
+
+ Private Sub dlgImgSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Try
+ Application.DoEvents()
+ If Not PreDL Then
+ StartDownload()
+ ElseIf noImages Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, poster As MediaContainers.Image)
+ Try
+ 'set all pnl colors to white first
+ 'remove all the current genres
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(i).BackColor = Color.White
+ Me.chkImage(i).ForeColor = Color.Black
+ Else
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ End If
+ Next
+
+ 'set selected pnl color to blue
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+
+ If DLType = Enums.ImageType.Fanart Then
+ Me.chkImage(iIndex).BackColor = Color.Blue
+ Me.chkImage(iIndex).ForeColor = Color.White
+ Else
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+ End If
+
+ Me.selIndex = iIndex
+ Me.selURL = poster.URL
+
+ Me.pnlSize.Visible = False
+
+ If IsTMDBURL(poster.URL) Then
+ Me.SetupSizes(poster.ParentID)
+ If Not rbLarge.Checked AndAlso Not rbMedium.Checked AndAlso Not rbSmall.Checked AndAlso Not rbXLarge.Checked Then
+ Me.OK_Button.Enabled = False
+ Else
+ Me.OK_Button.Focus()
+ End If
+ Me.tmpImage.Clear()
+ Else
+ Me.rbXLarge.Checked = False
+ Me.rbLarge.Checked = False
+ Me.rbMedium.Checked = False
+ Me.rbSmall.Checked = False
+ Me.OK_Button.Enabled = True
+ Me.OK_Button.Focus()
+ Me.tmpImage = CType(Me.pbImage(iIndex).Tag, MediaContainers.Image)
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function IsTMDBURL(ByVal sURL As String) As Boolean
+ If sURL.ToLower.Contains("themoviedb.org") OrElse sURL.ToLower.Contains("d3gtl9l2a4fn1j.cloudfront.net") OrElse sURL.ToLower.Contains("cf1.imgobject.com") OrElse sURL.ToLower.Contains("cf2.imgobject.com") Then
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ Private Function CleanTMDBURL(ByVal sURL As String) As String
+ If IsTMDBURL(sURL) Then
+ Dim _sURL As New Uri(sURL)
+ sURL = String.Concat("$$[themoviedb.org]", _sURL.GetComponents(UriComponents.Path, UriFormat.UriEscaped))
+ Else
+ sURL = StringUtils.TruncateURL(sURL, 40, True)
+ End If
+ Return sURL.Replace(":", "$c$").Replace("/", "$s$")
+ End Function
+
+
+ Private Sub GetFanart()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim di As New DirectoryInfo(CachePath)
+ Dim lFi As New List(Of FileInfo)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ If Not IsNothing(tImage.WebImage.Image) Then
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Lrg Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ 'Case sFile.Name.Contains("(mid)")
+ ' tImage.Description = "mid"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Mid Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ If Master.eSettings.AutoET AndAlso Master.eSettings.AutoETSize = Enums.FanartSize.Small Then
+ If Not ETHashes.Contains(HashFile.HashCalcFile(sFile.FullName)) Then
+ tImage.isChecked = True
+ End If
+ End If
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ End If
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ If Master.eSettings.AutoET AndAlso Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ End If
+
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "backdrop")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub GetPosters()
+ Try
+ Dim NoneFound As Boolean = True
+
+ If Master.eSettings.UseImgCache Then
+ Dim lFi As New List(Of FileInfo)
+ Dim di As New DirectoryInfo(CachePath)
+
+ If Not Directory.Exists(CachePath) Then
+ Directory.CreateDirectory(CachePath)
+ Else
+ Try
+ lFi.AddRange(di.GetFiles("*.jpg"))
+ Catch
+ End Try
+ End If
+
+ If lFi.Count > 0 Then
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+ Me.pnlDLStatus.Visible = True
+ Application.DoEvents()
+ NoneFound = False
+ Dim tImage As MediaContainers.Image
+ For Each sFile As FileInfo In lFi
+ tImage = New MediaContainers.Image
+ tImage.WebImage.FromFile(sFile.FullName)
+ Select Case True
+ Case sFile.Name.Contains("(original)")
+ tImage.Description = "original"
+ Case sFile.Name.Contains("(mid)")
+ tImage.Description = "mid"
+ Case sFile.Name.Contains("(cover)")
+ tImage.Description = "cover"
+ Case sFile.Name.Contains("(thumb)")
+ tImage.Description = "thumb"
+ Case sFile.Name.Contains("(poster)")
+ tImage.Description = "poster"
+ End Select
+ tImage.URL = Regex.Match(sFile.Name, "\(url=(.*?)\)").Groups(1).ToString
+ Me.TMDBPosters.Add(tImage)
+ Next
+ ProcessPics(TMDBPosters)
+ Me.pnlDLStatus.Visible = False
+ Me.pnlBG.Visible = True
+ End If
+
+ lFi = Nothing
+ di = Nothing
+ End If
+
+ If NoneFound Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDB", True) Then
+ Me.lblDL1.Text = Master.eLang.GetString(32, "Retrieving data from TheMovieDB.com...")
+ Me.lblDL1Status.Text = String.Empty
+ Me.pbDL1.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._tmdbDone = False
+
+ Me.TMDB.GetImagesAsync(tMovie.Movie.IMDBID, "poster")
+ Else
+ Me.lblDL1.Text = Master.eLang.GetString(33, "TheMovieDB.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseIMPA", False) Then
+ Me.lblDL2.Text = Master.eLang.GetString(34, "Retrieving data from IMPAwards.com...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._impaDone = False
+
+ Me.IMPA.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL2.Text = Master.eLang.GetString(35, "IMPAwards.com is not enabled")
+ End If
+
+ If AdvancedSettings.GetBooleanSetting("UseMPDB", False) Then
+ Me.lblDL3.Text = Master.eLang.GetString(36, "Retrieving data from MoviePosterDB.com...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = 3
+ Me.pnlDLStatus.Visible = True
+ Me.Refresh()
+
+ Me._mpdbDone = False
+
+ Me.MPDB.GetImagesAsync(tMovie.Movie.IMDBID)
+ Else
+ Me.lblDL3.Text = Master.eLang.GetString(37, "MoviePostersDB.com is not enabled")
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPADoneDownloading()
+ Try
+ Me._impaDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL2.Value = 0
+
+ Me.lblDL2.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL2Status.Text = String.Empty
+ Me.pbDL2.Maximum = Posters.Count
+
+ Me.IMPAPosters = Posters
+
+ Me.bwIMPADownload.WorkerSupportsCancellation = True
+ Me.bwIMPADownload.WorkerReportsProgress = True
+ Me.bwIMPADownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub IMPAProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL2.Value = iPercent
+ End Sub
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Label).Name), DirectCast(DirectCast(sender, Label).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlBG.VerticalScroll.Value + 50) <= pnlBG.VerticalScroll.Maximum Then
+ pnlBG.VerticalScroll.Value += 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlBG.VerticalScroll.Value - 50) >= pnlBG.VerticalScroll.Minimum Then
+ pnlBG.VerticalScroll.Value -= 50
+ Else
+ pnlBG.VerticalScroll.Value = pnlBG.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub MPDBDoneDownloading()
+ Try
+ Me._mpdbDone = True
+ Me.AllDoneDownloading()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL3.Value = 0
+
+ Me.lblDL3.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL3Status.Text = String.Empty
+ Me.pbDL3.Maximum = Posters.Count
+
+ Me.MPDBPosters = Posters
+
+ Me.bwMPDBDownload.WorkerSupportsCancellation = True
+ Me.bwMPDBDownload.WorkerReportsProgress = True
+ Me.bwMPDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub MPDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL3.Value = iPercent
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Try
+ Dim tmpPathPlus As String = String.Empty
+ Dim extrathumbSize As String
+
+ extrathumbSize = AdvancedSettings.GetSetting("ManualETSize", "thumb")
+
+ If DLType = Enums.ImageType.Fanart Then
+ tmpPathPlus = Path.Combine(Master.TempPath, "fanart.jpg")
+ Else
+ tmpPathPlus = Path.Combine(Master.TempPath, "poster.jpg")
+ End If
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(tMovie)
+ End If
+ End If
+ Else
+ Me.pnlBG.Visible = False
+ Me.pnlSinglePic.Visible = True
+ Me.Refresh()
+ Application.DoEvents()
+ Select Case True
+ Case Me.rbXLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(original)_(url=", Me.rbXLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "original" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbXLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbLarge.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(mid)_(url=", Me.rbLarge.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "w1280" And DLType = Enums.ImageType.Fanart Or Not DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbLarge.Tag.ToString)
+ End If
+ End If
+ Case Me.rbMedium.Checked
+ If extrathumbSize = "poster" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbMedium.Tag.ToString)
+ End If
+ Case Me.rbSmall.Checked
+ If Master.eSettings.UseImgCache Then
+ Me.tmpImage.WebImage.FromFile(Path.Combine(CachePath, String.Concat("poster_(thumb)_(url=", Me.rbSmall.Tag, ").jpg")))
+ Else
+ If extrathumbSize = "thumb" And DLType = Enums.ImageType.Fanart Then
+ Me.tmpImage.WebImage = CType(Me.pbImage(selIndex).Tag, MediaContainers.Image).WebImage
+ Else
+ Me.tmpImage.WebImage.FromWeb(Me.rbSmall.Tag.ToString)
+ End If
+ End If
+ End Select
+
+ If Not IsNothing(Me.tmpImage.WebImage.Image) Then
+ If isEdit Then
+ 'Me.tmpImage.Save(tmpPathPlus, 100, selURL)
+ Me.tmpImage.WebImage.Save(tmpPathPlus, , , False)
+ Results.ImagePath = tmpPathPlus
+ Else
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsFanart(Me.tMovie)
+ Else
+ Results.ImagePath = Me.tmpImage.WebImage.SaveAsPoster(Me.tMovie)
+ End If
+ End If
+ End If
+ Me.pnlSinglePic.Visible = False
+ End If
+
+ If Me.DLType = Enums.ImageType.Fanart Then
+ Dim iMod As Integer = 0
+ Dim iVal As Integer = 1
+ Dim extraPath As String = String.Empty
+ Dim isChecked As Boolean = False
+
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ isChecked = True
+ Exit For
+ End If
+ Next
+
+ If isChecked Then
+ Dim extrathumbsFolderName As String = AdvancedSettings.GetSetting("ExtraThumbsFolderName", "extrathumbs")
+ If isEdit Then
+ extraPath = Path.Combine(Master.TempPath, extrathumbsFolderName)
+ Else
+ If Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isVideoTS(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName, extrathumbsFolderName)
+ ElseIf Master.eSettings.VideoTSParent AndAlso FileUtils.Common.isBDRip(Me.tMovie.Filename) Then
+ extraPath = Path.Combine(Directory.GetParent(Directory.GetParent(Directory.GetParent(Me.tMovie.Filename).FullName).FullName).FullName, extrathumbsFolderName)
+ Else
+ extraPath = Path.Combine(Directory.GetParent(Me.tMovie.Filename).FullName, extrathumbsFolderName)
+ End If
+ iMod = Functions.GetExtraModifier(extraPath)
+ iVal = iMod + 1
+ End If
+
+ If Not Directory.Exists(extraPath) Then
+ Directory.CreateDirectory(extraPath)
+ End If
+
+ Dim fsET As FileStream
+ For i As Integer = 0 To UBound(Me.chkImage)
+ If Me.chkImage(i).Checked Then
+ fsET = New FileStream(Path.Combine(extraPath, String.Concat("thumb", iVal, ".jpg")), FileMode.Create, FileAccess.ReadWrite)
+ Me.pbImage(i).Image.Save(fsET, System.Drawing.Imaging.ImageFormat.Jpeg)
+ fsET.Close()
+ iVal += 1
+ End If
+ Next
+ fsET = Nothing
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
+ Try
+ 'If Me.DLType = Enums.ImageType.Fanart OrElse Not IsTMDBURL(DirectCast(sender, PictureBox).Tag.ToString) Then
+ 'ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(DirectCast(sender, PictureBox).Image)
+ 'Else
+ PreviewImage()
+ 'End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, Panel).Name), DirectCast(DirectCast(sender, Panel).Tag, MediaContainers.Image))
+ End Sub
+
+ Private Sub ProcessPics(ByVal posters As List(Of MediaContainers.Image))
+ Try
+ Dim iIndex As Integer = 0
+
+ 'remove all entries with invalid images
+ If Master.eSettings.UseImgCache Then
+ For i As Integer = posters.Count - 1 To 0 Step -1
+ If IsNothing(posters.Item(i).WebImage.Image) Then
+ posters.RemoveAt(i)
+ End If
+ Next
+ End If
+
+ If posters.Count > 0 Then
+ For Each xPoster As MediaContainers.Image In posters.OrderBy(Function(p) RemoveServerURL(p.URL))
+ If Not IsNothing(xPoster.WebImage.Image) AndAlso (Me.DLType = Enums.ImageType.Fanart OrElse Not (IsTMDBURL(xPoster.URL) AndAlso Not xPoster.Description = "cover")) Then
+ Me.AddImage(xPoster.WebImage.Image, xPoster.Description, iIndex, xPoster.URL, xPoster.isChecked, xPoster)
+ iIndex += 1
+ End If
+ Next
+ Else
+ If Not Me.PreDL OrElse isShown Then
+ If Me.DLType = Enums.ImageType.Fanart Then
+ MsgBox(Master.eLang.GetString(28, "No Fanart found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(29, "No Fanart Found"))
+ Else
+ MsgBox(Master.eLang.GetString(30, "No Posters found for this movie."), MsgBoxStyle.Information, Master.eLang.GetString(31, "No Posters Found"))
+ End If
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ Else
+ noImages = True
+ End If
+ End If
+
+ Me.Activate()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub rbLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbMedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMedium.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbSmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSmall.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub rbXLarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXLarge.CheckedChanged
+ Me.OK_Button.Enabled = True
+ Me.btnPreview.Enabled = True
+ End Sub
+
+ Private Sub SetUp()
+ Try
+ IMPA.IMDBURL = IMDBURL
+ TMDB.IMDBURL = IMDBURL
+ MPDB.IMDBURL = IMDBURL
+ AddHandler TMDB.PostersDownloaded, AddressOf TMDBPostersDownloaded
+ AddHandler TMDB.ProgressUpdated, AddressOf TMDBProgressUpdated
+ AddHandler IMPA.PostersDownloaded, AddressOf IMPAPostersDownloaded
+ AddHandler IMPA.ProgressUpdated, AddressOf IMPAProgressUpdated
+ AddHandler MPDB.PostersDownloaded, AddressOf MPDBPostersDownloaded
+ AddHandler MPDB.ProgressUpdated, AddressOf MPDBProgressUpdated
+ AddHandler IMPADone, AddressOf IMPADoneDownloading
+ AddHandler TMDBDone, AddressOf TMDBDoneDownloading
+ AddHandler MPDBDone, AddressOf MPDBDoneDownloading
+
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlBG.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlBG)
+
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me.Text = String.Concat(Master.eLang.GetString(39, "Select Poster"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Else
+ Me.Text = String.Concat(Master.eLang.GetString(40, "Select Fanart"), " - ", If(Not String.IsNullOrEmpty(Me.tMovie.Movie.Title), Me.tMovie.Movie.Title, Me.tMovie.ListTitle))
+ Me.pnlDLStatus.Height = 75
+ Me.pnlDLStatus.Top = 207
+
+ If Master.eSettings.AutoET Then
+ ETHashes = HashFile.CurrentETHashes(tMovie.Filename)
+ End If
+ End If
+
+ CachePath = String.Concat(Master.TempPath, Path.DirectorySeparatorChar, tMovie.Movie.IMDBID, Path.DirectorySeparatorChar, If(Me.DLType = Enums.ImageType.Posters, "posters", "fanart"))
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.btnPreview.Text = Master.eLang.GetString(180, "Preview", True)
+ Me.chkThumb.Text = Master.eLang.GetString(41, "Check All Thumb")
+ Me.chkMid.Text = Master.eLang.GetString(42, "Check All Mid")
+ Me.chkOriginal.Text = Master.eLang.GetString(43, "Check All Original")
+ Me.lblInfo.Text = Master.eLang.GetString(44, "Selected item will be set as fanart. All checked items will be saved to \extrathumbs.")
+ Me.lblDL3.Text = Master.eLang.GetString(45, "Performing Preliminary Tasks...")
+ Me.lblDL2.Text = Me.lblDL3.Text
+ Me.lblDL1.Text = Me.lblDL3.Text
+ Me.Label2.Text = Master.eLang.GetString(46, "Downloading Selected Image...")
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(0, sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Function RemoveServerURL(ByVal sURL As String) As String
+ If sURL.StartsWith("http://") Then
+ Dim s As Integer = sURL.IndexOf("/", 7)
+ If s >= 0 Then Return sURL.Substring(sURL.IndexOf("/", 7))
+ End If
+ Return sURL
+ End Function
+
+ Private Sub SetupSizes(ByVal ParentID As String)
+ Try
+ rbXLarge.Checked = False
+ rbXLarge.Enabled = False
+ rbXLarge.Text = Master.eLang.GetString(47, "Original")
+ rbLarge.Checked = False
+ rbLarge.Enabled = False
+ rbMedium.Checked = False
+ rbSmall.Checked = False
+ rbSmall.Enabled = False
+ If Me.DLType = Enums.ImageType.Fanart Then
+ rbLarge.Text = "w1280"
+ rbMedium.Text = "poster"
+ rbSmall.Text = "thumb"
+ Else
+ rbLarge.Text = Master.eLang.GetString(48, "Cover")
+ rbMedium.Text = Master.eLang.GetString(49, "Medium")
+ rbSmall.Text = Master.eLang.GetString(50, "Small")
+ End If
+
+ For Each TMDBPoster As MediaContainers.Image In TMDBPosters.Where(Function(f) f.ParentID = ParentID)
+ Select Case TMDBPoster.Description
+ Case "original"
+ ' xlarge
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbXLarge.Enabled = True
+ rbXLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbXLarge.Text = String.Format(Master.eLang.GetString(51, "Original ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "cover"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "w1280"
+ ' large
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbLarge.Enabled = True
+ rbLarge.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbLarge.Text = String.Format(Master.eLang.GetString(52, "Cover ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbLarge.Text = String.Format("w1280 ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "thumb"
+ ' small
+ If Not Master.eSettings.UseImgCache OrElse Not IsNothing(TMDBPoster.WebImage.Image) Then
+ rbSmall.Enabled = True
+ rbSmall.Tag = TMDBPoster.URL
+ 'If Master.eSettings.UseImgCache Then Me.rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbSmall.Text = String.Format(Master.eLang.GetString(53, "Small ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ End If
+ Case "mid"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ Case "poster"
+ 'If Master.eSettings.UseImgCache Then Me.rbMedium.Text = String.Format(Master.eLang.GetString(54, "Medium ({0}x{1})"), Me.TMDBPosters.Item(i).WebImage.Image.Width, Me.TMDBPosters.Item(i).WebImage.Image.Height)
+ rbMedium.Text = String.Format("Poster ({0}x{1})", TMDBPoster.Width, TMDBPoster.Height)
+ rbMedium.Tag = TMDBPoster.URL
+ End Select
+ Next
+
+ Select Case Master.eSettings.PreferredPosterSize
+ Case Enums.PosterSize.Small
+ rbSmall.Checked = rbSmall.Enabled
+ Case Enums.PosterSize.Mid
+ rbMedium.Checked = rbMedium.Enabled
+ Case Enums.PosterSize.Lrg
+ rbLarge.Checked = rbLarge.Enabled
+ Case Enums.PosterSize.Xlrg
+ rbXLarge.Checked = rbXLarge.Enabled
+ End Select
+
+ pnlSize.Visible = True
+
+ Invalidate()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub StartDownload()
+ Try
+ Select Case Me.DLType
+ Case Enums.ImageType.Posters
+ Me.GetPosters()
+ Case Enums.ImageType.Fanart
+ Me.GetFanart()
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBDoneDownloading()
+ Try
+ If Me.DLType = Enums.ImageType.Posters Then
+ Me._tmdbDone = True
+ Me.AllDoneDownloading()
+ Else
+ Me.pnlDLStatus.Visible = False
+ Me.ProcessPics(Me.TMDBPosters)
+ Me.pnlBG.Visible = True
+ 'Me.pnlFanart.Visible = True
+ 'Me.lblInfo.Visible = True
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBPostersDownloaded(ByVal Posters As List(Of MediaContainers.Image))
+ Try
+ Me.pbDL1.Value = 0
+
+ Me.lblDL1.Text = Master.eLang.GetString(38, "Preparing images...")
+ Me.lblDL1Status.Text = String.Empty
+
+ TMDBPosters = Posters
+ Me.pbDL1.Maximum = 100
+
+ Me.bwTMDBDownload.WorkerSupportsCancellation = True
+ Me.bwTMDBDownload.WorkerReportsProgress = True
+ Me.bwTMDBDownload.RunWorkerAsync()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub TMDBProgressUpdated(ByVal iPercent As Integer)
+ Me.pbDL1.Value = iPercent
+ End Sub
+
+#End Region 'Methods
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.Designer.vb b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.Designer.vb
new file mode 100644
index 0000000..2871b29
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.Designer.vb
@@ -0,0 +1,292 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailer
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTrailer))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lbTrailers = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnGetTrailers = New System.Windows.Forms.Button()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.btnBrowse = New System.Windows.Forms.Button()
+ Me.txtManual = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.txtYouTube = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnPlayTrailer = New System.Windows.Forms.Button()
+ Me.btnSetNfo = New System.Windows.Forms.Button()
+ Me.ofdTrailer = New System.Windows.Forms.OpenFileDialog()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.btnPlayBrowser = New System.Windows.Forms.Button()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(350, 340)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(120, 23)
+ Me.OK_Button.TabIndex = 6
+ Me.OK_Button.Text = "Download"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(350, 369)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(120, 23)
+ Me.Cancel_Button.TabIndex = 7
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lbTrailers
+ '
+ Me.lbTrailers.Enabled = False
+ Me.lbTrailers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lbTrailers.FormattingEnabled = True
+ Me.lbTrailers.HorizontalScrollbar = True
+ Me.lbTrailers.Location = New System.Drawing.Point(6, 19)
+ Me.lbTrailers.Name = "lbTrailers"
+ Me.lbTrailers.Size = New System.Drawing.Size(445, 173)
+ Me.lbTrailers.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.pnlStatus)
+ Me.GroupBox1.Controls.Add(Me.btnGetTrailers)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Controls.Add(Me.lbTrailers)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(9, 9)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(458, 319)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Select Trailer to Scrape"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(122, 60)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ Me.pnlStatus.Visible = False
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(121, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Compiling trailer list..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 32)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnGetTrailers
+ '
+ Me.btnGetTrailers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnGetTrailers.Image = CType(resources.GetObject("btnGetTrailers.Image"), System.Drawing.Image)
+ Me.btnGetTrailers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnGetTrailers.Location = New System.Drawing.Point(130, 82)
+ Me.btnGetTrailers.Name = "btnGetTrailers"
+ Me.btnGetTrailers.Size = New System.Drawing.Size(184, 23)
+ Me.btnGetTrailers.TabIndex = 2
+ Me.btnGetTrailers.Text = "Download Trailer List"
+ Me.btnGetTrailers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnGetTrailers.UseVisualStyleBackColor = True
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.btnBrowse)
+ Me.GroupBox2.Controls.Add(Me.txtManual)
+ Me.GroupBox2.Controls.Add(Me.Label2)
+ Me.GroupBox2.Controls.Add(Me.txtYouTube)
+ Me.GroupBox2.Controls.Add(Me.Label1)
+ Me.GroupBox2.Location = New System.Drawing.Point(6, 201)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(445, 111)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Manual Trailer Entry"
+ '
+ 'btnBrowse
+ '
+ Me.btnBrowse.Location = New System.Drawing.Point(410, 82)
+ Me.btnBrowse.Name = "btnBrowse"
+ Me.btnBrowse.Size = New System.Drawing.Size(25, 23)
+ Me.btnBrowse.TabIndex = 4
+ Me.btnBrowse.Text = "..."
+ Me.btnBrowse.UseVisualStyleBackColor = True
+ '
+ 'txtManual
+ '
+ Me.txtManual.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtManual.Location = New System.Drawing.Point(9, 82)
+ Me.txtManual.Name = "txtManual"
+ Me.txtManual.Size = New System.Drawing.Size(395, 22)
+ Me.txtManual.TabIndex = 3
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(6, 68)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(71, 13)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Local Trailer:"
+ '
+ 'txtYouTube
+ '
+ Me.txtYouTube.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtYouTube.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtYouTube.Location = New System.Drawing.Point(9, 28)
+ Me.txtYouTube.Name = "txtYouTube"
+ Me.txtYouTube.Size = New System.Drawing.Size(426, 22)
+ Me.txtYouTube.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(6, 14)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(151, 13)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Direct Link or YouTube URL:"
+ '
+ 'btnPlayTrailer
+ '
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayTrailer.Image = CType(resources.GetObject("btnPlayTrailer.Image"), System.Drawing.Image)
+ Me.btnPlayTrailer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnPlayTrailer.Location = New System.Drawing.Point(12, 369)
+ Me.btnPlayTrailer.Name = "btnPlayTrailer"
+ Me.btnPlayTrailer.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayTrailer.TabIndex = 3
+ Me.btnPlayTrailer.Text = "Preview Trailer"
+ Me.btnPlayTrailer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnPlayTrailer.UseVisualStyleBackColor = True
+ '
+ 'btnSetNfo
+ '
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Location = New System.Drawing.Point(224, 340)
+ Me.btnSetNfo.Name = "btnSetNfo"
+ Me.btnSetNfo.Size = New System.Drawing.Size(120, 23)
+ Me.btnSetNfo.TabIndex = 5
+ Me.btnSetNfo.Text = "Set To Nfo"
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(478, 331)
+ Me.Panel1.TabIndex = 2
+ '
+ 'btnPlayBrowser
+ '
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnPlayBrowser.Location = New System.Drawing.Point(12, 340)
+ Me.btnPlayBrowser.Name = "btnPlayBrowser"
+ Me.btnPlayBrowser.Size = New System.Drawing.Size(120, 23)
+ Me.btnPlayBrowser.TabIndex = 4
+ Me.btnPlayBrowser.Text = "Open In Browser"
+ Me.btnPlayBrowser.UseVisualStyleBackColor = True
+ '
+ 'dlgTrailer
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(484, 398)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.btnSetNfo)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.btnPlayTrailer)
+ Me.Controls.Add(Me.btnPlayBrowser)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailer"
+ Me.ShowIcon = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Trailer"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lbTrailers As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnPlayTrailer As System.Windows.Forms.Button
+ Friend WithEvents btnSetNfo As System.Windows.Forms.Button
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents txtYouTube As System.Windows.Forms.TextBox
+ Friend WithEvents btnBrowse As System.Windows.Forms.Button
+ Friend WithEvents txtManual As System.Windows.Forms.TextBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents ofdTrailer As System.Windows.Forms.OpenFileDialog
+ Friend WithEvents btnGetTrailers As System.Windows.Forms.Button
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents btnPlayBrowser As System.Windows.Forms.Button
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.resx b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.resx
new file mode 100644
index 0000000..f08e020
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.resx
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnGetTrailers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAK
+ 6QAACukB/XXO0wAAABh0RVh0U29mdHdhcmUAQWRvYmUgRmlyZXdvcmtzT7MfTgAAAfdJREFUOE+lkk1r
+ E1EUhi9apQsr7vwDigUXLtzpyrWlpdD8BSEbN1p1IRJQqNXoarCNH03aKlgQjU1ahCr2a6HSRRszGSe0
+ 4nQ+M9/JjIhYeb25JGVGmo0OPMw5h/M+9zIMAfBfxBpd07osyzxv21aCMuTY9pDnugmhUjkX3YsSa8xa
+ 7ToVgIZBw4wgaGBlZRn376WHo7ttYg0NjzfDTODYcB0H38MQS0uLuDM6isz42NXofpNYQwXc7uktge95
+ 0FQVxcIs5opFfPr44UI0s6cgeoO2JAwD1Ot+c56NZmIC+g2YwLJN+E6A0NtB6O/AdwMmbTEWzcQEhq5z
+ plmjgRBflDeYF5IMQZ5nMya3zM4CVVU4XdfQcH/hffUmbi0TxjvxBr3NbzTlhqF3FsjyNqcoMjzzB94K
+ aaQWjzAWhNuo2z9B/xOoitJZ8HVri5MkCbZWx1zpLoYXjjIKpRE4RgOKLGNbkjoL+HL5gbSpYGL1GpL5
+ Y7hYOMlI5o/j0eolqN8MVEUxE83EBBvr6yP8Zx4b5TVceTWIRK6XcfllP0qVNYiCiArPp6OZ3WI/IYf6
+ +/pO5bITmfzM6+e5Z9mps6ne6pnUic0nTx9Pz74ozkxPTT4cHBg4vY+Qw3sJDhBCutmQPq13DyFdPX/N
+ uunuwWbN+nbxb4D8AU3a+lQSEAyqAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnPlayTrailer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
+ DAAACwwBP0AiyAAAAAd0SU1FB9kEGhIhAdf7pBcAAAJDSURBVDhPtVJLa5pBFPWxsGoQNI2oAY1ogigI
+ GitIULQufKxcBGmzLLpwo9B/UOgmv6GKuxDdCCKIGyOBLIpE8IWIaBauFEQSwcfCuZ07PkIogW564HDn
+ m7nnzHxzhvNfsFwuE5PJ5HelUnm5u7ubDYfD5ng8/kGXDjYd7+Dp6elTv9+fJxIJcDgcJBAIQDAYhIuL
+ CxKLxaDdbkOhUPiybX8LFJdKJdBoNOT8/BxcLheYzWaw2WyA30i9Xk+y2SxkMplvW9kr6M4LWohEIoHj
+ 42MIh8OQy+VAJpOBSqVic1KpFLCnVquBQqFQMyFisVh8x+PS4Z4ejwcQ6XSafXO53P2a1WqFer1+Q8cb
+ zOfzKi2Ect+Ev7BDKpXaz+/YarVeaN2gWq3OaAEejwd8Pp/R7XYz8Xq9ZjWZTDLh7iTlchnrR8pXA6FQ
+ CCKRCMRiMfh8PiYkhDCT5+dnODo6AoFAwAxoxFhVqOdMp9MWdSZ4SYeHhyCXyyEUCjEDFNN1TIddKF4y
+ GjSbzRWtH5jBaDT6eXl5CUqlEtRqNWi1Wri6umIGuDPGeXJywpJAc6fTCff392Um3uKAxogGxGAwMEEk
+ EoHVasXSsFgsYDKZ8B3gCUmj0QCdTufeajfI5/NfHx4ewGg0EvoKmQGeyuv1sh3tdjucnp6SYrEI19fX
+ v7ayt7i9vY3SFwnxeJzF6Pf72WWiQTQahW63+754B/qf6sfHx5vBYDDrdDqA7PV6Kxpb5ezs7PO27Z/A
+ pZRTYlRCnPgbHM4fFEdnm0hssg4AAAAASUVORK5CYII=
+</value>
+ </data>
+ <metadata name="ofdTrailer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>40</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.vb b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.vb
new file mode 100644
index 0000000..67c25ca
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailer.vb
@@ -0,0 +1,480 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTrailer
+
+#Region "Fields"
+
+ Public IMDBURL As String
+
+ Friend WithEvents bwCompileList As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwDownloadTrailer As New System.ComponentModel.BackgroundWorker
+
+ Private cTrailer As New Trailers
+ Private imdbID As String = String.Empty
+ Private prePath As String = String.Empty
+ Private sPath As String = String.Empty
+ Private tArray As New List(Of String)
+ Private tURL As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _imdbID As String, ByVal _sPath As String) As String
+ Me.imdbID = _imdbID
+ Me.sPath = _sPath
+
+ If MyBase.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ Return Replace(Me.tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ Return Me.tURL
+ End If
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Protected Overrides Sub Finalize()
+ cTrailer = Nothing
+ MyBase.Finalize()
+ End Sub
+
+ Private Sub BeginDownload(ByVal CloseDialog As Boolean)
+ Dim didCancel As Boolean = False
+
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(56, "Downloading selected trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ If CloseDialog Then
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, Path.GetFileName(Me.prePath))
+ FileUtils.Common.MoveFileWithStream(Me.prePath, Me.tURL)
+
+ File.Delete(Me.prePath)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.prePath, """"))
+ didCancel = True
+ End If
+ ElseIf Me.txtManual.Text.Length > 0 Then
+ Me.lblStatus.Text = Master.eLang.GetString(57, "Copying specified file to trailer...")
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ If CloseDialog Then
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+
+ FileUtils.Common.MoveFileWithStream(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ System.Diagnostics.Process.Start(String.Concat("""", Me.txtManual.Text, """"))
+ didCancel = True
+ End If
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ didCancel = True
+ End If
+ ElseIf Regex.IsMatch(Me.txtYouTube.Text, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.txtYouTube.Text)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ ElseIf StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = Me.txtYouTube.Text, .bType = CloseDialog})
+ Else
+ If Regex.IsMatch(Me.lbTrailers.SelectedItem.ToString, "http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*") Then
+ Using dFormats As New dlgTrailerFormat
+ Dim sFormat As String = dFormats.ShowDialog(Me.lbTrailers.SelectedItem.ToString)
+
+ If Not String.IsNullOrEmpty(sFormat) Then
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.Parameter = sFormat, .bType = CloseDialog})
+ Else
+ didCancel = True
+ End If
+ End Using
+ Else
+ Me.bwDownloadTrailer = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadTrailer.WorkerReportsProgress = True
+ Me.bwDownloadTrailer.WorkerSupportsCancellation = True
+ Me.bwDownloadTrailer.RunWorkerAsync(New Arguments With {.parameter = lbTrailers.SelectedItem.ToString, .bType = CloseDialog})
+ End If
+ End If
+
+ If didCancel Then
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ End Sub
+
+ Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
+ Try
+ With ofdTrailer
+ .InitialDirectory = Directory.GetParent(Master.currMovie.Filename).FullName
+ .Filter = String.Concat("Supported Trailer Formats|*", Functions.ListToStringWithSeparator(Master.eSettings.ValidExts.ToArray(), ";*"))
+ .FilterIndex = 0
+ End With
+
+ If ofdTrailer.ShowDialog() = DialogResult.OK Then
+ txtManual.Text = ofdTrailer.FileName
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub btnGetTrailers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetTrailers.Click
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.pnlStatus.Visible = True
+
+ Me.bwCompileList = New System.ComponentModel.BackgroundWorker
+ Me.bwCompileList.WorkerSupportsCancellation = True
+ Me.bwCompileList.RunWorkerAsync()
+ End Sub
+
+ Private Sub btnPlayTrailer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayTrailer.Click
+ Try
+ Me.BeginDownload(False)
+ Catch
+ MsgBox(Master.eLang.GetString(58, "The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type."), MsgBoxStyle.Critical, Master.eLang.GetString(59, "Error Playing Trailer"))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Try
+ End Sub
+
+ Private Sub btnPlayBrowser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayBrowser.Click
+ If Not String.IsNullOrEmpty(Me.txtYouTube.Text) Then
+ If Master.isWindows Then
+ Process.Start(Me.txtYouTube.Text)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.txtYouTube.Text
+ Explorer.Start()
+ End Using
+ End If
+ Else
+ If Master.isWindows Then
+ Process.Start(Me.lbTrailers.SelectedItem.ToString)
+ Else
+ Using Explorer As New Process
+ Explorer.StartInfo.FileName = "xdg-open"
+ Explorer.StartInfo.Arguments = Me.lbTrailers.SelectedItem.ToString
+ Explorer.Start()
+ End Using
+ End If
+ End If
+ End Sub
+
+ Private Sub btnSetNfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetNfo.Click
+
+ If Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move") Then
+ If Master.eSettings.ValidExts.Contains(Path.GetExtension(Me.txtManual.Text)) AndAlso File.Exists(Me.txtManual.Text) Then
+ Me.OK_Button.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.lbTrailers.Enabled = False
+ Me.txtYouTube.Enabled = False
+ Me.txtManual.Enabled = False
+ Me.btnBrowse.Enabled = False
+ Me.lblStatus.Text = Master.eLang.GetString(62, "Moving specified file to trailer...")
+ Me.pbStatus.Style = ProgressBarStyle.Continuous
+ Me.pbStatus.Value = 0
+ Me.pnlStatus.Visible = True
+ Application.DoEvents()
+
+ If Master.eSettings.VideoTSParentXBMC AndAlso FileUtils.Common.isBDRip(Me.sPath) Then
+ Me.tURL = String.Concat(Directory.GetParent(Directory.GetParent(Me.sPath).FullName).FullName, "\", "index", If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text))
+ ElseIf Master.eSettings.MovieNameNFOStack Then
+ Dim sPathStack As String = StringUtils.CleanStackingMarkers(Path.GetFileNameWithoutExtension(Me.sPath))
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(sPathStack), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ Else
+ Me.tURL = Path.Combine(Directory.GetParent(Me.sPath).FullName, String.Concat(Path.GetFileNameWithoutExtension(Me.sPath), If(Master.eSettings.DashTrailer, "-trailer", "[trailer]"), Path.GetExtension(Me.txtManual.Text)))
+ End If
+ File.Move(Me.txtManual.Text, Me.tURL)
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ MsgBox(Master.eLang.GetString(192, "File is not valid.", True), MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, Master.eLang.GetString(194, "Not Valid", True))
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End If
+ Else
+ Dim didCancel As Boolean = False
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) Then
+ tURL = Me.txtYouTube.Text
+ ElseIf Me.lbTrailers.SelectedItems.Count > 0 Then
+ tURL = lbTrailers.SelectedItem.ToString
+ Else
+ didCancel = True
+ End If
+
+ If Not didCancel Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+
+ End Sub
+
+ Private Sub bwCompileList_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwCompileList.DoWork
+ Try
+ tArray = cTrailer.GetTrailers(Me.imdbID, False)
+
+ If Me.bwCompileList.CancellationPending Then
+ e.Cancel = True
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub bwCompileList_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwCompileList.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Me.tArray.Count > 0 Then
+ For Each tTrail As String In Me.tArray
+ Me.lbTrailers.Items.Add(tTrail)
+ Next
+
+ Me.btnGetTrailers.Visible = False
+ Else
+ Me.btnGetTrailers.Enabled = False
+ End If
+
+ End If
+
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ End Sub
+
+ Private Sub bwDownloadTrailer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadTrailer.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+
+ If Args.bType Then
+ Me.tURL = cTrailer.DownloadTrailer(Me.sPath, Args.Parameter)
+ Else
+ Me.prePath = cTrailer.DownloadTrailer(Path.Combine(Master.TempPath, Path.GetFileName(Me.sPath)), Args.Parameter)
+ End If
+
+ Catch
+ End Try
+
+ e.Result = Args.bType
+
+ If Me.bwDownloadTrailer.CancellationPending Then
+ e.Cancel = True
+ End If
+ End Sub
+
+ Private Sub bwDownloadTrailer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwDownloadTrailer.ProgressChanged
+ pbStatus.Value = e.ProgressPercentage
+ End Sub
+
+ Private Sub bwDownloadTrailer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadTrailer.RunWorkerCompleted
+ If Not e.Cancelled Then
+ If Convert.ToBoolean(e.Result) Then
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ Me.pnlStatus.Visible = False
+ Me.lbTrailers.Enabled = True
+ Me.txtYouTube.Enabled = True
+ Me.txtManual.Enabled = True
+ Me.btnBrowse.Enabled = True
+ Me.SetEnabled(False)
+ If Not String.IsNullOrEmpty(Me.prePath) Then System.Diagnostics.Process.Start(String.Concat("""", prePath, """"))
+ End If
+ End If
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.cTrailer.Cancel()
+
+ If Me.bwCompileList.IsBusy Then Me.bwCompileList.CancelAsync()
+ If Me.bwDownloadTrailer.IsBusy Then Me.bwDownloadTrailer.CancelAsync()
+
+ While Me.bwCompileList.IsBusy OrElse Me.bwDownloadTrailer.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+ cTrailer.IMDBURL = IMDBURL
+ AddHandler cTrailer.ProgressUpdated, AddressOf DownloadProgressUpdated
+ End Sub
+
+ Private Sub dlgTrailer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.Activate()
+ End Sub
+
+ Private Sub DownloadProgressUpdated(ByVal iProgress As Integer)
+ bwDownloadTrailer.ReportProgress(iProgress)
+ End Sub
+
+ Private Sub lbTrailers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTrailers.SelectedIndexChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.BeginDownload(True)
+ End Sub
+
+ Private Sub SetEnabled(ByVal DeletePre As Boolean)
+ If DeletePre AndAlso Not String.IsNullOrEmpty(Me.prePath) AndAlso File.Exists(Me.prePath) Then
+ File.Delete(Me.prePath)
+ Me.prePath = String.Empty
+ End If
+
+ If StringUtils.isValidURL(Me.txtYouTube.Text) OrElse Me.lbTrailers.SelectedItems.Count > 0 OrElse Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Enabled = True
+ Me.btnSetNfo.Enabled = True
+ Me.btnPlayTrailer.Enabled = True
+ If Me.txtManual.Text.Length > 0 Then
+ Me.btnPlayBrowser.Enabled = False
+ Else
+ Me.btnPlayBrowser.Enabled = True
+ End If
+ If Me.txtManual.Text.Length > 0 Then
+ Me.OK_Button.Text = Master.eLang.GetString(61, "Copy")
+ Me.btnSetNfo.Text = Master.eLang.GetString(60, "Move")
+ Else
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ Else
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.btnPlayTrailer.Enabled = False
+ Me.btnPlayBrowser.Enabled = False
+ Me.btnSetNfo.Enabled = False
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(64, "Select Trailer")
+ Me.OK_Button.Text = Master.eLang.GetString(373, "Download", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.GroupBox1.Text = Master.eLang.GetString(65, "Select Trailer to Download")
+ Me.GroupBox2.Text = Master.eLang.GetString(66, "Manual Trailer Entry")
+ Me.Label1.Text = Master.eLang.GetString(67, "Direct Link or YouTube URL:")
+ Me.lblStatus.Text = Master.eLang.GetString(68, "Compiling trailer list...")
+ Me.btnPlayTrailer.Text = Master.eLang.GetString(69, "Preview Trailer")
+ Me.btnPlayBrowser.Text = Master.eLang.GetString(114, "Open In Browser")
+ Me.btnSetNfo.Text = Master.eLang.GetString(63, "Set To Nfo")
+ Me.Label2.Text = Master.eLang.GetString(70, "Local Trailer:")
+ End Sub
+
+ Private Sub txtManual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtManual.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+ Private Sub txtYouTube_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYouTube.TextChanged
+ Me.SetEnabled(True)
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim bType As Boolean
+ Dim Parameter As String
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.Designer.vb b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.Designer.vb
new file mode 100644
index 0000000..8d135fa
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.Designer.vb
@@ -0,0 +1,155 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTrailerFormat
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lstFormats = New System.Windows.Forms.ListBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GroupBox1.SuspendLayout()
+ Me.pnlStatus.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(72, 187)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(145, 187)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lstFormats
+ '
+ Me.lstFormats.Enabled = False
+ Me.lstFormats.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lstFormats.FormattingEnabled = True
+ Me.lstFormats.Location = New System.Drawing.Point(4, 19)
+ Me.lstFormats.Name = "lstFormats"
+ Me.lstFormats.Size = New System.Drawing.Size(170, 121)
+ Me.lstFormats.TabIndex = 0
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.lstFormats)
+ Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(10, 8)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(180, 151)
+ Me.GroupBox1.TabIndex = 0
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Available Formats"
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(12, 75)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(200, 54)
+ Me.pnlStatus.TabIndex = 1
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(3, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(147, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Getting available formats..."
+ Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(3, 29)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(192, 17)
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.pbStatus.TabIndex = 1
+ '
+ 'Panel1
+ '
+ Me.Panel1.BackColor = System.Drawing.Color.White
+ Me.Panel1.Controls.Add(Me.GroupBox1)
+ Me.Panel1.Location = New System.Drawing.Point(12, 12)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(200, 169)
+ Me.Panel1.TabIndex = 2
+ '
+ 'dlgTrailerFormat
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(224, 217)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.Panel1)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTrailerFormat"
+ Me.ShowIcon = False
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Select Format"
+ Me.GroupBox1.ResumeLayout(False)
+ Me.pnlStatus.ResumeLayout(False)
+ Me.pnlStatus.PerformLayout()
+ Me.Panel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lstFormats As System.Windows.Forms.ListBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.resx b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.vb b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.vb
new file mode 100644
index 0000000..8f0ad6e
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/Scraper/dlgTrailerFormat.vb
@@ -0,0 +1,114 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTrailerFormat
+
+#Region "Fields"
+
+ Private WithEvents YouTube As YouTube.Scraper
+ Private _selectedformaturl As String
+ Private _yturl As String
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal YTURL As String) As String
+ Me._yturl = YTURL
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return _selectedformaturl
+ Else
+ Return String.Empty
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgTrailerFormat_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ Me.SetUp()
+
+ lstFormats.DataSource = Nothing
+
+ YouTube = New YouTube.Scraper
+ YouTube.GetVideoLinksAsync(Me._yturl)
+
+ Catch ex As Exception
+ MsgBox(Master.eLang.GetString(71, "The video format links could not be retrieved."), MsgBoxStyle.Critical, Master.eLang.GetString(72, "Error Retrieving Video Format Links"))
+ End Try
+ End Sub
+
+ Private Sub lstFormats_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFormats.SelectedIndexChanged
+ Try
+ Me._selectedformaturl = DirectCast(lstFormats.SelectedItem, YouTube.VideoLinkItem).URL
+
+ If Me.lstFormats.SelectedItems.Count > 0 Then
+ Me.OK_Button.Enabled = True
+ Else
+ Me.OK_Button.Enabled = False
+ End If
+ Catch
+ End Try
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(73, "Select Format")
+ Me.lblStatus.Text = Master.eLang.GetString(74, "Getting available formats...")
+ Me.GroupBox1.Text = Master.eLang.GetString(75, "Available Formats")
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub YouTube_VideoLinksRetrieved(ByVal bSuccess As Boolean) Handles YouTube.VideoLinksRetrieved
+ Try
+
+ If bSuccess Then
+ lstFormats.DataSource = YouTube.VideoLinks.Values.ToList
+ lstFormats.DisplayMember = "Description"
+ lstFormats.ValueMember = "URL"
+
+ If YouTube.VideoLinks.ContainsKey(Master.eSettings.PreferredTrailerQuality) Then
+ Me.lstFormats.SelectedIndex = YouTube.VideoLinks.IndexOfKey(Master.eSettings.PreferredTrailerQuality)
+ ElseIf Me.lstFormats.Items.Count = 1 Then
+ Me.lstFormats.SelectedIndex = 0
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ Finally
+ Me.pnlStatus.Visible = False
+ Me.lstFormats.Enabled = True
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/clsScrapeTVDB.vb b/Addons/scraper.YouTube.Trailer/TVScraper/clsScrapeTVDB.vb
new file mode 100644
index 0000000..b0f8531
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/clsScrapeTVDB.vb
@@ -0,0 +1,1911 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.Data
+Imports System.IO
+Imports System.Text
+
+Imports ICSharpCode.SharpZipLib.Zip
+Imports EmberAPI
+
+Public Class Scraper
+
+#Region "Fields"
+
+ Public Const APIKey As String = "7B090234F418D074"
+
+ Public Shared WithEvents sObject As New ScraperObject
+ Public Shared tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Public Shared tmpTVDBShow As New TVDBShow
+ Public Shared TVDBImages As New TVImages
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ AddHandler sObject.ScraperEvent, AddressOf InnerEvent
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Sub CancelAsync()
+ sObject.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String) As MediaContainers.EpisodeDetails
+ Return sObject.ChangeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .SelectedLang = Lang, .iSeason = -999})
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String) As List(Of Containers.TVLanguage)
+ Dim tvdbLangs As New List(Of Containers.TVLanguage)
+ Dim cLang As Containers.TVLanguage
+ Dim xmlTVDB As XDocument
+ Dim sHTTP As New HTTP
+
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/languages.xml", sMirror, APIKey))
+ sHTTP = Nothing
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbLangs
+ End Try
+
+ Dim xLangs = From xLanguages In xmlTVDB.Descendants("Language")
+
+ For Each xL As XElement In xLangs
+ cLang = New Containers.TVLanguage
+ cLang.LongLang = xL.Element("name").Value
+ cLang.ShortLang = xL.Element("abbreviation").Value
+ tvdbLangs.Add(cLang)
+ Next
+ End If
+ Return tvdbLangs
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As MediaContainers.EpisodeDetails
+ Return sObject.GetSingleEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .TVDBID = TVDBID, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images) As Images
+ Return sObject.GetSingleImage(New Structures.ScrapeInfo With {.ShowTitle = Title, .ShowID = ShowID, .TVDBID = TVDBID, .ImageType = Type, .iSeason = Season, .iEpisode = Episode, .SelectedLang = Lang, .Ordering = Ordering, .CurrentImage = CurrentImage})
+ End Function
+
+ Public Sub InnerEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Function IsBusy() As Boolean
+ Return sObject.IsBusy
+ End Function
+
+ Public Sub SaveImages()
+ sObject.SaveImages()
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeEpisode(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iEpisode = iEpisode, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions)
+ sObject.ScrapeSeason(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .iSeason = iSeason, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options})
+ End Sub
+
+ Public Sub SingleScrape(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean)
+ sObject.SingleScrape(New Structures.ScrapeInfo With {.ShowID = ShowID, .ShowTitle = ShowTitle, .TVDBID = TVDBID, .SelectedLang = Lang, .Ordering = Ordering, .Options = Options, .ScrapeType = ScrapeType, .WithCurrent = WithCurrent, .iSeason = -999})
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ <Serializable()> _
+ Public Structure TVImages
+
+#Region "Fields"
+
+ Dim AllSeasonPoster As TVDBShowPoster
+ Dim SeasonImageList As List(Of TVDBSeasonImage)
+ Dim ShowFanart As TVDBFanart
+ Dim ShowPoster As TVDBShowPoster
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function Clone() As TVImages
+ Dim newTVI As New TVImages
+ Try
+ Using ms As New IO.MemoryStream()
+ Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
+ bf.Serialize(ms, Me)
+ ms.Position = 0
+ newTVI = DirectCast(bf.Deserialize(ms), TVImages)
+ ms.Close()
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Return newTVI
+ End Function
+
+#End Region 'Methods
+
+ End Structure
+
+ Public Class ScraperObject
+
+#Region "Fields"
+
+ Friend WithEvents bwTVDB As New System.ComponentModel.BackgroundWorker
+
+ Private aXML As String = String.Empty
+ Private bXML As String = String.Empty
+ Private sXML As String = String.Empty
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Public Shared Sub LoadAllEpisodes(ByVal _ID As Integer, ByVal OnlySeason As Integer)
+ Try
+
+ tmpTVDBShow = New TVDBShow
+
+ tmpTVDBShow.Show = Master.DB.LoadTVFullShowFromDB(_ID)
+ tmpTVDBShow.AllSeason = Master.DB.LoadTVAllSeasonFromDB(_ID)
+
+ Using SQLCount As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCount.CommandText = String.Concat("SELECT COUNT(ID) AS eCount FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLRCount As SQLite.SQLiteDataReader = SQLCount.ExecuteReader
+ If Convert.ToInt32(SQLRCount("eCount")) > 0 Then
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ If OnlySeason = 999 Then
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Missing = 0;")
+ Else
+ SQLCommand.CommandText = String.Concat("SELECT ID, Lock FROM TVEps WHERE TVShowID = ", _ID, " AND Season = ", OnlySeason, " AND Missing = 0;")
+ End If
+ Using SQLReader As SQLite.SQLiteDataReader = SQLCommand.ExecuteReader
+ While SQLReader.Read
+ tmpTVDBShow.Episodes.Add(Master.DB.LoadTVEpFromDB(Convert.ToInt64(SQLReader("ID")), True))
+ End While
+ End Using
+ End Using
+ End If
+ End Using
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub CancelAsync()
+ If bwTVDB.IsBusy Then bwTVDB.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Try
+ Dim tEpisodes As List(Of MediaContainers.EpisodeDetails) = Me.GetListOfKnownEpisodes(sInfo)
+ If tEpisodes.Count > 0 Then
+ Using dChangeEp As New dlgTVChangeEp
+ Return dChangeEp.ShowDialog(tEpisodes)
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(79, "There are no known episodes for this show. Scrape the show, season, or episode and try again."), MsgBoxStyle.OkOnly, Master.eLang.GetString(80, "No Known Episodes"))
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Nothing
+ End Function
+
+ Public Sub DownloadSeries(ByVal sInfo As Structures.ScrapeInfo, Optional ByVal ImagesOnly As Boolean = False)
+ Try
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim fExists As Boolean = File.Exists(fPath)
+ Dim doDownload As Boolean = False
+
+ Select Case Master.eSettings.TVUpdateTime
+ Case Enums.TVUpdateTime.Always
+ doDownload = True
+ Case Enums.TVUpdateTime.Never
+ doDownload = False
+ Case Enums.TVUpdateTime.Week
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(7) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.BiWeekly
+ If fExists AndAlso File.GetCreationTime(fPath).AddDays(14) < Now Then doDownload = True
+ Case Enums.TVUpdateTime.Month
+ If fExists AndAlso File.GetCreationTime(fPath).AddMonths(1) < Now Then doDownload = True
+ End Select
+
+ If doDownload OrElse Not fExists Then
+ Dim sHTTP As New HTTP
+ Dim xZip As Byte() = sHTTP.DownloadZip(String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, APIKey, sInfo.TVDBID, sInfo.SelectedLang))
+ sHTTP = Nothing
+
+ If Not IsNothing(xZip) AndAlso xZip.Length > 0 Then
+ 'save it to the temp dir
+ Directory.CreateDirectory(Directory.GetParent(fPath).FullName)
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Create, FileAccess.Write)
+ fStream.Write(xZip, 0, xZip.Length)
+ End Using
+
+ Me.ProcessTVDBZip(xZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End If
+ Else
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+
+ Me.ProcessTVDBZip(fZip, sInfo)
+ Me.ShowFromXML(sInfo, ImagesOnly)
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub DownloadSeriesAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.StartingDownload, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 1, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetListOfKnownEpisodes(ByVal sInfo As Structures.ScrapeInfo) As List(Of MediaContainers.EpisodeDetails)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim tEpisodes As New List(Of MediaContainers.EpisodeDetails)
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+ Dim fPath As String = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, sInfo.SelectedLang, ".zip"))
+ Dim tSeas As Integer = -1
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ Try
+ If File.Exists(fPath) Then
+ Using fStream As FileStream = New FileStream(fPath, FileMode.Open, FileAccess.Read)
+ Dim fZip As Byte() = Functions.ReadStreamToEnd(fStream)
+ Me.ProcessTVDBZip(fZip, sInfo)
+
+ 'get the actors first
+ Try
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = If(IsNothing(Actor.Element("Role")), String.Empty, Actor.Element("Role").Value), .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdEps As XDocument = XDocument.Parse(sXML)
+
+ For Each Episode As XElement In xdEps.Descendants("Episode")
+ If Not IsNothing(Episode.Element("EpisodeName").Value) AndAlso Not String.IsNullOrEmpty(Episode.Element("EpisodeName").Value) Then
+ tEpisode = New MediaContainers.EpisodeDetails
+
+ tOrdering = Enums.Ordering.Standard
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ If Not IsNothing(Episode.Element("SeasonNumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("SeasonNumber").Value)
+ If sInfo.iSeason >= 0 AndAlso Not tSeas = sInfo.iSeason Then Continue For
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf Not IsNothing(Episode.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_season").Value.ToString) AndAlso _
+ Not IsNothing(Episode.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(Episode.Element("DVD_episodenumber").Value.ToString) Then
+ tSeas = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("DVD_season").Value) = tSeas AndAlso (IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If Not IsNothing(Episode.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(Episode.Element("absolute_number").Value.ToString) Then
+ If xdEps.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+ Else
+ If sInfo.iSeason >= 0 AndAlso Not Convert.ToInt32(Episode.Element("SeasonNumber").Value) = sInfo.iSeason Then Continue For
+ End If
+
+ With tEpisode
+ .Title = Episode.Element("EpisodeName").Value
+ If tOrdering = Enums.Ordering.DVD Then
+ .Season = Convert.ToInt32(Episode.Element("DVD_season").Value)
+ .Episode = Convert.ToInt32(CLng(Episode.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ .Season = 1
+ .Episode = Convert.ToInt32(Episode.Element("absolute_number").Value)
+ Else
+ .Season = If(IsNothing(Episode.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(Episode.Element("SeasonNumber").Value), 0, Convert.ToInt32(Episode.Element("SeasonNumber").Value))
+ .Episode = If(IsNothing(Episode.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(Episode.Element("EpisodeNumber").Value), 0, Convert.ToInt32(Episode.Element("EpisodeNumber").Value))
+ End If
+ .Aired = If(IsNothing(Episode.Element("FirstAired")), String.Empty, Episode.Element("FirstAired").Value)
+ .Rating = If(IsNothing(Episode.Element("Rating")), String.Empty, Episode.Element("Rating").Value)
+ .Plot = If(IsNothing(Episode.Element("Overview")), String.Empty, Episode.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ .Director = If(IsNothing(Episode.Element("Director")), String.Empty, Strings.Join(Episode.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ .Credits = CreditsString(If(IsNothing(Episode.Element("GuestStars")), String.Empty, Episode.Element("GuestStars").Value), If(IsNothing(Episode.Element("Writer")), String.Empty, Episode.Element("Writer").Value))
+ .Actors = Actors
+ .PosterURL = If(IsNothing(Episode.Element("filename")), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Episode.Element("filename").Value))
+ .LocalFile = If(IsNothing(Episode.Element("filename")), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sInfo.TVDBID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, Episode.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+
+ tEpisodes.Add(tEpisode)
+ End If
+ Next
+
+ End If
+ End Using
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tEpisodes
+ End Function
+
+ Public Sub GetSearchResultsAsync(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If Not bwTVDB.IsBusy Then
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 0, .Parameter = sInfo})
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Function GetSingleEpisode(ByVal sInfo As Structures.ScrapeInfo) As MediaContainers.EpisodeDetails
+ Dim tEp As New MediaContainers.EpisodeDetails
+ Try
+
+ tEp = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Season = sInfo.iSeason AndAlso e.Episode = sInfo.iEpisode)
+
+ If Not IsNothing(tEp) Then
+ Return tEp
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return New MediaContainers.EpisodeDetails
+ End Function
+
+ Public Function GetSingleImage(ByVal sInfo As Structures.ScrapeInfo) As Images
+ tmpTVDBShow = New TVDBShow
+
+ If sInfo.ImageType = Enums.TVImageType.EpisodePoster Then
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Using tImage As New Images
+ Dim tmpEp As MediaContainers.EpisodeDetails = Me.GetListOfKnownEpisodes(sInfo).FirstOrDefault(Function(e) e.Episode = sInfo.iEpisode AndAlso e.Season = sInfo.iSeason)
+ If Not IsNothing(tmpEp) Then
+
+ If File.Exists(tmpEp.LocalFile) Then
+ tImage.FromFile(tmpEp.LocalFile)
+ Else
+ tImage.FromWeb(tmpEp.PosterURL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tmpEp.LocalFile).FullName)
+ tImage.Save(tmpEp.LocalFile, , , False)
+ End If
+ End If
+
+ If Not IsNothing(tImage.Image) Then
+ Using dPosterConfirm As New dlgTVEpisodePoster
+ If dPosterConfirm.ShowDialog(tImage.Image) = DialogResult.OK Then
+ Return tImage
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ MsgBox(Master.eLang.GetString(81, "There is no poster available for this episode."), MsgBoxStyle.OkOnly, Master.eLang.GetString(31, "No Posters Found"))
+ Return Nothing
+ End If
+ Else
+ Return Nothing
+ End If
+ End Using
+ End If
+ Else
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ sInfo = dTVDBSearch.ShowDialog(sInfo, True)
+ If Not String.IsNullOrEmpty(sInfo.TVDBID) Then
+ Master.currShow.TVShow.ID = sInfo.TVDBID
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ Else
+ Return Nothing
+ End If
+ End Using
+ Else
+ Me.DownloadSeries(sInfo, True)
+ Using dImageSelect As New dlgTVImageSelect
+ Return dImageSelect.ShowDialog(sInfo.ShowID, sInfo.ImageType, sInfo.iSeason, sInfo.CurrentImage)
+ End Using
+ End If
+ End If
+ End Function
+
+ Public Function IsBusy() As Boolean
+ Return bwTVDB.IsBusy
+ End Function
+
+ Public Sub PassEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent ScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub ProcessTVDBZip(ByVal tvZip As Byte(), ByVal sInfo As Structures.ScrapeInfo)
+ sXML = String.Empty
+ bXML = String.Empty
+ aXML = String.Empty
+
+ Try
+ Using zStream As ZipInputStream = New ZipInputStream(New MemoryStream(tvZip))
+ Dim zEntry As ZipEntry = zStream.GetNextEntry
+
+ While Not IsNothing(zEntry)
+ Dim zBuffer As Byte() = Functions.ReadStreamToEnd(zStream)
+
+ Select Case True
+ Case zEntry.Name.Equals(String.Concat(sInfo.SelectedLang, ".xml"))
+ sXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("banners.xml")
+ bXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ Case zEntry.Name.Equals("actors.xml")
+ aXML = System.Text.Encoding.UTF8.GetString(zBuffer)
+ End Select
+
+ zEntry = zStream.GetNextEntry
+ End While
+ End Using
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub SaveImages()
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SavingStarted, 0, Nothing)
+ Me.bwTVDB = New System.ComponentModel.BackgroundWorker
+ Me.bwTVDB.WorkerReportsProgress = True
+ Me.bwTVDB.WorkerSupportsCancellation = True
+ Me.bwTVDB.RunWorkerAsync(New Arguments With {.Type = 3})
+ End Sub
+
+ Public Sub ScrapeEpisode(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ tmpTVDBShow = New TVDBShow
+ tmpTVDBShow.Episodes.Add(Master.currShow)
+
+ If String.IsNullOrEmpty(sInfo.TVDBID) Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Episodes(0).TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Episodes(0)
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) AndAlso Not File.Exists(Master.currShow.TVEp.LocalFile) Then
+ Master.currShow.TVEp.Poster.FromWeb(Master.currShow.TVEp.PosterURL)
+ If Not IsNothing(Master.currShow.TVEp.Poster) Then
+ Directory.CreateDirectory(Directory.GetParent(Master.currShow.TVEp.LocalFile).FullName)
+ Master.currShow.TVEp.Poster.Save(Master.currShow.TVEp.LocalFile)
+ End If
+ End If
+ If Not String.IsNullOrEmpty(Master.currShow.TVEp.LocalFile) Then Master.currShow.EpPosterPath = Master.currShow.TVEp.LocalFile
+
+ If String.IsNullOrEmpty(Master.currShow.EpFanartPath) Then Master.currShow.EpFanartPath = Master.currShow.ShowFanartPath
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Master.currShow)
+
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 1, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Public Sub ScrapeSeason(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = True
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 4, .Parameter = sInfo})
+ End Sub
+
+ Public Sub SingleScrape(ByVal sInfo As Structures.ScrapeInfo)
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.LoadingEpisodes, 0, Nothing)
+ bwTVDB.WorkerReportsProgress = False
+ bwTVDB.WorkerSupportsCancellation = True
+ bwTVDB.RunWorkerAsync(New Arguments With {.Type = 2, .Parameter = sInfo})
+ While bwTVDB.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+ End Sub
+
+ Public Sub StartSingleScraper(ByVal sInfo As Structures.ScrapeInfo)
+ Try
+ If String.IsNullOrEmpty(sInfo.TVDBID) AndAlso sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ DownloadSeries(sInfo)
+ If tmpTVDBShow.Show.TVShow.ID.Length > 0 Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ If sInfo.ScrapeType = Enums.ScrapeType.FullAuto Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SaveAuto, 0, Nothing)
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ ElseIf sInfo.ScrapeType = Enums.ScrapeType.FullAsk Then
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Searching, 0, Nothing)
+ Using dTVDBSearch As New dlgTVDBSearchResults
+ If dTVDBSearch.ShowDialog(sInfo) = Windows.Forms.DialogResult.OK Then
+ Master.currShow = tmpTVDBShow.Show
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SelectImages, 0, Nothing)
+ Using dTVImageSel As New dlgTVImageSelect
+ If dTVImageSel.ShowDialog(sInfo.ShowID, Enums.TVImageType.All, sInfo.ScrapeType, sInfo.WithCurrent) = Windows.Forms.DialogResult.OK Then
+ If Not IsNothing(sInfo.iSeason) AndAlso sInfo.iSeason >= 0 Then
+ Me.SaveImages()
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Verifying, 0, Nothing)
+ End If
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End Using
+ Else
+ 'Ignore Show scrape if ScrapeAuto and show don't have ID
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Cancelled, 0, Nothing)
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwtvDB_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTVDB.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+
+ Try
+ Select Case Args.Type
+ Case 0 'search
+ e.Result = New Results With {.Type = 0, .Result = SearchSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))}
+ Case 1 'show download
+ Me.DownloadSeries(DirectCast(Args.Parameter, Structures.ScrapeInfo))
+ e.Result = New Results With {.Type = 1}
+ Case 2 'load episodes
+ LoadAllEpisodes(DirectCast(Args.Parameter, Structures.ScrapeInfo).ShowID, 999)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ Case 3 'save
+ Me.SaveAllTVInfo()
+ e.Result = New Results With {.Type = 3}
+ Case 4
+ Dim sInfo As Structures.ScrapeInfo = DirectCast(Args.Parameter, Structures.ScrapeInfo)
+ LoadAllEpisodes(sInfo.ShowID, sInfo.iSeason)
+ e.Result = New Results With {.Type = 2, .Result = Args.Parameter}
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwTVDB_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwTVDB.ProgressChanged
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.Progress, e.ProgressPercentage, e.UserState.ToString)
+ End Sub
+
+ Private Sub bwTVDB_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwTVDB.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Select Case Res.Type
+ Case 0 'search
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.SearchResultsDownloaded, 0, DirectCast(Res.Result, List(Of TVSearchResults)))
+ Case 1 'show download
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ShowDownloaded, 0, Nothing)
+ Case 2 'load episodes
+ If Not e.Cancelled Then
+ StartSingleScraper(DirectCast(Res.Result, Structures.ScrapeInfo))
+ Else
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End If
+ Case 3 'save
+ RaiseEvent ScraperEvent(Enums.TVScraperEventType.ScraperDone, 0, Nothing)
+ End Select
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function CreditsString(ByVal sGStars As String, ByVal sWriters As String) As String
+ Dim cString As New List(Of String)
+ Dim gString As String = Master.eLang.GetString(82, "Guest Star")
+ Dim wString As String = Master.eLang.GetString(777, "Writer", True)
+
+ If Not String.IsNullOrEmpty(sGStars) Then
+ For Each gStar In sGStars.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(gStar) Then cString.Add(String.Concat(gStar, String.Format(" ({0})", gString)))
+ Next
+ End If
+
+ If Not String.IsNullOrEmpty(sWriters) Then
+ For Each Writer In sWriters.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|"))
+ If Not String.IsNullOrEmpty(Writer) Then cString.Add(String.Concat(Writer, String.Format(" ({0})", wString)))
+ Next
+ End If
+
+ Return Strings.Join(cString.ToArray, " / ")
+ End Function
+
+ Private Sub SaveAllTVInfo()
+ Dim iEp As Integer = -1
+ Dim iSea As Integer = -1
+ Dim iProgress As Integer = 1
+
+ Dim tShow As New Structures.DBTV
+ Dim tEpisode As New MediaContainers.EpisodeDetails
+
+ Me.bwTVDB.ReportProgress(tmpTVDBShow.Episodes.Count, "max")
+
+ Using SQLTrans As SQLite.SQLiteTransaction = Master.DB.MediaDBConn.BeginTransaction()
+ If Master.eSettings.DisplayMissingEpisodes Then
+ 'clear old missing episode from db
+ Using SQLCommand As SQLite.SQLiteCommand = Master.DB.MediaDBConn.CreateCommand()
+ SQLCommand.CommandText = String.Concat("DELETE FROM TVEps WHERE Missing = 1 AND TVShowID = ", Master.currShow.ShowID, ";")
+ SQLCommand.ExecuteNonQuery()
+ End Using
+ End If
+
+ Try
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Try
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Episode.ShowID = Master.currShow.ShowID
+
+ iEp = Episode.TVEp.Episode
+ iSea = Episode.TVEp.Season
+
+ 'remove it from tepisodes since it's a real episode
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tEpisode = tEpisodes.FirstOrDefault(Function(e) e.Episode = iEp AndAlso e.Season = iSea)
+ If Not IsNothing(tEpisode) Then tEpisodes.Remove(tEpisode)
+ tShow = Episode
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Episode.TVEp.Season > -1 AndAlso Episode.TVEp.Episode > -1 AndAlso Not Episode.IsLockEp Then
+ If Not IsNothing(Episode.TVEp.Poster.Image) Then Episode.EpPosterPath = Episode.TVEp.Poster.SaveAsEpPoster(Episode, Episode.TVEp.PosterURL)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso Not IsNothing(Episode.TVEp.Fanart.Image) Then Episode.EpFanartPath = Episode.TVEp.Fanart.SaveAsEpFanart(Episode, )
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ Dim cSea = From cSeason As TVDBSeasonImage In TVDBImages.SeasonImageList Where cSeason.Season = iSea Take 1
+ If cSea.Count > 0 Then
+ If Not IsNothing(cSea(0).Poster.Image) Then Episode.SeasonPosterPath = cSea(0).Poster.SaveAsSeasonPoster(Episode)
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.SeasonFanartEnabled Then
+ If Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) AndAlso File.Exists(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.FromFile(cSea(0).Fanart.LocalFile)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ ElseIf Not String.IsNullOrEmpty(cSea(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(cSea(0).Fanart.LocalFile) Then
+ cSea(0).Fanart.Image.Clear()
+ cSea(0).Fanart.Image.FromWeb(cSea(0).Fanart.URL)
+ If Not IsNothing(cSea(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(cSea(0).Fanart.LocalFile).FullName)
+ cSea(0).Fanart.Image.Save(cSea(0).Fanart.LocalFile, , , False)
+ Episode.SeasonFanartPath = cSea(0).Fanart.Image.SaveAsSeasonFanart(Episode)
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ If Master.eSettings.ScanTVMediaInfo Then MediaInfo.UpdateTVMediaInfo(Episode)
+
+ Master.DB.SaveTVEpToDB(Episode, False, True, True, True)
+
+ If Me.bwTVDB.CancellationPending Then Return
+ End If
+ Me.bwTVDB.ReportProgress(iProgress, "progress")
+
+ 'If AdvancedSettings.GetBooleanSetting("ScrapeActorsThumbs", False) Then
+ 'For Each act As MediaContainers.Person In Episode.TVEp.Actors
+ 'Dim img As New Images
+ 'img.FromWeb(act.Thumb)
+ 'img.SaveAsActorThumb(act, Directory.GetParent(Episode.Filename).FullName)
+ 'Next
+ 'End If
+
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+
+ 'now save all missing episodes
+ If Master.eSettings.DisplayMissingEpisodes Then
+ tShow.Filename = String.Empty
+ tShow.EpFanartPath = String.Empty
+ tShow.EpPosterPath = String.Empty
+ tShow.EpNfoPath = String.Empty
+ tShow.SeasonFanartPath = String.Empty
+ tShow.SeasonPosterPath = String.Empty
+ tShow.ShowFanartPath = String.Empty
+ tShow.IsLockEp = False
+ tShow.IsMarkEp = False
+ tShow.EpID = -1
+ If tEpisodes.Count > 0 Then
+ For Each Episode As MediaContainers.EpisodeDetails In tEpisodes
+ tShow.TVEp = Episode
+ Master.DB.SaveTVEpToDB(tShow, True, True, True)
+ Next
+ End If
+ End If
+
+ If Me.bwTVDB.CancellationPending Then Return
+
+ SQLTrans.Commit()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ End Using
+ End Sub
+
+ Private Sub SaveToCache(ByVal sID As String, ByVal sURL As String, ByVal sPath As String)
+ Dim sImage As New Images
+
+ sImage.FromWeb(sURL)
+
+ If Not IsNothing(sImage.Image) Then
+ sImage.Save(Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, sPath.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), , , True)
+ End If
+ sImage = Nothing
+ End Sub
+
+ Private Function SearchSeries(ByVal sInfo As Structures.ScrapeInfo) As List(Of TVSearchResults)
+ Dim tvdbResults As New List(Of TVSearchResults)
+ Dim cResult As New TVSearchResults
+ Dim xmlTVDB As XDocument
+ Dim tmpXML As XDocument
+ Dim sHTTP As New HTTP
+ Dim sLang As String = String.Empty
+ Dim tmpID As String = String.Empty
+
+ Try
+ Dim apiXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/GetSeries.php?seriesname={1}&language={2}", Master.eSettings.TVDBMirror, sInfo.ShowTitle, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(apiXML) Then
+ Try
+ xmlTVDB = XDocument.Parse(apiXML)
+ Catch
+ Return tvdbResults
+ End Try
+
+ Dim xSer = From xSeries In xmlTVDB.Descendants("Series") Where xSeries.HasElements
+
+ 'check each unique showid to see if we have an entry for the preferred languages. If not, try to force download it
+ For Each tID As String In xSer.GroupBy(Function(s) s.Element("seriesid").Value.ToString).Select(Function(group) group.Key)
+ tmpID = tID
+ If xSer.Where(Function(s) s.Element("seriesid").Value.ToString = tmpID AndAlso s.Element("language").Value.ToString = Master.eSettings.TVDBLanguage).Count = 0 Then
+ 'no preferred language in this series, force it
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, APIKey, tmpID, Master.eSettings.TVDBLanguage))
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ Continue For
+ End Try
+
+ For Each tSer As XElement In tmpXML.Descendants("Series").Where(Function(s) s.HasElements)
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ cResult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) AndAlso xSer.Where(Function(s) s.Element("seriesid").Value.ToString = cResult.ID.ToString AndAlso s.Element("language").Value.ToString = sLang).Count = 0 Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+ End If
+ Next
+ sHTTP = Nothing
+
+ For Each xS As XElement In xSer
+ sLang = String.Empty
+ cResult = New TVSearchResults
+ cResult.ID = Convert.ToInt32(xS.Element("seriesid").Value)
+ cResult.Name = If(Not IsNothing(xS.Element("SeriesName")), xS.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(xS.Element("language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = xS.Element("language").Value
+ cResult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(xS.Element("language")) Then
+ sLang = xS.Element("language").Value
+ cResult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ Else
+ 'no language info available... don't bother adding it
+ Continue For
+ End If
+ cResult.Aired = If(Not IsNothing(xS.Element("FirstAired")), xS.Element("FirstAired").Value, String.Empty)
+ cResult.Overview = If(Not IsNothing(xS.Element("Overview")), xS.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf), String.Empty)
+ cResult.Banner = If(Not IsNothing(xS.Element("banner")), xS.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(cResult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ cResult.Lev = StringUtils.ComputeLevenshtein(sInfo.ShowTitle, cResult.Name)
+ tvdbResults.Add(cResult)
+ End If
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return tvdbResults
+ End Function
+
+ Private Sub ShowFromXML(ByVal sInfo As Structures.ScrapeInfo, ByVal ImagesOnly As Boolean)
+ Dim Actors As New List(Of MediaContainers.Person)
+ Dim sID As String = String.Empty
+ Dim iEp As Integer = -1
+ Dim iSeas As Integer = -1
+ Dim sTitle As String = String.Empty
+ Dim byTitle As Boolean = False
+ Dim xE As XElement = Nothing
+ Dim tShow As Structures.DBTV = tmpTVDBShow.Show
+ Dim tOrdering As Enums.Ordering = Enums.Ordering.Standard
+
+ If Not ImagesOnly Then
+ If Master.eSettings.DisplayMissingEpisodes Then tEpisodes = Me.GetListOfKnownEpisodes(sInfo)
+
+ 'get the actors first
+ Try
+ If sInfo.Options.bShowActors OrElse sInfo.Options.bEpActors Then
+ If Not String.IsNullOrEmpty(aXML) Then
+ Dim xdActors As XDocument = XDocument.Parse(aXML)
+ For Each Actor As XElement In xdActors.Descendants("Actor")
+ If Not IsNothing(Actor.Element("Name")) AndAlso Not String.IsNullOrEmpty(Actor.Element("Name").Value) Then
+ Actors.Add(New MediaContainers.Person With {.Name = Actor.Element("Name").Value, .Role = Actor.Element("Role").Value, .Thumb = If(IsNothing(Actor.Element("Image")) OrElse String.IsNullOrEmpty(Actor.Element("Image").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, Actor.Element("Image").Value))})
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ 'now let's get the show info and all the episodes
+ Try
+ If Not String.IsNullOrEmpty(sXML) Then
+ Dim xdShow As XDocument = XDocument.Parse(sXML)
+ Dim xS = From xShow In xdShow.Descendants("Series")
+ If xS.Count > 0 Then
+ tShow.ShowLanguage = sInfo.SelectedLang
+ If Not IsNothing(tShow.TVShow) Then
+ With tShow.TVShow
+ sID = xS(0).Element("id").Value
+ .ID = sID
+ If sInfo.Options.bShowTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.ShowLockTitle) Then .Title = If(IsNothing(xS(0).Element("SeriesName")), .Title, xS(0).Element("SeriesName").Value)
+ If sInfo.Options.bShowEpisodeGuide Then .EpisodeGuideURL = If(Not String.IsNullOrEmpty(Master.eSettings.ExternalTVDBAPIKey), String.Format("http://{0}/api/{1}/series/{2}/all/{3}.zip", Master.eSettings.TVDBMirror, Master.eSettings.ExternalTVDBAPIKey, sID, Master.eSettings.TVDBLanguage), String.Empty)
+ If sInfo.Options.bShowGenre AndAlso (String.IsNullOrEmpty(.Genre) OrElse Not Master.eSettings.ShowLockGenre) Then .Genre = If(IsNothing(xS(0).Element("Genre")), .Genre, Strings.Join(xS(0).Element("Genre").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bShowMPAA Then .MPAA = If(IsNothing(xS(0).Element("ContentRating")), .MPAA, xS(0).Element("ContentRating").Value)
+ If sInfo.Options.bShowPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.ShowLockPlot) Then .Plot = If(IsNothing(xS(0).Element("Overview")), .Plot, xS(0).Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ If sInfo.Options.bShowPremiered Then .Premiered = If(IsNothing(xS(0).Element("FirstAired")), .Premiered, xS(0).Element("FirstAired").Value)
+ If sInfo.Options.bShowRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.ShowLockRating) Then .Rating = If(IsNothing(xS(0).Element("Rating")), .Rating, xS(0).Element("Rating").Value)
+ If sInfo.Options.bShowStudio AndAlso (String.IsNullOrEmpty(.Studio) OrElse Not Master.eSettings.ShowLockStudio) Then .Studio = If(IsNothing(xS(0).Element("Network")), .Studio, xS(0).Element("Network").Value)
+ If sInfo.Options.bShowActors Then .Actors = Actors
+ End With
+ End If
+
+ 'set it back
+ tmpTVDBShow.Show = tShow
+
+ For Each Episode As Structures.DBTV In tmpTVDBShow.Episodes
+
+ Episode.ShowLanguage = sInfo.SelectedLang
+
+ iEp = Episode.TVEp.Episode
+ iSeas = Episode.TVEp.Season
+ sTitle = Episode.TVEp.Title
+ byTitle = False
+ tOrdering = Enums.Ordering.Standard
+
+ If Not IsNothing(tShow.TVShow) Then Episode.TVShow = tShow.TVShow
+
+ If sInfo.Ordering = Enums.Ordering.DVD Then
+ 'first we need to check if dvd order is specified for every episode in the season
+ 'we'll use the regular season number as an indicator even though there are some cases
+ 'where this will not work (season 1 episode 1 = dvd_season 2 dvd_episode 1) but it
+ 'should work in most cases and is the best solution I could come up with
+
+ If xdShow.Descendants("Episode").Where(Function(e) Not IsNothing(e.Element("SeasonNumber")) AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas AndAlso (IsNothing(e.Element("DVD_season")) OrElse String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) OrElse IsNothing(e.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.DVD
+ End If
+ ElseIf sInfo.Ordering = Enums.Ordering.Absolute Then
+ If xdShow.Descendants("Episode").Where(Function(e) Convert.ToInt32(e.Element("SeasonNumber").Value) > 0 AndAlso (IsNothing(e.Element("absolute_number")) OrElse String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString))).Count = 0 Then
+ tOrdering = Enums.Ordering.Absolute
+ End If
+ End If
+
+ If tOrdering = Enums.Ordering.DVD Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("DVD_episodenumber")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_episodenumber").Value.ToString) AndAlso Convert.ToInt32(CLng(e.Element("DVD_episodenumber").Value.ToString)) = iEp AndAlso Not IsNothing(e.Element("DVD_season")) AndAlso Not String.IsNullOrEmpty(e.Element("DVD_season").Value.ToString) AndAlso Convert.ToInt32(e.Element("DVD_season").Value) = iSeas)
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If iSeas = 1 Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("absolute_number").Value.ToString) = iEp)
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Not IsNothing(e.Element("absolute_number")) AndAlso Not String.IsNullOrEmpty(e.Element("absolute_number").Value.ToString) AndAlso Convert.ToInt32(e.Element("EpisodeNumber").Value.ToString) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+ Else
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) Convert.ToInt32(e.Element("EpisodeNumber").Value) = iEp AndAlso Convert.ToInt32(e.Element("SeasonNumber").Value) = iSeas)
+ End If
+
+ If IsNothing(xE) Then
+ xE = xdShow.Descendants("Episode").FirstOrDefault(Function(e) StringUtils.ComputeLevenshtein(e.Element("EpisodeName").Value, sTitle) < 5)
+ byTitle = True
+ End If
+
+ If Not IsNothing(xE) Then
+ With Episode.TVEp
+ If sInfo.Options.bEpTitle AndAlso (String.IsNullOrEmpty(.Title) OrElse Not Master.eSettings.EpLockTitle) AndAlso Not String.IsNullOrEmpty(xE.Element("EpisodeName").Value) Then .Title = xE.Element("EpisodeName").Value
+ If byTitle Then
+ If tOrdering = Enums.Ordering.DVD Then
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("DVD_season")) OrElse String.IsNullOrEmpty(xE.Element("DVD_season").Value), 0, Convert.ToInt32(xE.Element("DVD_season").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("DVD_episodenumber")) OrElse String.IsNullOrEmpty(xE.Element("DVD_episodenumber").Value), 0, Convert.ToInt32(xE.Element("DVD_episodenumber").Value))
+ ElseIf tOrdering = Enums.Ordering.Absolute Then
+ If sInfo.Options.bEpSeason Then .Season = 1
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("absolute_number")) OrElse String.IsNullOrEmpty(xE.Element("absolute_number").Value), 0, Convert.ToInt32(xE.Element("absolute_number").Value))
+ Else
+ If sInfo.Options.bEpSeason Then .Season = If(IsNothing(xE.Element("SeasonNumber")) OrElse String.IsNullOrEmpty(xE.Element("SeasonNumber").Value), 0, Convert.ToInt32(xE.Element("SeasonNumber").Value))
+ If sInfo.Options.bEpEpisode Then .Episode = If(IsNothing(xE.Element("EpisodeNumber")) OrElse String.IsNullOrEmpty(xE.Element("EpisodeNumber").Value), 0, Convert.ToInt32(xE.Element("EpisodeNumber").Value))
+ End If
+ End If
+ If sInfo.Options.bEpAired Then .Aired = If(IsNothing(xE.Element("FirstAired")), .Aired, xE.Element("FirstAired").Value)
+ If sInfo.Options.bEpRating AndAlso (String.IsNullOrEmpty(.Rating) OrElse Not Master.eSettings.EpLockRating) Then .Rating = If(IsNothing(xE.Element("Rating")), .Rating, xE.Element("Rating").Value)
+ If sInfo.Options.bEpPlot AndAlso (String.IsNullOrEmpty(.Plot) OrElse Not Master.eSettings.EpLockPlot) Then .Plot = If(IsNothing(xE.Element("Overview")), .Plot, xE.Element("Overview").Value.ToString.Replace(vbCrLf, vbLf).Replace(vbLf, vbCrLf))
+ 'If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xS(0).Element("Director")), .Director, Strings.Join(xS(0).Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpDirector Then .Director = If(IsNothing(xE.Element("Director")), .Director, Strings.Join(xE.Element("Director").Value.Trim(Convert.ToChar("|")).Split(Convert.ToChar("|")), " / "))
+ If sInfo.Options.bEpCredits Then .Credits = CreditsString(If(IsNothing(xE.Element("GuestStars")), String.Empty, xE.Element("GuestStars").Value), If(IsNothing(xE.Element("Writer")), String.Empty, xE.Element("Writer").Value))
+ If sInfo.Options.bEpActors Then .Actors = Actors
+ .PosterURL = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, xE.Element("filename").Value))
+ .LocalFile = If(IsNothing(xE.Element("filename")) OrElse String.IsNullOrEmpty(xE.Element("filename").Value), String.Empty, Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "episodeposters", Path.DirectorySeparatorChar, xE.Element("filename").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))))
+ End With
+ End If
+ Next
+
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Else
+ sID = sInfo.TVDBID
+ End If
+ 'and finally the images
+ Try
+ If ImagesOnly OrElse Not IsNothing(tShow.TVShow) Then
+ If Not String.IsNullOrEmpty(bXML) Then
+ Dim xdImage As XDocument = XDocument.Parse(bXML)
+ For Each tImage As XElement In xdImage.Descendants("Banner")
+ If (Not IsNothing(tImage.Element("BannerPath")) AndAlso Not String.IsNullOrEmpty(tImage.Element("BannerPath").Value)) AndAlso _
+ (Not Master.eSettings.OnlyGetTVImagesForSelectedLanguage OrElse ((Not IsNothing(tImage.Element("Language")) AndAlso tImage.Element("Language").Value = Master.eSettings.TVDBLanguage) OrElse _
+ ((IsNothing(tImage.Element("Language")) OrElse tImage.Element("Language").Value = "en") AndAlso Master.eSettings.AlwaysGetEnglishTVImages))) Then
+ Select Case tImage.Element("BannerType").Value
+ Case "fanart"
+ tmpTVDBShow.Fanart.Add(New TVDBFanart With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .ThumbnailURL = If(IsNothing(tImage.Element("ThumbnailPath")) OrElse String.IsNullOrEmpty(tImage.Element("ThumbnailPath").Value), String.Empty, String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("ThumbnailPath").Value)), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .LocalThumb = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "fanart", Path.DirectorySeparatorChar, tImage.Element("ThumbnailPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "poster"
+ tmpTVDBShow.Posters.Add(New TVDBPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Size = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), New Size With {.Width = 0, .Height = 0}, StringUtils.StringToSize(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "posters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "season"
+ tmpTVDBShow.SeasonPosters.Add(New TVDBSeasonPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Season = If(IsNothing(tImage.Element("Season")) OrElse String.IsNullOrEmpty(tImage.Element("Season").Value), 0, Convert.ToInt32(tImage.Element("Season").Value)), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.SeasonPosterType.None, StringToSeasonPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seasonposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ Case "series"
+ tmpTVDBShow.ShowPosters.Add(New TVDBShowPoster With { _
+ .URL = String.Format("http://{0}/banners/{1}", Master.eSettings.TVDBMirror, tImage.Element("BannerPath").Value), _
+ .Type = If(IsNothing(tImage.Element("BannerType2")) OrElse String.IsNullOrEmpty(tImage.Element("BannerType2").Value), Enums.ShowBannerType.None, StringToShowPosterType(tImage.Element("BannerType2").Value)), _
+ .LocalFile = Path.Combine(Master.TempPath, String.Concat("Shows", Path.DirectorySeparatorChar, sID, Path.DirectorySeparatorChar, "seriesposters", Path.DirectorySeparatorChar, tImage.Element("BannerPath").Value.Replace(Convert.ToChar("/"), Path.DirectorySeparatorChar))), _
+ .Language = If(IsNothing(tImage.Element("Language")) OrElse String.IsNullOrEmpty(tImage.Element("Language").Value), String.Empty, tImage.Element("Language").Value)})
+ End Select
+ End If
+ Next
+ End If
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function StringToSeasonPosterType(ByVal sType As String) As Enums.SeasonPosterType
+ Select Case sType.ToLower
+ Case "season"
+ Return Enums.SeasonPosterType.Poster
+ Case "seasonwide"
+ Return Enums.SeasonPosterType.Wide
+ Case Else
+ Return Enums.SeasonPosterType.None
+ End Select
+ End Function
+
+ Private Function StringToShowPosterType(ByVal sType As String) As Enums.ShowBannerType
+ Select Case sType.ToLower
+ Case "blank"
+ Return Enums.ShowBannerType.Blank
+ Case "graphical"
+ Return Enums.ShowBannerType.Graphical
+ Case "text"
+ Return Enums.ShowBannerType.Text
+ Case Else
+ Return Enums.ShowBannerType.None
+ End Select
+ End Function
+
+#End Region 'Methods
+
+#Region "Other"
+
+ Private Structure Arguments
+
+ Dim Parameter As Object
+ Dim Type As Integer
+
+ End Structure
+
+ Private Structure Results
+
+ Dim Result As Object
+ Dim Type As Integer '0 = search, 1 = show download, 2 = load eps, 3 = save
+
+ End Structure
+
+#End Region 'Other
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBFanart
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _localthumb As String
+ Private _size As Size
+ Private _thumbnailurl As String
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property LocalThumb() As String
+ Get
+ Return Me._localthumb
+ End Get
+ Set(ByVal value As String)
+ Me._localthumb = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property ThumbnailURL() As String
+ Get
+ Return Me._thumbnailurl
+ End Get
+ Set(ByVal value As String)
+ Me._thumbnailurl = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._thumbnailurl = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._localthumb = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _size As Size
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Size() As Size
+ Get
+ Return Me._size
+ End Get
+ Set(ByVal value As Size)
+ Me._size = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._size = New Size
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBSeasonImage
+
+#Region "Fields"
+
+ Private _fanart As TVDBFanart
+ Private _poster As Images
+ Private _season As Integer
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Fanart() As TVDBFanart
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As TVDBFanart)
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Poster() As Images
+ Get
+ Return Me._poster
+ End Get
+ Set(ByVal value As Images)
+ Me._poster = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._season = -1
+ Me._poster = New Images
+ Me._fanart = New TVDBFanart
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBSeasonPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _season As Integer
+ Private _type As Enums.SeasonPosterType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Season() As Integer
+ Get
+ Return Me._season
+ End Get
+ Set(ByVal value As Integer)
+ Me._season = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.SeasonPosterType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.SeasonPosterType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._season = 0
+ Me._type = Enums.SeasonPosterType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVDBShow
+
+#Region "Fields"
+
+ Private _allseason As Structures.DBTV
+ Private _episodes As New List(Of Structures.DBTV)
+ Private _fanart As New List(Of TVDBFanart)
+ Private _posters As New List(Of TVDBPoster)
+ Private _seasonposters As New List(Of TVDBSeasonPoster)
+ Private _show As Structures.DBTV
+ Private _showposters As New List(Of TVDBShowPoster)
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property AllSeason() As Structures.DBTV
+ Get
+ Return Me._allseason
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._allseason = value
+ End Set
+ End Property
+
+ Public Property Episodes() As List(Of Structures.DBTV)
+ Get
+ Return Me._episodes
+ End Get
+ Set(ByVal value As List(Of Structures.DBTV))
+ Me._episodes = value
+ End Set
+ End Property
+
+ Public Property Fanart() As List(Of TVDBFanart)
+ Get
+ Return Me._fanart
+ End Get
+ Set(ByVal value As List(Of TVDBFanart))
+ Me._fanart = value
+ End Set
+ End Property
+
+ Public Property Posters() As List(Of TVDBPoster)
+ Get
+ Return Me._posters
+ End Get
+ Set(ByVal value As List(Of TVDBPoster))
+ Me._posters = value
+ End Set
+ End Property
+
+ Public Property SeasonPosters() As List(Of TVDBSeasonPoster)
+ Get
+ Return Me._seasonposters
+ End Get
+ Set(ByVal value As List(Of TVDBSeasonPoster))
+ Me._seasonposters = value
+ End Set
+ End Property
+
+ Public Property Show() As Structures.DBTV
+ Get
+ Return Me._show
+ End Get
+ Set(ByVal value As Structures.DBTV)
+ Me._show = value
+ End Set
+ End Property
+
+ Public Property ShowPosters() As List(Of TVDBShowPoster)
+ Get
+ Return Me._showposters
+ End Get
+ Set(ByVal value As List(Of TVDBShowPoster))
+ Me._showposters = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._show = New Structures.DBTV
+ Me._allseason = New Structures.DBTV
+ Me._episodes = New List(Of Structures.DBTV)
+ Me._fanart = New List(Of TVDBFanart)
+ Me._showposters = New List(Of TVDBShowPoster)
+ Me._seasonposters = New List(Of TVDBSeasonPoster)
+ Me._posters = New List(Of TVDBPoster)
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ <Serializable()> _
+ Public Class TVDBShowPoster
+
+#Region "Fields"
+
+ Private _image As Images
+ Private _localfile As String
+ Private _type As Enums.ShowBannerType
+ Private _url As String
+ Private _language As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Image() As Images
+ Get
+ Return Me._image
+ End Get
+ Set(ByVal value As Images)
+ Me._image = value
+ End Set
+ End Property
+
+ Public Property LocalFile() As String
+ Get
+ Return Me._localfile
+ End Get
+ Set(ByVal value As String)
+ Me._localfile = value
+ End Set
+ End Property
+
+ Public Property Type() As Enums.ShowBannerType
+ Get
+ Return Me._type
+ End Get
+ Set(ByVal value As Enums.ShowBannerType)
+ Me._type = value
+ End Set
+ End Property
+
+ Public Property URL() As String
+ Get
+ Return Me._url
+ End Get
+ Set(ByVal value As String)
+ Me._url = value
+ End Set
+ End Property
+
+ Public Property Language() As String
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As String)
+ Me._language = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._url = String.Empty
+ Me._type = Enums.ShowBannerType.None
+ Me._localfile = String.Empty
+ Me._image = New Images
+ Me._language = String.Empty
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+ Public Class TVSearchResults
+
+#Region "Fields"
+
+ Private _aired As String
+ Private _banner As String
+ Private _id As Integer
+ Private _language As Containers.TVLanguage
+ Private _lev As Integer
+ Private _name As String
+ Private _overview As String
+
+#End Region 'Fields
+
+#Region "Constructors"
+
+ Public Sub New()
+ Me.Clear()
+ End Sub
+
+#End Region 'Constructors
+
+#Region "Properties"
+
+ Public Property Aired() As String
+ Get
+ Return Me._aired
+ End Get
+ Set(ByVal value As String)
+ Me._aired = value
+ End Set
+ End Property
+
+ Public Property Banner() As String
+ Get
+ Return Me._banner
+ End Get
+ Set(ByVal value As String)
+ Me._banner = value
+ End Set
+ End Property
+
+ Public Property ID() As Integer
+ Get
+ Return Me._id
+ End Get
+ Set(ByVal value As Integer)
+ Me._id = value
+ End Set
+ End Property
+
+ Public Property Language() As Containers.TVLanguage
+ Get
+ Return Me._language
+ End Get
+ Set(ByVal value As Containers.TVLanguage)
+ Me._language = value
+ End Set
+ End Property
+
+ Public Property Lev() As Integer
+ Get
+ Return Me._lev
+ End Get
+ Set(ByVal value As Integer)
+ Me._lev = value
+ End Set
+ End Property
+
+ Public Property Name() As String
+ Get
+ Return Me._name
+ End Get
+ Set(ByVal value As String)
+ Me._name = value
+ End Set
+ End Property
+
+ Public Property Overview() As String
+ Get
+ Return Me._overview
+ End Get
+ Set(ByVal value As String)
+ Me._overview = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub Clear()
+ Me._id = 0
+ Me._name = String.Empty
+ Me._aired = String.Empty
+ Me._language = New Containers.TVLanguage
+ Me._overview = String.Empty
+ Me._banner = String.Empty
+ Me._lev = 0
+ End Sub
+
+#End Region 'Methods
+
+ End Class
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.Designer.vb b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.Designer.vb
new file mode 100644
index 0000000..dd38c94
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.Designer.vb
@@ -0,0 +1,139 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVChangeEp
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lvEpisodes = New System.Windows.Forms.ListView()
+ Me.colEpisode = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colTitle = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pbPreview = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.txtPlot = New System.Windows.Forms.TextBox()
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(505, 286)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(575, 286)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'lvEpisodes
+ '
+ Me.lvEpisodes.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colEpisode, Me.colTitle})
+ Me.lvEpisodes.FullRowSelect = True
+ Me.lvEpisodes.HideSelection = False
+ Me.lvEpisodes.Location = New System.Drawing.Point(3, 3)
+ Me.lvEpisodes.MultiSelect = False
+ Me.lvEpisodes.Name = "lvEpisodes"
+ Me.lvEpisodes.Size = New System.Drawing.Size(358, 278)
+ Me.lvEpisodes.TabIndex = 2
+ Me.lvEpisodes.UseCompatibleStateImageBehavior = False
+ Me.lvEpisodes.View = System.Windows.Forms.View.Details
+ '
+ 'colEpisode
+ '
+ Me.colEpisode.Text = "Episode"
+ '
+ 'colTitle
+ '
+ Me.colTitle.Text = "Title"
+ Me.colTitle.Width = 276
+ '
+ 'pbPreview
+ '
+ Me.pbPreview.Location = New System.Drawing.Point(417, 12)
+ Me.pbPreview.Name = "pbPreview"
+ Me.pbPreview.Size = New System.Drawing.Size(174, 117)
+ Me.pbPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPreview.TabIndex = 3
+ Me.pbPreview.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(367, 140)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(275, 21)
+ Me.lblTitle.TabIndex = 3
+ '
+ 'txtPlot
+ '
+ Me.txtPlot.BackColor = System.Drawing.SystemColors.Control
+ Me.txtPlot.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtPlot.Location = New System.Drawing.Point(366, 169)
+ Me.txtPlot.Multiline = True
+ Me.txtPlot.Name = "txtPlot"
+ Me.txtPlot.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+ Me.txtPlot.Size = New System.Drawing.Size(276, 111)
+ Me.txtPlot.TabIndex = 4
+ '
+ 'dlgTVChangeEp
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(646, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.txtPlot)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbPreview)
+ Me.Controls.Add(Me.lvEpisodes)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVChangeEp"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Change Episode"
+ CType(Me.pbPreview, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lvEpisodes As System.Windows.Forms.ListView
+ Friend WithEvents colEpisode As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colTitle As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pbPreview As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents txtPlot As System.Windows.Forms.TextBox
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.resx b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.resx
new file mode 100644
index 0000000..717c885
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.resx
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="txtPlot.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>True</value>
+ </metadata>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.vb b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.vb
new file mode 100644
index 0000000..954f58a
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVChangeEp.vb
@@ -0,0 +1,120 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class dlgTVChangeEp
+
+#Region "Fields"
+
+ Private _episode As MediaContainers.EpisodeDetails = Nothing
+ Private _tepisodes As New List(Of MediaContainers.EpisodeDetails)
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal tEpisodes As List(Of MediaContainers.EpisodeDetails)) As MediaContainers.EpisodeDetails
+ Me._tepisodes = tEpisodes
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return _episode
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.pbPreview.Image = Nothing
+ Me.lblTitle.Text = String.Empty
+ Me.txtPlot.Text = String.Empty
+ End Sub
+
+ Private Sub dlgTVChangeEp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Me.SetUp()
+
+ Dim lGroup As New ListViewGroup
+ Dim lItem As New ListViewItem
+ Dim tSeason As Integer = Nothing
+
+ For Each Season As Integer In _tepisodes.GroupBy(Function(s) s.Season).Select(Function(group) group.Key)
+ tSeason = Season
+ lGroup = New ListViewGroup
+ lGroup.Header = String.Format(Master.eLang.GetString(726, "Season {0}", True), tSeason)
+ lvEpisodes.Groups.Add(lGroup)
+ For Each Episode As MediaContainers.EpisodeDetails In _tepisodes.Where(Function(s) s.Season = tSeason).OrderBy(Function(s) s.Episode)
+ lItem = lvEpisodes.Items.Add(Episode.Episode.ToString)
+ lItem.Tag = Episode
+ lItem.SubItems.Add(Episode.Title)
+ lGroup.Items.Add(lItem)
+ Next
+ Next
+ End Sub
+
+ Private Sub lvEpisodes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvEpisodes.SelectedIndexChanged
+ Me.ClearInfo()
+ If lvEpisodes.SelectedItems.Count > 0 AndAlso Not IsNothing(lvEpisodes.SelectedItems(0).Tag) Then
+ Me._episode = DirectCast(lvEpisodes.SelectedItems(0).Tag, MediaContainers.EpisodeDetails)
+
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ ElseIf Not String.IsNullOrEmpty(Me._episode.LocalFile) AndAlso File.Exists(Me._episode.LocalFile) Then
+ Me._episode.Poster.FromFile(Me._episode.LocalFile)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ ElseIf Not String.IsNullOrEmpty(Me._episode.PosterURL) Then
+ Me._episode.Poster.FromWeb(Me._episode.PosterURL)
+ If Not IsNothing(Me._episode.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Me._episode.LocalFile).FullName)
+ Me._episode.Poster.Save(Me._episode.LocalFile)
+ Me.pbPreview.Image = Me._episode.Poster.Image
+ End If
+ End If
+
+ Me.lblTitle.Text = Me._episode.Title
+ Me.txtPlot.Text = Me._episode.Plot
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(772, "Change Episode", True)
+
+ Me.lvEpisodes.Columns(0).Text = Master.eLang.GetString(727, "Episode", True)
+ Me.lvEpisodes.Columns(1).Text = Master.eLang.GetString(21, "Title", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.Designer.vb b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.Designer.vb
new file mode 100644
index 0000000..b05c597
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.Designer.vb
@@ -0,0 +1,368 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVDBSearchResults
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVDBSearchResults))
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbBanner = New System.Windows.Forms.PictureBox()
+ Me.lblTitle = New System.Windows.Forms.Label()
+ Me.lblAiredHeader = New System.Windows.Forms.Label()
+ Me.lblAired = New System.Windows.Forms.Label()
+ Me.lblPlotHeader = New System.Windows.Forms.Label()
+ Me.txtOutline = New System.Windows.Forms.TextBox()
+ Me.lvSearchResults = New System.Windows.Forms.ListView()
+ Me.colName = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colLev = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colID = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.colSLang = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pnlLoading = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.pnlTop = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.btnSearch = New System.Windows.Forms.Button()
+ Me.txtSearch = New System.Windows.Forms.TextBox()
+ Me.btnVerify = New System.Windows.Forms.Button()
+ Me.chkManual = New System.Windows.Forms.CheckBox()
+ Me.txtTVDBID = New System.Windows.Forms.TextBox()
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlLoading.SuspendLayout()
+ Me.pnlTop.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Enabled = False
+ Me.OK_Button.Location = New System.Drawing.Point(485, 335)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(558, 335)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbBanner
+ '
+ Me.pbBanner.Location = New System.Drawing.Point(325, 69)
+ Me.pbBanner.Name = "pbBanner"
+ Me.pbBanner.Size = New System.Drawing.Size(300, 55)
+ Me.pbBanner.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbBanner.TabIndex = 3
+ Me.pbBanner.TabStop = False
+ '
+ 'lblTitle
+ '
+ Me.lblTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTitle.Location = New System.Drawing.Point(325, 132)
+ Me.lblTitle.Name = "lblTitle"
+ Me.lblTitle.Size = New System.Drawing.Size(300, 19)
+ Me.lblTitle.TabIndex = 9
+ Me.lblTitle.Visible = False
+ '
+ 'lblAiredHeader
+ '
+ Me.lblAiredHeader.AutoSize = True
+ Me.lblAiredHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblAiredHeader.Location = New System.Drawing.Point(325, 161)
+ Me.lblAiredHeader.Name = "lblAiredHeader"
+ Me.lblAiredHeader.Size = New System.Drawing.Size(38, 13)
+ Me.lblAiredHeader.TabIndex = 10
+ Me.lblAiredHeader.Text = "Aired:"
+ Me.lblAiredHeader.Visible = False
+ '
+ 'lblAired
+ '
+ Me.lblAired.AutoSize = True
+ Me.lblAired.Location = New System.Drawing.Point(387, 161)
+ Me.lblAired.Name = "lblAired"
+ Me.lblAired.Size = New System.Drawing.Size(63, 13)
+ Me.lblAired.TabIndex = 12
+ Me.lblAired.Text = "00/00/0000"
+ Me.lblAired.Visible = False
+ '
+ 'lblPlotHeader
+ '
+ Me.lblPlotHeader.AutoSize = True
+ Me.lblPlotHeader.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblPlotHeader.Location = New System.Drawing.Point(325, 189)
+ Me.lblPlotHeader.Name = "lblPlotHeader"
+ Me.lblPlotHeader.Size = New System.Drawing.Size(83, 13)
+ Me.lblPlotHeader.TabIndex = 13
+ Me.lblPlotHeader.Text = "Plot Summary:"
+ Me.lblPlotHeader.Visible = False
+ '
+ 'txtOutline
+ '
+ Me.txtOutline.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.txtOutline.Location = New System.Drawing.Point(325, 205)
+ Me.txtOutline.Multiline = True
+ Me.txtOutline.Name = "txtOutline"
+ Me.txtOutline.Size = New System.Drawing.Size(300, 127)
+ Me.txtOutline.TabIndex = 14
+ Me.txtOutline.TabStop = False
+ Me.txtOutline.Visible = False
+ '
+ 'lvSearchResults
+ '
+ Me.lvSearchResults.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colName, Me.colLang, Me.colLev, Me.colID, Me.colSLang})
+ Me.lvSearchResults.FullRowSelect = True
+ Me.lvSearchResults.HideSelection = False
+ Me.lvSearchResults.Location = New System.Drawing.Point(3, 96)
+ Me.lvSearchResults.MultiSelect = False
+ Me.lvSearchResults.Name = "lvSearchResults"
+ Me.lvSearchResults.Size = New System.Drawing.Size(316, 236)
+ Me.lvSearchResults.TabIndex = 5
+ Me.lvSearchResults.UseCompatibleStateImageBehavior = False
+ Me.lvSearchResults.View = System.Windows.Forms.View.Details
+ '
+ 'colName
+ '
+ Me.colName.Text = "Title"
+ Me.colName.Width = 223
+ '
+ 'colLang
+ '
+ Me.colLang.Text = "Language"
+ Me.colLang.Width = 89
+ '
+ 'colLev
+ '
+ Me.colLev.Width = 0
+ '
+ 'colID
+ '
+ Me.colID.Width = 0
+ '
+ 'colSLang
+ '
+ Me.colSLang.Width = 0
+ '
+ 'pnlLoading
+ '
+ Me.pnlLoading.BackColor = System.Drawing.Color.White
+ Me.pnlLoading.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlLoading.Controls.Add(Me.Label3)
+ Me.pnlLoading.Controls.Add(Me.ProgressBar1)
+ Me.pnlLoading.Location = New System.Drawing.Point(380, 154)
+ Me.pnlLoading.Name = "pnlLoading"
+ Me.pnlLoading.Size = New System.Drawing.Size(200, 54)
+ Me.pnlLoading.TabIndex = 11
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(3, 10)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(98, 13)
+ Me.Label3.TabIndex = 0
+ Me.Label3.Text = "Searching TVDB..."
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Location = New System.Drawing.Point(3, 32)
+ Me.ProgressBar1.MarqueeAnimationSpeed = 25
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(192, 17)
+ Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+ Me.ProgressBar1.TabIndex = 1
+ '
+ 'pnlTop
+ '
+ Me.pnlTop.BackColor = System.Drawing.Color.LightSteelBlue
+ Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlTop.Controls.Add(Me.Label2)
+ Me.pnlTop.Controls.Add(Me.Label1)
+ Me.pnlTop.Controls.Add(Me.PictureBox1)
+ Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+ Me.pnlTop.Name = "pnlTop"
+ Me.pnlTop.Size = New System.Drawing.Size(643, 64)
+ Me.pnlTop.TabIndex = 2
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.ForeColor = System.Drawing.Color.White
+ Me.Label2.Location = New System.Drawing.Point(61, 38)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(287, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "View details of each result to find the proper TV show."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.White
+ Me.Label1.Location = New System.Drawing.Point(58, 3)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(216, 32)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "TV Search Results"
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(7, 8)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 0
+ Me.PictureBox1.TabStop = False
+ '
+ 'btnSearch
+ '
+ Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
+ Me.btnSearch.Location = New System.Drawing.Point(296, 67)
+ Me.btnSearch.Name = "btnSearch"
+ Me.btnSearch.Size = New System.Drawing.Size(23, 23)
+ Me.btnSearch.TabIndex = 4
+ Me.btnSearch.UseVisualStyleBackColor = True
+ '
+ 'txtSearch
+ '
+ Me.txtSearch.Location = New System.Drawing.Point(3, 68)
+ Me.txtSearch.Name = "txtSearch"
+ Me.txtSearch.Size = New System.Drawing.Size(287, 22)
+ Me.txtSearch.TabIndex = 3
+ '
+ 'btnVerify
+ '
+ Me.btnVerify.Enabled = False
+ Me.btnVerify.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.btnVerify.Location = New System.Drawing.Point(244, 337)
+ Me.btnVerify.Name = "btnVerify"
+ Me.btnVerify.Size = New System.Drawing.Size(75, 22)
+ Me.btnVerify.TabIndex = 8
+ Me.btnVerify.Text = "Verify"
+ Me.btnVerify.UseVisualStyleBackColor = True
+ '
+ 'chkManual
+ '
+ Me.chkManual.AutoSize = True
+ Me.chkManual.Enabled = False
+ Me.chkManual.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkManual.Location = New System.Drawing.Point(3, 341)
+ Me.chkManual.Name = "chkManual"
+ Me.chkManual.Size = New System.Drawing.Size(127, 17)
+ Me.chkManual.TabIndex = 6
+ Me.chkManual.Text = "Manual TVDB Entry:"
+ Me.chkManual.UseVisualStyleBackColor = True
+ '
+ 'txtTVDBID
+ '
+ Me.txtTVDBID.Enabled = False
+ Me.txtTVDBID.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTVDBID.Location = New System.Drawing.Point(138, 337)
+ Me.txtTVDBID.Name = "txtTVDBID"
+ Me.txtTVDBID.Size = New System.Drawing.Size(100, 22)
+ Me.txtTVDBID.TabIndex = 7
+ '
+ 'dlgTVDBSearchResults
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(643, 378)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.btnVerify)
+ Me.Controls.Add(Me.chkManual)
+ Me.Controls.Add(Me.txtTVDBID)
+ Me.Controls.Add(Me.btnSearch)
+ Me.Controls.Add(Me.txtSearch)
+ Me.Controls.Add(Me.pnlTop)
+ Me.Controls.Add(Me.pnlLoading)
+ Me.Controls.Add(Me.lvSearchResults)
+ Me.Controls.Add(Me.lblPlotHeader)
+ Me.Controls.Add(Me.txtOutline)
+ Me.Controls.Add(Me.lblAiredHeader)
+ Me.Controls.Add(Me.lblAired)
+ Me.Controls.Add(Me.lblTitle)
+ Me.Controls.Add(Me.pbBanner)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(649, 406)
+ Me.Name = "dlgTVDBSearchResults"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "TV Search Results"
+ CType(Me.pbBanner, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlLoading.ResumeLayout(False)
+ Me.pnlLoading.PerformLayout()
+ Me.pnlTop.ResumeLayout(False)
+ Me.pnlTop.PerformLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbBanner As System.Windows.Forms.PictureBox
+ Friend WithEvents lblTitle As System.Windows.Forms.Label
+ Friend WithEvents lblAiredHeader As System.Windows.Forms.Label
+ Friend WithEvents lblAired As System.Windows.Forms.Label
+ Friend WithEvents lblPlotHeader As System.Windows.Forms.Label
+ Friend WithEvents txtOutline As System.Windows.Forms.TextBox
+ Friend WithEvents lvSearchResults As System.Windows.Forms.ListView
+ Friend WithEvents colName As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents pnlLoading As System.Windows.Forms.Panel
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents pnlTop As System.Windows.Forms.Panel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents btnSearch As System.Windows.Forms.Button
+ Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+ Friend WithEvents colLev As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colID As System.Windows.Forms.ColumnHeader
+ Friend WithEvents colSLang As System.Windows.Forms.ColumnHeader
+ Friend WithEvents btnVerify As System.Windows.Forms.Button
+ Friend WithEvents chkManual As System.Windows.Forms.CheckBox
+ Friend WithEvents txtTVDBID As System.Windows.Forms.TextBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.resx b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.resx
new file mode 100644
index 0000000..7a332a8
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.resx
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK/wAA
+ Cv8BNGKaggAACyJJREFUaEPtWAdQVWcWRukgvIcUqRopPlqoooKU0AREUZEOwpP6no/26EqTJiAaKcYS
+ xBJlVSwJSYhl1bgJiZlZ427cLG4ym92YZFJ2J8lks5vZFO+359w8jEZNzEyScWe4M9+8y3v3/v/5TvnO
+ +dHSmrqmPDDlgSkPTHlgygNTHpjywIPvATt7hwfPSDuH2XcY5enlbRwcEjLLzcMjxNHJqcfW1q7VwtLq
+ IanFrGkPDIPvGz4/IMB1nUqVrlQqe7Kyss4vjY//dPHixXBzc4OtrS1mmpu/M8vaesDW1r7T2sam3tfP
+ r4LeyXN395wzSSo7M0tLajbzJkeJ1OyX4Xur8WXl6tbevv63evv6Pt65c+eXnZ2dKCkpQXJyMoKDg7F8
+ +XIhISFBWJ2YiOUJCZjr6ChC5uoqEMGvA4OCPlkUGDRqY2u38G7W2to7uM6TuYVM/mZoZPzTSK1atUqX
+ jNBPy8gwLikrkyrXqSxzc3Nt/Pz852bn5Lw0OjqKiYkJXL9+XXji4EE0NDSguLgYSUlJCA0NFbFgwQKR
+ UF5uLtatWweOjK+vL6KiooTS0lIhPT0dFDUkJiZOLA4OSQ0Ne8QpKjp6T0ho6MdRUdEoUiiwZMmSDyys
+ rLzI+nunYXhE5CQ73eDQsMDdu3eX9Pb2HqqoqDhBi5zfsWPH1a1bH32/qqrq65ycHMTFxcHDw0Pw8/PD
+ 4cOHceXKFfT19SEjI4ONQTp9yuVy8TMmNhZxS5dCXVEhkmBiTCQtLR3l5eWgNVFRWYm6ujqUlZXfUNEz
+ FDkmKlhaWgle3t5wdnb+QM/Q0JmM1L6DSFh4hGh8RERUXmNj4/vd3d2fNTQ23KB71NfXY+3atWBP9ff3
+ o6OjAwryCqfH/PnzxRy3sLDAmTNncOrUKRQWFSE+fhkZUobU1FRERERgKRkfHh6OxNWrKUqNlGalUKmK
+ RYJMKGvNGrS0taG9o0PY0tPD3wm0Ptg5NjY2MDQ0FKxtbb8xMDSsJDMNCdPvyKVHIiKzO7u6kJeXJ1Ca
+ CMW0ydbHD6NYXQX2eGRkJNhgJkTFygTEvx0cHKCjoyPmOKfUgQMHsGx5AmgNrFy5UowGpwi/wyQosjhI
+ 6cZ7NW/ciJaWFly+fBkXL17E2NgYqmtqUFhYKK7PBNhBenp60NbWgalEsokM50pnEhyJm5dOe3vHuwUF
+ BWLoOI/zCpXoe/bP6H9uAsqKekQ8Eiaqio+PD4rIy7cSMDAwEKOwb98+MUpMMiY2DpmZmaIxnOtcH8uW
+ LRP279+PkydP4tChQ0T2CYyPj+PcuXNi9NgBR48eFYWAnr2NwLRp02BiYvKqjq6uO1ltTTAh6IgMSLe9
+ aeNPNapB4VVBnleE1iOX0Xj0ddTtv4TE1CzKeXdYWVkhOjpaJDoZASZAi6OLvNpGqVBbW4vklBT4U4TY
+ GZx2OTlysEqxoUNDQ2LRv/jiizh//jxGRkaIdAPy8vMpcnlYv2ED4omAv7//zQiQmZg5cybc3D1G6N5e
+ A1ORQFJyysLuzZs/41xlz3JuFimLoep5GoV9LyN7yzjSK/vxsJcXzM3N4eLiQnkeP0lAYAKWlpZobWsT
+ qqurOUJCRkam4ObuDtL/fzk6OnbRNs4+vr5VjU1NH7DxTKSPotVAdcYOUyoVWE01EhoagnnzZKBeAQ9P
+ z1sJCGZmZlz812kt7qBzCd82C3dPT9ddu3Z9HBsbK3Do2LuVpArxRd3wUz0Dp5zjmK84Bp+AIJEAL0TS
+ hoCAAMHe3h5GxsZiDdRq8peLl393cnb5o5m5eRptISXY1NTUVPYPDExwmqnVarBINDc3YyPVAtcIEwgL
+ CyPDPTCLIi2lfajxiTXAEZBKpbC3d6im+3kaEjNuFgEReI+KTuAoMJKTk7AqpwQy1SicVWNwUpxCQnqB
+ aLyurq6YRpxCs2fP/o/xDJMiZ2eXFPJY26LAwGcWLFz4eycn5y59A4MA2sCYvvckdXqV6uCr9evroC5X
+ C3WUZlxLbDQ7jcTjOwIeHqL6TKYmE+AaMDIyvkDFzGu6EWYR9LQmO2tlVVUfe4IME1j62IPyzDRElg/A
+ u/0luNReRHZ1N6QSiaCtrS0wASrof5AyFNJCiwi88HyCH8Fb4yVJeGTk6nwSBy7s9vZ2YXPfTuwcfhqV
+ G5qRLV+LFStWiF2bncGRFyOgIaCvrw8TU1NIJFJMnz798xkmM+S0rg/BRRPV25RI+thjj/2XlYMkU4iJ
+ iQF1YmRnUmNqG4Lvo6+irPNxSExNBYlEwhtepdTJpoV4DOCQsrxZEFgh2DvTg4KDU7kfcDqSc4QNjc04
+ cOENPDH+Hva98C56j42juLoRQYELIZPJ4OTkJPaNWwno6esLrqR+FM0DGuOZABexwc30CQkJE+8VSmXK
+ 4OCg2IS4/bN3srOzsYnUY/O+E6ht3EjekMDa2vqaqalpKr3CHdCDwLo8eXG7Z8woKS19mxWJGp/QQBHY
+ +Oggdl24jr6xN7D1qWvoPjmBTceuoqq1Dx5uMlEIuKYmGxhFQKB9aHZy+xutt5gQpNmPnXWb97Vk7iyv
+ Wto0PmwfHh4WNZ00W6AxQThy5AjOnj0DmlFuUM5/RG29hp6NI3DKfCtl37vCo6KWUIH+m3sLd9sKdRna
+ dj+FrhPX0DL8Gur3X4Gq/xJC1WOYmzWC2BQFOWYWjEkQXF1duQZY3QSaZN80NDJKpuVDCb53eP8ue+ts
+ 3769/jeHD39y+vRpPP/88yK6urvfppwfJA/J6Z14Ag9PnCp3vVLT0nJaWlu/4tmIi7WyQo2anmHUDV1B
+ 6cAlRFafwkNkuF3aUTikH0Ww4hBcPbxExbGzs2P5FIjM53q6elmavThVWT6NCHeOEmwFqcFNY+obGmxo
+ XM5oamrupGGsltQnk35kT6wiBBPsCLeH8RYqmZlZa6iBfZlCDW0NzTqN1IkLypsh3/oKPBWjmJv7JBwL
+ niKMwjH/SczJHUVaUR0V6zSWaoFViIr3OC25RIOH6VN6T+Pv5UnN91wwrgT2Auc8p80PnrBiYmIjtmzZ
+ 8jlFQGCp5Ekzt1AFX+UInJTPwKX0OcjUpyGrOIN55RQN5Rjk3WOYYWQosN7b2Np+QXusIKzURMCJPr8r
+ 3B8x+G4/s8F6P+T1771kQvPVhyQIAqsZN7fycjWCszdCVnUW7vUX4NXyArzbxuHZdBEu1ecQ3XoeC/x9
+ RKGg3O+l9VbfEnFWt29nn1/rSklN3bZ9YIAblEBdXmxU3HGDqocRtOM1xAz/BXFH3kT40J/gs+llRHX+
+ DpHhIUzgr0ZGRvlkZ4YmCj73E/Vfgtf0pqamT6vpwMJjCh+C+GxRlJ+LtB3PIu/SP6H4w2fIvPghwvdf
+ E4r2XhKCgxbdIDkdImNyCGsISwl8kNH/JQy855rOMpn4Gxkdtm3bti94YONBkccGbpaKwnzUbh9Ex/hV
+ VLzyDhJPvCHsOn4ajo5zz5IScXfnCLACcZMSG+OvSoA3U5WUiHsmJiVl7tmzRxigdKJxW+ihUxff79kz
+ iIPUcw4dOyGMPD2GAoXidXpcQVBqCHARc4P6iaf5n5EqwIOkltYcR8coGp/fp8b4zd69e8WTGzdIPsAc
+ O34cmzf3fES6v54eLWXuBJZtnq/u7Lo/o333tdTegwcnnzMrLCyqooPPb7f19v6dUusjapBvyeVrz9F5
+ t5UeqiCoCZxCMQT+d57ufW3yKz7EuWxNOh9Ip7tUmneKNB4v1qQOD4jcvFj3ues+sBdrupTwEMGHsIDg
+ T5ic9blpPTj/jvwRN/JIwk2SwcT+bwx/YNNjyrApD0x5YMoD9+eB/wG4NXpfmvI52QAAAABJRU5ErkJg
+ gg==
+</value>
+ </data>
+ <data name="btnSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK6QAA
+ CukB/XXO0wAAAepJREFUOE+lkktIG1EUhkeFaLQ+UGulgthNEUHRCrqyIHZTdSd0Iyq46cL3Sly50ppV
+ uywYi2uDiyKK1ioFk0lm7mSmSgymJuIqSkwwCTVpGs3fM0Pa+poWceBj4N5zvnvOuZcDwN2HeyWrB98Q
+ LFosuRJjz51O6cXmxsaj/1V3RSAx8fVXRQnIsgwVRZHjJHr7L8kfAROFPoWS3G43gicnCIVC8O7vQ11z
+ StKsnkQTrK6sGCSJBXddLpyfJ5FKpTTUz+f1gvbA22w1t0k0AW3WCYIAv9+PZPIn4vGYRiLxA+HwKRhj
+ EByOIV2BdWur3mG34/j4iJISiEYjRBSx2BkikQiYKOJQ4ft1BZ/X13NIEHalW1CrUEVACj6fF4yqe2W2
+ TegK0m0MiBSoziEQCNAQg/B4PPi2I8Fk+QJucBnZI0vvrkuuXCPP8+PU63dC7RnbTvHi/cKnA2O3GYbu
+ OeT0ziOv58Na8djHgt+iGw+JHk+pzWrtpMF27cn2Ko7jMnLbTebCl1MoaH+D/I4ZFHbM7FZ0ThtvfYl6
+ 913WMjFc2jyGkqZRlNC/om2yXBNk0RFEEfGEqCZqiXriGdGYpoHCHhdXtg6W1fQKD592mQwZ3N8KKCiL
+ yCaMRB7xgMi/zuXqMinnTi3otfYLj6yxrhdJtZ8AAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.vb b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.vb
new file mode 100644
index 0000000..cce33d3
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVDBSearchResults.vb
@@ -0,0 +1,437 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVDBSearchResults
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadPic As New System.ComponentModel.BackgroundWorker
+
+ Private lvResultsSorter As New ListViewColumnSorter
+ Private sHTTP As New HTTP
+ Private sInfo As Structures.ScrapeInfo
+ Private _manualresult As Scraper.TVSearchResults = Nothing
+ Private _skipdownload As Boolean = False
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal _sInfo As Structures.ScrapeInfo) As Windows.Forms.DialogResult
+ Me.sInfo = _sInfo
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ Return MyBase.ShowDialog()
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal _sinfo As Structures.ScrapeInfo, ByVal SkipDownload As Boolean) As Structures.ScrapeInfo
+ Me.sInfo = _sinfo
+ Me._skipdownload = SkipDownload
+
+ Me.Text = String.Concat(Master.eLang.GetString(85, "TV Search Results"), " - ", sInfo.ShowTitle)
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+
+ If MyBase.ShowDialog() = Windows.Forms.DialogResult.OK Then
+ Return Me.sInfo
+ Else
+ Return _sinfo
+ End If
+ End Function
+
+ Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
+ If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
+ Me.lvSearchResults.Enabled = False
+ Me.sInfo.ShowTitle = Me.txtSearch.Text
+ Me.ClearInfo()
+ Me.chkManual.Enabled = False
+ Me.chkManual.Checked = False
+ Me.txtSearch.Text = String.Empty
+ Me.btnVerify.Enabled = False
+ Scraper.sObject.GetSearchResultsAsync(Me.sInfo)
+ Me.pnlLoading.Visible = True
+ End If
+ End Sub
+
+ Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
+ If IsNumeric(Me.txtTVDBID.Text) AndAlso Me.txtTVDBID.Text.Length >= 5 Then
+ Dim tmpXML As XDocument = Nothing
+ Dim sLang As String = String.Empty
+
+ Me.ClearInfo()
+ Me.pnlLoading.Visible = True
+ Application.DoEvents()
+
+ Dim forceXML As String = sHTTP.DownloadData(String.Format("http://{0}/api/{1}/series/{2}/{3}.xml", Master.eSettings.TVDBMirror, Scraper.APIKey, Me.txtTVDBID.Text, Master.eSettings.TVDBLanguage))
+
+ If Not String.IsNullOrEmpty(forceXML) Then
+ Try
+ tmpXML = XDocument.Parse(forceXML)
+ Catch
+ End Try
+
+ If Not IsNothing(tmpXML) Then
+ Dim tSer As XElement = tmpXML.Descendants("Series").FirstOrDefault(Function(s) s.HasElements)
+
+ If Not IsNothing(tSer) Then
+ Me._manualresult = New Scraper.TVSearchResults
+ Me._manualresult.ID = Convert.ToInt32(tSer.Element("id").Value)
+ Me._manualresult.Name = If(Not IsNothing(tSer.Element("SeriesName")), tSer.Element("SeriesName").Value, String.Empty)
+ If Not IsNothing(tSer.Element("Language")) AndAlso Master.eSettings.TVDBLanguages.Count > 0 Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = Master.eSettings.TVDBLanguages.FirstOrDefault(Function(s) s.ShortLang = sLang)
+ ElseIf Not IsNothing(tSer.Element("Language")) Then
+ sLang = tSer.Element("Language").Value
+ Me._manualresult.Language = New Containers.TVLanguage With {.LongLang = String.Format("Unknown ({0})", sLang), .ShortLang = sLang}
+ End If
+ Me._manualresult.Aired = If(Not IsNothing(tSer.Element("FirstAired")), tSer.Element("FirstAired").Value, String.Empty)
+ Me._manualresult.Overview = If(Not IsNothing(tSer.Element("Overview")), tSer.Element("Overview").Value, String.Empty)
+ Me._manualresult.Banner = If(Not IsNothing(tSer.Element("banner")), tSer.Element("banner").Value, String.Empty)
+ If Not String.IsNullOrEmpty(Me._manualresult.Name) AndAlso Not String.IsNullOrEmpty(sLang) Then
+ If Not String.IsNullOrEmpty(Me._manualresult.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = Me._manualresult.Banner})
+ End If
+
+ Me.OK_Button.Tag = Me._manualresult.ID
+ Me.lblTitle.Text = Me._manualresult.Name
+ Me.txtOutline.Text = Me._manualresult.Overview
+ Me.lblAired.Text = Me._manualresult.Aired
+ Me.OK_Button.Enabled = True
+ Me.pnlLoading.Visible = False
+ Me.ControlsVisible(True)
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+ Else
+ Me.pnlLoading.Visible = False
+ End If
+
+ Else
+ MsgBox(Master.eLang.GetString(83, "The ID you entered is not a valid TVDB ID."), MsgBoxStyle.Exclamation, Master.eLang.GetString(292, "Invalid Entry", True))
+ End If
+ End Sub
+
+ Private Sub bwDownloadPic_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwDownloadPic.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ sHTTP.StartDownloadImage(String.Format("http://{0}/banners/_cache/{1}", Master.eSettings.TVDBMirror, Args.pURL))
+
+ While sHTTP.IsDownloading
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ e.Result = New Results With {.Result = sHTTP.Image()}
+ End Sub
+
+ Private Sub bwDownloadPic_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwDownloadPic.RunWorkerCompleted
+ Dim Res As Results = DirectCast(e.Result, Results)
+
+ Try
+ Me.pbBanner.Image = Res.Result
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub chkManual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkManual.CheckedChanged
+ Me.ClearInfo()
+ Me.OK_Button.Enabled = False
+ Me.txtTVDBID.Enabled = Me.chkManual.Checked
+ Me.btnVerify.Enabled = Me.chkManual.Checked
+ Me.lvSearchResults.Enabled = Not Me.chkManual.Checked
+
+ If Not Me.chkManual.Checked Then
+ txtTVDBID.Text = String.Empty
+ Else
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then Me.lvSearchResults.SelectedItems(0).Selected = False
+ End If
+ End Sub
+
+ Private Sub ClearInfo()
+ Me.ControlsVisible(False)
+ Me.lblTitle.Text = String.Empty
+ Me.lblAired.Text = String.Empty
+ Me.pbBanner.Image = Nothing
+ Scraper.sObject.CancelAsync()
+ End Sub
+
+ Private Sub ControlsVisible(ByVal areVisible As Boolean)
+ Me.pbBanner.Visible = areVisible
+ Me.lblTitle.Visible = areVisible
+ Me.lblAiredHeader.Visible = areVisible
+ Me.lblAired.Visible = areVisible
+ Me.lblPlotHeader.Visible = areVisible
+ Me.txtOutline.Visible = areVisible
+ End Sub
+
+ Private Sub dlgTVDBSearchResults_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Try
+ AddHandler ModulesManager.Instance.TVScraperEvent, AddressOf TVScraperEvent
+ Dim iBackground As New Bitmap(Me.pnlTop.Width, Me.pnlTop.Height)
+ Using g As Graphics = Graphics.FromImage(iBackground)
+ g.FillRectangle(New Drawing2D.LinearGradientBrush(Me.pnlTop.ClientRectangle, Color.SteelBlue, Color.LightSteelBlue, Drawing2D.LinearGradientMode.Horizontal), pnlTop.ClientRectangle)
+ Me.pnlTop.BackgroundImage = iBackground
+ End Using
+
+ Me.lvSearchResults.ListViewItemSorter = Me.lvResultsSorter
+
+ Me.SetUp()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvSearchResults.ColumnClick
+ ' Determine if the clicked column is already the column that is
+ ' being sorted.
+ Try
+ If (e.Column = Me.lvResultsSorter.SortColumn) Then
+ ' Reverse the current sort direction for this column.
+ If (Me.lvResultsSorter.Order = SortOrder.Ascending) Then
+ Me.lvResultsSorter.Order = SortOrder.Descending
+ Else
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+ Else
+ ' Set the column number that is to be sorted; default to ascending.
+ Me.lvResultsSorter.SortColumn = e.Column
+ Me.lvResultsSorter.Order = SortOrder.Ascending
+ End If
+
+ ' Perform the sort with these new sort options.
+ Me.lvSearchResults.Sort()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub lvSearchResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvSearchResults.GotFocus
+ Me.AcceptButton = Me.OK_Button
+ End Sub
+
+ Private Sub lvSearchResults_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvSearchResults.SelectedIndexChanged
+ Me.ClearInfo()
+ If Me.lvSearchResults.SelectedItems.Count > 0 AndAlso Not Me.chkManual.Checked Then
+ Dim SelectedShow As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ If Not String.IsNullOrEmpty(SelectedShow.Banner) Then
+ If Me.bwDownloadPic.IsBusy Then
+ Me.bwDownloadPic.CancelAsync()
+ End If
+
+ Me.bwDownloadPic = New System.ComponentModel.BackgroundWorker
+ Me.bwDownloadPic.WorkerSupportsCancellation = True
+ Me.bwDownloadPic.RunWorkerAsync(New Arguments With {.pURL = SelectedShow.Banner})
+ End If
+
+ Me.OK_Button.Tag = SelectedShow.ID
+ Me.lblTitle.Text = SelectedShow.Name
+ Me.txtOutline.Text = SelectedShow.Overview
+ Me.lblAired.Text = SelectedShow.Aired
+ Me.OK_Button.Enabled = True
+ Me.ControlsVisible(True)
+ End If
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ If Me.lvSearchResults.SelectedItems.Count > 0 Then
+ Dim sResults As Scraper.TVSearchResults = DirectCast(Me.lvSearchResults.SelectedItems(0).Tag, Scraper.TVSearchResults)
+ Me.sInfo.TVDBID = sResults.ID.ToString
+ Me.sInfo.SelectedLang = sResults.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ ElseIf Me.chkManual.Checked AndAlso Not IsNothing(Me._manualresult) Then
+ Me.sInfo.TVDBID = Me._manualresult.ID.ToString
+ Me.sInfo.SelectedLang = Me._manualresult.Language.ShortLang
+
+ If Not _skipdownload Then
+ Me.Label3.Text = Master.eLang.GetString(84, "Downloading show info...")
+ Me.pnlLoading.Visible = True
+ Scraper.sObject.DownloadSeriesAsync(sInfo)
+ Else
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label1.Text = Master.eLang.GetString(85, "TV Search Results")
+ Me.Label2.Text = Master.eLang.GetString(86, "View details of each result to find the proper TV show.")
+ Me.lblAiredHeader.Text = Master.eLang.GetString(658, "Aired:", True)
+ Me.lblPlotHeader.Text = Master.eLang.GetString(783, "Plot Summary:", True)
+
+ Me.lvSearchResults.Columns(0).Text = Master.eLang.GetString(21, "Title", True)
+ Me.lvSearchResults.Columns(1).Text = Master.eLang.GetString(610, "Language", True)
+
+ Me.OK_Button.Text = Master.eLang.GetString(179, "OK", True)
+ Me.Cancel_Button.Text = Master.eLang.GetString(167, "Cancel", True)
+ End Sub
+
+ Private Sub TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ Select Case eType
+ Case Enums.TVScraperEventType.SearchResultsDownloaded
+ Dim lItem As ListViewItem
+ Dim sResults As List(Of Scraper.TVSearchResults) = DirectCast(Parameter, List(Of Scraper.TVSearchResults))
+
+ Me.lvSearchResults.Items.Clear()
+
+ If Not IsNothing(sResults) AndAlso sResults.Count > 0 Then
+ For Each sRes As Scraper.TVSearchResults In sResults.OrderBy(Function(r) r.Lev)
+ lItem = New ListViewItem(sRes.Name)
+ lItem.SubItems.Add(sRes.Language.LongLang)
+ lItem.SubItems.Add(sRes.Lev.ToString)
+ lItem.SubItems.Add(sRes.ID.ToString)
+ lItem.SubItems.Add(sRes.Language.ShortLang)
+ lItem.Tag = sRes
+ Me.lvSearchResults.Items.Add(lItem)
+ Next
+ End If
+
+ Me.pnlLoading.Visible = False
+
+ If Me.lvSearchResults.Items.Count > 0 Then
+ If sResults.Select(Function(s) s.ID).Distinct.Count = 1 Then
+ 'they're all for the same show... try to find one with the preferred language
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ Else
+ 'we've got a bunch of different shows... try to find a "best match" title with the preferred language
+ If sResults.Where(Function(s) s.Lev <= 5).Count > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(2).Text) <= 5 AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ 'get the id for the best english match and see if we have one for the preferred language with same id
+ Dim tID As Integer = sResults.OrderBy(Function(s) s.Lev).FirstOrDefault(Function(s) s.Language.ShortLang = "en").ID
+ If tID > 0 Then
+ For Each fItem As ListViewItem In Me.lvSearchResults.Items
+ If Convert.ToInt32(fItem.SubItems(3).Text) = tID AndAlso fItem.SubItems(4).Text = Master.eSettings.TVDBLanguage Then
+ fItem.Selected = True
+ fItem.EnsureVisible()
+ Exit For
+ End If
+ Next
+ End If
+ End If
+ End If
+ End If
+
+ If Me.lvSearchResults.SelectedItems.Count = 0 Then
+ Me.lvSearchResults.Items(0).Selected = True
+ End If
+ Me.lvSearchResults.Select()
+ End If
+
+ Me.chkManual.Enabled = True
+ If Not Me.chkManual.Checked Then Me.lvSearchResults.Enabled = True
+
+ Case Enums.TVScraperEventType.ShowDownloaded
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Select
+ End Sub
+
+ Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.GotFocus
+ Me.AcceptButton = Me.btnSearch
+ End Sub
+
+ Private Sub txtTVDBID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTVDBID.GotFocus
+ Me.AcceptButton = Me.btnVerify
+ End Sub
+
+ Private Sub txtTVDBID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTVDBID.KeyPress
+ e.Handled = StringUtils.NumericOnly(e.KeyChar, True)
+ End Sub
+
+ Private Sub txtTVDBID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTVDBID.TextChanged
+ If String.IsNullOrEmpty(Me.txtTVDBID.Text) Then
+ Me.btnVerify.Enabled = False
+ Me.OK_Button.Enabled = False
+ Else
+ If Me.chkManual.Checked Then
+ Me.btnVerify.Enabled = True
+ Me.OK_Button.Enabled = False
+ End If
+ End If
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim pURL As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Image
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.Designer.vb b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.Designer.vb
new file mode 100644
index 0000000..a3ebbd8
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.Designer.vb
@@ -0,0 +1,86 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class dlgTVEpisodePoster
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.pbPoster = New System.Windows.Forms.PictureBox()
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Location = New System.Drawing.Point(292, 287)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(362, 287)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Cancel"
+ '
+ 'pbPoster
+ '
+ Me.pbPoster.BackColor = System.Drawing.Color.DimGray
+ Me.pbPoster.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pbPoster.Location = New System.Drawing.Point(6, 6)
+ Me.pbPoster.Name = "pbPoster"
+ Me.pbPoster.Size = New System.Drawing.Size(423, 276)
+ Me.pbPoster.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbPoster.TabIndex = 2
+ Me.pbPoster.TabStop = False
+ '
+ 'dlgTVEpisodePoster
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 315)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.pbPoster)
+ Me.Controls.Add(Me.OK_Button)
+ Me.Controls.Add(Me.Cancel_Button)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgTVEpisodePoster"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Confirm Episode Poster"
+ CType(Me.pbPoster, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents pbPoster As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.resx b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.resx
new file mode 100644
index 0000000..19dc0dd
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.vb b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.vb
new file mode 100644
index 0000000..60ed929
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVEpisodePoster.vb
@@ -0,0 +1,48 @@
+Imports EmberAPI
+
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Public Class dlgTVEpisodePoster
+
+#Region "Methods"
+
+ Public Overloads Function ShowDialog(ByVal Poster As Image) As System.Windows.Forms.DialogResult
+ Me.pbPoster.Image = Poster
+ Return MyBase.ShowDialog
+ End Function
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub pbPoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbPoster.Click
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(Me.pbPoster.Image)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.Designer.vb b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.Designer.vb
new file mode 100644
index 0000000..cf05d15
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.Designer.vb
@@ -0,0 +1,213 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class dlgTVImageSelect
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTVImageSelect))
+ Me.tvList = New System.Windows.Forms.TreeView()
+ Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+ Me.pnlImages = New System.Windows.Forms.Panel()
+ Me.pbCurrent = New System.Windows.Forms.PictureBox()
+ Me.pnlStatus = New System.Windows.Forms.Panel()
+ Me.lblStatus = New System.Windows.Forms.Label()
+ Me.pbStatus = New System.Windows.Forms.ProgressBar()
+ Me.btnOK = New System.Windows.Forms.Button()
+ Me.btnCancel = New System.Windows.Forms.Button()
+ Me.pbDelete = New System.Windows.Forms.PictureBox()
+ Me.pbUndo = New System.Windows.Forms.PictureBox()
+ Me.lblCurrentImage = New System.Windows.Forms.Label()
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.pnlStatus.SuspendLayout()
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'tvList
+ '
+ Me.tvList.Enabled = False
+ Me.tvList.ImageIndex = 0
+ Me.tvList.ImageList = Me.ImageList1
+ Me.tvList.Location = New System.Drawing.Point(3, 4)
+ Me.tvList.Name = "tvList"
+ Me.tvList.SelectedImageIndex = 0
+ Me.tvList.Size = New System.Drawing.Size(214, 262)
+ Me.tvList.TabIndex = 2
+ Me.tvList.Visible = False
+ '
+ 'ImageList1
+ '
+ Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+ Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+ Me.ImageList1.Images.SetKeyName(0, "new_page.png")
+ Me.ImageList1.Images.SetKeyName(1, "image.png")
+ Me.ImageList1.Images.SetKeyName(2, "artwork.png")
+ Me.ImageList1.Images.SetKeyName(3, "star_full.png")
+ '
+ 'pnlImages
+ '
+ Me.pnlImages.AutoScroll = True
+ Me.pnlImages.BackColor = System.Drawing.SystemColors.Control
+ Me.pnlImages.Location = New System.Drawing.Point(222, 4)
+ Me.pnlImages.Name = "pnlImages"
+ Me.pnlImages.Size = New System.Drawing.Size(622, 421)
+ Me.pnlImages.TabIndex = 3
+ '
+ 'pbCurrent
+ '
+ Me.pbCurrent.BackColor = System.Drawing.SystemColors.Control
+ Me.pbCurrent.Location = New System.Drawing.Point(3, 293)
+ Me.pbCurrent.Name = "pbCurrent"
+ Me.pbCurrent.Size = New System.Drawing.Size(214, 157)
+ Me.pbCurrent.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.pbCurrent.TabIndex = 2
+ Me.pbCurrent.TabStop = False
+ Me.pbCurrent.Visible = False
+ '
+ 'pnlStatus
+ '
+ Me.pnlStatus.BackColor = System.Drawing.Color.White
+ Me.pnlStatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlStatus.Controls.Add(Me.lblStatus)
+ Me.pnlStatus.Controls.Add(Me.pbStatus)
+ Me.pnlStatus.Location = New System.Drawing.Point(264, 192)
+ Me.pnlStatus.Name = "pnlStatus"
+ Me.pnlStatus.Size = New System.Drawing.Size(321, 75)
+ Me.pnlStatus.TabIndex = 5
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblStatus.Location = New System.Drawing.Point(5, 10)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(310, 13)
+ Me.lblStatus.TabIndex = 0
+ Me.lblStatus.Text = "Gathering Data..."
+ '
+ 'pbStatus
+ '
+ Me.pbStatus.Location = New System.Drawing.Point(6, 52)
+ Me.pbStatus.MarqueeAnimationSpeed = 25
+ Me.pbStatus.Name = "pbStatus"
+ Me.pbStatus.Size = New System.Drawing.Size(309, 19)
+ Me.pbStatus.Step = 1
+ Me.pbStatus.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+ Me.pbStatus.TabIndex = 1
+ '
+ 'btnOK
+ '
+ Me.btnOK.Enabled = False
+ Me.btnOK.Location = New System.Drawing.Point(708, 431)
+ Me.btnOK.Name = "btnOK"
+ Me.btnOK.Size = New System.Drawing.Size(65, 22)
+ Me.btnOK.TabIndex = 0
+ Me.btnOK.Text = "OK"
+ Me.btnOK.UseVisualStyleBackColor = True
+ '
+ 'btnCancel
+ '
+ Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.btnCancel.Location = New System.Drawing.Point(779, 431)
+ Me.btnCancel.Name = "btnCancel"
+ Me.btnCancel.Size = New System.Drawing.Size(65, 22)
+ Me.btnCancel.TabIndex = 1
+ Me.btnCancel.Text = "Cancel"
+ Me.btnCancel.UseVisualStyleBackColor = True
+ '
+ 'pbDelete
+ '
+ Me.pbDelete.Image = CType(resources.GetObject("pbDelete.Image"), System.Drawing.Image)
+ Me.pbDelete.Location = New System.Drawing.Point(3, 293)
+ Me.pbDelete.Name = "pbDelete"
+ Me.pbDelete.Size = New System.Drawing.Size(16, 16)
+ Me.pbDelete.TabIndex = 13
+ Me.pbDelete.TabStop = False
+ Me.pbDelete.Visible = False
+ '
+ 'pbUndo
+ '
+ Me.pbUndo.Image = CType(resources.GetObject("pbUndo.Image"), System.Drawing.Image)
+ Me.pbUndo.Location = New System.Drawing.Point(201, 293)
+ Me.pbUndo.Name = "pbUndo"
+ Me.pbUndo.Size = New System.Drawing.Size(16, 16)
+ Me.pbUndo.TabIndex = 14
+ Me.pbUndo.TabStop = False
+ Me.pbUndo.Visible = False
+ '
+ 'lblCurrentImage
+ '
+ Me.lblCurrentImage.AutoSize = True
+ Me.lblCurrentImage.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblCurrentImage.Location = New System.Drawing.Point(0, 274)
+ Me.lblCurrentImage.Name = "lblCurrentImage"
+ Me.lblCurrentImage.Size = New System.Drawing.Size(100, 17)
+ Me.lblCurrentImage.TabIndex = 4
+ Me.lblCurrentImage.Text = "Current Image:"
+ Me.lblCurrentImage.Visible = False
+ '
+ 'dlgTVImageSelect
+ '
+ Me.AcceptButton = Me.btnOK
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.btnCancel
+ Me.ClientSize = New System.Drawing.Size(849, 481)
+ Me.ControlBox = False
+ Me.Controls.Add(Me.lblCurrentImage)
+ Me.Controls.Add(Me.pbUndo)
+ Me.Controls.Add(Me.pbDelete)
+ Me.Controls.Add(Me.btnCancel)
+ Me.Controls.Add(Me.btnOK)
+ Me.Controls.Add(Me.pnlStatus)
+ Me.Controls.Add(Me.pbCurrent)
+ Me.Controls.Add(Me.pnlImages)
+ Me.Controls.Add(Me.tvList)
+ Me.DoubleBuffered = True
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.MinimumSize = New System.Drawing.Size(855, 491)
+ Me.Name = "dlgTVImageSelect"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "TV Image Selection"
+ CType(Me.pbCurrent, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.pnlStatus.ResumeLayout(False)
+ CType(Me.pbDelete, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbUndo, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents tvList As System.Windows.Forms.TreeView
+ Friend WithEvents pnlImages As System.Windows.Forms.Panel
+ Friend WithEvents pbCurrent As System.Windows.Forms.PictureBox
+ Friend WithEvents pnlStatus As System.Windows.Forms.Panel
+ Friend WithEvents lblStatus As System.Windows.Forms.Label
+ Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
+ Friend WithEvents btnOK As System.Windows.Forms.Button
+ Friend WithEvents btnCancel As System.Windows.Forms.Button
+ Friend WithEvents pbDelete As System.Windows.Forms.PictureBox
+ Friend WithEvents pbUndo As System.Windows.Forms.PictureBox
+ Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+ Friend WithEvents lblCurrentImage As System.Windows.Forms.Label
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.resx b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.resx
new file mode 100644
index 0000000..db85c76
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.resx
@@ -0,0 +1,210 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
+ LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+ ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
+ CwAAAk1TRnQBSQFMAgEBBAEAATABAAEwAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+ AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+ AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+ AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+ AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+ AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+ ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+ AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+ AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+ AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+ AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+ AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+ AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+ AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+ AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+ ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+ Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+ AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+ AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+ AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+ ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+ Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+ AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+ AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+ AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+ AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+ AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+ AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AFgAC/wMA
+ Bf8DAAH/BAAL/wMAA/8BAAb/AQAD/wMABf8C9AX/AgAC/wHzAfAJvAHzAv8CAAL/AfQB8QH0AfIB8QH0
+ AfEB8wL/AwAD/wH0Af8E9AH/AvQC/wMAAf8B8QEHB7wB8gH/AwAB/wG8AfEC8gXzAvIB8AH0AwAD/wGT
+ AfQB8AGTAQABkwH0Av8DAAL/AfQBUwGZBP8B8AFTAfAC/wQAAfEB8AfxAfIEAAH0AfAB8QHyB/MB8gHx
+ AfQGAAEaAvMBmQH/AZMIAAH/AXUBMgF1AfQB/wGaAjIB9AYAAvEI8gQAAfQB8AEJCLsBCQHxAfQFAAH/
+ AZMBdAGZAXQBmQF0AfQIAAEaAjICUwIyAXUB/wYACfIB8wQAAfQBuwG5AbMGigGyAbkBuwH0BAAB8wGZ
+ BnQBkwHxAf8GAAH0BjIBGgcAAvIG8wHyAfMEAAH0AbsCuQGsAYoCrAGKAawBswG5AbsB9AQAAvEB8AG7
+ AbUBBwEaAfIB8wHwAf8GAAH2AVMFMgEbBwAK8wQAAf8BuwO5AbIDrAGzArkBuwH0BAAB8gG8Aa4BbAFL
+ AUwBUgGZAfMB8QH/BQAB8wFTBzIBGgYACvMEAAH/AbsDuQGyAqwBsgO5AbsB9AQAAfEB/wEHAW4BUgIy
+ AY4B9AHyAf8DAAH/ARoKMgF6Af8EAArzBAAB/wEJAroBswGsArIBrAGzAroBuwH0BAAB8gH2AbsCggNM
+ AvMB/wMAAfQBMgFTAlkBUwMyA1kBMgEaBAAG8wP0AfMEAAH/AQkDugSyA7oBCQH0BAABGwH0AbsB9AGO
+ AbABkwF1AfQB8wH/BAAE/wEaAjIBegX/BAAF8wH0AfIC7wHyBAAB9AHwA7sBugKyAboDuwEJAfQEAAEb
+ Af8B8wH/Ab0B8gH0AbcB8wH0Af8IAAH0AjgBGgkABfMB9AEHAewB8AUAAfQB8AoJAfAB9AQAAfMC9AEb
+ AZkBkwEaAvQBGwH/CAAB/wF6ATgB/wkABfMB9AEHAbwGAAH/AfMBGQnyAfMB/wQABP8BmQF0AfQD/woA
+ ARoBWQH/CQAB/wX0AfMIAAH0CvMB9AkAAfMBGg4AAf8B9EcAAUIBTQE+BwABPgMAASgDAAFAAwABIAMA
+ AQEBAAEBBgABARYAA/+BAAL/AZwBHQHgAQMBiAERAcABAwIAAcABAwGAAQEBwAEDAYABAQHAAUMBgAEB
+ AeABBwGAAQEB+AEfAeABBwHgAQcBgAEBAfABDwHwAQcB4AEHAYABAQHgAQMB8AEPAeABBwGAAQEB4AED
+ AfABDwHgAQcBgAEBAeABAwHgAQcB4AEHAYABAQHgAQMBgAEBAeABBwGAAQEB4AEDAYABAQHgAQcBgAEB
+ AeABAwHAAQEB4AEHAYABAQHgAQMB/AE/AeABDwGAAQEB4AEDAfwBPwHgAR8BgAEBAeABBwH+AT8B4AE/
+ AcABAwH+AX8B/gF/CP8L
+</value>
+ </data>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="pbDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAGHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3NPsx9OAAAB60lEQVQ4T2P4//8/AyUYRfN9B2Pfu3YGzbgMvGdnkHnP3qgQWR5uwC1X
+ s4grBqr/L2kp/L9upbsF3ZAbdgaNl3WV/1/WUfp/w96w9//BmYwgNWADrnpYcZ3WUf5/XFEajE+py/2/
+ aIkw5LKtQeNpbSWgnBQYn9JU/H/eTNsUbsBOTi7GA4rSPQeUZf6DMVDRITW5/2csdVecszesOaqt+H8/
+ UAwuryS9/4CsBDfcAJhzdyrL9O5Qkv6/E4h3KEj93wN0yT4txf/bFSQhYhC5/Us0FVlgejBiYCPQkA1A
+ hWAMtHU90CAYf6OS9N752iqsWAMRWXCFkvTxFcCwQMPvNpkawG3G6YIFitINCxWk/gDxf3S8QFFqI3rs
+ oHhhhqJ040ygRhieAWSDMKqY9Jb/T7/D9YEZE1TlGSYqSDVMlJf6D8MTQGwF6c2TFKS7wGxkrCC1ZZKK
+ HAc8FnrVFLg65SX/o+H9tfqqTCBFXQpSvR1o8l2K0mYo0dihJJvYBLSlSU7yP5De9y3AG6wZhpvlpbrB
+ ckDcoigz/bGzFViegZkBjAWAFG+cpGh9trTYFm4WZgMgXwcobgzCQDaIr5AiKTo3U1p8IZAtAsR8cBcA
+ FTEDMdhPYEEGBk4gnxcZA8V4kOTZQHowUiI52RoAvKofAJdcVi8AAAAASUVORK5CYII=
+</value>
+ </data>
+ <data name="pbUndo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O
+ HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAArpAAAK6QH9dc7TAAAAHHRFWHRTb2Z0d2FyZQBBZG9i
+ ZSBGaXJld29ya3MgQ1M0BrLToAAAAihJREFUOE9j+P//PwMlmCLNIIupZwATAwMjOxs7Q8XKkwzFG2+y
+ GnYd8XOZdprZedopBr9FVxiSNt5jqD3wjGHC6TcMvadegzGKCxgYGFhVdE0Y0ldcYVFt3LeYIWfrO9aS
+ XZzmU84weC+6ypBMhAEsPoU9nBJV+w4xpG/4z5C//SN/zf4ou1kXDIAGsKRvvsdQfxCPC7jFFIVFc9fu
+ ZEhb+58hZ9N/hoLt/xlL9/xnqT78X6Ln3D3bRbfaSvc+FZ927g3DpDMQjOIF1ohptxlSgJrTEQYwlOz+
+ z1C+/z9D1eH/jM2n/6vOuf06dtsT64ydTxjSdjxBNYApdf1/huSVmAZUHPjPUHPkP0P9if8MLWf/K8y7
+ 98lw0T1do0V3UQ0QsoqIZc/e/AXZCwyFuyAuABtw8j9D05n/LF2X/2ssfnTEeOkDVAPYmRgZtLJn2bFk
+ b/7BkLURFAa/NbuOdUi1HY8QbjsZKtN3Pkl20uUpHD2Xn/FNuf3fYNljF4xotPGLYohacsWOIXPDW4a8
+ bW/lmw9yKXedYJDuOs2gO/0Sg/vyOwxZu56yGCy+Xy086/58dAMYxSRlGJq3XWOIWnhBS6hy93rB6r0c
+ YnX7GWQ6TzJoT7vE4Lz0NkPW7ucMkdufM1mufOJP3aQMMo2ZgYEZiEWBWBaYtKVYOPkNWMRUvYFscSCW
+ BYqLAzErcu5FyUxASUaQAiDmAGIuIAbLA2l2qBgbSA2yAQAKojORM6Lv5AAAAABJRU5ErkJggg==
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.vb b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.vb
new file mode 100644
index 0000000..288414e
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/TVScraper/dlgTVImageSelect.vb
@@ -0,0 +1,1224 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+'TODO: 1.5 - TV Show renaming (including "dump folder")
+'TODO: 1.5 - Support VIDEO_TS/BDMV folders for TV Shows
+
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports EmberAPI
+
+Public Class dlgTVImageSelect
+
+#Region "Fields"
+
+ Friend WithEvents bwDownloadFanart As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadData As New System.ComponentModel.BackgroundWorker
+ Friend WithEvents bwLoadImages As New System.ComponentModel.BackgroundWorker
+
+ Private DefaultImages As New Scraper.TVImages
+ Private FanartList As New List(Of Scraper.TVDBFanart)
+ Private GenericPosterList As New List(Of Scraper.TVDBPoster)
+ Private iCounter As Integer = 0
+ Private iLeft As Integer = 5
+ Private iTop As Integer = 5
+ Private lblImage() As Label
+ Private pbImage() As PictureBox
+ Private pnlImage() As Panel
+ Private SeasonList As New List(Of Scraper.TVDBSeasonPoster)
+ Private SelIsPoster As Boolean = True
+ Private SelSeason As Integer = -999
+ Private ShowPosterList As New List(Of Scraper.TVDBShowPoster)
+ Private _fanartchanged As Boolean = False
+ Private _id As Integer = -1
+ Private _season As Integer = -999
+ Private _type As Enums.TVImageType = Enums.TVImageType.All
+ Private _withcurrent As Boolean = True
+ Private _ScrapeType As Enums.ScrapeType
+
+#End Region 'Fields
+
+#Region "Methods"
+
+ Public Function SetDefaults() As Boolean
+ Dim iSeason As Integer = -1
+ Dim iEpisode As Integer = -1
+ Dim iProgress As Integer = 3
+
+ Dim tSea As Scraper.TVDBSeasonPoster
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.TVDBImages.SeasonImageList.Count + Scraper.tmpTVDBShow.Episodes.Count + 3, "defaults")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster) AndAlso IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ If Master.eSettings.IsShowBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredShowBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) p.Language = Master.eSettings.TVDBLanguage AndAlso Not IsNothing(p.Image.Image))
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If Master.eSettings.OnlyGetTVImagesForSelectedLanguage Then
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ End If
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredShowPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSPg.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.ShowPoster.Image = tSP.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(1, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Dim tSF As Scraper.TVDBFanart = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize AndAlso f.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image) AndAlso Me.GetFanartDims(f.Size) = Master.eSettings.PreferredShowFanartSize)
+
+ 'no fanart of the preferred size, just get the first available
+ If IsNothing(tSF) Then tSF = FanartList.FirstOrDefault(Function(f) Not IsNothing(f.Image.Image))
+
+ If Not IsNothing(tSF) Then
+ If Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso File.Exists(tSF.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(tSF.LocalFile)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ ElseIf Not String.IsNullOrEmpty(tSF.LocalFile) AndAlso Not String.IsNullOrEmpty(tSF.URL) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(tSF.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(tSF.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(tSF.LocalFile, , , False)
+ Scraper.TVDBImages.ShowFanart.LocalFile = tSF.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = tSF.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(2, "progress")
+
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled AndAlso IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ If Master.eSettings.IsAllSBanner Then
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Type = Master.eSettings.PreferredAllSBannerType)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ Else
+ 'still nothing? try to get from generic posters
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ End If
+ End If
+ Else
+ Dim tSPg As Scraper.TVDBPoster = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso Me.GetPosterDims(p.Size) = Master.eSettings.PreferredAllSPosterSize)
+
+ 'no preferred size, just get any one of them
+ If IsNothing(tSPg) Then tSPg = GenericPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSPg) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSPg.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSPg.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSPg.URL
+ Else
+ Dim tSP As Scraper.TVDBShowPoster = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Language = Master.eSettings.TVDBLanguage)
+
+ If IsNothing(tSP) Then tSP = ShowPosterList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image))
+
+ If Not IsNothing(tSP) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = tSP.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = tSP.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = tSP.URL
+ End If
+ End If
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(3, "progress")
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.SeasonFanart Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList
+ Try
+ iSeason = cSeason.Season
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster) AndAlso IsNothing(cSeason.Poster.Image) Then
+ tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize AndAlso p.Language = Master.eSettings.TVDBLanguage)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason AndAlso p.Type = Master.eSettings.PreferredSeasonPosterSize)
+ If IsNothing(tSea) Then tSea = SeasonList.FirstOrDefault(Function(p) Not IsNothing(p.Image.Image) AndAlso p.Season = iSeason)
+ If Not IsNothing(tSea) Then cSeason.Poster = tSea.Image
+ End If
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonFanart) AndAlso Master.eSettings.SeasonFanartEnabled AndAlso IsNothing(cSeason.Fanart.Image.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then cSeason.Fanart.Image = Scraper.TVDBImages.ShowFanart.Image
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Episode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not String.IsNullOrEmpty(Episode.TVEp.LocalFile) Then
+ Episode.TVEp.Poster.FromFile(Episode.TVEp.LocalFile)
+ ElseIf Not String.IsNullOrEmpty(Episode.EpPosterPath) Then
+ Episode.TVEp.Poster.FromFile(Episode.EpPosterPath)
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled Then
+ If Not String.IsNullOrEmpty(Episode.EpFanartPath) Then
+ Episode.TVEp.Fanart.FromFile(Episode.EpFanartPath)
+ ElseIf Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Episode.TVEp.Fanart = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ DefaultImages = Scraper.TVDBImages.Clone
+
+ Return False
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As System.Windows.Forms.DialogResult
+ Me._id = ShowID
+ Me._type = Type
+ Me._withcurrent = WithCurrent
+ Me._ScrapeType = ScrapeType
+ Return MyBase.ShowDialog
+ End Function
+
+ Public Overloads Function ShowDialog(ByVal ShowID As Integer, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal CurrentImage As Images) As Images
+ Me._id = ShowID
+ Me._type = Type
+ Me._season = Season
+ Me.pbCurrent.Image = CurrentImage.Image
+ Me.pbCurrent.Tag = CurrentImage
+
+ If MyBase.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Return CType(Me.pbCurrent.Tag, Images)
+ Else
+ Return Nothing
+ End If
+ End Function
+
+ Private Sub AddImage(ByVal sDescription As String, ByVal iIndex As Integer, ByVal fTag As ImageTag)
+ Try
+ ReDim Preserve Me.pnlImage(iIndex)
+ ReDim Preserve Me.pbImage(iIndex)
+ ReDim Preserve Me.lblImage(iIndex)
+ Me.pnlImage(iIndex) = New Panel()
+ Me.pbImage(iIndex) = New PictureBox()
+ Me.lblImage(iIndex) = New Label()
+ Me.pbImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Name = iIndex.ToString
+ Me.lblImage(iIndex).Name = iIndex.ToString
+ Me.pnlImage(iIndex).Size = New Size(187, 187)
+ Me.pbImage(iIndex).Size = New Size(181, 151)
+ Me.lblImage(iIndex).Size = New Size(181, 30)
+ Me.pnlImage(iIndex).BackColor = Color.White
+ Me.pnlImage(iIndex).BorderStyle = BorderStyle.FixedSingle
+ Me.pbImage(iIndex).SizeMode = PictureBoxSizeMode.Zoom
+ Me.lblImage(iIndex).AutoSize = False
+ Me.lblImage(iIndex).BackColor = Color.White
+ Me.lblImage(iIndex).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ Me.lblImage(iIndex).Text = sDescription
+ Me.pbImage(iIndex).Image = fTag.ImageObj.Image
+ Me.pnlImage(iIndex).Left = iLeft
+ Me.pbImage(iIndex).Left = 3
+ Me.lblImage(iIndex).Left = 0
+ Me.pnlImage(iIndex).Top = iTop
+ Me.pbImage(iIndex).Top = 3
+ Me.lblImage(iIndex).Top = 151
+ Me.pnlImage(iIndex).Tag = fTag
+ Me.pbImage(iIndex).Tag = fTag
+ Me.lblImage(iIndex).Tag = fTag
+ Me.pnlImages.Controls.Add(Me.pnlImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.pbImage(iIndex))
+ Me.pnlImage(iIndex).Controls.Add(Me.lblImage(iIndex))
+ Me.pnlImage(iIndex).BringToFront()
+ AddHandler pbImage(iIndex).Click, AddressOf pbImage_Click
+ AddHandler pbImage(iIndex).DoubleClick, AddressOf pbImage_DoubleClick
+ AddHandler pnlImage(iIndex).Click, AddressOf pnlImage_Click
+ AddHandler lblImage(iIndex).Click, AddressOf lblImage_Click
+
+ AddHandler pbImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler pnlImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+ AddHandler lblImage(iIndex).MouseWheel, AddressOf MouseWheelEvent
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Me.iCounter += 1
+
+ If Me.iCounter = 3 Then
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop += 192
+ Else
+ Me.iLeft += 192
+ End If
+ End Sub
+
+ Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
+ If Me.bwLoadData.IsBusy Then Me.bwLoadData.CancelAsync()
+ If Me.bwLoadImages.IsBusy Then Me.bwLoadImages.CancelAsync()
+
+ While Me.bwLoadData.IsBusy OrElse Me.bwLoadImages.IsBusy
+ Application.DoEvents()
+ Threading.Thread.Sleep(50)
+ End While
+
+ Me.DialogResult = Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+ DoneAndClose()
+ End Sub
+
+ Private Sub DoneAndClose()
+ If Me._type = Enums.TVImageType.All Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ Master.currShow.ShowPosterPath = Scraper.TVDBImages.ShowPoster.LocalFile
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Master.currShow.ShowFanartPath = Scraper.TVDBImages.ShowFanart.LocalFile
+ End If
+ End If
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Master.currShow.SeasonPosterPath = Scraper.TVDBImages.AllSeasonPoster.LocalFile
+ End If
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromFile(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile) Then
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Clear()
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.FromWeb(Scraper.TVDBImages.SeasonImageList(0).Fanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile).FullName)
+ Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Save(Scraper.TVDBImages.SeasonImageList(0).Fanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.SeasonImageList(0).Fanart.Image
+ End If
+ End If
+ ElseIf (Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart) AndAlso Me._fanartchanged Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+ If Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) AndAlso File.Exists(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.TVDBImages.ShowFanart.LocalFile)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ ElseIf Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.URL) AndAlso Not String.IsNullOrEmpty(Scraper.TVDBImages.ShowFanart.LocalFile) Then
+ Scraper.TVDBImages.ShowFanart.Image.Clear()
+ Scraper.TVDBImages.ShowFanart.Image.FromWeb(Scraper.TVDBImages.ShowFanart.URL)
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Scraper.TVDBImages.ShowFanart.LocalFile).FullName)
+ Scraper.TVDBImages.ShowFanart.Image.Save(Scraper.TVDBImages.ShowFanart.LocalFile, , , False)
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ End If
+ End If
+
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+
+ Private Sub bwLoadData_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadData.DoWork
+ Dim cSI As Scraper.TVDBSeasonImage
+ Dim iProgress As Integer = 1
+ Dim iSeason As Integer = -1
+
+ Me.bwLoadData.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count, "current")
+
+ 'initialize the struct
+ Scraper.TVDBImages.ShowPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.ShowFanart = New Scraper.TVDBFanart
+ Scraper.TVDBImages.AllSeasonPoster = New Scraper.TVDBShowPoster
+ Scraper.TVDBImages.SeasonImageList = New List(Of Scraper.TVDBSeasonImage)
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Select Case Me._type
+ Case Enums.TVImageType.AllSeasonPoster
+ Scraper.TVDBImages.AllSeasonPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.SeasonFanart
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Fanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.SeasonPoster
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = Me._season
+ cSI.Poster = CType(Me.pbCurrent.Tag, Images)
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ Case Enums.TVImageType.ShowFanart, Enums.TVImageType.EpisodeFanart
+ Scraper.TVDBImages.ShowFanart.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.ShowPoster
+ Scraper.TVDBImages.ShowPoster.Image = CType(Me.pbCurrent.Tag, Images)
+ Case Enums.TVImageType.All
+
+ If _withcurrent Then
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowPosterPath)
+ Scraper.TVDBImages.ShowPoster.LocalFile = Scraper.tmpTVDBShow.Show.ShowPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.Show.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(Scraper.tmpTVDBShow.Show.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = Scraper.tmpTVDBShow.Show.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.AllSeasonPosterEnabled AndAlso Not String.IsNullOrEmpty(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath) Then
+ Scraper.TVDBImages.AllSeasonPoster.Image.FromFile(Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath)
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = Scraper.tmpTVDBShow.AllSeason.SeasonPosterPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+ If iSeason > -1 Then
+ If IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowPosterPath) Then
+ Scraper.TVDBImages.ShowPoster.Image.FromFile(sEpisode.ShowPosterPath)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Master.eSettings.EpisodeFanartEnabled AndAlso IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) AndAlso Not String.IsNullOrEmpty(sEpisode.ShowFanartPath) Then
+ Scraper.TVDBImages.ShowFanart.Image.FromFile(sEpisode.ShowFanartPath)
+ Scraper.TVDBImages.ShowFanart.LocalFile = sEpisode.ShowFanartPath
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ If Not String.IsNullOrEmpty(sEpisode.SeasonPosterPath) Then
+ cSI.Poster.FromFile(sEpisode.SeasonPosterPath)
+ End If
+ If Master.eSettings.SeasonFanartEnabled AndAlso Not String.IsNullOrEmpty(sEpisode.SeasonFanartPath) Then
+ cSI.Fanart.Image.FromFile(sEpisode.SeasonFanartPath)
+ cSI.Fanart.LocalFile = sEpisode.SeasonFanartPath
+ End If
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+ End If
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ Else
+ For Each sEpisode As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ iSeason = sEpisode.TVEp.Season
+
+ If Scraper.TVDBImages.SeasonImageList.Where(Function(s) s.Season = iSeason).Count = 0 Then
+ cSI = New Scraper.TVDBSeasonImage
+ cSI.Season = iSeason
+ Scraper.TVDBImages.SeasonImageList.Add(cSI)
+ End If
+
+ If Me.bwLoadData.CancellationPending Then
+ e.Cancel = True
+ Return
+ End If
+
+ Me.bwLoadData.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+ End Select
+ End Sub
+
+ Private Sub bwLoadData_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadData.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "current" Then
+ Me.lblStatus.Text = Master.eLang.GetString(88, "Loading Current Images...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadData_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadData.RunWorkerCompleted
+ If Not e.Cancelled Then
+ Me.GenerateList()
+
+ Me.lblStatus.Text = Master.eLang.GetString(89, "(Down)Loading New Images...")
+ Me.bwLoadImages.WorkerReportsProgress = True
+ Me.bwLoadImages.WorkerSupportsCancellation = True
+ Me.bwLoadImages.RunWorkerAsync()
+ End If
+ End Sub
+
+ Private Sub bwLoadImages_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwLoadImages.DoWork
+ e.Cancel = Me.DownloadAllImages()
+ End Sub
+
+ Private Sub bwLoadImages_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwLoadImages.ProgressChanged
+ Try
+ If e.UserState.ToString = "progress" Then
+ Me.pbStatus.Value = e.ProgressPercentage
+ ElseIf e.UserState.ToString = "defaults" Then
+ Me.lblStatus.Text = Master.eLang.GetString(90, "Setting Defaults...")
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ Else
+ Me.pbStatus.Value = 0
+ Me.pbStatus.Maximum = e.ProgressPercentage
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub bwLoadImages_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwLoadImages.RunWorkerCompleted
+ Me.pnlStatus.Visible = False
+ If _ScrapeType = Enums.ScrapeType.FullAuto Then
+ DoneAndClose()
+ Else
+ If Not e.Cancelled Then
+ Me.tvList.Enabled = True
+ Me.tvList.Visible = True
+ Me.tvList.SelectedNode = Me.tvList.Nodes(0)
+ Me.tvList.Focus()
+
+ Me.btnOK.Enabled = True
+ End If
+
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ End If
+ End Sub
+
+ Private Sub CheckCurrentImage()
+ Me.pbDelete.Visible = Not IsNothing(Me.pbCurrent.Image) AndAlso Me.pbCurrent.Visible
+ Me.pbUndo.Visible = Me.pbCurrent.Visible
+ End Sub
+
+ Private Sub ClearImages()
+ Try
+ Me.iCounter = 0
+ Me.iLeft = 5
+ Me.iTop = 5
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+
+ If Me.pnlImages.Controls.Count > 0 Then
+ For i As Integer = UBound(Me.pnlImage) To 0 Step -1
+ If Not IsNothing(Me.pnlImage(i)) Then
+ If Not IsNothing(Me.lblImage(i)) AndAlso Me.pnlImage(i).Contains(Me.lblImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.lblImage(i))
+ If Not IsNothing(Me.pbImage(i)) AndAlso Me.pnlImage(i).Contains(Me.pbImage(i)) Then Me.pnlImage(i).Controls.Remove(Me.pbImage(i))
+ If Me.pnlImages.Contains(Me.pnlImage(i)) Then Me.pnlImages.Controls.Remove(Me.pnlImage(i))
+ End If
+ Next
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Sub dlgTVImageSelect_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ AddHandler pnlImages.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler MyBase.MouseWheel, AddressOf MouseWheelEvent
+ AddHandler tvList.MouseWheel, AddressOf MouseWheelEvent
+
+ Functions.PNLDoubleBuffer(Me.pnlImages)
+
+ Me.SetUp()
+ End Sub
+
+ Private Sub dlgTVImageSelect_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Me.bwLoadData.WorkerReportsProgress = True
+ Me.bwLoadData.WorkerSupportsCancellation = True
+ Me.bwLoadData.RunWorkerAsync()
+ End Sub
+
+ Private Sub DoSelect(ByVal iIndex As Integer, ByVal SelTag As ImageTag)
+ Try
+ For i As Integer = 0 To UBound(Me.pnlImage)
+ Me.pnlImage(i).BackColor = Color.White
+ Me.lblImage(i).BackColor = Color.White
+ Me.lblImage(i).ForeColor = Color.Black
+ Next
+
+ Me.pnlImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).BackColor = Color.Blue
+ Me.lblImage(iIndex).ForeColor = Color.White
+
+ SetImage(SelTag)
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function DownloadAllImages() As Boolean
+ Dim iProgress As Integer = 1
+
+ Try
+ Me.bwLoadImages.ReportProgress(Scraper.tmpTVDBShow.Episodes.Count + Scraper.tmpTVDBShow.SeasonPosters.Count + Scraper.tmpTVDBShow.ShowPosters.Count + Scraper.tmpTVDBShow.Fanart.Count + Scraper.tmpTVDBShow.Posters.Count, "max")
+
+ If Me._type = Enums.TVImageType.All Then
+ For Each Epi As Structures.DBTV In Scraper.tmpTVDBShow.Episodes
+ Try
+ If Not File.Exists(Epi.TVEp.LocalFile) Then
+ If Not String.IsNullOrEmpty(Epi.TVEp.PosterURL) Then
+ Epi.TVEp.Poster.FromWeb(Epi.TVEp.PosterURL)
+ If Not IsNothing(Epi.TVEp.Poster.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Epi.TVEp.LocalFile).FullName)
+ Epi.TVEp.Poster.Save(Epi.TVEp.LocalFile)
+ End If
+ End If
+ Else
+ Epi.TVEp.Poster.FromFile(Epi.TVEp.LocalFile)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Seas As Scraper.TVDBSeasonPoster In Scraper.tmpTVDBShow.SeasonPosters
+ Try
+ If Not File.Exists(Seas.LocalFile) Then
+ If Not String.IsNullOrEmpty(Seas.URL) Then
+ Seas.Image.FromWeb(Seas.URL)
+ If Not IsNothing(Seas.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Seas.LocalFile).FullName)
+ Seas.Image.Save(Seas.LocalFile, , , False)
+ SeasonList.Add(Seas)
+ End If
+ End If
+ Else
+ Seas.Image.FromFile(Seas.LocalFile)
+ SeasonList.Add(Seas)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each SPost As Scraper.TVDBShowPoster In Scraper.tmpTVDBShow.ShowPosters
+ Try
+ If Not File.Exists(SPost.LocalFile) Then
+ If Not String.IsNullOrEmpty(SPost.URL) Then
+ SPost.Image.FromWeb(SPost.URL)
+ If Not IsNothing(SPost.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SPost.LocalFile).FullName)
+ SPost.Image.Save(SPost.LocalFile, , , False)
+ ShowPosterList.Add(SPost)
+ End If
+ End If
+ Else
+ SPost.Image.FromFile(SPost.LocalFile)
+ ShowPosterList.Add(SPost)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.SeasonFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then
+ For Each SFan As Scraper.TVDBFanart In Scraper.tmpTVDBShow.Fanart
+ Try
+ If Not File.Exists(SFan.LocalThumb) Then
+ If Not String.IsNullOrEmpty(SFan.ThumbnailURL) Then
+ SFan.Image.FromWeb(SFan.ThumbnailURL)
+ If Not IsNothing(SFan.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(SFan.LocalThumb).FullName)
+ SFan.Image.Save(SFan.LocalThumb, , , False)
+ FanartList.Add(SFan)
+ End If
+ End If
+ Else
+ SFan.Image.FromFile(SFan.LocalThumb)
+ FanartList.Add(SFan)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster OrElse _
+ Me._type = Enums.TVImageType.SeasonPoster OrElse Me._type = Enums.TVImageType.AllSeasonPoster Then
+ For Each Post As Scraper.TVDBPoster In Scraper.tmpTVDBShow.Posters
+ Try
+ If Not File.Exists(Post.LocalFile) Then
+ If Not String.IsNullOrEmpty(Post.URL) Then
+ Post.Image.FromWeb(Post.URL)
+ If Not IsNothing(Post.Image.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(Post.LocalFile).FullName)
+ Post.Image.Save(Post.LocalFile, , , False)
+ GenericPosterList.Add(Post)
+ End If
+ End If
+ Else
+ Post.Image.FromFile(Post.LocalFile)
+ GenericPosterList.Add(Post)
+ End If
+
+ If Me.bwLoadImages.CancellationPending Then
+ Return True
+ End If
+
+ Me.bwLoadImages.ReportProgress(iProgress, "progress")
+ iProgress += 1
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ End If
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return Me.SetDefaults()
+ End Function
+
+ Private Function DownloadFanart(ByVal iTag As ImageTag) As Image
+ Dim sHTTP As New HTTP
+
+ Using tImage As New Images
+ If Not String.IsNullOrEmpty(iTag.Path) AndAlso File.Exists(iTag.Path) Then
+ tImage.FromFile(iTag.Path)
+ ElseIf Not String.IsNullOrEmpty(iTag.Path) AndAlso Not String.IsNullOrEmpty(iTag.URL) Then
+ Me.lblStatus.Text = Master.eLang.GetString(87, "Downloading Fullsize Fanart Image...")
+ Me.pbStatus.Style = ProgressBarStyle.Marquee
+ Me.pnlStatus.Visible = True
+
+ Application.DoEvents()
+
+ tImage.FromWeb(iTag.URL)
+ If Not IsNothing(tImage.Image) Then
+ Directory.CreateDirectory(Directory.GetParent(iTag.Path).FullName)
+ tImage.Save(iTag.Path, , , False)
+ End If
+
+ sHTTP = Nothing
+
+ Me.pnlStatus.Visible = False
+ End If
+
+ Return tImage.Image
+ End Using
+ End Function
+
+ Private Sub GenerateList()
+ Try
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowPoster Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(91, "Show Poster"), .Tag = "showp", .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.ShowFanart OrElse Me._type = Enums.TVImageType.EpisodeFanart Then Me.tvList.Nodes.Add(New TreeNode With {.Text = If(Me._type = Enums.TVImageType.EpisodeFanart, Master.eLang.GetString(92, "Episode Fanart"), Master.eLang.GetString(93, "Show Fanart")), .Tag = "showf", .ImageIndex = 1, .SelectedImageIndex = 1})
+ If (Me._type = Enums.TVImageType.All OrElse Me._type = Enums.TVImageType.AllSeasonPoster) AndAlso Master.eSettings.AllSeasonPosterEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(94, "All Seasons Poster"), .Tag = "allp", .ImageIndex = 2, .SelectedImageIndex = 2})
+
+ Dim TnS As TreeNode
+ If Me._type = Enums.TVImageType.All Then
+ For Each cSeason As Scraper.TVDBSeasonImage In Scraper.TVDBImages.SeasonImageList.OrderBy(Function(s) s.Season)
+ Try
+ TnS = New TreeNode(String.Format(Master.eLang.GetString(726, "Season {0}", True), cSeason.Season), 3, 3)
+ TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(95, "Season Posters"), .Tag = String.Concat("p", cSeason.Season.ToString), .ImageIndex = 0, .SelectedImageIndex = 0})
+ If Master.eSettings.SeasonFanartEnabled Then TnS.Nodes.Add(New TreeNode With {.Text = Master.eLang.GetString(96, "Season Fanart"), .Tag = String.Concat("f", cSeason.Season.ToString), .ImageIndex = 1, .SelectedImageIndex = 1})
+ Me.tvList.Nodes.Add(TnS)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ Next
+ ElseIf Me._type = Enums.TVImageType.SeasonPoster Then
+ Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(97, "Season {0} Posters"), Me._season), .Tag = String.Concat("p", Me._season)})
+ ElseIf Me._type = Enums.TVImageType.SeasonFanart Then
+ If Master.eSettings.SeasonFanartEnabled Then Me.tvList.Nodes.Add(New TreeNode With {.Text = String.Format(Master.eLang.GetString(99, "Season {0} Fanart"), Me._season), .Tag = String.Concat("f", Me._season)})
+ End If
+
+ Me.tvList.ExpandAll()
+
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+ Private Function GetFanartDims(ByVal fSize As Size) As Enums.FanartSize
+ Try
+ If (fSize.Width > 1000 AndAlso fSize.Height > 750) OrElse (fSize.Height > 1000 AndAlso fSize.Width > 750) Then
+ Return Enums.FanartSize.Lrg
+ ElseIf (fSize.Width > 700 AndAlso fSize.Height > 400) OrElse (fSize.Height > 700 AndAlso fSize.Width > 400) Then
+ Return Enums.FanartSize.Mid
+ Else
+ Return Enums.FanartSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Function GetPosterDims(ByVal pSize As Size) As Enums.PosterSize
+ Try
+ If (pSize.Width > pSize.Height) AndAlso (pSize.Width > (pSize.Height * 2)) AndAlso (pSize.Width > 300) Then
+ 'at least twice as wide than tall... consider it wide (also make sure it's big enough)
+ Return Enums.PosterSize.Wide
+ ElseIf (pSize.Height > 1000 AndAlso pSize.Width > 750) OrElse (pSize.Width > 1000 AndAlso pSize.Height > 750) Then
+ Return Enums.PosterSize.Xlrg
+ ElseIf (pSize.Height > 700 AndAlso pSize.Width > 500) OrElse (pSize.Width > 700 AndAlso pSize.Height > 500) Then
+ Return Enums.PosterSize.Lrg
+ ElseIf (pSize.Height > 250 AndAlso pSize.Width > 150) OrElse (pSize.Width > 250 AndAlso pSize.Height > 150) Then
+ Return Enums.PosterSize.Mid
+ Else
+ Return Enums.PosterSize.Small
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Function
+
+ Private Sub lblImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iindex As Integer = Convert.ToInt32(DirectCast(sender, Label).Name)
+ Me.DoSelect(iindex, DirectCast(DirectCast(sender, Label).Tag, ImageTag))
+ End Sub
+
+ Private Sub MouseWheelEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+ If e.Delta < 0 Then
+ If (pnlImages.VerticalScroll.Value + 50) <= pnlImages.VerticalScroll.Maximum Then
+ pnlImages.VerticalScroll.Value += 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Maximum
+ End If
+ Else
+ If (pnlImages.VerticalScroll.Value - 50) >= pnlImages.VerticalScroll.Minimum Then
+ pnlImages.VerticalScroll.Value -= 50
+ Else
+ pnlImages.VerticalScroll.Value = pnlImages.VerticalScroll.Minimum
+ End If
+ End If
+ End Sub
+
+ Private Sub pbDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbDelete.Click
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Tag = Nothing
+ Me.SetImage(New ImageTag)
+ End Sub
+
+ Private Sub pbImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Me.DoSelect(Convert.ToInt32(DirectCast(sender, PictureBox).Name), DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag))
+ End Sub
+
+ Private Sub pbImage_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim tImage As Image = Nothing
+ Dim iTag As ImageTag = DirectCast(DirectCast(sender, PictureBox).Tag, ImageTag)
+ If Not IsNothing(iTag) OrElse Not iTag.isFanart Then
+ tImage = DownloadFanart(iTag)
+ Else
+ tImage = DirectCast(sender, PictureBox).Image
+ End If
+
+ ModulesManager.Instance.RuntimeObjects.InvokeOpenImageViewer(tImage)
+ End Sub
+
+ Private Sub pbUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUndo.Click
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = DefaultImages.ShowPoster.Image
+ Scraper.TVDBImages.ShowPoster.LocalFile = DefaultImages.ShowPoster.LocalFile
+ Scraper.TVDBImages.ShowPoster.URL = DefaultImages.ShowPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowPoster.Image
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = DefaultImages.ShowFanart.Image
+ Scraper.TVDBImages.ShowFanart.LocalFile = DefaultImages.ShowFanart.LocalFile
+ Scraper.TVDBImages.ShowFanart.URL = DefaultImages.ShowFanart.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.ShowFanart.Image
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = DefaultImages.AllSeasonPoster.Image
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = DefaultImages.AllSeasonPoster.LocalFile
+ Scraper.TVDBImages.AllSeasonPoster.URL = DefaultImages.AllSeasonPoster.URL
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Me.pbCurrent.Tag = Scraper.TVDBImages.AllSeasonPoster.Image
+ Else
+ If Me.SelIsPoster Then
+ Dim dSPost As Images = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = dSPost
+ Me.pbCurrent.Image = dSPost.Image
+ Me.pbCurrent.Tag = dSPost
+ Else
+ Dim dSFan As Scraper.TVDBFanart = DefaultImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ Dim tSFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ tSFan.Image = dSFan.Image
+ tSFan.LocalFile = dSFan.LocalFile
+ tSFan.URL = dSFan.URL
+ Me.pbCurrent.Image = dSFan.Image.Image
+ Me.pbCurrent.Tag = dSFan.Image
+ End If
+ End If
+ End Sub
+
+ Private Sub pnlImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
+ Dim iIndex As Integer = Convert.ToInt32(DirectCast(sender, Panel).Name)
+ Me.DoSelect(iIndex, DirectCast(DirectCast(sender, Panel).Tag, ImageTag))
+ End Sub
+
+ Private Sub SetImage(ByVal SelTag As ImageTag)
+ Me.pbCurrent.Image = SelTag.ImageObj.Image
+ Me.pbCurrent.Tag = SelTag.ImageObj
+
+ Me._fanartchanged = True
+
+ If Me.SelSeason = -999 Then
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.ShowPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowPoster.URL = SelTag.URL
+ Else
+ Scraper.TVDBImages.ShowFanart.Image = SelTag.ImageObj
+ Scraper.TVDBImages.ShowFanart.LocalFile = SelTag.Path
+ Scraper.TVDBImages.ShowFanart.URL = SelTag.URL
+ End If
+ ElseIf Me.SelSeason = 999 Then
+ Scraper.TVDBImages.AllSeasonPoster.Image = SelTag.ImageObj
+ Scraper.TVDBImages.AllSeasonPoster.LocalFile = SelTag.Path
+ Scraper.TVDBImages.AllSeasonPoster.URL = SelTag.URL
+ Else
+ If Me.SelIsPoster Then
+ Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Poster = SelTag.ImageObj
+ Else
+ Dim tFan As Scraper.TVDBFanart = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(s) s.Season = Me.SelSeason).Fanart
+ If Not IsNothing(tFan) Then
+ tFan.Image = SelTag.ImageObj
+ tFan.LocalFile = SelTag.Path
+ tFan.URL = SelTag.URL
+ End If
+ End If
+ End If
+ End Sub
+
+ Private Sub SetUp()
+ Me.Text = Master.eLang.GetString(99, "TV Image Selection")
+ Me.btnOK.Text = Master.eLang.GetString(179, "OK", True)
+ Me.btnCancel.Text = Master.eLang.GetString(167, "Cancel", True)
+ Me.lblCurrentImage.Text = Master.eLang.GetString(100, "Current Image:")
+ End Sub
+
+ Private Sub tvList_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvList.AfterSelect
+ Dim iCount As Integer = 0
+
+ Try
+ ClearImages()
+ If Not IsNothing(e.Node.Tag) AndAlso Not String.IsNullOrEmpty(e.Node.Tag.ToString) Then
+ Me.pbCurrent.Visible = True
+ Me.lblCurrentImage.Visible = True
+ If e.Node.Tag.ToString = "showp" Then
+ Me.SelSeason = -999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.ShowPoster) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = ShowPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To GenericPosterList.Count - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "showf" Then
+
+ Me.SelSeason = -999
+ Me.SelIsPoster = False
+ If Not IsNothing(Scraper.TVDBImages.ShowFanart) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image) AndAlso Not IsNothing(Scraper.TVDBImages.ShowFanart.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.ShowFanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+
+ ElseIf e.Node.Tag.ToString = "allp" Then
+ Me.SelSeason = 999
+ Me.SelIsPoster = True
+ If Not IsNothing(Scraper.TVDBImages.AllSeasonPoster) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image) AndAlso Not IsNothing(Scraper.TVDBImages.AllSeasonPoster.Image.Image) Then
+ Me.pbCurrent.Image = Scraper.TVDBImages.AllSeasonPoster.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+
+ iCount = GenericPosterList.Count
+ For i = 0 To iCount - 1
+ If Not IsNothing(GenericPosterList(i)) AndAlso Not IsNothing(GenericPosterList(i).Image) AndAlso Not IsNothing(GenericPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", GenericPosterList(i).Image.Image.Width, GenericPosterList(i).Image.Image.Height), i, New ImageTag With {.URL = GenericPosterList(i).URL, .Path = GenericPosterList(i).LocalFile, .isFanart = False, .ImageObj = GenericPosterList(i).Image})
+ End If
+ Next
+
+ For i = 0 To ShowPosterList.Count - 1
+ If Not IsNothing(ShowPosterList(i)) AndAlso Not IsNothing(ShowPosterList(i).Image) AndAlso Not IsNothing(ShowPosterList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", ShowPosterList(i).Image.Image.Width, ShowPosterList(i).Image.Image.Height), i + iCount, New ImageTag With {.URL = ShowPosterList(i).URL, .Path = ShowPosterList(i).LocalFile, .isFanart = False, .ImageObj = ShowPosterList(i).Image})
+ End If
+ Next
+ Else
+ Dim tMatch As Match = Regex.Match(e.Node.Tag.ToString, "(?<type>f|p)(?<num>[0-9]+)")
+ If tMatch.Success Then
+ If tMatch.Groups("type").Value = "f" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = False
+ Dim tFanart As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(tFanart) AndAlso Not IsNothing(tFanart.Fanart) AndAlso Not IsNothing(tFanart.Fanart.Image) AndAlso Not IsNothing(tFanart.Fanart.Image.Image) Then
+ Me.pbCurrent.Image = tFanart.Fanart.Image.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ For i = 0 To FanartList.Count - 1
+ If Not IsNothing(FanartList(i)) AndAlso Not IsNothing(FanartList(i).Image) AndAlso Not IsNothing(FanartList(i).Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", FanartList(i).Size.Width, FanartList(i).Size.Height), i, New ImageTag With {.URL = FanartList(i).URL, .Path = FanartList(i).LocalFile, .isFanart = True, .ImageObj = FanartList(i).Image})
+ End If
+ Next
+ ElseIf tMatch.Groups("type").Value = "p" Then
+ Me.SelSeason = Convert.ToInt32(tMatch.Groups("num").Value)
+ Me.SelIsPoster = True
+ Dim tPoster As Scraper.TVDBSeasonImage = Scraper.TVDBImages.SeasonImageList.FirstOrDefault(Function(f) f.Season = Me.SelSeason)
+ If Not IsNothing(tPoster) AndAlso Not IsNothing(tPoster.Poster) AndAlso Not IsNothing(tPoster.Poster.Image) Then
+ Me.pbCurrent.Image = tPoster.Poster.Image
+ Else
+ Me.pbCurrent.Image = Nothing
+ End If
+ iCount = 0
+ For Each SImage As Scraper.TVDBSeasonPoster In SeasonList.Where(Function(s) s.Season = Convert.ToInt32(tMatch.Groups("num").Value))
+ If Not IsNothing(SImage.Image) AndAlso Not IsNothing(SImage.Image.Image) Then
+ Me.AddImage(String.Format("{0}x{1}", SImage.Image.Image.Width, SImage.Image.Image.Height), iCount, New ImageTag With {.URL = SImage.URL, .Path = SImage.LocalFile, .isFanart = False, .ImageObj = SImage.Image})
+ End If
+ iCount += 1
+ Next
+ End If
+ End If
+ End If
+ Else
+ Me.pbCurrent.Image = Nothing
+ Me.pbCurrent.Visible = False
+ Me.lblCurrentImage.Visible = False
+ End If
+
+ Me.CheckCurrentImage()
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure ImageTag
+
+#Region "Fields"
+
+ Dim isFanart As Boolean
+ Dim Path As String
+ Dim URL As String
+ Dim ImageObj As Images
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.Designer.vb b/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..c3675d6
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.Designer.vb
@@ -0,0 +1,632 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.GroupBox30 = New System.Windows.Forms.GroupBox()
+ Me.Label18 = New System.Windows.Forms.Label()
+ Me.txtIMDBURL = New System.Windows.Forms.TextBox()
+ Me.GroupBox15 = New System.Windows.Forms.GroupBox()
+ Me.chkOFDBGenre = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBOutline = New System.Windows.Forms.CheckBox()
+ Me.chkOFDBTitle = New System.Windows.Forms.CheckBox()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.gbOptions = New System.Windows.Forms.GroupBox()
+ Me.chkCertification = New System.Windows.Forms.CheckBox()
+ Me.chkCountry = New System.Windows.Forms.CheckBox()
+ Me.chkTop250 = New System.Windows.Forms.CheckBox()
+ Me.chkCrew = New System.Windows.Forms.CheckBox()
+ Me.chkMusicBy = New System.Windows.Forms.CheckBox()
+ Me.chkProducers = New System.Windows.Forms.CheckBox()
+ Me.chkFullCast = New System.Windows.Forms.CheckBox()
+ Me.chkWriters = New System.Windows.Forms.CheckBox()
+ Me.chkStudio = New System.Windows.Forms.CheckBox()
+ Me.chkRuntime = New System.Windows.Forms.CheckBox()
+ Me.chkFullCrew = New System.Windows.Forms.CheckBox()
+ Me.chkPlot = New System.Windows.Forms.CheckBox()
+ Me.chkOutline = New System.Windows.Forms.CheckBox()
+ Me.chkGenre = New System.Windows.Forms.CheckBox()
+ Me.chkDirector = New System.Windows.Forms.CheckBox()
+ Me.chkTagline = New System.Windows.Forms.CheckBox()
+ Me.chkCast = New System.Windows.Forms.CheckBox()
+ Me.chkVotes = New System.Windows.Forms.CheckBox()
+ Me.chkTrailer = New System.Windows.Forms.CheckBox()
+ Me.chkRating = New System.Windows.Forms.CheckBox()
+ Me.chkRelease = New System.Windows.Forms.CheckBox()
+ Me.chkMPAA = New System.Windows.Forms.CheckBox()
+ Me.chkYear = New System.Windows.Forms.CheckBox()
+ Me.chkTitle = New System.Windows.Forms.CheckBox()
+ Me.GroupBox30.SuspendLayout()
+ Me.GroupBox15.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.gbOptions.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'GroupBox30
+ '
+ Me.GroupBox30.Controls.Add(Me.Label18)
+ Me.GroupBox30.Controls.Add(Me.txtIMDBURL)
+ Me.GroupBox30.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox30.Location = New System.Drawing.Point(8, 40)
+ Me.GroupBox30.Name = "GroupBox30"
+ Me.GroupBox30.Size = New System.Drawing.Size(213, 69)
+ Me.GroupBox30.TabIndex = 1
+ Me.GroupBox30.TabStop = False
+ Me.GroupBox30.Text = "IMDB"
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label18.Location = New System.Drawing.Point(6, 18)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(73, 13)
+ Me.Label18.TabIndex = 0
+ Me.Label18.Text = "IMDB Mirror:"
+ '
+ 'txtIMDBURL
+ '
+ Me.txtIMDBURL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtIMDBURL.Location = New System.Drawing.Point(8, 32)
+ Me.txtIMDBURL.Name = "txtIMDBURL"
+ Me.txtIMDBURL.Size = New System.Drawing.Size(192, 22)
+ Me.txtIMDBURL.TabIndex = 1
+ '
+ 'GroupBox15
+ '
+ Me.GroupBox15.Controls.Add(Me.chkOFDBGenre)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBPlot)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBOutline)
+ Me.GroupBox15.Controls.Add(Me.chkOFDBTitle)
+ Me.GroupBox15.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.GroupBox15.Location = New System.Drawing.Point(8, 114)
+ Me.GroupBox15.Name = "GroupBox15"
+ Me.GroupBox15.Size = New System.Drawing.Size(213, 87)
+ Me.GroupBox15.TabIndex = 2
+ Me.GroupBox15.TabStop = False
+ Me.GroupBox15.Text = "OFDB (German)"
+ '
+ 'chkOFDBGenre
+ '
+ Me.chkOFDBGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBGenre.Location = New System.Drawing.Point(6, 65)
+ Me.chkOFDBGenre.Name = "chkOFDBGenre"
+ Me.chkOFDBGenre.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBGenre.TabIndex = 3
+ Me.chkOFDBGenre.Text = "Use OFDB Genre"
+ Me.chkOFDBGenre.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBPlot
+ '
+ Me.chkOFDBPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBPlot.Location = New System.Drawing.Point(6, 49)
+ Me.chkOFDBPlot.Name = "chkOFDBPlot"
+ Me.chkOFDBPlot.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBPlot.TabIndex = 2
+ Me.chkOFDBPlot.Text = "Use OFDB Plot"
+ Me.chkOFDBPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBOutline
+ '
+ Me.chkOFDBOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBOutline.Location = New System.Drawing.Point(6, 33)
+ Me.chkOFDBOutline.Name = "chkOFDBOutline"
+ Me.chkOFDBOutline.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBOutline.TabIndex = 1
+ Me.chkOFDBOutline.Text = "Use OFDB Outline"
+ Me.chkOFDBOutline.UseVisualStyleBackColor = True
+ '
+ 'chkOFDBTitle
+ '
+ Me.chkOFDBTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOFDBTitle.Location = New System.Drawing.Point(6, 17)
+ Me.chkOFDBTitle.Name = "chkOFDBTitle"
+ Me.chkOFDBTitle.Size = New System.Drawing.Size(194, 17)
+ Me.chkOFDBTitle.TabIndex = 0
+ Me.chkOFDBTitle.Text = "Use OFDB Title"
+ Me.chkOFDBTitle.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox30)
+ Me.pnlSettings.Controls.Add(Me.GroupBox15)
+ Me.pnlSettings.Controls.Add(Me.gbOptions)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 4
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'gbOptions
+ '
+ Me.gbOptions.Controls.Add(Me.chkCertification)
+ Me.gbOptions.Controls.Add(Me.chkCountry)
+ Me.gbOptions.Controls.Add(Me.chkTop250)
+ Me.gbOptions.Controls.Add(Me.chkCrew)
+ Me.gbOptions.Controls.Add(Me.chkMusicBy)
+ Me.gbOptions.Controls.Add(Me.chkProducers)
+ Me.gbOptions.Controls.Add(Me.chkFullCast)
+ Me.gbOptions.Controls.Add(Me.chkWriters)
+ Me.gbOptions.Controls.Add(Me.chkStudio)
+ Me.gbOptions.Controls.Add(Me.chkRuntime)
+ Me.gbOptions.Controls.Add(Me.chkFullCrew)
+ Me.gbOptions.Controls.Add(Me.chkPlot)
+ Me.gbOptions.Controls.Add(Me.chkOutline)
+ Me.gbOptions.Controls.Add(Me.chkGenre)
+ Me.gbOptions.Controls.Add(Me.chkDirector)
+ Me.gbOptions.Controls.Add(Me.chkTagline)
+ Me.gbOptions.Controls.Add(Me.chkCast)
+ Me.gbOptions.Controls.Add(Me.chkVotes)
+ Me.gbOptions.Controls.Add(Me.chkTrailer)
+ Me.gbOptions.Controls.Add(Me.chkRating)
+ Me.gbOptions.Controls.Add(Me.chkRelease)
+ Me.gbOptions.Controls.Add(Me.chkMPAA)
+ Me.gbOptions.Controls.Add(Me.chkYear)
+ Me.gbOptions.Controls.Add(Me.chkTitle)
+ Me.gbOptions.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.gbOptions.Location = New System.Drawing.Point(227, 40)
+ Me.gbOptions.Name = "gbOptions"
+ Me.gbOptions.Size = New System.Drawing.Size(387, 161)
+ Me.gbOptions.TabIndex = 3
+ Me.gbOptions.TabStop = False
+ Me.gbOptions.Text = "Scraper Fields"
+ '
+ 'chkCertification
+ '
+ Me.chkCertification.AutoSize = True
+ Me.chkCertification.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCertification.Location = New System.Drawing.Point(6, 70)
+ Me.chkCertification.Name = "chkCertification"
+ Me.chkCertification.Size = New System.Drawing.Size(89, 17)
+ Me.chkCertification.TabIndex = 3
+ Me.chkCertification.Text = "Certification"
+ Me.chkCertification.UseVisualStyleBackColor = True
+ '
+ 'chkCountry
+ '
+ Me.chkCountry.AutoSize = True
+ Me.chkCountry.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCountry.Location = New System.Drawing.Point(237, 53)
+ Me.chkCountry.Name = "chkCountry"
+ Me.chkCountry.Size = New System.Drawing.Size(67, 17)
+ Me.chkCountry.TabIndex = 18
+ Me.chkCountry.Text = "Country"
+ Me.chkCountry.UseVisualStyleBackColor = True
+ '
+ 'chkTop250
+ '
+ Me.chkTop250.AutoSize = True
+ Me.chkTop250.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTop250.Location = New System.Drawing.Point(237, 19)
+ Me.chkTop250.Name = "chkTop250"
+ Me.chkTop250.Size = New System.Drawing.Size(66, 17)
+ Me.chkTop250.TabIndex = 16
+ Me.chkTop250.Text = "Top 250"
+ Me.chkTop250.UseVisualStyleBackColor = True
+ '
+ 'chkCrew
+ '
+ Me.chkCrew.AutoSize = True
+ Me.chkCrew.Enabled = False
+ Me.chkCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCrew.Location = New System.Drawing.Point(246, 104)
+ Me.chkCrew.Name = "chkCrew"
+ Me.chkCrew.Size = New System.Drawing.Size(85, 17)
+ Me.chkCrew.TabIndex = 21
+ Me.chkCrew.Text = "Other Crew"
+ Me.chkCrew.UseVisualStyleBackColor = True
+ '
+ 'chkMusicBy
+ '
+ Me.chkMusicBy.AutoSize = True
+ Me.chkMusicBy.Enabled = False
+ Me.chkMusicBy.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMusicBy.Location = New System.Drawing.Point(246, 121)
+ Me.chkMusicBy.Name = "chkMusicBy"
+ Me.chkMusicBy.Size = New System.Drawing.Size(71, 17)
+ Me.chkMusicBy.TabIndex = 22
+ Me.chkMusicBy.Text = "Music By"
+ Me.chkMusicBy.UseVisualStyleBackColor = True
+ '
+ 'chkProducers
+ '
+ Me.chkProducers.AutoSize = True
+ Me.chkProducers.Enabled = False
+ Me.chkProducers.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkProducers.Location = New System.Drawing.Point(246, 138)
+ Me.chkProducers.Name = "chkProducers"
+ Me.chkProducers.Size = New System.Drawing.Size(77, 17)
+ Me.chkProducers.TabIndex = 23
+ Me.chkProducers.Text = "Producers"
+ Me.chkProducers.UseVisualStyleBackColor = True
+ '
+ 'chkFullCast
+ '
+ Me.chkFullCast.AutoSize = True
+ Me.chkFullCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCast.Location = New System.Drawing.Point(237, 70)
+ Me.chkFullCast.Name = "chkFullCast"
+ Me.chkFullCast.Size = New System.Drawing.Size(107, 17)
+ Me.chkFullCast.TabIndex = 19
+ Me.chkFullCast.Text = "Scrape Full Cast"
+ Me.chkFullCast.UseVisualStyleBackColor = True
+ '
+ 'chkWriters
+ '
+ Me.chkWriters.AutoSize = True
+ Me.chkWriters.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkWriters.Location = New System.Drawing.Point(131, 121)
+ Me.chkWriters.Name = "chkWriters"
+ Me.chkWriters.Size = New System.Drawing.Size(63, 17)
+ Me.chkWriters.TabIndex = 14
+ Me.chkWriters.Text = "Writers"
+ Me.chkWriters.UseVisualStyleBackColor = True
+ '
+ 'chkStudio
+ '
+ Me.chkStudio.AutoSize = True
+ Me.chkStudio.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkStudio.Location = New System.Drawing.Point(131, 19)
+ Me.chkStudio.Name = "chkStudio"
+ Me.chkStudio.Size = New System.Drawing.Size(60, 17)
+ Me.chkStudio.TabIndex = 8
+ Me.chkStudio.Text = "Studio"
+ Me.chkStudio.UseVisualStyleBackColor = True
+ '
+ 'chkRuntime
+ '
+ Me.chkRuntime.AutoSize = True
+ Me.chkRuntime.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRuntime.Location = New System.Drawing.Point(6, 104)
+ Me.chkRuntime.Name = "chkRuntime"
+ Me.chkRuntime.Size = New System.Drawing.Size(69, 17)
+ Me.chkRuntime.TabIndex = 5
+ Me.chkRuntime.Text = "Runtime"
+ Me.chkRuntime.UseVisualStyleBackColor = True
+ '
+ 'chkFullCrew
+ '
+ Me.chkFullCrew.AutoSize = True
+ Me.chkFullCrew.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkFullCrew.Location = New System.Drawing.Point(237, 87)
+ Me.chkFullCrew.Name = "chkFullCrew"
+ Me.chkFullCrew.Size = New System.Drawing.Size(111, 17)
+ Me.chkFullCrew.TabIndex = 20
+ Me.chkFullCrew.Text = "Scrape Full Crew"
+ Me.chkFullCrew.UseVisualStyleBackColor = True
+ '
+ 'chkPlot
+ '
+ Me.chkPlot.AutoSize = True
+ Me.chkPlot.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkPlot.Location = New System.Drawing.Point(131, 70)
+ Me.chkPlot.Name = "chkPlot"
+ Me.chkPlot.Size = New System.Drawing.Size(46, 17)
+ Me.chkPlot.TabIndex = 11
+ Me.chkPlot.Text = "Plot"
+ Me.chkPlot.UseVisualStyleBackColor = True
+ '
+ 'chkOutline
+ '
+ Me.chkOutline.AutoSize = True
+ Me.chkOutline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkOutline.Location = New System.Drawing.Point(131, 53)
+ Me.chkOutline.Name = "chkOutline"
+ Me.chkOutline.Size = New System.Drawing.Size(65, 17)
+ Me.chkOutline.TabIndex = 10
+ Me.chkOutline.Text = "Outline"
+ Me.chkOutline.UseVisualStyleBackColor = True
+ '
+ 'chkGenre
+ '
+ Me.chkGenre.AutoSize = True
+ Me.chkGenre.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkGenre.Location = New System.Drawing.Point(131, 138)
+ Me.chkGenre.Name = "chkGenre"
+ Me.chkGenre.Size = New System.Drawing.Size(57, 17)
+ Me.chkGenre.TabIndex = 15
+ Me.chkGenre.Text = "Genre"
+ Me.chkGenre.UseVisualStyleBackColor = True
+ '
+ 'chkDirector
+ '
+ Me.chkDirector.AutoSize = True
+ Me.chkDirector.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDirector.Location = New System.Drawing.Point(131, 104)
+ Me.chkDirector.Name = "chkDirector"
+ Me.chkDirector.Size = New System.Drawing.Size(67, 17)
+ Me.chkDirector.TabIndex = 13
+ Me.chkDirector.Text = "Director"
+ Me.chkDirector.UseVisualStyleBackColor = True
+ '
+ 'chkTagline
+ '
+ Me.chkTagline.AutoSize = True
+ Me.chkTagline.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTagline.Location = New System.Drawing.Point(131, 36)
+ Me.chkTagline.Name = "chkTagline"
+ Me.chkTagline.Size = New System.Drawing.Size(63, 17)
+ Me.chkTagline.TabIndex = 9
+ Me.chkTagline.Text = "Tagline"
+ Me.chkTagline.UseVisualStyleBackColor = True
+ '
+ 'chkCast
+ '
+ Me.chkCast.AutoSize = True
+ Me.chkCast.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkCast.Location = New System.Drawing.Point(131, 87)
+ Me.chkCast.Name = "chkCast"
+ Me.chkCast.Size = New System.Drawing.Size(48, 17)
+ Me.chkCast.TabIndex = 12
+ Me.chkCast.Text = "Cast"
+ Me.chkCast.UseVisualStyleBackColor = True
+ '
+ 'chkVotes
+ '
+ Me.chkVotes.AutoSize = True
+ Me.chkVotes.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkVotes.Location = New System.Drawing.Point(6, 138)
+ Me.chkVotes.Name = "chkVotes"
+ Me.chkVotes.Size = New System.Drawing.Size(55, 17)
+ Me.chkVotes.TabIndex = 7
+ Me.chkVotes.Text = "Votes"
+ Me.chkVotes.UseVisualStyleBackColor = True
+ '
+ 'chkTrailer
+ '
+ Me.chkTrailer.AutoSize = True
+ Me.chkTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailer.Location = New System.Drawing.Point(237, 36)
+ Me.chkTrailer.Name = "chkTrailer"
+ Me.chkTrailer.Size = New System.Drawing.Size(57, 17)
+ Me.chkTrailer.TabIndex = 17
+ Me.chkTrailer.Text = "Trailer"
+ Me.chkTrailer.UseVisualStyleBackColor = True
+ '
+ 'chkRating
+ '
+ Me.chkRating.AutoSize = True
+ Me.chkRating.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRating.Location = New System.Drawing.Point(6, 121)
+ Me.chkRating.Name = "chkRating"
+ Me.chkRating.Size = New System.Drawing.Size(60, 17)
+ Me.chkRating.TabIndex = 6
+ Me.chkRating.Text = "Rating"
+ Me.chkRating.UseVisualStyleBackColor = True
+ '
+ 'chkRelease
+ '
+ Me.chkRelease.AutoSize = True
+ Me.chkRelease.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkRelease.Location = New System.Drawing.Point(6, 87)
+ Me.chkRelease.Name = "chkRelease"
+ Me.chkRelease.Size = New System.Drawing.Size(92, 17)
+ Me.chkRelease.TabIndex = 4
+ Me.chkRelease.Text = "Release Date"
+ Me.chkRelease.UseVisualStyleBackColor = True
+ '
+ 'chkMPAA
+ '
+ Me.chkMPAA.AutoSize = True
+ Me.chkMPAA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkMPAA.Location = New System.Drawing.Point(6, 53)
+ Me.chkMPAA.Name = "chkMPAA"
+ Me.chkMPAA.Size = New System.Drawing.Size(56, 17)
+ Me.chkMPAA.TabIndex = 2
+ Me.chkMPAA.Text = "MPAA"
+ Me.chkMPAA.UseVisualStyleBackColor = True
+ '
+ 'chkYear
+ '
+ Me.chkYear.AutoSize = True
+ Me.chkYear.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkYear.Location = New System.Drawing.Point(6, 36)
+ Me.chkYear.Name = "chkYear"
+ Me.chkYear.Size = New System.Drawing.Size(47, 17)
+ Me.chkYear.TabIndex = 1
+ Me.chkYear.Text = "Year"
+ Me.chkYear.UseVisualStyleBackColor = True
+ '
+ 'chkTitle
+ '
+ Me.chkTitle.AutoSize = True
+ Me.chkTitle.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTitle.Location = New System.Drawing.Point(6, 19)
+ Me.chkTitle.Name = "chkTitle"
+ Me.chkTitle.Size = New System.Drawing.Size(47, 17)
+ Me.chkTitle.TabIndex = 0
+ Me.chkTitle.Text = "Title"
+ Me.chkTitle.UseVisualStyleBackColor = True
+ '
+ 'frmInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.GroupBox30.ResumeLayout(False)
+ Me.GroupBox30.PerformLayout()
+ Me.GroupBox15.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.gbOptions.ResumeLayout(False)
+ Me.gbOptions.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label18 As System.Windows.Forms.Label
+ Friend WithEvents txtIMDBURL As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkOFDBGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOFDBTitle As System.Windows.Forms.CheckBox
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents gbOptions As System.Windows.Forms.GroupBox
+ Friend WithEvents chkCertification As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCountry As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTop250 As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMusicBy As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCrew As System.Windows.Forms.CheckBox
+ Friend WithEvents chkFullCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkProducers As System.Windows.Forms.CheckBox
+ Friend WithEvents chkWriters As System.Windows.Forms.CheckBox
+ Friend WithEvents chkStudio As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRuntime As System.Windows.Forms.CheckBox
+ Friend WithEvents chkPlot As System.Windows.Forms.CheckBox
+ Friend WithEvents chkOutline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkGenre As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDirector As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTagline As System.Windows.Forms.CheckBox
+ Friend WithEvents chkCast As System.Windows.Forms.CheckBox
+ Friend WithEvents chkVotes As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRating As System.Windows.Forms.CheckBox
+ Friend WithEvents chkRelease As System.Windows.Forms.CheckBox
+ Friend WithEvents chkMPAA As System.Windows.Forms.CheckBox
+ Friend WithEvents chkYear As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTitle As System.Windows.Forms.CheckBox
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.resx b/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.resx
new file mode 100644
index 0000000..1a3b6b2
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.resx
@@ -0,0 +1,193 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsIAAALCAHAvaXaAAAHHElE
+ QVRYR8WWeVAUVBzHX5mpZcekIAoKCYLLvQe7XLucHiCoIDcqJHgmeaaLW2bHGIZZTXYqmigiCosKi4og
+ oCUKeTVehViToo2hljrO5Djz7fd71WJCE/1DzHzYt+/33u993+/33u+tAPC/0mVnT9JlZ0/SZWdP0mVn
+ TyL/XWxtFd9fvChaW1rExg0FfebNnZMzflxU2YSY6KoJ46It1LYkJ8RbUpMSLEmT4i2TU1Ms0zKmWjIm
+ p1sy0tNkm/uSJsVZUhMT5NgJNIfnso/x0WPN06dlLqg7UNuX17v3228Sq4BLP/4o2i5fZhG9Z2ZPM5Mj
+ pKckITLUgNSkRMydPRNx42ORFB+HRQvmYfoLmUhOmIRF8+dj8cIFSElMQFZmBhaTLXlSPOJiY+Sc9OQ/
+ fKQlJ4J9zs+Za6F1+vx09aq40tbWIaBkW7Ewl+4Qa1a/EzsmPAz3799HW1sbgnR+qKmupiHASy/OwbKl
+ S2R7b1UV4knQL7/cxN27d5EQNxG7dpZL24rlr2JmdpZsHzrYgACtBrQx+X1sZDiWGZckffLRWvHhB+93
+ CBg3ZpSIGTtakNrcCFJcsWsXCr/YiAA/NVatXIkDtTUyIlmZU9FQX4f8VXmIjY7CrvJyWCoqQKFGfl4e
+ Dn/1JWZNz6LoxONATQ1oQ9LHhvXrUGWpxJiIMPquWk4bE4xVACkTUaMixKiwkFzetT5AJ3c4OSUZKRRq
+ DmvmlHRMmzoFU9JSkZUxFbNnTAflXsI7ZhFjIyPknIzJaUikqCRSytIohXGx46TPYH8tYwr29xOMVQAv
+ Hj06kiNgZAG1+6tx584d3Lxx49+5eQO3b93Ce++uxtLFi3C9vR03qP/69XbZZm6Rvb7uAAyB/gjUakzB
+ Oq1gOkUg3BBsJHD+3Dm008SrV650i1u//orioi0U8tW4fft2J3v7zz/jQkuLTIG/RmkK0mkoBZoOAWSQ
+ IkL1QcYwfSCOHmmUB+fCd9+h5V/gMZcvXULBus+x8q03ZfvhMezr2Ndfg1IMndrXFKhVC8YqgAxidHio
+ CAkKMBJ0eg/i2/Pnceb06W7ReqEVn378Ed5Y8RqopnSynydfRw4fRkSIHlqljylAoxKMVUBkqEGKoBwZ
+ +bDU7t+Pb06dwvFjx7rF2TNnQNcKr72yDOfOnu1kP3XyJN2eeoTrg+Dn622iKAjGKiDCoBeRIQah99cZ
+ g+kQ7rFY0NzUhEZS3R1OHD+ONfn5sk6cOH6ik73p6FFU79uHUIqu2sfT5Kf0EYxVQJg+iA8g300j5QY7
+ y8348tAhOrl13aKxsVHWi5cXLcQRaj9s55RW7t4tr6LKy8Ok8fESjFUA5V2EBgcKKhpGf7USJdu2oZYK
+ yb69e7tFfV093np9BRbMy0FDQ4Pc7YOwL3Npqaysvh4KE4kQjFUAKeP8C1rcSIcEmws3wVJpwW6qiN2B
+ RSx/xYScObNRTaW7gnb7IFWU0uKtW2VV9HZ3M/l6KgRjFUB5p/xrhVblY1T7eKGASqe5rAw7tm/vFiyC
+ 8z97RrZcsHTHjr9RbjZjE5V2ncoXnm4jTN4KN8FYBQT6qUWQVsN5MVJosLGg4D8J4EWXGZdilhRQ0cnO
+ vgo3bQIdPLiPcDaRCMFYBVB1ovyrBJ1Qo7vLcFlQeOLWoqJ/pPiBTx6bTU80vx/FW4v/tG2xjt1eUoK8
+ t1fS7l2gGDHc5O7qLBirALqbdC28hdLLPdf1eUe4ODrwdZGnVqdSQuPrDQO19VTLOYx8mLhk+2tUEq6e
+ niNdwXM5z4YAf1A0ueiAUguVtydchjnAbbgj3JydTPQp6LNDQAgdQHIifDxG5rLK0u0lVNnWYqidDXKX
+ vEx1oRJcIbmW791TRT885mOE01D5ZBcXbSbHTlhIN6Cmeh/oWacHR42qykpZmBwGDcRaKlI7zWUg/3Ae
+ Zr/cW+EqPB6MgP1gO0G/fMSKV00xalJ77949/PD9RQyxeQ7lZaU0BJgYE01PbZJsFxUWsiNcu3ZNvnS8
+ s/WffyZt2S9kSKH8t6eqEnYDnqVSfE5+54jkzJmZGE2/PZ595ukOAfz3CKFwc+ul9PIoHRVmQGhwgEwF
+ HVDERo2GF4XYl3YwISaKUqCBwuV5ev/DQK8o51WOm0g2ul580uUcHudMoQ8J1NFDZKCHSFkx0tW1N6/F
+ f1YBvWh94knqG/Rkv34u9oNs8xzsbBsc7Qc3OQyyaRps81yTk8MQpnmI7cBmxyF2zc6OQ5tpjMR52NBm
+ GittPIbHDrYZ0GRPc53Yh53tQfKZ/3T//q60hu2jtBav+bCApwgHUudMDKO2Cw1UEB6EF+FD+BJKQkWo
+ H4L72MZjeCzPcScU7It9EsN5DaI/8TcBf8FCHiV6EY8RvYnHiT5EX6LfnzzxD/xl57E8h+eyD/bFPtk3
+ ryHXswr4P+mysyfpsrPngPgd1z91K2zEiQAAAAAASUVORK5CYII=
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.vb b/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.vb
new file mode 100644
index 0000000..21a3d0b
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmInfoSettingsHolder.vb
@@ -0,0 +1,237 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Private Sub chkCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCertification_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCertification.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkDirector_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDirector.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCast_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCast.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkFullCrew_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFullCrew.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+
+ Me.chkProducers.Enabled = Me.chkFullCrew.Checked
+ Me.chkMusicBy.Enabled = Me.chkFullCrew.Checked
+ Me.chkCrew.Enabled = Me.chkFullCrew.Checked
+
+ If Not Me.chkFullCrew.Checked Then
+ Me.chkProducers.Checked = False
+ Me.chkMusicBy.Checked = False
+ Me.chkCrew.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMPAA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMPAA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkMusicBy_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMusicBy.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBGenre_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBGenre.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOFDBTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOFDBTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkOutline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOutline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkPlot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkPlot.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkProducers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkProducers.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRating_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRating.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRelease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRelease.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkRuntime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRuntime.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkStudio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStudio.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTagline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTagline.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTitle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTitle.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTop250_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTop250.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkCountry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCountry.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkVotes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVotes.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkWriters_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkWriters.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkYear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkYear.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.chkOFDBGenre.Text = Master.eLang.GetString(1, "Use OFDB Genre")
+ Me.chkOFDBPlot.Text = Master.eLang.GetString(2, "Use OFDB Plot")
+ Me.chkOFDBOutline.Text = Master.eLang.GetString(3, "Use OFDB Outline")
+ Me.chkOFDBTitle.Text = Master.eLang.GetString(4, "Use OFDB Title")
+ Me.Label18.Text = Master.eLang.GetString(5, "IMDB Mirror:")
+ Me.gbOptions.Text = Master.eLang.GetString(6, "Scraper Fields - Scraper specific")
+ Me.chkCrew.Text = Master.eLang.GetString(391, "Other Crew", True)
+ Me.chkMusicBy.Text = Master.eLang.GetString(392, "Music By", True)
+ Me.chkProducers.Text = Master.eLang.GetString(393, "Producers", True)
+ Me.chkWriters.Text = Master.eLang.GetString(394, "Writers", True)
+ Me.chkStudio.Text = Master.eLang.GetString(395, "Studio", True)
+ Me.chkRuntime.Text = Master.eLang.GetString(396, "Runtime", True)
+ Me.chkPlot.Text = Master.eLang.GetString(65, "Plot", True)
+ Me.chkOutline.Text = Master.eLang.GetString(64, "Plot Outline", True)
+ Me.chkGenre.Text = Master.eLang.GetString(20, "Genres", True)
+ Me.chkDirector.Text = Master.eLang.GetString(62, "Director", True)
+ Me.chkTagline.Text = Master.eLang.GetString(397, "Tagline", True)
+ Me.chkCast.Text = Master.eLang.GetString(398, "Cast", True)
+ Me.chkVotes.Text = Master.eLang.GetString(399, "Votes", True)
+ Me.chkTrailer.Text = Master.eLang.GetString(151, "Trailer", True)
+ Me.chkRating.Text = Master.eLang.GetString(400, "Rating", True)
+ Me.chkRelease.Text = Master.eLang.GetString(57, "Release Date", True)
+ Me.chkMPAA.Text = Master.eLang.GetString(401, "MPAA", True)
+ Me.chkYear.Text = Master.eLang.GetString(278, "Year", True)
+ Me.chkTitle.Text = Master.eLang.GetString(21, "Title", True)
+ Me.chkCertification.Text = Master.eLang.GetString(722, "Certification", True)
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.chkCountry.Text = Master.eLang.GetString(301, "Country", True)
+ Me.chkFullCast.Text = Master.eLang.GetString(512, "Scrape Full Cast", True)
+ Me.chkFullCrew.Text = Master.eLang.GetString(513, "Scrape Full Crew", True)
+ Me.chkTop250.Text = Master.eLang.GetString(868, "Top250", True)
+ Me.GroupBox30.Text = Master.eLang.GetString(106, "IMDB")
+ Me.GroupBox15.Text = Master.eLang.GetString(107, "OFDB (German)")
+ End Sub
+
+ Private Sub txtIMDBURL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIMDBURL.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.Designer.vb b/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..2c09e78
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.Designer.vb
@@ -0,0 +1,524 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMediaSettingsHolder))
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.cbActorThumbsSize = New System.Windows.Forms.ComboBox()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.cbManualETSize = New System.Windows.Forms.ComboBox()
+ Me.grpSaveFanart = New System.Windows.Forms.GroupBox()
+ Me.optFanartFolderExtraFanart = New System.Windows.Forms.RadioButton()
+ Me.optFanartFolderExtraThumbs = New System.Windows.Forms.RadioButton()
+ Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+ Me.chkUseMPDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseTMDB = New System.Windows.Forms.CheckBox()
+ Me.chkUseIMPA = New System.Windows.Forms.CheckBox()
+ Me.chkScrapePoster = New System.Windows.Forms.CheckBox()
+ Me.chkScrapeFanart = New System.Windows.Forms.CheckBox()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+ Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+ Me.cbTrailerTMDBPref = New System.Windows.Forms.ComboBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.chkDownloadTrailer = New System.Windows.Forms.CheckBox()
+ Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtTimeout = New System.Windows.Forms.TextBox()
+ Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.chkTrailerTMDBXBMC = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerIMDB = New System.Windows.Forms.CheckBox()
+ Me.chkTrailerTMDB = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupBox3.SuspendLayout()
+ Me.GroupBox6.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
+ Me.grpSaveFanart.SuspendLayout()
+ Me.GroupBox9.SuspendLayout()
+ Me.GroupBox1.SuspendLayout()
+ Me.GroupBox5.SuspendLayout()
+ Me.GroupBox2.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.GroupBox3)
+ Me.pnlSettings.Controls.Add(Me.GroupBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel2)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 4)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 94
+ Me.PictureBox1.TabStop = False
+ '
+ 'GroupBox3
+ '
+ Me.GroupBox3.Controls.Add(Me.GroupBox6)
+ Me.GroupBox3.Controls.Add(Me.GroupBox4)
+ Me.GroupBox3.Controls.Add(Me.grpSaveFanart)
+ Me.GroupBox3.Controls.Add(Me.GroupBox9)
+ Me.GroupBox3.Controls.Add(Me.chkScrapePoster)
+ Me.GroupBox3.Controls.Add(Me.chkScrapeFanart)
+ Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox3.Location = New System.Drawing.Point(15, 31)
+ Me.GroupBox3.Name = "GroupBox3"
+ Me.GroupBox3.Size = New System.Drawing.Size(587, 177)
+ Me.GroupBox3.TabIndex = 1
+ Me.GroupBox3.TabStop = False
+ Me.GroupBox3.Text = "Images"
+ '
+ 'GroupBox6
+ '
+ Me.GroupBox6.Controls.Add(Me.cbActorThumbsSize)
+ Me.GroupBox6.Location = New System.Drawing.Point(374, 98)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(160, 73)
+ Me.GroupBox6.TabIndex = 5
+ Me.GroupBox6.TabStop = False
+ Me.GroupBox6.Text = "Actor Thumbs Size:"
+ '
+ 'cbActorThumbsSize
+ '
+ Me.cbActorThumbsSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbActorThumbsSize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbActorThumbsSize.FormattingEnabled = True
+ Me.cbActorThumbsSize.Items.AddRange(New Object() {"SY275_SX400", "SY720_SX1080", "SY1080_SX1920"})
+ Me.cbActorThumbsSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbActorThumbsSize.Name = "cbActorThumbsSize"
+ Me.cbActorThumbsSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbActorThumbsSize.TabIndex = 0
+ '
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.cbManualETSize)
+ Me.GroupBox4.Location = New System.Drawing.Point(374, 11)
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox4.TabIndex = 4
+ Me.GroupBox4.TabStop = False
+ Me.GroupBox4.Text = "TMDB Extrathumbs Size:"
+ '
+ 'cbManualETSize
+ '
+ Me.cbManualETSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbManualETSize.Enabled = False
+ Me.cbManualETSize.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbManualETSize.FormattingEnabled = True
+ Me.cbManualETSize.Items.AddRange(New Object() {"original", "w1280", "poster", "thumb"})
+ Me.cbManualETSize.Location = New System.Drawing.Point(21, 35)
+ Me.cbManualETSize.Name = "cbManualETSize"
+ Me.cbManualETSize.Size = New System.Drawing.Size(121, 21)
+ Me.cbManualETSize.TabIndex = 0
+ '
+ 'grpSaveFanart
+ '
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraFanart)
+ Me.grpSaveFanart.Controls.Add(Me.optFanartFolderExtraThumbs)
+ Me.grpSaveFanart.Enabled = False
+ Me.grpSaveFanart.Location = New System.Drawing.Point(24, 54)
+ Me.grpSaveFanart.Name = "grpSaveFanart"
+ Me.grpSaveFanart.Size = New System.Drawing.Size(123, 66)
+ Me.grpSaveFanart.TabIndex = 2
+ Me.grpSaveFanart.TabStop = False
+ Me.grpSaveFanart.Text = "Save Fanart In:"
+ '
+ 'optFanartFolderExtraFanart
+ '
+ Me.optFanartFolderExtraFanart.AutoSize = True
+ Me.optFanartFolderExtraFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraFanart.Location = New System.Drawing.Point(22, 38)
+ Me.optFanartFolderExtraFanart.Name = "optFanartFolderExtraFanart"
+ Me.optFanartFolderExtraFanart.Size = New System.Drawing.Size(85, 17)
+ Me.optFanartFolderExtraFanart.TabIndex = 1
+ Me.optFanartFolderExtraFanart.TabStop = True
+ Me.optFanartFolderExtraFanart.Text = "\extrafanart"
+ Me.optFanartFolderExtraFanart.UseVisualStyleBackColor = True
+ '
+ 'optFanartFolderExtraThumbs
+ '
+ Me.optFanartFolderExtraThumbs.AutoSize = True
+ Me.optFanartFolderExtraThumbs.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.optFanartFolderExtraThumbs.Location = New System.Drawing.Point(22, 19)
+ Me.optFanartFolderExtraThumbs.Name = "optFanartFolderExtraThumbs"
+ Me.optFanartFolderExtraThumbs.Size = New System.Drawing.Size(93, 17)
+ Me.optFanartFolderExtraThumbs.TabIndex = 0
+ Me.optFanartFolderExtraThumbs.TabStop = True
+ Me.optFanartFolderExtraThumbs.Text = "\extrathumbs"
+ Me.optFanartFolderExtraThumbs.UseVisualStyleBackColor = True
+ '
+ 'GroupBox9
+ '
+ Me.GroupBox9.Controls.Add(Me.chkUseMPDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseTMDB)
+ Me.GroupBox9.Controls.Add(Me.chkUseIMPA)
+ Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox9.Location = New System.Drawing.Point(165, 11)
+ Me.GroupBox9.Name = "GroupBox9"
+ Me.GroupBox9.Size = New System.Drawing.Size(160, 80)
+ Me.GroupBox9.TabIndex = 3
+ Me.GroupBox9.TabStop = False
+ Me.GroupBox9.Text = "Get Images From:"
+ '
+ 'chkUseMPDB
+ '
+ Me.chkUseMPDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseMPDB.Location = New System.Drawing.Point(6, 56)
+ Me.chkUseMPDB.Name = "chkUseMPDB"
+ Me.chkUseMPDB.Size = New System.Drawing.Size(150, 22)
+ Me.chkUseMPDB.TabIndex = 2
+ Me.chkUseMPDB.Text = "MoviePosterDB.com"
+ Me.chkUseMPDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseMPDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseTMDB
+ '
+ Me.chkUseTMDB.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseTMDB.Location = New System.Drawing.Point(6, 18)
+ Me.chkUseTMDB.Name = "chkUseTMDB"
+ Me.chkUseTMDB.Size = New System.Drawing.Size(149, 19)
+ Me.chkUseTMDB.TabIndex = 0
+ Me.chkUseTMDB.Text = "themoviedb.org"
+ Me.chkUseTMDB.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseTMDB.UseVisualStyleBackColor = True
+ '
+ 'chkUseIMPA
+ '
+ Me.chkUseIMPA.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkUseIMPA.Location = New System.Drawing.Point(6, 37)
+ Me.chkUseIMPA.Name = "chkUseIMPA"
+ Me.chkUseIMPA.Size = New System.Drawing.Size(149, 20)
+ Me.chkUseIMPA.TabIndex = 1
+ Me.chkUseIMPA.Text = "IMPAwards.com"
+ Me.chkUseIMPA.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkUseIMPA.UseVisualStyleBackColor = True
+ '
+ 'chkScrapePoster
+ '
+ Me.chkScrapePoster.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapePoster.Location = New System.Drawing.Point(6, 19)
+ Me.chkScrapePoster.Name = "chkScrapePoster"
+ Me.chkScrapePoster.Size = New System.Drawing.Size(114, 15)
+ Me.chkScrapePoster.TabIndex = 0
+ Me.chkScrapePoster.Text = "Get Posters"
+ Me.chkScrapePoster.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapePoster.UseVisualStyleBackColor = True
+ '
+ 'chkScrapeFanart
+ '
+ Me.chkScrapeFanart.CheckAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkScrapeFanart.Location = New System.Drawing.Point(6, 37)
+ Me.chkScrapeFanart.Name = "chkScrapeFanart"
+ Me.chkScrapeFanart.Size = New System.Drawing.Size(84, 16)
+ Me.chkScrapeFanart.TabIndex = 1
+ Me.chkScrapeFanart.Text = "Get Fanart"
+ Me.chkScrapeFanart.TextAlign = System.Drawing.ContentAlignment.TopLeft
+ Me.chkScrapeFanart.UseVisualStyleBackColor = True
+ '
+ 'GroupBox1
+ '
+ Me.GroupBox1.Controls.Add(Me.GroupBox5)
+ Me.GroupBox1.Controls.Add(Me.chkDownloadTrailer)
+ Me.GroupBox1.Controls.Add(Me.Label23)
+ Me.GroupBox1.Controls.Add(Me.txtTimeout)
+ Me.GroupBox1.Controls.Add(Me.GroupBox2)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox1.Location = New System.Drawing.Point(15, 214)
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.Size = New System.Drawing.Size(587, 112)
+ Me.GroupBox1.TabIndex = 2
+ Me.GroupBox1.TabStop = False
+ Me.GroupBox1.Text = "Trailers"
+ Me.GroupBox1.UseCompatibleTextRendering = True
+ '
+ 'GroupBox5
+ '
+ Me.GroupBox5.Controls.Add(Me.cbTrailerTMDBPref)
+ Me.GroupBox5.Controls.Add(Me.Label2)
+ Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+ Me.GroupBox5.Location = New System.Drawing.Point(374, 12)
+ Me.GroupBox5.Name = "GroupBox5"
+ Me.GroupBox5.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox5.TabIndex = 4
+ Me.GroupBox5.TabStop = False
+ Me.GroupBox5.Text = "Youtube/TMDB Trailer:"
+ '
+ 'cbTrailerTMDBPref
+ '
+ Me.cbTrailerTMDBPref.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cbTrailerTMDBPref.Enabled = False
+ Me.cbTrailerTMDBPref.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.cbTrailerTMDBPref.FormattingEnabled = True
+ Me.cbTrailerTMDBPref.Items.AddRange(New Object() {"bg", "cs", "da", "de", "el", "en", "es", "fi", "fr", "he", "hu", "it", "nb", "nl", "no", "pl", "pt", "ru", "sk", "sv", "ta", "tr", "uk", "vi", "xx", "zh"})
+ Me.cbTrailerTMDBPref.Location = New System.Drawing.Point(21, 51)
+ Me.cbTrailerTMDBPref.Name = "cbTrailerTMDBPref"
+ Me.cbTrailerTMDBPref.Size = New System.Drawing.Size(121, 21)
+ Me.cbTrailerTMDBPref.TabIndex = 1
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+ Me.Label2.Location = New System.Drawing.Point(26, 26)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(111, 13)
+ Me.Label2.TabIndex = 0
+ Me.Label2.Text = "Preferred Language:"
+ '
+ 'chkDownloadTrailer
+ '
+ Me.chkDownloadTrailer.AutoSize = True
+ Me.chkDownloadTrailer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkDownloadTrailer.Location = New System.Drawing.Point(6, 19)
+ Me.chkDownloadTrailer.Name = "chkDownloadTrailer"
+ Me.chkDownloadTrailer.Size = New System.Drawing.Size(140, 17)
+ Me.chkDownloadTrailer.TabIndex = 0
+ Me.chkDownloadTrailer.Text = "Enable Trailer Support"
+ Me.chkDownloadTrailer.UseVisualStyleBackColor = True
+ '
+ 'Label23
+ '
+ Me.Label23.AutoSize = True
+ Me.Label23.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label23.Location = New System.Drawing.Point(21, 43)
+ Me.Label23.Name = "Label23"
+ Me.Label23.Size = New System.Drawing.Size(51, 13)
+ Me.Label23.TabIndex = 1
+ Me.Label23.Text = "Timeout:"
+ '
+ 'txtTimeout
+ '
+ Me.txtTimeout.Enabled = False
+ Me.txtTimeout.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtTimeout.Location = New System.Drawing.Point(82, 39)
+ Me.txtTimeout.Name = "txtTimeout"
+ Me.txtTimeout.Size = New System.Drawing.Size(50, 22)
+ Me.txtTimeout.TabIndex = 2
+ '
+ 'GroupBox2
+ '
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDBXBMC)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerIMDB)
+ Me.GroupBox2.Controls.Add(Me.chkTrailerTMDB)
+ Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.GroupBox2.Location = New System.Drawing.Point(165, 12)
+ Me.GroupBox2.Name = "GroupBox2"
+ Me.GroupBox2.Size = New System.Drawing.Size(161, 94)
+ Me.GroupBox2.TabIndex = 3
+ Me.GroupBox2.TabStop = False
+ Me.GroupBox2.Text = "Supported Sites:"
+ '
+ 'chkTrailerTMDBXBMC
+ '
+ Me.chkTrailerTMDBXBMC.AutoSize = True
+ Me.chkTrailerTMDBXBMC.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDBXBMC.Location = New System.Drawing.Point(26, 44)
+ Me.chkTrailerTMDBXBMC.Name = "chkTrailerTMDBXBMC"
+ Me.chkTrailerTMDBXBMC.Size = New System.Drawing.Size(95, 17)
+ Me.chkTrailerTMDBXBMC.TabIndex = 1
+ Me.chkTrailerTMDBXBMC.Text = "XBMC Format"
+ Me.chkTrailerTMDBXBMC.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerIMDB
+ '
+ Me.chkTrailerIMDB.AutoSize = True
+ Me.chkTrailerIMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerIMDB.Location = New System.Drawing.Point(6, 67)
+ Me.chkTrailerIMDB.Name = "chkTrailerIMDB"
+ Me.chkTrailerIMDB.Size = New System.Drawing.Size(54, 17)
+ Me.chkTrailerIMDB.TabIndex = 2
+ Me.chkTrailerIMDB.Text = "IMDB"
+ Me.chkTrailerIMDB.UseVisualStyleBackColor = True
+ '
+ 'chkTrailerTMDB
+ '
+ Me.chkTrailerTMDB.AutoSize = True
+ Me.chkTrailerTMDB.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.chkTrailerTMDB.Location = New System.Drawing.Point(6, 21)
+ Me.chkTrailerTMDB.Name = "chkTrailerTMDB"
+ Me.chkTrailerTMDB.Size = New System.Drawing.Size(103, 17)
+ Me.chkTrailerTMDB.TabIndex = 0
+ Me.chkTrailerTMDB.Text = "Youtube/TMDB"
+ Me.chkTrailerTMDB.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.btnDown)
+ Me.Panel2.Controls.Add(Me.btnUp)
+ Me.Panel2.Controls.Add(Me.cbEnabled)
+ Me.Panel2.Location = New System.Drawing.Point(0, 0)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel2.TabIndex = 0
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(500, 7)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(58, 12)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'frmMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupBox3.ResumeLayout(False)
+ Me.GroupBox6.ResumeLayout(False)
+ Me.GroupBox4.ResumeLayout(False)
+ Me.grpSaveFanart.ResumeLayout(False)
+ Me.grpSaveFanart.PerformLayout()
+ Me.GroupBox9.ResumeLayout(False)
+ Me.GroupBox1.ResumeLayout(False)
+ Me.GroupBox1.PerformLayout()
+ Me.GroupBox5.ResumeLayout(False)
+ Me.GroupBox5.PerformLayout()
+ Me.GroupBox2.ResumeLayout(False)
+ Me.GroupBox2.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents chkScrapeFanart As System.Windows.Forms.CheckBox
+ Friend WithEvents chkScrapePoster As System.Windows.Forms.CheckBox
+ Friend WithEvents chkDownloadTrailer As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
+ Friend WithEvents chkUseMPDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkUseIMPA As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+ Friend WithEvents Panel2 As System.Windows.Forms.Panel
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Label23 As System.Windows.Forms.Label
+ Friend WithEvents txtTimeout As System.Windows.Forms.TextBox
+ Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+ Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents grpSaveFanart As System.Windows.Forms.GroupBox
+ Friend WithEvents optFanartFolderExtraFanart As System.Windows.Forms.RadioButton
+ Friend WithEvents optFanartFolderExtraThumbs As System.Windows.Forms.RadioButton
+ Friend WithEvents chkTrailerIMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDB As System.Windows.Forms.CheckBox
+ Friend WithEvents chkTrailerTMDBXBMC As System.Windows.Forms.CheckBox
+ Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbManualETSize As System.Windows.Forms.ComboBox
+ Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbTrailerTMDBPref As System.Windows.Forms.ComboBox
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
+ Friend WithEvents cbActorThumbsSize As System.Windows.Forms.ComboBox
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.resx b/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.resx
new file mode 100644
index 0000000..023cf14
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.resx
@@ -0,0 +1,237 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+ DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+ bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+ sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+ AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+ JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+ 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+ li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+ ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+ wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+ hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+ 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+ VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+ 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+ qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+ j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+ 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+ rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+ fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+ B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+ yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+ YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+ yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+ vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+ vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+ Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+ bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+ llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+ ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+ xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+ eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+ YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+ XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+ WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+ xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+ dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+ V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+ Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+ Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+ PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+ 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+ /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABxxJREFUWEfFlnlQFFQc
+ x1+ZqWXHpCAKCgmCy70Hu1y7nB4gqCA3KiR4Jnmmi1tmxxiGWU12KpooIgqLCouKIKAlCnk1XoVYk6KN
+ oZY6zuQ48+33e9ViQhP9Q8x82Lfv997vfd/v997vrQDwv9JlZ0/SZWdP0mVnT9JlZ08i/11sbRXfX7wo
+ WltaxMYNBX3mzZ2TM35cVNmEmOiqCeOiLdS2JCfEW1KTEixJk+Itk1NTLNMyployJqdbMtLTZJv7kibF
+ WVITE+TYCTSH57KP8dFjzdOnZS6oO1Dbl9e799tvEquASz/+KNouX2YRvWdmTzOTI6SnJCEy1IDUpETM
+ nT0TceNjkRQfh0UL5mH6C5lITpiERfPnY/HCBUhJTEBWZgYWky15UjziYmPknPTkP3ykJSeCfc7PmWuh
+ dfr8dPWquNLW1iGgZFuxMJfuEGtWvxM7JjwM9+/fR1tbG4J0fqiprqYhwEsvzsGypUtke29VFeJJ0C+/
+ 3MTdu3eREDcRu3aWS9uK5a9iZnaWbB862IAArQa0Mfl9bGQ4lhmXJH3y0Vrx4QfvdwgYN2aUiBk7WpDa
+ 3AhSXLFrFwq/2IgAPzVWrVyJA7U1MiJZmVPRUF+H/FV5iI2Owq7yclgqKkChRn5eHg5/9SVmTc+i6MTj
+ QE0NaEPSx4b161BlqcSYiDD6rlpOGxOMVQApE1GjIsSosJBc3rU+QCd3ODklGSkUag5r5pR0TJs6BVPS
+ UpGVMRWzZ0wH5V7CO2YRYyMj5JyMyWlIpKgkUsrSKIVxseOkz2B/LWMK9vcTjFUALx49OpIjYGQBtfur
+ cefOHdy8cePfuXkDt2/dwnvvrsbSxYtwvb0dN6j/+vV22WZukb2+7gAMgf4I1GpMwTqtYDpFINwQbCRw
+ /tw5tNPEq1eudItbv/6K4qItFPLVuH37did7+88/40JLi0yBv0ZpCtJpKAWaDgFkkCJC9UHGMH0gjh5p
+ lAfnwnffoeVf4DGXL11CwbrPsfKtN2X74THs69jXX4NSDJ3a1xSoVQvGKoAMYnR4qAgJCjASdHoP4tvz
+ 53Hm9Olu0XqhFZ9+/BHeWPEaqKZ0sp8nX0cOH0ZEiB5apY8pQKMSjFVAZKhBiqAcGfmw1O7fj29OncLx
+ Y8e6xdkzZ0DXCq+9sgznzp7tZD918iTdnnqE64Pg5+ttoigIxiogwqAXkSEGoffXGYPpEO6xWNDc1IRG
+ Ut0dThw/jjX5+bJOnDh+opO96ehRVO/bh1CKrtrH0+Sn9BGMVUCYPogPIN9NI+UGO8vN+PLQITq5dd2i
+ sbFR1ouXFy3EEWo/bOeUVu7eLa+iysvDpPHxEoxVAOVdhAYHCioaRn+1EiXbtqGWCsm+vXu7RX1dPd56
+ fQUWzMtBQ0OD3O2DsC9zaamsrL4eChOJEIxVACnj/Ata3EiHBJsLN8FSacFuqojdgUUsf8WEnDmzUU2l
+ u4J2+yBVlNLirVtlVfR2dzP5eioEYxVAeaf8a4VW5WNU+3ihgEqnuawMO7Zv7xYsgvM/e0a2XLB0x46/
+ UW42YxOVdp3KF55uI0zeCjfBWAUE+qlFkFbDeTFSaLCxoOA/CeBFlxmXYpYUUNHJzr4KN20CHTy4j3A2
+ kQjBWAVQdaL8qwSdUKO7y3BZUHji1qKif6T4gU8em01PNL8fxVuL/7RtsY7dXlKCvLdX0u5doBgx3OTu
+ 6iwYqwC6m3QtvIXSyz3X9XlHuDg68HWRp1anUkLj6w0DtfVUyzmMfJi4ZPtrVBKunp4jXcFzOc+GAH9Q
+ NLnogFILlbcnXIY5wG24I9ycnUz0KeizQ0AIHUByInw8RuayytLtJVTZ1mKonQ1yl7xMdaESXCG5lu/d
+ U0U/POZjhNNQ+WQXF20mx05YSDegpnof6FmnB0eNqspKWZgcBg3EWipSO81lIP9wHma/3FvhKjwejID9
+ YDtBv3zEildNMWpSe+/ePfzw/UUMsXkO5WWlNASYGBNNT22SbBcVFrIjXLt2Tb50vLP1n38mbdkvZEih
+ /LenqhJ2A56lUnxOfueI5MyZmRhNvz2efebpDgH89wihcHPrpfTyKB0VZkBocIBMBR1QxEaNhheF2Jd2
+ MCEmilKggcLleXr/w0CvKOdVjptINrpefNLlHB7nTKEPCdTRQ2Sgh0hZMdLVtTevxX9WAb1ofeJJ6hv0
+ ZL9+LvaDbPMc7GwbHO0HNzkMsmkabPNck5PDEKZ5iO3AZschds3OjkObaYzEedjQZhorbTyGxw62GdBk
+ T3Od2Ied7UHymf90//6utIbto7QWr/mwgKcIB1LnTAyjtgsNVBAehBfhQ/gSSkJFqB+C+9jGY3gsz3En
+ FOyLfRLDeQ2iP/E3AX/BQh4lehGPEb2Jx4k+RF+i35888Q/8ZeexPIfnsg/2xT7ZN68h17MK+D/psrMn
+ 6bKz54D4Hdc/dStsxIkAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAAChklE
+ QVQ4T6XOaUjTcRjA8ceDIo82FDtEMyubppsaSIYFSVCEHS/KF6Ok44VBWXZgzVuptLxgU/GYxxQyxQMi
+ Lcd0WtM2dQ1zmi11mRrSMlBKKUyenv0MQ/6+6w8fePgd3/8PEPG/rAyWeT3zbcEI/dOysDK9V3mFwUdu
+ Var3qOidyohcXPoOC4sWhhMYslQyppkaaDFF0SUBlr8JYOR6X2wcitCZZp7AsKWa4QS0kxlM7+ccePz2
+ YKNUy8d8nRsj07pYI0Pqj7eh3XyD4QS6J7IZ3ZQUqvsP1+d0b8a81x5MbvdWLOoTGdvNidA2JmE4Ac14
+ NsmhV8ig0nCkPlPjjlldXswjjSfm9wQbVWPJoBxNgBcjd7gB7UQZvBqXQdenQijRH6tP79yG91/uZO51
+ etNLQoytI6nw/EMS/UTODUzODUP7WDG0maVQ1HeyLlm9A9M6BEyq2odesn+g2ZQGT4cfwI9fs9zA1Ow7
+ uxZTrmeV4VpgluaoKq51N0qUfsxdpQDT1aEjCkNMYO2AxHfu51cbTqBp8OGlFFX4UrwyDG+1BGHsM/9V
+ bjaLMEF5ACWtodg0mCniBL7Mm3lV+sT4qJrtGN0QgJcbhKtEkwu1uzBNdap09ve0PSfQ/14HmtEmkBsS
+ 4yIrBShWBKC4SrhMIcRIhR+md5wtruhJgmZ148q9fwN9blv4cDFGDCl1V2JPlgViRKEQIwqEeEIuwqvV
+ pwvE14/DJnc+O8sJ2AHY0Lo9cXB2cLLdJxamHMoLwnBpMIac31PC42207jmS9dazawXsiCvxo1IwHfR1
+ 8eCdcfXmn6PZn9b20p6QeFnPrhWwsicbiJMtWV4CW5odaXAmDmQd+fsChD+4WS+MAxa1eQAAAABJRU5E
+ rkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
+ JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAryAAAK8gE9UvcRAAACgklE
+ QVQ4T6WOa0iTURjHn6VuLSMqTYQMqUwnL7NBZEUhg1IJP5Qf7AKSEmZEmVrMS4Gp29LKLdmaJUWalzRf
+ CS+Y2xLz+mZSps7mps4rKVkfRBD8IHs675sM7DUKOvDjPOec//M7DyDif+Eq5pds8HH2OfR+NYB1vhIm
+ F4zQPBp75bU1MuPLt2fCrqkseDOaBF1TBeD8m8D+g4aembuxpZ+PLJX0HXS2OJLSmZncfxP0zT6F9sns
+ 2Me9FOp6vAleWNQrwQZbfLZpLPnPgu9LI9A/Vw6m0bQ4/YcQ1HT7opbx49AwvkREYZUlJpeZfujq+U1g
+ 39gyrk7QMvsxv9MP73f5r+EeuSvoprDelqxyOlcEPMFbh/piQXcoZr/bicr23ahu34uqVX7VezCnbReq
+ OyRoHlOG8ATTC5/EjfZbsvKB+Ajte3lHVmsAkQVx3Gndh3mdBybK+i9E0NbrYQvLsx48wdziILROaMkk
+ OihkTlcrmgMwwxTMkW4MQmXb0YH64RwwO/JheWXR1ecqOiYqwGg3gHmkGPLbTtHX6gMxuZHiSGoIxtum
+ YxbaogTakgvMVA1fYBx/Ak0jRdBkLYYcczSdUCPBy7VSjks0hTcbwywv+9RQNaiCV8MqviAh8wxo6Eww
+ OspAURdNx5RI8PwLKcfZUgoTq4lg8AHk1abAoXApX8AukUgIadqrkFp3rjZSJ8Eog5TjpJ7CuIrjQ4pH
+ iSDeJOKyPIEbgEAA4L4BBB4nMg/XyPUylBeuopNhuDp0SOjmLiIZEZtdT+BG8CKBQPFmodwnZHuKN7WV
+ JdVHuu3Glh2eUeQtmGT82ex6AhZ3gpgEPciRbGtgP/AkCAmrEyD8BK5+NdGVjkx7AAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.vb b/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.vb
new file mode 100644
index 0000000..401240a
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmMediaSettingsHolder.vb
@@ -0,0 +1,172 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order + 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.PostScraperOrder = order - 1).PostScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Sub CheckTrailer()
+ Me.txtTimeout.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerIMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDB.Enabled = Me.chkDownloadTrailer.Checked
+ Me.chkTrailerTMDBXBMC.Enabled = Me.chkDownloadTrailer.Checked
+ If Not Me.chkDownloadTrailer.Checked Then
+ Me.txtTimeout.Text = "2"
+ Me.chkTrailerTMDB.Checked = False
+ Me.chkTrailerIMDB.Checked = False
+ Me.chkTrailerTMDBXBMC.Checked = False
+ End If
+ End Sub
+
+ Private Sub chkDownloadTrailer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDownloadTrailer.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ CheckTrailer()
+ End Sub
+
+ Private Sub chkTrailerTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDB.CheckedChanged
+ chkTrailerTMDBXBMC.Enabled = chkTrailerTMDB.Checked
+ cbTrailerTMDBPref.Enabled = chkTrailerTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerIMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerIMDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkTrailerTMDBXBMC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTrailerTMDBXBMC.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkScrapeFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapeFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ grpSaveFanart.Enabled = chkScrapeFanart.Checked
+ End Sub
+
+ Private Sub chkScrapePoster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScrapePoster.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseIMPA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseIMPA.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseMPDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseMPDB.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub chkUseTMDB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkUseTMDB.CheckedChanged
+ cbManualETSize.Enabled = chkUseTMDB.Checked
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).PostScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsPostScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Sub SetUp()
+ Me.txtTimeout.Text = Master.eSettings.TrailerTimeout.ToString
+ Me.Label23.Text = Master.eLang.GetString(7, "Timeout:")
+ Me.GroupBox2.Text = Master.eLang.GetString(8, "Supported Sites:")
+ Me.GroupBox9.Text = Master.eLang.GetString(9, "Get Images From:")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(8001, "Save Fanart In:")
+ Me.chkDownloadTrailer.Text = Master.eLang.GetString(529, "Enable Trailer Support", True)
+ Me.Label3.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ Me.chkScrapePoster.Text = Master.eLang.GetString(101, "Get Posters")
+ Me.chkScrapeFanart.Text = Master.eLang.GetString(102, "Get Fanart")
+ Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ Me.GroupBox3.Text = Master.eLang.GetString(497, "Images", True)
+ Me.GroupBox4.Text = Master.eLang.GetString(108, "TMDB Extrathumbs Size:")
+ Me.GroupBox1.Text = Master.eLang.GetString(109, "Trailers")
+ Me.GroupBox5.Text = Master.eLang.GetString(110, "Youtube/TMDB Trailer:")
+ Me.chkTrailerTMDBXBMC.Text = Master.eLang.GetString(111, "XBMC Format")
+ Me.Label2.Text = Master.eLang.GetString(112, "Preferred language")
+ Me.grpSaveFanart.Text = Master.eLang.GetString(113, "Save Fanart In:")
+ End Sub
+
+ Private Sub txtTimeout_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimeout.TextChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraFanart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraFanart.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub optFanartFolderExtraThumbs_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFanartFolderExtraThumbs.CheckedChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbManualETSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbManualETSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbActorThumbsSize_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbActorThumbsSize.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub cbTrailerTMDBPref_SelectedIndexChanged(ByVal sender As System.Object, e As System.EventArgs) Handles cbTrailerTMDBPref.SelectedIndexChanged
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.Designer.vb b/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.Designer.vb
new file mode 100644
index 0000000..4a8cc4e
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.Designer.vb
@@ -0,0 +1,169 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVInfoSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVInfoSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVInfoSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVInfoSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.resx b/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.resx
new file mode 100644
index 0000000..0950d0f
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.resx
@@ -0,0 +1,177 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.vb b/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.vb
new file mode 100644
index 0000000..98761ce
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmTVInfoSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVInfoSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.Designer.vb b/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.Designer.vb
new file mode 100644
index 0000000..f5cb735
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.Designer.vb
@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTVMediaSettingsHolder
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTVMediaSettingsHolder))
+ Me.lblVersion = New System.Windows.Forms.Label()
+ Me.cbEnabled = New System.Windows.Forms.CheckBox()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.btnDown = New System.Windows.Forms.Button()
+ Me.btnUp = New System.Windows.Forms.Button()
+ Me.pnlSettings = New System.Windows.Forms.Panel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Panel1.SuspendLayout()
+ Me.pnlSettings.SuspendLayout()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'lblVersion
+ '
+ Me.lblVersion.Location = New System.Drawing.Point(286, 393)
+ Me.lblVersion.Name = "lblVersion"
+ Me.lblVersion.Size = New System.Drawing.Size(90, 16)
+ Me.lblVersion.TabIndex = 74
+ Me.lblVersion.Text = "Version:"
+ '
+ 'cbEnabled
+ '
+ Me.cbEnabled.AutoSize = True
+ Me.cbEnabled.Location = New System.Drawing.Point(10, 5)
+ Me.cbEnabled.Name = "cbEnabled"
+ Me.cbEnabled.Size = New System.Drawing.Size(68, 17)
+ Me.cbEnabled.TabIndex = 0
+ Me.cbEnabled.Text = "Enabled"
+ Me.cbEnabled.UseVisualStyleBackColor = True
+ '
+ 'Panel1
+ '
+ Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.Panel1.Controls.Add(Me.Label2)
+ Me.Panel1.Controls.Add(Me.btnDown)
+ Me.Panel1.Controls.Add(Me.cbEnabled)
+ Me.Panel1.Controls.Add(Me.btnUp)
+ Me.Panel1.Location = New System.Drawing.Point(0, 0)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(1125, 25)
+ Me.Panel1.TabIndex = 0
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(500, 7)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(58, 12)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Scraper order"
+ '
+ 'btnDown
+ '
+ Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnDown.Image = CType(resources.GetObject("btnDown.Image"), System.Drawing.Image)
+ Me.btnDown.Location = New System.Drawing.Point(591, 1)
+ Me.btnDown.Name = "btnDown"
+ Me.btnDown.Size = New System.Drawing.Size(23, 23)
+ Me.btnDown.TabIndex = 3
+ Me.btnDown.UseVisualStyleBackColor = True
+ '
+ 'btnUp
+ '
+ Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.btnUp.Image = CType(resources.GetObject("btnUp.Image"), System.Drawing.Image)
+ Me.btnUp.Location = New System.Drawing.Point(566, 1)
+ Me.btnUp.Name = "btnUp"
+ Me.btnUp.Size = New System.Drawing.Size(23, 23)
+ Me.btnUp.TabIndex = 2
+ Me.btnUp.UseVisualStyleBackColor = True
+ '
+ 'pnlSettings
+ '
+ Me.pnlSettings.Controls.Add(Me.Label1)
+ Me.pnlSettings.Controls.Add(Me.PictureBox1)
+ Me.pnlSettings.Controls.Add(Me.Panel1)
+ Me.pnlSettings.Location = New System.Drawing.Point(12, 1)
+ Me.pnlSettings.Name = "pnlSettings"
+ Me.pnlSettings.Size = New System.Drawing.Size(617, 369)
+ Me.pnlSettings.TabIndex = 0
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.Label1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.Label1.ForeColor = System.Drawing.Color.Blue
+ Me.Label1.Location = New System.Drawing.Point(37, 337)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(225, 31)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "These settings are specific to this module." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please refer to the global settings " & _
+ "for more options."
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.InitialImage = CType(resources.GetObject("PictureBox1.InitialImage"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(3, 335)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.PictureBox1.TabIndex = 96
+ Me.PictureBox1.TabStop = False
+ '
+ 'frmTVMediaSettingsHolder
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.BackColor = System.Drawing.Color.White
+ Me.ClientSize = New System.Drawing.Size(652, 388)
+ Me.Controls.Add(Me.pnlSettings)
+ Me.Controls.Add(Me.lblVersion)
+ Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "frmTVMediaSettingsHolder"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Scraper Setup"
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.pnlSettings.ResumeLayout(False)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents lblVersion As System.Windows.Forms.Label
+ Friend WithEvents cbEnabled As System.Windows.Forms.CheckBox
+ Friend WithEvents Panel1 As System.Windows.Forms.Panel
+ Friend WithEvents pnlSettings As System.Windows.Forms.Panel
+ Friend WithEvents btnDown As System.Windows.Forms.Button
+ Friend WithEvents btnUp As System.Windows.Forms.Button
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class
diff --git a/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.resx b/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.resx
new file mode 100644
index 0000000..d47391f
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.resx
@@ -0,0 +1,197 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAApRJREFUOE+l0GtIU2EYB/DHC0Ve2lDsIppZ2TQ9UwPJsCAJirDsQ/lhlHT5YFCWXbDm
+ Xam0vMGm4mVeppApXiDSckynNc2pa5jTbOmWqSEtA6WUwuTpOSeS5PitAz94zvs+7/+9ACLC/1hZbF3Q
+ A+vrohEGZ+Rh5XqvikqDj4JVpveo7J/OjFpa/gaLS1bO301XihFrFbBMs7XQaoqmRSKseB3AUeh9sWkk
+ QmeafQyj1hoOL6B3KhNY/Z9y4dGbg02yXiEW6Nw48l4XNmRE8+EWdFiuc3gBPZM5wNJNy6Bm8HBDbs9m
+ zH/lwcnr2YrFA2JjhyUJ2s1SDi9AO5ED2olcOoUcqgxHGrK07pjd7cV5qPXEgr5go9qcAqrxRHg+dnuN
+ K0yWw8sJOXR/LIJS/bGGjK5teO/FTs7dLm86SYixbSwNnr1Ppk0U/ICp+VHoMJdAu0UGxQOR9SmaHZje
+ KeKkaXzoJPuHWkzp8GT0Pnz/OccPmJ57a9dqyvOsNlwNzNYeVce37Uapyo9zRyXCDE3omNIQG1g3JPWd
+ //HFhvcGzcMPLqaqw5cTVGF4szUI4576r3KjRYyJqgMobQvF5uEsMS/g84JFUK1PSoiu3Y4xjQF4qZFZ
+ JYb+z9ftwnT1ybK5XzP2vIDBdzrQjjeDwpAUH1UlQokyACXVzB9KBqOUfpjReaaksi8ZWjRN/DcA+ty2
+ COFCrARS6y/HRZYHYkQRgxGFDJ5QiPFKzalCybXjsMldyLbyA+wAbGjcnjg4OzjZ7pMwqYfygzBcFowh
+ 5/aUCgQb2TlHsp7t5V2BBu2IK/GjpGBq9HXxEJx29RaepdqfxvbSHEO82N61AoAm7MkG4mRLaCGVYEu1
+ IxXOxIGs+/cEvwG4WS+MPfOKlQAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btnUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAAK8gAA
+ CvIBPVL3EQAAAo1JREFUOE+lkW1IU1EYx5+lbi0jKk2EDKlMJ5eZEFlRyKBUwg/lB3sBSYllRC218K3A
+ ptvSSpfMtKRIU0vzSviCuU0xnXozKVNn06lzTklJ+yDCwA+yp7ObDeUaBB34cd7+53cezgFEhP/BdXje
+ PgqfZ19C3/diMM2/hqlFLbSMx117Z4rK+PbjBb/blgXvx2XQbcsHx5pLNxSYf9LQO3M/rvzrMXtZ/2FH
+ m0WWzszk/Jugf/Y5dE7J4572Uajp9SZ4YUmfCBtHE+S6iaS/V7BgH4OBuUrQjafFF30KwYIeX1QzfiwF
+ jC8RUVhtjM1hph+vezPXZMFu3tw2qZKqmYOY1+WHD7v91/GArOX3UNgwmqR0OFZ4fx7eJWi1qC7n94Sh
+ /MNuVHTuRVXnflSu8nu8D7M79qDKIEL9hCKEI5he/CJsMt8JrRxMiFR/lBiy2gOILIjlXvsBzO06ZK0Y
+ uBRJm26GLy7PenAEc0tD0G5VQ6tFA4XM2ZrUlgDM0AWzpGuDUNFxfLBhJBv0ljxYXllyVe4aGKxVoDUX
+ g36sFPI6ztA3GgIxqYlikTUG413dCSNtVABtzAHGVssVaCefQfNYCTSbSiFbH0NLa0V4tU7McoWm8HZT
+ uPFNvwqqh5TwdkTJFUgzz0EBnQlaSwWk1sfQsWUivPhKzHK+nMLEGiIYegS5dclwJELMFQBpAgEf0tTX
+ IaX+Ql2URoTRxWKW00UUxledHE59kgjCLQJnlCtwA+DxANw3Ac/jVObRWklRKEoKV9GEYoQqbJjv5i4g
+ GYEzy/kFsuhG8CKBQOFWvsQnZGeyN7XdSYqPeMetbbs8o8leMMn4O7MbCYBsuBOEJOhBqiTdOpwXeBL4
+ ayv4Ba5+NdG8cgGAAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEQAA
+ CxEBf2RfkQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <data name="PictureBox1.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEAAA
+ CxABrSO9dQAAAyZJREFUOE+l0HtI01EUB/BjRqX52iYUTKm00lJ/PpZublqWmY80dZYhVNrazMdyZQ9L
+ 0yw0TcIEh7lhYg9aoKa21XyllY8ypQeIBZWVj0xN3LR35unOEKT92YHP/V3u/X0PnAuICP8DPva9nzE6
+ 9AE+fRyC/tevTM7Gx5xtr1U6jwwOwNC7t9DRoLY6LYjKfdH1eMns/4O9b2Cw9zXAo1rVjAbFFai/fgXK
+ C/PdnyklqCxKzX5QUw2PG+pAJc/d/VwlRmVJYWRnUwO0Kqugo/4OuVMDaEZHQDMyDOoyOShlUnjS1EhT
+ 54Rcba4qa9RqtZYTExMLWupqKtS5W8ufNqpt71cooKIgD/pe9MDQ216ASc04fNFooJlcSCViplScyJQd
+ PGJeVVQc0tbc0tnR8rC9Wl4SW3Y8xVyenLhUmiSyqi4qMNCFRwf6AcbI7GSWxTkxO+/l76J+y4Qu03KR
+ 63SJgPp+SeiCpSJXJPuvmYGe06mbudPHfDm/08MDurvbWph9L3sATkWFQ0pokFtG8CqcaqXjVBsDf81q
+ JXsCu2hYedgGkzzcUMJzxni2IyZt4kQkB6wHSPLlQrw3h5UVboffbxvi55r5eqbqDFCVYo1i93Uo4VCY
+ 4OmMsWxHvojtACDZ4g0JPjzWmVA7/Fq+CCduGOn5eXMhVoqXYU7oOvxUtx0P+zigkE3xYzkUwAE/L4jb
+ wGVlBtvh5OXFOF5qoufbNWOsTFiOB71csES4EuO4FAo5TnwCIJE0iPXhsjKC7FBbZIZjUnM9X2SmqBCs
+ wMxgVxy+FYIHvNdijIcTfy+bNIgjb7BvPYeV5m+P4+dpOJpH1zN5wQIV0TYoIrOfi1yDArYT7vFw5BMA
+ h7b5QWKgr3uKLxkh2xK1WX9p5viRy8DSSFtMC3FGzd2tuJ9njwIea8deniuArbUVhPn70QU+Hm8KyENe
+ jPirOMIeZXMc2kDhfi8K08NWYjTPbSx888bVTEsG6MqAMDUzNqKs6YxkpgXthJUFPdWaRj851woGLc2G
+ YXFiOZ1xlGFq4kkyZjNZQ7IS88lHZ7Z0Tef9Q3c2W4a6jC77B2Jw79o79I6kAAAAAElFTkSuQmCC
+</value>
+ </data>
+</root>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.vb b/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.vb
new file mode 100644
index 0000000..06928ef
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/frmTVMediaSettingsHolder.vb
@@ -0,0 +1,80 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+Public Class frmTVMediaSettingsHolder
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged()
+
+ Public Event SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+
+#End Region 'Events
+
+#Region "Methods"
+
+ Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order + 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order + 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ If order > 0 Then
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.ScraperOrder = order - 1).ScraperOrder = order
+ ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder = order - 1
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, -1)
+ orderChanged()
+ End If
+ End Sub
+
+ Private Sub cbEnabled_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnabled.CheckedChanged
+ RaiseEvent SetupPostScraperChanged(cbEnabled.Checked, 0)
+ End Sub
+
+ Public Sub New()
+ InitializeComponent()
+ Me.SetUp()
+ orderChanged()
+ End Sub
+
+ Sub orderChanged()
+ Dim order As Integer = ModulesManager.Instance.externalScrapersModules.FirstOrDefault(Function(p) p.AssemblyName = EmberNativeScraperModule._AssemblyName).ScraperOrder
+ btnDown.Enabled = (order < ModulesManager.Instance.externalScrapersModules.Where(Function(y) y.ProcessorModule.IsScraper).Count - 1)
+ btnUp.Enabled = (order > 1)
+ End Sub
+
+ Private Sub SetUp()
+ Me.Label2.Text = Master.eLang.GetString(168, "Scrape Order", True)
+ Me.cbEnabled.Text = Master.eLang.GetString(774, "Enabled", True)
+ 'Me.Label1.Text = String.Format(Master.eLang.GetString(103, "These settings are specific to this module.{0}Please refer to the global settings for more options."), vbCrLf)
+ End Sub
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/packages.config b/Addons/scraper.YouTube.Trailer/packages.config
new file mode 100644
index 0000000..053d0bc6
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/packages.config
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+ <package id="SharpZipLib" version="0.86.0" />
+ <package id="System.Data.SQLite" version="1.0.84.0" targetFramework="net35" />
+</packages>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/scraper.YouTube.Trailer.vbproj b/Addons/scraper.YouTube.Trailer/scraper.YouTube.Trailer.vbproj
new file mode 100644
index 0000000..d36e98c
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/scraper.YouTube.Trailer.vbproj
@@ -0,0 +1,342 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <ProductVersion>9.0.30729</ProductVersion>
+ <SchemaVersion>2.0</SchemaVersion>
+ <ProjectGuid>{194445BE-3721-4270-984D-FA978D5F34A0}</ProjectGuid>
+ <OutputType>Library</OutputType>
+ <RootNamespace>EmberScraperModule</RootNamespace>
+ <AssemblyName>scraper.YouTube.Trailer</AssemblyName>
+ <FileAlignment>512</FileAlignment>
+ <MyType>Windows</MyType>
+ <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+ <OptionExplicit>On</OptionExplicit>
+ <OptionCompare>Binary</OptionCompare>
+ <OptionStrict>On</OptionStrict>
+ <OptionInfer>On</OptionInfer>
+ <FileUpgradeFlags>
+ </FileUpgradeFlags>
+ <OldToolsVersion>3.5</OldToolsVersion>
+ <UpgradeBackupLocation />
+ <PublishUrl>publish\</PublishUrl>
+ <Install>true</Install>
+ <InstallFrom>Disk</InstallFrom>
+ <UpdateEnabled>false</UpdateEnabled>
+ <UpdateMode>Foreground</UpdateMode>
+ <UpdateInterval>7</UpdateInterval>
+ <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+ <UpdatePeriodically>false</UpdatePeriodically>
+ <UpdateRequired>false</UpdateRequired>
+ <MapFileExtensions>true</MapFileExtensions>
+ <ApplicationRevision>0</ApplicationRevision>
+ <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+ <IsWebBootstrapper>false</IsWebBootstrapper>
+ <UseApplicationTrust>false</UseApplicationTrust>
+ <BootstrapperEnabled>true</BootstrapperEnabled>
+ <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
+ <RestorePackages>true</RestorePackages>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
+ <DebugSymbols>true</DebugSymbols>
+ <DefineDebug>true</DefineDebug>
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Dev\Modules\</OutputPath>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>full</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
+ <DefineTrace>true</DefineTrace>
+ <OutputPath>..\..\EmberMM-Deploy\Modules\</OutputPath>
+ <Optimize>true</Optimize>
+ <NoWarn>42353,42354,42355</NoWarn>
+ <DebugType>pdbonly</DebugType>
+ <PlatformTarget>x86</PlatformTarget>
+ <WarningsAsErrors>41998,41999,42004,42016,42017,42018,42019,42020,42021,42022,42024,42025,42026,42029,42030,42031,42032,42036,42099,42104,42105,42106,42107,42108,42109</WarningsAsErrors>
+ <CodeAnalysisLogFile>..\..\EmberMM\Modules\scraper.EmberCore.dll.CodeAnalysisLog.xml</CodeAnalysisLogFile>
+ <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression>
+ <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.vb</CodeAnalysisModuleSuppressionsFile>
+ <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
+ <CodeAnalysisRuleSetDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories>
+ <CodeAnalysisRuleDirectories>;D:\Applications\Development\Microsoft Visual Studio 2010\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories>
+ </PropertyGroup>
+ <ItemGroup>
+ <Reference Include="ICSharpCode.SharpZipLib">
+ <HintPath>..\..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
+ </Reference>
+ <Reference Include="System" />
+ <Reference Include="System.Data.SQLite">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Data.SQLite.Linq">
+ <HintPath>..\..\packages\System.Data.SQLite.1.0.84.0\lib\net20\System.Data.SQLite.Linq.dll</HintPath>
+ <Private>True</Private>
+ </Reference>
+ <Reference Include="System.Drawing" />
+ <Reference Include="System.Web" />
+ <Reference Include="System.Windows.Forms" />
+ <Reference Include="System.Xml" />
+ <Reference Include="System.Core">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ <Reference Include="System.Xml.Linq">
+ <RequiredTargetFramework>3.5</RequiredTargetFramework>
+ </Reference>
+ </ItemGroup>
+ <ItemGroup>
+ <Import Include="Microsoft.VisualBasic" />
+ <Import Include="System" />
+ <Import Include="System.Collections" />
+ <Import Include="System.Collections.Generic" />
+ <Import Include="System.Diagnostics" />
+ <Import Include="System.Drawing" />
+ <Import Include="System.Linq" />
+ <Import Include="System.Web" />
+ <Import Include="System.Windows.Forms" />
+ <Import Include="System.Xml.Linq" />
+ </ItemGroup>
+ <ItemGroup>
+ <Compile Include="frmTVMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmTVInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperTVNativeModule.vb" />
+ <Compile Include="Scraper\clsScrapeTrailers.vb" />
+ <Compile Include="Scraper\clsScrapeImages.vb" />
+ <Compile Include="Scraper\clsScrapeIMDB.vb" />
+ <Compile Include="Scraper\clsScrapeIMPA.vb" />
+ <Compile Include="Scraper\clsScrapeMPDB.vb" />
+ <Compile Include="Scraper\clsScrapeOFDB.vb" />
+ <Compile Include="Scraper\clsScrapeTMDB.vb" />
+ <Compile Include="Scraper\clsScrapeYouTube.vb" />
+ <Compile Include="Scraper\dlgIMDBSearchResults.Designer.vb">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgIMDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.Designer.vb">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgImgSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.Designer.vb">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailer.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.Designer.vb">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Scraper\dlgTrailerFormat.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.Designer.vb">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmMediaSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="My Project\AssemblyInfo.vb" />
+ <Compile Include="My Project\Application.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Application.myapp</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Resources.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DesignTime>True</DesignTime>
+ <DependentUpon>Resources.resx</DependentUpon>
+ </Compile>
+ <Compile Include="My Project\Settings.Designer.vb">
+ <AutoGen>True</AutoGen>
+ <DependentUpon>Settings.settings</DependentUpon>
+ <DesignTimeSharedInput>True</DesignTimeSharedInput>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.Designer.vb">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ </Compile>
+ <Compile Include="frmInfoSettingsHolder.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="scraperMovieNativeModule.vb" />
+ <Compile Include="TVScraper\clsScrapeTVDB.vb" />
+ <Compile Include="TVScraper\dlgTVChangeEp.Designer.vb">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVChangeEp.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.Designer.vb">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVDBSearchResults.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.Designer.vb">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVEpisodePoster.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.Designer.vb">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ </Compile>
+ <Compile Include="TVScraper\dlgTVImageSelect.vb">
+ <SubType>Form</SubType>
+ </Compile>
+ </ItemGroup>
+ <ItemGroup>
+ <EmbeddedResource Include="frmTVMediaSettingsHolder.resx">
+ <DependentUpon>frmTVMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmTVInfoSettingsHolder.resx">
+ <DependentUpon>frmTVInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgIMDBSearchResults.resx">
+ <DependentUpon>dlgIMDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgImgSelect.resx">
+ <DependentUpon>dlgImgSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailer.resx">
+ <DependentUpon>dlgTrailer.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="Scraper\dlgTrailerFormat.resx">
+ <DependentUpon>dlgTrailerFormat.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmMediaSettingsHolder.resx">
+ <DependentUpon>frmMediaSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="frmInfoSettingsHolder.resx">
+ <DependentUpon>frmInfoSettingsHolder.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="My Project\Resources.resx">
+ <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+ <CustomToolNamespace>My.Resources</CustomToolNamespace>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVChangeEp.resx">
+ <DependentUpon>dlgTVChangeEp.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVDBSearchResults.resx">
+ <DependentUpon>dlgTVDBSearchResults.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVEpisodePoster.resx">
+ <DependentUpon>dlgTVEpisodePoster.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ <EmbeddedResource Include="TVScraper\dlgTVImageSelect.resx">
+ <DependentUpon>dlgTVImageSelect.vb</DependentUpon>
+ <SubType>Designer</SubType>
+ </EmbeddedResource>
+ </ItemGroup>
+ <ItemGroup>
+ <None Include="My Project\Application.myapp">
+ <Generator>MyApplicationCodeGenerator</Generator>
+ <LastGenOutput>Application.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="My Project\Settings.settings">
+ <Generator>SettingsSingleFileGenerator</Generator>
+ <CustomToolNamespace>My</CustomToolNamespace>
+ <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+ </None>
+ <None Include="packages.config" />
+ </ItemGroup>
+ <ItemGroup>
+ <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+ <Install>false</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+ <Visible>False</Visible>
+ <ProductName>.NET Framework 3.5 SP1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+ <Visible>False</Visible>
+ <ProductName>Windows Installer 3.1</ProductName>
+ <Install>true</Install>
+ </BootstrapperPackage>
+ </ItemGroup>
+ <ItemGroup>
+ <ProjectReference Include="..\..\EmberAPI\EmberAPI.vbproj">
+ <Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
+ <Name>EmberAPI</Name>
+ <Private>False</Private>
+ </ProjectReference>
+ </ItemGroup>
+ <ItemGroup>
+ <Content Include="Langs\scraper.EmberCore.Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.English_%28en_US%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.German_%28de_DE%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29-Help.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\scraper.EmberCore.Norwegian_%28no_NO%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x64\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ <Content Include="x86\SQLite.Interop.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ </ItemGroup>
+ <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+ <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+ Other similar extension points exist, see Microsoft.Common.targets.
+ <Target Name="BeforeBuild">
+ </Target>
+ <Target Name="AfterBuild">
+ </Target>
+ -->
+ <PropertyGroup>
+ <PreBuildEvent>
+ </PreBuildEvent>
+ </PropertyGroup>
+ <Import Project="$(SolutionDir)\.nuget\nuget.targets" />
+</Project>
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/scraperMovieNativeModule.vb b/Addons/scraper.YouTube.Trailer/scraperMovieNativeModule.vb
new file mode 100644
index 0000000..6889071
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/scraperMovieNativeModule.vb
@@ -0,0 +1,702 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeScraperModule
+ Implements Interfaces.EmberMovieScraperModule
+
+
+#Region "Fields"
+
+ Public Shared ConfigOptions As New Structures.ScrapeOptions
+ Public Shared ConfigScrapeModifier As New Structures.ScrapeModifier
+ Public Shared _AssemblyName As String
+
+ Private dFImgSelect As dlgImgSelect = Nothing
+
+ ''' <summary>
+ ''' Scraping Here
+ ''' </summary>
+ ''' <remarks></remarks>
+ Private IMDB As New IMDB.Scraper
+ Private MySettings As New _MySettings
+ Private _Name As String = "Ember Native Movie Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmInfoSettingsHolder
+ Private _setupPost As frmMediaSettingsHolder
+
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberMovieScraperModule.ModuleSettingsChanged
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+ Public Event MovieScraperEvent(ByVal eType As Enums.MovieScraperEventType, ByVal Parameter As Object) Implements Interfaces.EmberMovieScraperModule.MovieScraperEvent
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.PostScraperSetupChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberMovieScraperModule.ScraperSetupChanged
+
+ Public Event SetupNeedsRestart() Implements Interfaces.EmberMovieScraperModule.SetupNeedsRestart
+
+#End Region 'Events
+
+#Region "Properties"
+
+ ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberMovieScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ ReadOnly Property ModuleName() As String Implements Interfaces.EmberMovieScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberMovieScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Property PostScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Property ScraperEnabled() As Boolean Implements Interfaces.EmberMovieScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+ Function QueryPostScraperCapabilities(ByVal cap As Enums.PostScraperCapabilities) As Boolean Implements Interfaces.EmberMovieScraperModule.QueryPostScraperCapabilities
+ Select Case cap
+ Case Enums.PostScraperCapabilities.Fanart
+ If MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Poster
+ If MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB Then Return True
+ Case Enums.PostScraperCapabilities.Trailer
+ If MySettings.DownloadTrailers Then Return True
+ End Select
+ Return False
+ End Function
+
+ Function DownloadTrailer(ByRef DBMovie As Structures.DBMovie, ByRef sURL As String) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.DownloadTrailer
+ Using dTrailer As New dlgTrailer
+ dTrailer.IMDBURL = MySettings.IMDBURL
+ sURL = dTrailer.ShowDialog(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ End Using
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function GetMovieStudio(ByRef DBMovie As Structures.DBMovie, ByRef studio As List(Of String)) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.GetMovieStudio
+ Dim IMDB As New IMDB.Scraper
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ IMDB.IMDBURL = MySettings.IMDBURL
+ studio = IMDB.GetMovieStudios(DBMovie.Movie.IMDBID)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+
+ Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberMovieScraperModule.Init
+ _AssemblyName = sAssemblyName
+ LoadSettings()
+ End Sub
+
+ Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupPostScraper
+ Dim Spanel As New Containers.SettingsPanel
+ _setupPost = New frmMediaSettingsHolder
+ LoadSettings()
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ _setupPost.chkTrailerIMDB.Checked = MySettings.UseIMDBTrailer
+ _setupPost.chkTrailerTMDB.Checked = MySettings.UseTMDBTrailer
+ _setupPost.cbTrailerTMDBPref.Text = MySettings.UseTMDBTrailerPref
+ _setupPost.chkTrailerTMDBXBMC.Checked = MySettings.UseTMDBTrailerXBMC
+ _setupPost.chkScrapePoster.Checked = ConfigScrapeModifier.Poster
+ _setupPost.chkScrapeFanart.Checked = ConfigScrapeModifier.Fanart
+ _setupPost.chkUseTMDB.Checked = MySettings.UseTMDB
+ _setupPost.chkUseIMPA.Checked = MySettings.UseIMPA
+ _setupPost.chkUseMPDB.Checked = MySettings.UseMPDB
+ _setupPost.cbManualETSize.Text = MySettings.ManualETSize
+ _setupPost.cbActorThumbsSize.Text = MySettings.ActorThumbsSize
+ _setupPost.txtTimeout.Text = MySettings.TrailerTimeout.ToString
+ _setupPost.chkDownloadTrailer.Checked = MySettings.DownloadTrailers
+ _setupPost.CheckTrailer()
+ _setupPost.orderChanged()
+ Spanel.Name = String.Concat(Me._Name, "PostScraper")
+ Spanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ Spanel.Prefix = "NativeMovieMedia_"
+ Spanel.Order = 110
+ Spanel.Parent = "pnlMovieMedia"
+ Spanel.Type = Master.eLang.GetString(36, "Movies", True)
+ Spanel.ImageIndex = If(Me._PostScraperEnabled, 9, 10)
+ Spanel.Panel = Me._setupPost.pnlSettings
+
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return Spanel
+ End Function
+ Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberMovieScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmInfoSettingsHolder
+ LoadSettings()
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ _setup.chkTitle.Checked = ConfigOptions.bTitle
+ _setup.chkYear.Checked = ConfigOptions.bYear
+ _setup.chkMPAA.Checked = ConfigOptions.bMPAA
+ _setup.chkRelease.Checked = ConfigOptions.bRelease
+ _setup.chkRuntime.Checked = ConfigOptions.bRuntime
+ _setup.chkRating.Checked = ConfigOptions.bRating
+ _setup.chkVotes.Checked = ConfigOptions.bVotes
+ _setup.chkStudio.Checked = ConfigOptions.bStudio
+ _setup.chkTagline.Checked = ConfigOptions.bTagline
+ _setup.chkOutline.Checked = ConfigOptions.bOutline
+ _setup.chkPlot.Checked = ConfigOptions.bPlot
+ _setup.chkCast.Checked = ConfigOptions.bCast
+ _setup.chkDirector.Checked = ConfigOptions.bDirector
+ _setup.chkWriters.Checked = ConfigOptions.bWriters
+ _setup.chkProducers.Checked = ConfigOptions.bProducers
+ _setup.chkGenre.Checked = ConfigOptions.bGenre
+ _setup.chkTrailer.Checked = ConfigOptions.bTrailer
+ _setup.chkMusicBy.Checked = ConfigOptions.bMusicBy
+ _setup.chkCrew.Checked = ConfigOptions.bOtherCrew
+ _setup.chkCountry.Checked = ConfigOptions.bCountry
+ _setup.chkTop250.Checked = ConfigOptions.bTop250
+ _setup.chkCertification.Checked = ConfigOptions.bCert
+ _setup.chkOFDBTitle.Checked = MySettings.UseOFDBTitle
+ _setup.chkOFDBOutline.Checked = MySettings.UseOFDBOutline
+ _setup.chkOFDBPlot.Checked = MySettings.UseOFDBPlot
+ _setup.chkOFDBGenre.Checked = MySettings.UseOFDBGenre
+ _setup.chkFullCast.Checked = ConfigOptions.bFullCast
+ _setup.chkFullCrew.Checked = ConfigOptions.bFullCrew
+
+ If String.IsNullOrEmpty(MySettings.IMDBURL) Then
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ _setup.txtIMDBURL.Text = MySettings.IMDBURL
+ _setup.orderChanged()
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(104, "Ember Native Movie Scrapers")
+ SPanel.Prefix = "NativeMovieInfo_"
+ SPanel.Order = 110
+ SPanel.Parent = "pnlMovieData"
+ SPanel.Type = Master.eLang.GetString(36, "Movies", True)
+ SPanel.ImageIndex = If(_ScraperEnabled, 9, 10)
+ SPanel.Panel = _setup.pnlSettings
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+ Sub LoadSettings()
+ ConfigOptions.bTitle = AdvancedSettings.GetBooleanSetting("DoTitle", True)
+ ConfigOptions.bYear = AdvancedSettings.GetBooleanSetting("DoYear", True)
+ ConfigOptions.bMPAA = AdvancedSettings.GetBooleanSetting("DoMPAA", True)
+ ConfigOptions.bRelease = AdvancedSettings.GetBooleanSetting("DoRelease", True)
+ ConfigOptions.bRuntime = AdvancedSettings.GetBooleanSetting("DoRuntime", True)
+ ConfigOptions.bRating = AdvancedSettings.GetBooleanSetting("DoRating", True)
+ ConfigOptions.bVotes = AdvancedSettings.GetBooleanSetting("DoVotes", True)
+ ConfigOptions.bStudio = AdvancedSettings.GetBooleanSetting("DoStudio", True)
+ ConfigOptions.bTagline = AdvancedSettings.GetBooleanSetting("DoTagline", True)
+ ConfigOptions.bOutline = AdvancedSettings.GetBooleanSetting("DoOutline", True)
+ ConfigOptions.bPlot = AdvancedSettings.GetBooleanSetting("DoPlot", True)
+ ConfigOptions.bCast = AdvancedSettings.GetBooleanSetting("DoCast", True)
+ ConfigOptions.bDirector = AdvancedSettings.GetBooleanSetting("DoDirector", True)
+ ConfigOptions.bWriters = AdvancedSettings.GetBooleanSetting("DoWriters", True)
+ ConfigOptions.bProducers = AdvancedSettings.GetBooleanSetting("DoProducers", True)
+ ConfigOptions.bGenre = AdvancedSettings.GetBooleanSetting("DoGenres", True)
+ ConfigOptions.bTrailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ ConfigOptions.bMusicBy = AdvancedSettings.GetBooleanSetting("DoMusic", True)
+ ConfigOptions.bOtherCrew = AdvancedSettings.GetBooleanSetting("DoOtherCrews", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("DoFullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("DoFullCrews", True)
+ ConfigOptions.bTop250 = AdvancedSettings.GetBooleanSetting("DoTop250", True)
+ ConfigOptions.bCountry = AdvancedSettings.GetBooleanSetting("DoCountry", True)
+ ConfigOptions.bCert = AdvancedSettings.GetBooleanSetting("DoCert", True)
+ ConfigOptions.bFullCast = AdvancedSettings.GetBooleanSetting("FullCast", True)
+ ConfigOptions.bFullCrew = AdvancedSettings.GetBooleanSetting("FullCrew", True)
+
+ MySettings.IMDBURL = AdvancedSettings.GetSetting("IMDBURL", "akas.imdb.com")
+ MySettings.UseOFDBTitle = AdvancedSettings.GetBooleanSetting("UseOFDBTitle", False)
+ MySettings.UseOFDBOutline = AdvancedSettings.GetBooleanSetting("UseOFDBOutline", False)
+ MySettings.UseOFDBPlot = AdvancedSettings.GetBooleanSetting("UseOFDBPlot", False)
+ MySettings.UseOFDBGenre = AdvancedSettings.GetBooleanSetting("UseOFDBGenre", False)
+ MySettings.DownloadTrailers = AdvancedSettings.GetBooleanSetting("DownloadTraliers", False)
+
+ MySettings.TrailerTimeout = Convert.ToInt32(AdvancedSettings.GetSetting("TrailerTimeout", "10"))
+ MySettings.UseIMPA = AdvancedSettings.GetBooleanSetting("UseIMPA", False)
+ MySettings.UseMPDB = AdvancedSettings.GetBooleanSetting("UseMPDB", False)
+ MySettings.UseTMDB = AdvancedSettings.GetBooleanSetting("UseTMDB", True)
+ MySettings.UseIMDBTrailer = AdvancedSettings.GetBooleanSetting("UseIMDBTrailer", True)
+ MySettings.UseTMDBTrailer = AdvancedSettings.GetBooleanSetting("UseTMDBTrailer", True)
+ MySettings.UseTMDBTrailerXBMC = AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False)
+ MySettings.ManualETSize = Convert.ToString(AdvancedSettings.GetSetting("ManualETSize", "thumb"))
+ MySettings.ActorThumbsSize = Convert.ToString(AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400"))
+ MySettings.UseTMDBTrailerPref = Convert.ToString(AdvancedSettings.GetSetting("UseTMDBTrailerPref", "en"))
+
+ ConfigScrapeModifier.DoSearch = True
+ ConfigScrapeModifier.Meta = True
+ ConfigScrapeModifier.NFO = True
+ ConfigScrapeModifier.Extra = True
+ ConfigScrapeModifier.Actors = True
+
+ ConfigScrapeModifier.Poster = AdvancedSettings.GetBooleanSetting("DoPoster", True)
+ ConfigScrapeModifier.Fanart = AdvancedSettings.GetBooleanSetting("DoFanart", True)
+ ConfigScrapeModifier.Trailer = AdvancedSettings.GetBooleanSetting("DoTrailer", True)
+ End Sub
+
+ Function PostScraper(ByRef DBMovie As Structures.DBMovie, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.PostScraper
+ 'LoadSettings()
+ Dim Poster As New Images
+ Dim Fanart As New Images
+ Dim pResults As Containers.ImgResult
+ Dim fResults As Containers.ImgResult
+ Dim tURL As String = String.Empty
+ Dim Trailer As New Trailers
+ LoadSettings()
+ Dim saveModifier As Structures.ScrapeModifier = Master.GlobalScrapeMod
+ Master.GlobalScrapeMod = Functions.ScrapeModifierAndAlso(Master.GlobalScrapeMod, ConfigScrapeModifier)
+
+ Trailer.IMDBURL = MySettings.IMDBURL
+ Dim doSave As Boolean = False
+ If Master.GlobalScrapeMod.Poster AndAlso (MySettings.UseIMPA OrElse MySettings.UseMPDB OrElse MySettings.UseTMDB) Then
+ Poster.Clear()
+ If Poster.IsAllowedToDownload(DBMovie, Enums.ImageType.Posters) Then
+ pResults = New Containers.ImgResult
+ If ScrapeImages.GetPreferredImage(Poster, DBMovie.Movie.IMDBID, Enums.ImageType.Posters, pResults, DBMovie.Filename, False, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Poster.Image) Then
+ pResults.ImagePath = Poster.SaveAsPoster(DBMovie)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(76, "A poster of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size"))
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Posters)
+ If Not String.IsNullOrEmpty(pResults.ImagePath) Then
+ DBMovie.PosterPath = pResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.PosterItem, True) '4, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Thumb = pResults.Posters
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ Dim didEts As Boolean
+ If Master.GlobalScrapeMod.Fanart AndAlso MySettings.UseTMDB Then
+ Fanart.Clear()
+ If Fanart.IsAllowedToDownload(DBMovie, Enums.ImageType.Fanart) Then
+ fResults = New Containers.ImgResult
+ didEts = True
+ If ScrapeImages.GetPreferredImage(Fanart, DBMovie.Movie.IMDBID, Enums.ImageType.Fanart, fResults, DBMovie.Filename, Master.GlobalScrapeMod.Extra, If(ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk, True, False)) Then
+ If Not IsNothing(Fanart.Image) Then
+ fResults.ImagePath = Fanart.SaveAsFanart(DBMovie)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True) '
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ ElseIf ScrapeType = Enums.ScrapeType.FullAsk OrElse ScrapeType = Enums.ScrapeType.NewAsk OrElse ScrapeType = Enums.ScrapeType.MarkAsk OrElse ScrapeType = Enums.ScrapeType.UpdateAsk Then
+ MsgBox(Master.eLang.GetString(78, "Fanart of your preferred size could not be found. Please choose another."), MsgBoxStyle.Information, Master.eLang.GetString(77, "No Preferred Size:"))
+
+ Using dImgSelect As New dlgImgSelect
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ fResults = dImgSelect.ShowDialog(DBMovie, Enums.ImageType.Fanart)
+ If Not String.IsNullOrEmpty(fResults.ImagePath) Then
+ DBMovie.FanartPath = fResults.ImagePath
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.FanartItem, True)
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.eSettings.NoSaveImagesToNfo Then
+ DBMovie.Movie.Fanart = fResults.Fanart
+ End If
+ End If
+ End Using
+ End If
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Trailer AndAlso MySettings.DownloadTrailers Then
+ tURL = Trailer.DownloadSingleTrailer(DBMovie.Filename, DBMovie.Movie.IMDBID, DBMovie.isSingle, DBMovie.Movie.Trailer)
+ If Not String.IsNullOrEmpty(tURL) Then
+ If tURL.Substring(0, 22) = "http://www.youtube.com" Then
+ If AdvancedSettings.GetBooleanSetting("UseTMDBTrailerXBMC", False) Then
+ DBMovie.Movie.Trailer = Replace(tURL, "http://www.youtube.com/watch?v=", "plugin://plugin.video.youtube/?action=play_video&videoid=")
+ Else
+ DBMovie.Movie.Trailer = tURL
+ End If
+ ElseIf tURL.Substring(0, 7) = "http://" Then
+ DBMovie.Movie.Trailer = tURL
+ Else
+ DBMovie.TrailerPath = tURL
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.TrailerItem, True)
+ End If
+ End If
+ End If
+ If Master.GlobalScrapeMod.Extra Then
+ If Master.eSettings.AutoET AndAlso DBMovie.isSingle Then
+ Try
+ ScrapeImages.GetPreferredFAasET(DBMovie.Movie.IMDBID, DBMovie.Filename)
+ RaiseEvent MovieScraperEvent(Enums.MovieScraperEventType.ThumbsItem, True)
+ Catch ex As Exception
+ End Try
+ End If
+ End If
+ If Master.GlobalScrapeMod.Actors AndAlso Master.eSettings.ScraperActorThumbs Then
+ For Each act As MediaContainers.Person In DBMovie.Movie.Actors
+ Dim img As New Images
+ img.FromWeb(act.Thumb)
+ If Not IsNothing(img.Image) Then
+ img.SaveAsActorThumb(act, Directory.GetParent(DBMovie.Filename).FullName, DBMovie)
+ End If
+ Next
+ End If
+ Master.GlobalScrapeMod = saveModifier
+ Return New Interfaces.ModuleResult With {.breakChain = False, .BoolProperty = didEts}
+ End Function
+
+ Sub SaveSettings()
+ AdvancedSettings.SetBooleanSetting("DoFullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("DoFullCrews", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("DoTitle", ConfigOptions.bTitle)
+ AdvancedSettings.SetBooleanSetting("DoYear", ConfigOptions.bYear)
+ AdvancedSettings.SetBooleanSetting("DoMPAA", ConfigOptions.bMPAA)
+ AdvancedSettings.SetBooleanSetting("DoRelease", ConfigOptions.bRelease)
+ AdvancedSettings.SetBooleanSetting("DoRuntime", ConfigOptions.bRuntime)
+ AdvancedSettings.SetBooleanSetting("DoRating", ConfigOptions.bRating)
+ AdvancedSettings.SetBooleanSetting("DoVotes", ConfigOptions.bVotes)
+ AdvancedSettings.SetBooleanSetting("DoStudio", ConfigOptions.bStudio)
+ AdvancedSettings.SetBooleanSetting("DoTagline", ConfigOptions.bTagline)
+ AdvancedSettings.SetBooleanSetting("DoOutline", ConfigOptions.bOutline)
+ AdvancedSettings.SetBooleanSetting("DoPlot", ConfigOptions.bPlot)
+ AdvancedSettings.SetBooleanSetting("DoCast", ConfigOptions.bCast)
+ AdvancedSettings.SetBooleanSetting("DoDirector", ConfigOptions.bDirector)
+ AdvancedSettings.SetBooleanSetting("DoWriters", ConfigOptions.bWriters)
+ AdvancedSettings.SetBooleanSetting("DoProducers", ConfigOptions.bProducers)
+ AdvancedSettings.SetBooleanSetting("DoGenres", ConfigOptions.bGenre)
+ AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigOptions.bTrailer)
+ AdvancedSettings.SetBooleanSetting("DoMusic", ConfigOptions.bMusicBy)
+ AdvancedSettings.SetBooleanSetting("DoOtherCrews", ConfigOptions.bOtherCrew)
+ AdvancedSettings.SetBooleanSetting("DoCountry", ConfigOptions.bCountry)
+ AdvancedSettings.SetBooleanSetting("DoTop250", ConfigOptions.bTop250)
+ AdvancedSettings.SetBooleanSetting("DoCert", ConfigOptions.bCert)
+ AdvancedSettings.SetSetting("IMDBURL", MySettings.IMDBURL)
+
+ AdvancedSettings.SetBooleanSetting("FullCast", ConfigOptions.bFullCast)
+ AdvancedSettings.SetBooleanSetting("FullCrew", ConfigOptions.bFullCrew)
+ AdvancedSettings.SetBooleanSetting("UseOFDBTitle", MySettings.UseOFDBTitle)
+ AdvancedSettings.SetBooleanSetting("UseOFDBOutline", MySettings.UseOFDBOutline)
+ AdvancedSettings.SetBooleanSetting("UseOFDBPlot", MySettings.UseOFDBPlot)
+ AdvancedSettings.SetBooleanSetting("UseOFDBGenre", MySettings.UseOFDBGenre)
+ AdvancedSettings.SetBooleanSetting("DownloadTraliers", MySettings.DownloadTrailers)
+
+ AdvancedSettings.SetSetting("TrailerTimeout", MySettings.TrailerTimeout.ToString)
+ AdvancedSettings.SetBooleanSetting("UseIMPA", MySettings.UseIMPA)
+ AdvancedSettings.SetBooleanSetting("UseMPDB", MySettings.UseMPDB)
+ AdvancedSettings.SetBooleanSetting("UseTMDB", MySettings.UseTMDB)
+ AdvancedSettings.SetBooleanSetting("UseIMDBTrailer", MySettings.UseIMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailer", MySettings.UseTMDBTrailer)
+ AdvancedSettings.SetBooleanSetting("UseTMDBTrailerXBMC", MySettings.UseTMDBTrailerXBMC)
+
+ AdvancedSettings.SetSetting("ManualETSize", MySettings.ManualETSize.ToString)
+ AdvancedSettings.SetSetting("ActorThumbsSize", MySettings.ActorThumbsSize.ToString)
+ AdvancedSettings.SetSetting("UseTMDBTrailerPref", MySettings.UseTMDBTrailerPref.ToString)
+
+ AdvancedSettings.SetBooleanSetting("DoPoster", ConfigScrapeModifier.Poster)
+ AdvancedSettings.SetBooleanSetting("DoFanart", ConfigScrapeModifier.Fanart)
+ 'AdvancedSettings.SetBooleanSetting("DoTrailer", ConfigScrapeModifier.Trailer)
+ End Sub
+
+ Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupPostScraper
+ MySettings.DownloadTrailers = _setupPost.chkDownloadTrailer.Checked
+ MySettings.UseIMDBTrailer = _setupPost.chkTrailerIMDB.Checked
+ MySettings.UseTMDBTrailer = _setupPost.chkTrailerTMDB.Checked
+ MySettings.UseTMDBTrailerXBMC = _setupPost.chkTrailerTMDBXBMC.Checked
+ MySettings.TrailerTimeout = Convert.ToInt32(_setupPost.txtTimeout.Text)
+ MySettings.UseTMDB = _setupPost.chkUseTMDB.Checked
+ MySettings.UseIMPA = _setupPost.chkUseIMPA.Checked
+ MySettings.UseMPDB = _setupPost.chkUseMPDB.Checked
+ MySettings.ManualETSize = _setupPost.cbManualETSize.Text
+ MySettings.ActorThumbsSize = _setupPost.cbActorThumbsSize.Text
+ MySettings.UseTMDBTrailerPref = _setupPost.cbTrailerTMDBPref.Text
+ ConfigScrapeModifier.Poster = _setupPost.chkScrapePoster.Checked
+ ConfigScrapeModifier.Fanart = _setupPost.chkScrapeFanart.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ RemoveHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ _setupPost.Dispose()
+ End If
+ End Sub
+
+ Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberMovieScraperModule.SaveSetupScraper
+ If Not String.IsNullOrEmpty(_setup.txtIMDBURL.Text) Then
+ MySettings.IMDBURL = Strings.Replace(_setup.txtIMDBURL.Text, "http://", String.Empty)
+ Else
+ MySettings.IMDBURL = "akas.imdb.com"
+ End If
+ MySettings.UseOFDBTitle = _setup.chkOFDBTitle.Checked
+ MySettings.UseOFDBOutline = _setup.chkOFDBOutline.Checked
+ MySettings.UseOFDBPlot = _setup.chkOFDBPlot.Checked
+ MySettings.UseOFDBGenre = _setup.chkOFDBGenre.Checked
+ ConfigOptions.bTitle = _setup.chkTitle.Checked
+ ConfigOptions.bYear = _setup.chkYear.Checked
+ ConfigOptions.bMPAA = _setup.chkMPAA.Checked
+ ConfigOptions.bRelease = _setup.chkRelease.Checked
+ ConfigOptions.bRuntime = _setup.chkRuntime.Checked
+ ConfigOptions.bRating = _setup.chkRating.Checked
+ ConfigOptions.bVotes = _setup.chkVotes.Checked
+ ConfigOptions.bStudio = _setup.chkStudio.Checked
+ ConfigOptions.bTagline = _setup.chkTagline.Checked
+ ConfigOptions.bOutline = _setup.chkOutline.Checked
+ ConfigOptions.bPlot = _setup.chkPlot.Checked
+ ConfigOptions.bCast = _setup.chkCast.Checked
+ ConfigOptions.bDirector = _setup.chkDirector.Checked
+ ConfigOptions.bWriters = _setup.chkWriters.Checked
+ ConfigOptions.bProducers = _setup.chkProducers.Checked
+ ConfigOptions.bGenre = _setup.chkGenre.Checked
+ ConfigOptions.bTrailer = _setup.chkTrailer.Checked
+ ConfigOptions.bMusicBy = _setup.chkMusicBy.Checked
+ ConfigOptions.bOtherCrew = _setup.chkCrew.Checked
+ ConfigOptions.bCountry = _setup.chkCountry.Checked
+ ConfigOptions.bTop250 = _setup.chkTop250.Checked
+ ConfigOptions.bCert = _setup.chkCertification.Checked
+ ConfigOptions.bFullCrew = _setup.chkFullCrew.Checked
+ ConfigOptions.bFullCast = _setup.chkFullCast.Checked
+ SaveSettings()
+ 'ModulesManager.Instance.SaveSettings()
+ If DoDispose Then
+ RemoveHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ RemoveHandler _setup.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ _setup.Dispose()
+ End If
+ End Sub
+
+ Function Scraper(ByRef DBMovie As Structures.DBMovie, ByRef ScrapeType As Enums.ScrapeType, ByRef Options As Structures.ScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.Scraper
+ 'LoadSettings()
+ IMDB.IMDBURL = MySettings.IMDBURL
+ IMDB.UseOFDBTitle = MySettings.UseOFDBTitle
+ IMDB.UseOFDBOutline = MySettings.UseOFDBOutline
+ IMDB.UseOFDBPlot = MySettings.UseOFDBPlot
+ IMDB.UseOFDBGenre = MySettings.UseOFDBGenre
+ Dim tTitle As String = String.Empty
+ Dim OldTitle As String = DBMovie.Movie.Title
+
+ If Master.GlobalScrapeMod.NFO AndAlso Not Master.GlobalScrapeMod.DoSearch Then
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, Options.bFullCrew, Options.bFullCast, False, Options, False)
+ ElseIf Not ScrapeType = Enums.ScrapeType.SingleScrape Then
+ DBMovie.Movie = IMDB.GetSearchMovieInfo(DBMovie.Movie.Title, DBMovie, ScrapeType, Options)
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End If
+
+ If ScrapeType = Enums.ScrapeType.SingleScrape AndAlso Master.GlobalScrapeMod.DoSearch _
+ AndAlso ModulesManager.Instance.externalScrapersModules.OrderBy(Function(y) y.ScraperOrder).FirstOrDefault(Function(e) e.ProcessorModule.IsScraper AndAlso e.ProcessorModule.ScraperEnabled).AssemblyName = _AssemblyName Then
+ DBMovie.Movie.IMDBID = String.Empty
+ DBMovie.ClearExtras = True
+ DBMovie.PosterPath = String.Empty
+ DBMovie.FanartPath = String.Empty
+ DBMovie.TrailerPath = String.Empty
+ DBMovie.ExtraPath = String.Empty
+ DBMovie.SubPath = String.Empty
+ DBMovie.NfoPath = String.Empty
+ DBMovie.Movie.Clear()
+ End If
+ If String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+ Select Case ScrapeType
+ Case Enums.ScrapeType.FilterAuto, Enums.ScrapeType.FullAuto, Enums.ScrapeType.MarkAuto, Enums.ScrapeType.NewAuto, Enums.ScrapeType.UpdateAuto
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Select
+ If ScrapeType = Enums.ScrapeType.SingleScrape Then
+ Using dSearch As New dlgIMDBSearchResults
+ dSearch.IMDBURL = MySettings.IMDBURL
+ Dim tmpTitle As String = DBMovie.Movie.Title
+ If String.IsNullOrEmpty(tmpTitle) Then
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name, False)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ tmpTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name, False)
+ Else
+ tmpTitle = StringUtils.FilterName(If(DBMovie.isSingle, Directory.GetParent(DBMovie.Filename).Name, Path.GetFileNameWithoutExtension(DBMovie.Filename)))
+ End If
+ End If
+ Dim filterOptions As Structures.ScrapeOptions = Functions.ScrapeOptionsAndAlso(Options, ConfigOptions)
+ If dSearch.ShowDialog(tmpTitle, filterOptions) = Windows.Forms.DialogResult.OK Then
+ If Not String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then
+ DBMovie.Movie.IMDBID = Master.tmpMovie.IMDBID
+ End If
+ If Not String.IsNullOrEmpty(DBMovie.Movie.IMDBID) Then
+
+ Master.currMovie.ClearExtras = True
+ Master.currMovie.PosterPath = String.Empty
+ Master.currMovie.FanartPath = String.Empty
+ Master.currMovie.TrailerPath = String.Empty
+ Master.currMovie.ExtraPath = String.Empty
+ Master.currMovie.SubPath = String.Empty
+ Master.currMovie.NfoPath = String.Empty
+
+
+ IMDB.GetMovieInfo(DBMovie.Movie.IMDBID, DBMovie.Movie, filterOptions.bFullCrew, filterOptions.bFullCast, False, filterOptions, False)
+ End If
+ Else
+ Return New Interfaces.ModuleResult With {.breakChain = False, .Cancelled = True}
+ End If
+ End Using
+ End If
+ End If
+
+ If Not String.IsNullOrEmpty(DBMovie.Movie.Title) Then
+ tTitle = StringUtils.FilterTokens(DBMovie.Movie.Title)
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = tTitle
+ If Master.eSettings.DisplayYear AndAlso Not String.IsNullOrEmpty(DBMovie.Movie.Year) Then
+ DBMovie.ListTitle = String.Format("{0} ({1})", tTitle, DBMovie.Movie.Year)
+ Else
+ DBMovie.ListTitle = tTitle
+ End If
+ Else
+ If FileUtils.Common.isVideoTS(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).Name)
+ ElseIf FileUtils.Common.isBDRip(DBMovie.Filename) Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(Directory.GetParent(Directory.GetParent(DBMovie.Filename).FullName).FullName).Name)
+ Else
+ If DBMovie.UseFolder AndAlso DBMovie.isSingle Then
+ DBMovie.ListTitle = StringUtils.FilterName(Directory.GetParent(DBMovie.Filename).Name)
+ Else
+ DBMovie.ListTitle = StringUtils.FilterName(Path.GetFileNameWithoutExtension(DBMovie.Filename))
+ End If
+ End If
+ If Not OldTitle = DBMovie.Movie.Title OrElse String.IsNullOrEmpty(DBMovie.Movie.SortTitle) Then DBMovie.Movie.SortTitle = DBMovie.ListTitle
+ End If
+
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Function SelectImageOfType(ByRef mMovie As Structures.DBMovie, ByVal _DLType As Enums.ImageType, ByRef pResults As Containers.ImgResult, Optional ByVal _isEdit As Boolean = False, Optional ByVal preload As Boolean = False) As Interfaces.ModuleResult Implements Interfaces.EmberMovieScraperModule.SelectImageOfType
+ If preload AndAlso _DLType = Enums.ImageType.Fanart AndAlso Not IsNothing(dFImgSelect) Then
+ pResults = dFImgSelect.ShowDialog()
+ dFImgSelect = Nothing
+ Else
+ Using dImgSelect As New dlgImgSelect
+ If preload Then
+ dFImgSelect = New dlgImgSelect
+ dFImgSelect.PreLoad(mMovie, Enums.ImageType.Fanart, _isEdit)
+ End If
+ dImgSelect.IMDBURL = MySettings.IMDBURL
+ pResults = dImgSelect.ShowDialog(mMovie, _DLType, _isEdit)
+ End Using
+ End If
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+ Public Sub PostScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.PostScraperOrderChanged
+ _setup.orderChanged()
+ End Sub
+
+ Public Sub ScraperOrderChanged() Implements EmberAPI.Interfaces.EmberMovieScraperModule.ScraperOrderChanged
+ _setupPost.orderChanged()
+ End Sub
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Structure _MySettings
+
+#Region "Fields"
+
+ Dim DownloadTrailers As Boolean
+ Dim IMDBURL As String
+ Dim UseOFDBGenre As Boolean
+ Dim UseOFDBOutline As Boolean
+ Dim UseOFDBPlot As Boolean
+ Dim UseOFDBTitle As Boolean
+ Dim TrailerTimeout As Integer
+ Dim UseTMDB As Boolean
+ Dim UseIMPA As Boolean
+ Dim UseMPDB As Boolean
+ Dim UseTMDBTrailer As Boolean
+ Dim UseIMDBTrailer As Boolean
+ Dim UseTMDBTrailerXBMC As Boolean
+ Dim ManualETSize As String
+ Dim ActorThumbsSize As String
+ Dim UseTMDBTrailerPref As String
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/scraperTVNativeModule.vb b/Addons/scraper.YouTube.Trailer/scraperTVNativeModule.vb
new file mode 100644
index 0000000..450e6d6
--- /dev/null
+++ b/Addons/scraper.YouTube.Trailer/scraperTVNativeModule.vb
@@ -0,0 +1,221 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see <http://www.gnu.org/licenses/>. #
+' ################################################################################
+
+Imports System.IO
+Imports EmberAPI
+
+''' <summary>
+''' Native Scraper
+''' </summary>
+''' <remarks></remarks>
+Public Class EmberNativeTVScraperModule
+ Implements Interfaces.EmberTVScraperModule
+
+#Region "Fields"
+
+ Public Shared TVScraper As New Scraper
+
+ Private _Name As String = "Ember Native TV Scrapers"
+ Private _PostScraperEnabled As Boolean = False
+ Private _ScraperEnabled As Boolean = False
+ Private _setup As frmTVInfoSettingsHolder
+ Private _setupPost As frmTVMediaSettingsHolder
+#End Region 'Fields
+
+#Region "Events"
+
+ Public Event ModuleSettingsChanged() Implements Interfaces.EmberTVScraperModule.ModuleSettingsChanged
+
+ Public Event SetupPostScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupPostScraperChanged
+
+ Public Event SetupScraperChanged(ByVal name As String, ByVal State As Boolean, ByVal difforder As Integer) Implements Interfaces.EmberTVScraperModule.SetupScraperChanged
+
+ Public Event TVScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object) Implements Interfaces.EmberTVScraperModule.TVScraperEvent
+
+#End Region 'Events
+
+#Region "Properties"
+
+ Public ReadOnly Property IsBusy() As Boolean Implements Interfaces.EmberTVScraperModule.IsBusy
+ Get
+ Return TVScraper.IsBusy
+ End Get
+ End Property
+
+ Public ReadOnly Property IsPostScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsPostScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property IsScraper() As Boolean Implements Interfaces.EmberTVScraperModule.IsScraper
+ Get
+ Return True
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleName() As String Implements Interfaces.EmberTVScraperModule.ModuleName
+ Get
+ Return _Name
+ End Get
+ End Property
+
+ Public ReadOnly Property ModuleVersion() As String Implements Interfaces.EmberTVScraperModule.ModuleVersion
+ Get
+ Return FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileVersion.ToString
+ End Get
+ End Property
+
+ Public Property PostScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.PostScraperEnabled
+ Get
+ Return _PostScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _PostScraperEnabled = value
+ End Set
+ End Property
+
+ Public Property ScraperEnabled() As Boolean Implements Interfaces.EmberTVScraperModule.ScraperEnabled
+ Get
+ Return _ScraperEnabled
+ End Get
+ Set(ByVal value As Boolean)
+ _ScraperEnabled = value
+ End Set
+ End Property
+
+#End Region 'Properties
+
+#Region "Methods"
+
+ Public Sub CancelAsync() Implements Interfaces.EmberTVScraperModule.CancelAsync
+ TVScraper.CancelAsync()
+ End Sub
+
+ Public Function ChangeEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Lang As String, ByRef epDet As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ChangeEpisode
+ epDet = TVScraper.ChangeEpisode(ShowID, TVDBID, Lang)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetLangs(ByVal sMirror As String, ByRef Langs As List(Of Containers.TVLanguage)) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetLangs
+ Langs = TVScraper.GetLangs(sMirror)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Function GetSingleEpisode(ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByRef epDetails As MediaContainers.EpisodeDetails) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleEpisode
+ epDetails = TVScraper.GetSingleEpisode(ShowID, TVDBID, Season, Episode, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function GetSingleImage(ByVal Title As String, ByVal ShowID As Integer, ByVal TVDBID As String, ByVal Type As Enums.TVImageType, ByVal Season As Integer, ByVal Episode As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal CurrentImage As Images, ByRef Image As Images) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.GetSingleImage
+ Image = TVScraper.GetSingleImage(Title, ShowID, TVDBID, Type, Season, Episode, Lang, Ordering, CurrentImage)
+ Return New Interfaces.ModuleResult With {.breakChain = True}
+ End Function
+
+ Public Sub Handler_ScraperEvent(ByVal eType As Enums.TVScraperEventType, ByVal iProgress As Integer, ByVal Parameter As Object)
+ RaiseEvent TVScraperEvent(eType, iProgress, Parameter)
+ End Sub
+
+ Public Sub Init(ByVal sAssemblyName As String) Implements Interfaces.EmberTVScraperModule.Init
+ AddHandler TVScraper.ScraperEvent, AddressOf Handler_ScraperEvent
+ End Sub
+
+ Public Function InjectSetupPostScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupPostScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setupPost = New frmTVMediaSettingsHolder
+ _setupPost.cbEnabled.Checked = _PostScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "PostScraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setupPost.pnlSettings
+ SPanel.Parent = "pnlTVMedia"
+ AddHandler _setupPost.SetupPostScraperChanged, AddressOf Handle_SetupPostScraperChanged
+ AddHandler _setupPost.ModuleSettingsChanged, AddressOf Handle_ModuleSettingsChanged
+ Return SPanel
+ End Function
+
+ 'Public Event ScraperUpdateMediaList(ByVal col As Integer, ByVal v As Boolean) Implements Interfaces.EmberTVScraperModule.ScraperUpdateMediaList
+ Public Function InjectSetupScraper() As Containers.SettingsPanel Implements Interfaces.EmberTVScraperModule.InjectSetupScraper
+ Dim SPanel As New Containers.SettingsPanel
+ _setup = New frmTVInfoSettingsHolder
+ _setup.cbEnabled.Checked = _ScraperEnabled
+ SPanel.Name = String.Concat(Me._Name, "Scraper")
+ SPanel.Text = Master.eLang.GetString(0, "Ember Native TV Scrapers")
+ SPanel.Prefix = "NativeTV_"
+ SPanel.Type = Master.eLang.GetString(698, "TV Shows", True)
+ SPanel.ImageIndex = If(Me._ScraperEnabled, 9, 10)
+ SPanel.Order = 100
+ SPanel.Panel = Me._setup.pnlSettings
+ SPanel.Parent = "pnlTVData"
+ AddHandler _setup.SetupScraperChanged, AddressOf Handle_SetupScraperChanged
+ AddHandler _setup.ModuleSettingsChanged, AddressOf Handle_PostModuleSettingsChanged
+ Return SPanel
+ End Function
+ Private Sub Handle_ModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_PostModuleSettingsChanged()
+ RaiseEvent ModuleSettingsChanged()
+ End Sub
+
+ Private Sub Handle_SetupPostScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ PostScraperEnabled = state
+ RaiseEvent SetupPostScraperChanged(String.Concat(Me._Name, "PostScraper"), state, difforder)
+ End Sub
+
+ Private Sub Handle_SetupScraperChanged(ByVal state As Boolean, ByVal difforder As Integer)
+ ScraperEnabled = state
+ RaiseEvent SetupScraperChanged(String.Concat(Me._Name, "Scraper"), state, difforder)
+ End Sub
+ Public Function PostScraper(ByRef DBTV As Structures.DBTV, ByVal ScrapeType As Enums.ScrapeType) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.PostScraper
+ End Function
+
+ Public Function SaveImages() As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.SaveImages
+ TVScraper.SaveImages()
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Sub SaveSetupPostScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupPostScraper
+ End Sub
+
+ Public Sub SaveSetupScraper(ByVal DoDispose As Boolean) Implements Interfaces.EmberTVScraperModule.SaveSetupScraper
+ End Sub
+
+ Public Function ScrapeEpisode(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iEpisode As Integer, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeEpisode
+ TVScraper.ScrapeEpisode(ShowID, ShowTitle, TVDBID, iEpisode, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function Scraper(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions, ByVal ScrapeType As Enums.ScrapeType, ByVal WithCurrent As Boolean) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.Scraper
+ TVScraper.SingleScrape(ShowID, ShowTitle, TVDBID, Lang, Ordering, Options, ScrapeType, WithCurrent)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+ Public Function ScrapeSeason(ByVal ShowID As Integer, ByVal ShowTitle As String, ByVal TVDBID As String, ByVal iSeason As Integer, ByVal Lang As String, ByVal Ordering As Enums.Ordering, ByVal Options As Structures.TVScrapeOptions) As Interfaces.ModuleResult Implements Interfaces.EmberTVScraperModule.ScrapeSeason
+ TVScraper.ScrapeSeason(ShowID, ShowTitle, TVDBID, iSeason, Lang, Ordering, Options)
+ Return New Interfaces.ModuleResult With {.breakChain = False}
+ End Function
+
+#End Region 'Methods
+
+End Class
\ No newline at end of file
diff --git a/Addons/scraper.YouTube.Trailer/x64/SQLite.Interop.dll b/Addons/scraper.YouTube.Trailer/x64/SQLite.Interop.dll
new file mode 100644
index 0000000..860c0e5
Binary files /dev/null and b/Addons/scraper.YouTube.Trailer/x64/SQLite.Interop.dll differ
diff --git a/Addons/scraper.YouTube.Trailer/x86/SQLite.Interop.dll b/Addons/scraper.YouTube.Trailer/x86/SQLite.Interop.dll
new file mode 100644
index 0000000..6f6fd4f
Binary files /dev/null and b/Addons/scraper.YouTube.Trailer/x86/SQLite.Interop.dll differ
diff --git a/Ember Media Manager.sln b/Ember Media Manager.sln
index bfd1c7b..d667315 100644
--- a/Ember Media Manager.sln
+++ b/Ember Media Manager.sln
@@ -7,15 +7,19 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Ember Media Manager", "Embe
{EF6A550E-DD76-4F4D-8250-8598140F828B} = {EF6A550E-DD76-4F4D-8250-8598140F828B}
{2A08A524-88DA-432F-92E6-8DC63C5376DA} = {2A08A524-88DA-432F-92E6-8DC63C5376DA}
{E567C031-1F7B-4637-9B3A-806988DE50CF} = {E567C031-1F7B-4637-9B3A-806988DE50CF}
- {64D6F035-F186-4193-AF35-D20126B8DA64} = {64D6F035-F186-4193-AF35-D20126B8DA64}
{84B2143A-D04F-4262-923D-21AEDF86E2B7} = {84B2143A-D04F-4262-923D-21AEDF86E2B7}
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8} = {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B} = {8DAFAF56-AD78-4B47-866F-E8179511AF5B}
{6FE33C61-E2C2-4982-9536-63AEF0A98AAA} = {6FE33C61-E2C2-4982-9536-63AEF0A98AAA}
{859C1085-518B-49D2-9C84-D91C4094097F} = {859C1085-518B-49D2-9C84-D91C4094097F}
{F6CACA89-E8E4-45D9-B942-97FBD4ADD106} = {F6CACA89-E8E4-45D9-B942-97FBD4ADD106}
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23} = {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}
{B413DEAF-4FDC-416A-B3E0-968C1C8F3F83} = {B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}
{B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF} = {B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6} = {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}
{E7FDD1C9-BCF7-4624-B033-D3888E422A8B} = {E7FDD1C9-BCF7-4624-B033-D3888E422A8B}
{62356BCF-D15A-4BF1-B980-395CEC0004A9} = {62356BCF-D15A-4BF1-B980-395CEC0004A9}
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37} = {A9188CF1-BD07-4D24-BC4A-906A43012F37}
EndProjectSection
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EmberAPI", "EmberAPI\EmberAPI.vbproj", "{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}"
@@ -48,79 +52,328 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.EmberCore", "Addons
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.EmberCore.XML", "Addons\scraper.EmberCore.XML\scraper.EmberCore.XML.vbproj", "{E567C031-1F7B-4637-9B3A-806988DE50CF}"
EndProject
-Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = ".nuget", ".nuget", "{8564C91B-7F49-482F-A4B3-C3D7E818648F}"
- ProjectSection(SolutionItems) = preProject
- .nuget\NuGet.Config = .nuget\NuGet.Config
- .nuget\NuGet.exe = .nuget\NuGet.exe
- .nuget\NuGet.targets = .nuget\NuGet.targets
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.EmberCore.TMDB", "Addons\scraper.EmberCore.TMDB\scraper.EmberCore.TMDB.vbproj", "{2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}"
+ ProjectSection(ProjectDependencies) = postProject
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8} = {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}
EndProjectSection
EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "WatTmdb", "WatTmdb\WatTmdb.csproj", "{EFC11645-FAB4-4C30-A498-29F5ECDF77E8}"
+EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "FanartTVAPI", "FanartTVAPI\FanartTVAPI.csproj", "{70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}"
+EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "RottenTomatoesAPI", "RottenTomatoesAPI\RottenTomatoesAPI.csproj", "{8DAFAF56-AD78-4B47-866F-E8179511AF5B}"
+EndProject
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Removed", "Removed", "{620861D6-4C88-4A5F-B3D5-C1D45468D16F}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.FanartTV.Poster", "Addons\scraper.FanartTV.Poster\scraper.FanartTV.Poster.vbproj", "{A5277330-A443-46AB-A058-016A3B6AF8AC}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.IMDB.Data", "Addons\scraper.IMDB.Data\scraper.IMDB.Data.vbproj", "{D3C1A3C4-A060-40DF-ACE4-143F7F102A24}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.IMDB.Poster", "Addons\scraper.IMDB.Poster\scraper.IMDB.Poster.vbproj", "{6A5A835E-D798-4A21-963C-C8E7A5F99D57}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.IMPA.Poster", "Addons\scraper.IMPA.Poster\scraper.IMPA.Poster.vbproj", "{D9878E03-87D7-429E-AA0C-A7116A31FA7F}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.MPDB.Poster", "Addons\scraper.MPDB.Poster\scraper.MPDB.Poster.vbproj", "{72A8EF23-3379-4C72-B212-A14A3C286D9C}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.OFDB.Data", "Addons\scraper.OFDB.Data\scraper.OFDB.Data.vbproj", "{39C49E1A-75BA-4AD1-9286-58E83D22BC1E}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.TMDB.Data", "Addons\scraper.TMDB.Data\scraper.TMDB.Data.vbproj", "{A9188CF1-BD07-4D24-BC4A-906A43012F37}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.TMDB.Poster", "Addons\scraper.TMDB.Poster\scraper.TMDB.Poster.vbproj", "{2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.TVDB.Data", "Addons\scraper.TVDB.Data\scraper.TVDB.Data.vbproj", "{F642E719-61E2-4847-AB55-DB47C0F38649}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.TVDB.Poster", "Addons\scraper.TVDB.Poster\scraper.TVDB.Poster.vbproj", "{3FAF50AA-AD5F-455A-8711-6D791C457F0F}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "scraper.YouTube.Trailer", "Addons\scraper.YouTube.Trailer\scraper.YouTube.Trailer.vbproj", "{194445BE-3721-4270-984D-FA978D5F34A0}"
+EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
+ Debug|Any CPU = Debug|Any CPU
+ Debug|Mixed Platforms = Debug|Mixed Platforms
Debug|x86 = Debug|x86
+ Release|Any CPU = Release|Any CPU
+ Release|Mixed Platforms = Release|Mixed Platforms
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
+ {9B57D3AB-AF12-4012-B945-284C2448DC81}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {9B57D3AB-AF12-4012-B945-284C2448DC81}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {9B57D3AB-AF12-4012-B945-284C2448DC81}.Debug|Mixed Platforms.Build.0 = Debug|x86
{9B57D3AB-AF12-4012-B945-284C2448DC81}.Debug|x86.ActiveCfg = Debug|x86
{9B57D3AB-AF12-4012-B945-284C2448DC81}.Debug|x86.Build.0 = Debug|x86
+ {9B57D3AB-AF12-4012-B945-284C2448DC81}.Release|Any CPU.ActiveCfg = Release|x86
+ {9B57D3AB-AF12-4012-B945-284C2448DC81}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {9B57D3AB-AF12-4012-B945-284C2448DC81}.Release|Mixed Platforms.Build.0 = Release|x86
{9B57D3AB-AF12-4012-B945-284C2448DC81}.Release|x86.ActiveCfg = Release|x86
{9B57D3AB-AF12-4012-B945-284C2448DC81}.Release|x86.Build.0 = Release|x86
+ {208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Debug|Mixed Platforms.Build.0 = Debug|x86
{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Debug|x86.ActiveCfg = Debug|x86
{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Debug|x86.Build.0 = Debug|x86
+ {208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Release|Any CPU.ActiveCfg = Release|x86
+ {208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Release|Mixed Platforms.Build.0 = Release|x86
{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Release|x86.ActiveCfg = Release|x86
{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}.Release|x86.Build.0 = Release|x86
+ {EAAB0601-6478-44D2-A39C-89B0850D7833}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {EAAB0601-6478-44D2-A39C-89B0850D7833}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {EAAB0601-6478-44D2-A39C-89B0850D7833}.Debug|Mixed Platforms.Build.0 = Debug|x86
{EAAB0601-6478-44D2-A39C-89B0850D7833}.Debug|x86.ActiveCfg = Debug|x86
{EAAB0601-6478-44D2-A39C-89B0850D7833}.Debug|x86.Build.0 = Debug|x86
+ {EAAB0601-6478-44D2-A39C-89B0850D7833}.Release|Any CPU.ActiveCfg = Release|x86
+ {EAAB0601-6478-44D2-A39C-89B0850D7833}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {EAAB0601-6478-44D2-A39C-89B0850D7833}.Release|Mixed Platforms.Build.0 = Release|x86
{EAAB0601-6478-44D2-A39C-89B0850D7833}.Release|x86.ActiveCfg = Release|x86
{EAAB0601-6478-44D2-A39C-89B0850D7833}.Release|x86.Build.0 = Release|x86
+ {B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Debug|Mixed Platforms.Build.0 = Debug|x86
{B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Debug|x86.ActiveCfg = Debug|x86
{B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Debug|x86.Build.0 = Debug|x86
+ {B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Release|Any CPU.ActiveCfg = Release|x86
+ {B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Release|Mixed Platforms.Build.0 = Release|x86
{B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Release|x86.ActiveCfg = Release|x86
{B413DEAF-4FDC-416A-B3E0-968C1C8F3F83}.Release|x86.Build.0 = Release|x86
+ {F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Debug|Mixed Platforms.Build.0 = Debug|x86
{F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Debug|x86.ActiveCfg = Debug|x86
{F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Debug|x86.Build.0 = Debug|x86
+ {F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Release|Any CPU.ActiveCfg = Release|x86
+ {F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Release|Mixed Platforms.Build.0 = Release|x86
{F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Release|x86.ActiveCfg = Release|x86
{F6CACA89-E8E4-45D9-B942-97FBD4ADD106}.Release|x86.Build.0 = Release|x86
+ {B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Debug|Mixed Platforms.Build.0 = Debug|x86
{B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Debug|x86.ActiveCfg = Debug|x86
{B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Debug|x86.Build.0 = Debug|x86
+ {B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Release|Any CPU.ActiveCfg = Release|x86
+ {B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Release|Mixed Platforms.Build.0 = Release|x86
{B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Release|x86.ActiveCfg = Release|x86
{B0BDF9C2-EB9C-4090-B9A9-B703DF00CCEF}.Release|x86.Build.0 = Release|x86
+ {84B2143A-D04F-4262-923D-21AEDF86E2B7}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {84B2143A-D04F-4262-923D-21AEDF86E2B7}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {84B2143A-D04F-4262-923D-21AEDF86E2B7}.Debug|Mixed Platforms.Build.0 = Debug|x86
{84B2143A-D04F-4262-923D-21AEDF86E2B7}.Debug|x86.ActiveCfg = Debug|x86
{84B2143A-D04F-4262-923D-21AEDF86E2B7}.Debug|x86.Build.0 = Debug|x86
+ {84B2143A-D04F-4262-923D-21AEDF86E2B7}.Release|Any CPU.ActiveCfg = Release|x86
+ {84B2143A-D04F-4262-923D-21AEDF86E2B7}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {84B2143A-D04F-4262-923D-21AEDF86E2B7}.Release|Mixed Platforms.Build.0 = Release|x86
{84B2143A-D04F-4262-923D-21AEDF86E2B7}.Release|x86.ActiveCfg = Release|x86
{84B2143A-D04F-4262-923D-21AEDF86E2B7}.Release|x86.Build.0 = Release|x86
+ {2A08A524-88DA-432F-92E6-8DC63C5376DA}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {2A08A524-88DA-432F-92E6-8DC63C5376DA}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {2A08A524-88DA-432F-92E6-8DC63C5376DA}.Debug|Mixed Platforms.Build.0 = Debug|x86
{2A08A524-88DA-432F-92E6-8DC63C5376DA}.Debug|x86.ActiveCfg = Debug|x86
{2A08A524-88DA-432F-92E6-8DC63C5376DA}.Debug|x86.Build.0 = Debug|x86
+ {2A08A524-88DA-432F-92E6-8DC63C5376DA}.Release|Any CPU.ActiveCfg = Release|x86
+ {2A08A524-88DA-432F-92E6-8DC63C5376DA}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {2A08A524-88DA-432F-92E6-8DC63C5376DA}.Release|Mixed Platforms.Build.0 = Release|x86
{2A08A524-88DA-432F-92E6-8DC63C5376DA}.Release|x86.ActiveCfg = Release|x86
{2A08A524-88DA-432F-92E6-8DC63C5376DA}.Release|x86.Build.0 = Release|x86
+ {E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Debug|Mixed Platforms.Build.0 = Debug|x86
{E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Debug|x86.ActiveCfg = Debug|x86
{E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Debug|x86.Build.0 = Debug|x86
+ {E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Release|Any CPU.ActiveCfg = Release|x86
+ {E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Release|Mixed Platforms.Build.0 = Release|x86
{E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Release|x86.ActiveCfg = Release|x86
{E7FDD1C9-BCF7-4624-B033-D3888E422A8B}.Release|x86.Build.0 = Release|x86
+ {64D6F035-F186-4193-AF35-D20126B8DA64}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {64D6F035-F186-4193-AF35-D20126B8DA64}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{64D6F035-F186-4193-AF35-D20126B8DA64}.Debug|x86.ActiveCfg = Debug|x86
- {64D6F035-F186-4193-AF35-D20126B8DA64}.Debug|x86.Build.0 = Debug|x86
+ {64D6F035-F186-4193-AF35-D20126B8DA64}.Release|Any CPU.ActiveCfg = Release|x86
+ {64D6F035-F186-4193-AF35-D20126B8DA64}.Release|Mixed Platforms.ActiveCfg = Release|x86
{64D6F035-F186-4193-AF35-D20126B8DA64}.Release|x86.ActiveCfg = Release|x86
- {64D6F035-F186-4193-AF35-D20126B8DA64}.Release|x86.Build.0 = Release|x86
+ {6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Debug|Mixed Platforms.Build.0 = Debug|x86
{6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Debug|x86.ActiveCfg = Debug|x86
{6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Debug|x86.Build.0 = Debug|x86
+ {6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Release|Any CPU.ActiveCfg = Release|x86
+ {6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Release|Mixed Platforms.Build.0 = Release|x86
{6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Release|x86.ActiveCfg = Release|x86
{6FE33C61-E2C2-4982-9536-63AEF0A98AAA}.Release|x86.Build.0 = Release|x86
+ {859C1085-518B-49D2-9C84-D91C4094097F}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {859C1085-518B-49D2-9C84-D91C4094097F}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {859C1085-518B-49D2-9C84-D91C4094097F}.Debug|Mixed Platforms.Build.0 = Debug|x86
{859C1085-518B-49D2-9C84-D91C4094097F}.Debug|x86.ActiveCfg = Debug|x86
{859C1085-518B-49D2-9C84-D91C4094097F}.Debug|x86.Build.0 = Debug|x86
+ {859C1085-518B-49D2-9C84-D91C4094097F}.Release|Any CPU.ActiveCfg = Release|x86
+ {859C1085-518B-49D2-9C84-D91C4094097F}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {859C1085-518B-49D2-9C84-D91C4094097F}.Release|Mixed Platforms.Build.0 = Release|x86
{859C1085-518B-49D2-9C84-D91C4094097F}.Release|x86.ActiveCfg = Release|x86
{859C1085-518B-49D2-9C84-D91C4094097F}.Release|x86.Build.0 = Release|x86
+ {62356BCF-D15A-4BF1-B980-395CEC0004A9}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {62356BCF-D15A-4BF1-B980-395CEC0004A9}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {62356BCF-D15A-4BF1-B980-395CEC0004A9}.Debug|Mixed Platforms.Build.0 = Debug|x86
{62356BCF-D15A-4BF1-B980-395CEC0004A9}.Debug|x86.ActiveCfg = Debug|x86
{62356BCF-D15A-4BF1-B980-395CEC0004A9}.Debug|x86.Build.0 = Debug|x86
+ {62356BCF-D15A-4BF1-B980-395CEC0004A9}.Release|Any CPU.ActiveCfg = Release|x86
+ {62356BCF-D15A-4BF1-B980-395CEC0004A9}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {62356BCF-D15A-4BF1-B980-395CEC0004A9}.Release|Mixed Platforms.Build.0 = Release|x86
{62356BCF-D15A-4BF1-B980-395CEC0004A9}.Release|x86.ActiveCfg = Release|x86
{62356BCF-D15A-4BF1-B980-395CEC0004A9}.Release|x86.Build.0 = Release|x86
+ {EF6A550E-DD76-4F4D-8250-8598140F828B}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {EF6A550E-DD76-4F4D-8250-8598140F828B}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{EF6A550E-DD76-4F4D-8250-8598140F828B}.Debug|x86.ActiveCfg = Debug|x86
{EF6A550E-DD76-4F4D-8250-8598140F828B}.Debug|x86.Build.0 = Debug|x86
+ {EF6A550E-DD76-4F4D-8250-8598140F828B}.Release|Any CPU.ActiveCfg = Release|x86
+ {EF6A550E-DD76-4F4D-8250-8598140F828B}.Release|Mixed Platforms.ActiveCfg = Release|x86
{EF6A550E-DD76-4F4D-8250-8598140F828B}.Release|x86.ActiveCfg = Release|x86
{EF6A550E-DD76-4F4D-8250-8598140F828B}.Release|x86.Build.0 = Release|x86
+ {E567C031-1F7B-4637-9B3A-806988DE50CF}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {E567C031-1F7B-4637-9B3A-806988DE50CF}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{E567C031-1F7B-4637-9B3A-806988DE50CF}.Debug|x86.ActiveCfg = Debug|x86
{E567C031-1F7B-4637-9B3A-806988DE50CF}.Debug|x86.Build.0 = Debug|x86
+ {E567C031-1F7B-4637-9B3A-806988DE50CF}.Release|Any CPU.ActiveCfg = Release|x86
+ {E567C031-1F7B-4637-9B3A-806988DE50CF}.Release|Mixed Platforms.ActiveCfg = Release|x86
{E567C031-1F7B-4637-9B3A-806988DE50CF}.Release|x86.ActiveCfg = Release|x86
{E567C031-1F7B-4637-9B3A-806988DE50CF}.Release|x86.Build.0 = Release|x86
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}.Debug|x86.ActiveCfg = Debug|x86
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}.Debug|x86.Build.0 = Debug|x86
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}.Release|Any CPU.ActiveCfg = Release|x86
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}.Release|x86.ActiveCfg = Release|x86
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23}.Release|x86.Build.0 = Release|x86
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Debug|x86.ActiveCfg = Debug|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Debug|x86.Build.0 = Debug|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Release|Any CPU.Build.0 = Release|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Release|x86.ActiveCfg = Release|Any CPU
+ {EFC11645-FAB4-4C30-A498-29F5ECDF77E8}.Release|x86.Build.0 = Release|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Debug|x86.ActiveCfg = Debug|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Debug|x86.Build.0 = Debug|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Release|Any CPU.Build.0 = Release|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Release|x86.ActiveCfg = Release|Any CPU
+ {70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}.Release|x86.Build.0 = Release|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Debug|x86.ActiveCfg = Debug|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Debug|x86.Build.0 = Debug|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Release|Any CPU.Build.0 = Release|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Release|x86.ActiveCfg = Release|Any CPU
+ {8DAFAF56-AD78-4B47-866F-E8179511AF5B}.Release|x86.Build.0 = Release|Any CPU
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Debug|x86.ActiveCfg = Debug|x86
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Debug|x86.Build.0 = Debug|x86
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Release|Any CPU.ActiveCfg = Release|x86
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Release|Mixed Platforms.Build.0 = Release|x86
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Release|x86.ActiveCfg = Release|x86
+ {A5277330-A443-46AB-A058-016A3B6AF8AC}.Release|x86.Build.0 = Release|x86
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24}.Debug|x86.ActiveCfg = Debug|x86
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24}.Debug|x86.Build.0 = Debug|x86
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24}.Release|Any CPU.ActiveCfg = Release|x86
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24}.Release|x86.ActiveCfg = Release|x86
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24}.Release|x86.Build.0 = Release|x86
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57}.Debug|x86.ActiveCfg = Debug|x86
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57}.Debug|x86.Build.0 = Debug|x86
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57}.Release|Any CPU.ActiveCfg = Release|x86
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57}.Release|x86.ActiveCfg = Release|x86
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57}.Release|x86.Build.0 = Release|x86
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F}.Debug|x86.ActiveCfg = Debug|x86
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F}.Debug|x86.Build.0 = Debug|x86
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F}.Release|Any CPU.ActiveCfg = Release|x86
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F}.Release|x86.ActiveCfg = Release|x86
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F}.Release|x86.Build.0 = Release|x86
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C}.Debug|x86.ActiveCfg = Debug|x86
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C}.Debug|x86.Build.0 = Debug|x86
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C}.Release|Any CPU.ActiveCfg = Release|x86
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C}.Release|x86.ActiveCfg = Release|x86
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C}.Release|x86.Build.0 = Release|x86
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E}.Debug|x86.ActiveCfg = Debug|x86
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E}.Debug|x86.Build.0 = Debug|x86
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E}.Release|Any CPU.ActiveCfg = Release|x86
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E}.Release|x86.ActiveCfg = Release|x86
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E}.Release|x86.Build.0 = Release|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Debug|Mixed Platforms.Build.0 = Debug|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Debug|x86.ActiveCfg = Debug|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Debug|x86.Build.0 = Debug|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Release|Any CPU.ActiveCfg = Release|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Release|Mixed Platforms.Build.0 = Release|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Release|x86.ActiveCfg = Release|x86
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37}.Release|x86.Build.0 = Release|x86
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}.Debug|x86.ActiveCfg = Debug|x86
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}.Debug|x86.Build.0 = Debug|x86
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}.Release|Any CPU.ActiveCfg = Release|x86
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}.Release|x86.ActiveCfg = Release|x86
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3}.Release|x86.Build.0 = Release|x86
+ {F642E719-61E2-4847-AB55-DB47C0F38649}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {F642E719-61E2-4847-AB55-DB47C0F38649}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {F642E719-61E2-4847-AB55-DB47C0F38649}.Debug|x86.ActiveCfg = Debug|x86
+ {F642E719-61E2-4847-AB55-DB47C0F38649}.Debug|x86.Build.0 = Debug|x86
+ {F642E719-61E2-4847-AB55-DB47C0F38649}.Release|Any CPU.ActiveCfg = Release|x86
+ {F642E719-61E2-4847-AB55-DB47C0F38649}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {F642E719-61E2-4847-AB55-DB47C0F38649}.Release|x86.ActiveCfg = Release|x86
+ {F642E719-61E2-4847-AB55-DB47C0F38649}.Release|x86.Build.0 = Release|x86
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F}.Debug|x86.ActiveCfg = Debug|x86
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F}.Debug|x86.Build.0 = Debug|x86
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F}.Release|Any CPU.ActiveCfg = Release|x86
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F}.Release|x86.ActiveCfg = Release|x86
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F}.Release|x86.Build.0 = Release|x86
+ {194445BE-3721-4270-984D-FA978D5F34A0}.Debug|Any CPU.ActiveCfg = Debug|x86
+ {194445BE-3721-4270-984D-FA978D5F34A0}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+ {194445BE-3721-4270-984D-FA978D5F34A0}.Debug|x86.ActiveCfg = Debug|x86
+ {194445BE-3721-4270-984D-FA978D5F34A0}.Debug|x86.Build.0 = Debug|x86
+ {194445BE-3721-4270-984D-FA978D5F34A0}.Release|Any CPU.ActiveCfg = Release|x86
+ {194445BE-3721-4270-984D-FA978D5F34A0}.Release|Mixed Platforms.ActiveCfg = Release|x86
+ {194445BE-3721-4270-984D-FA978D5F34A0}.Release|x86.ActiveCfg = Release|x86
+ {194445BE-3721-4270-984D-FA978D5F34A0}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
@@ -133,11 +386,23 @@ Global
{84B2143A-D04F-4262-923D-21AEDF86E2B7} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
{2A08A524-88DA-432F-92E6-8DC63C5376DA} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
{E7FDD1C9-BCF7-4624-B033-D3888E422A8B} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
- {64D6F035-F186-4193-AF35-D20126B8DA64} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
{6FE33C61-E2C2-4982-9536-63AEF0A98AAA} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
{859C1085-518B-49D2-9C84-D91C4094097F} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
{62356BCF-D15A-4BF1-B980-395CEC0004A9} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
- {EF6A550E-DD76-4F4D-8250-8598140F828B} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
- {E567C031-1F7B-4637-9B3A-806988DE50CF} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {A5277330-A443-46AB-A058-016A3B6AF8AC} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {D3C1A3C4-A060-40DF-ACE4-143F7F102A24} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {6A5A835E-D798-4A21-963C-C8E7A5F99D57} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {D9878E03-87D7-429E-AA0C-A7116A31FA7F} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {72A8EF23-3379-4C72-B212-A14A3C286D9C} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {39C49E1A-75BA-4AD1-9286-58E83D22BC1E} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {A9188CF1-BD07-4D24-BC4A-906A43012F37} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {2B684C20-7E1A-4DA0-8C26-96DA1407B2C3} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {F642E719-61E2-4847-AB55-DB47C0F38649} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {3FAF50AA-AD5F-455A-8711-6D791C457F0F} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {194445BE-3721-4270-984D-FA978D5F34A0} = {4FD2B635-11BD-4532-96F6-97ECB41072A1}
+ {EF6A550E-DD76-4F4D-8250-8598140F828B} = {620861D6-4C88-4A5F-B3D5-C1D45468D16F}
+ {E567C031-1F7B-4637-9B3A-806988DE50CF} = {620861D6-4C88-4A5F-B3D5-C1D45468D16F}
+ {2EB03DAA-1A5D-47C5-9883-56DCD0F70D23} = {620861D6-4C88-4A5F-B3D5-C1D45468D16F}
+ {64D6F035-F186-4193-AF35-D20126B8DA64} = {620861D6-4C88-4A5F-B3D5-C1D45468D16F}
EndGlobalSection
EndGlobal
diff --git a/Ember Media Manager/Bin/MediaInfo.dll b/Ember Media Manager/Bin/MediaInfo.dll
new file mode 100644
index 0000000..ea8c039
Binary files /dev/null and b/Ember Media Manager/Bin/MediaInfo.dll differ
diff --git a/Ember Media Manager/Bin/ffmpeg.exe b/Ember Media Manager/Bin/ffmpeg.exe
new file mode 100644
index 0000000..8c60c8e
Binary files /dev/null and b/Ember Media Manager/Bin/ffmpeg.exe differ
diff --git a/Ember Media Manager/Ember Media Manager.vbproj b/Ember Media Manager/Ember Media Manager.vbproj
index 0906a5c..0f278a7 100644
--- a/Ember Media Manager/Ember Media Manager.vbproj
+++ b/Ember Media Manager/Ember Media Manager.vbproj
@@ -66,6 +66,9 @@
<Reference Include="ICSharpCode.SharpZipLib">
<HintPath>..\packages\SharpZipLib.0.86.0\lib\20\ICSharpCode.SharpZipLib.dll</HintPath>
</Reference>
+ <Reference Include="RestSharp">
+ <HintPath>..\packages\RestSharp.104.1\lib\net35\RestSharp.dll</HintPath>
+ </Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Data.SQLite">
@@ -363,9 +366,9 @@
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
- <LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
+ <LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
@@ -381,7 +384,9 @@
</None>
</ItemGroup>
<ItemGroup>
- <None Include="packages.config" />
+ <None Include="packages.config">
+ <SubType>Designer</SubType>
+ </None>
<None Include="Resources\actor_silhouette.jpg" />
</ItemGroup>
<ItemGroup>
@@ -472,6 +477,12 @@
<None Include="Resources\Wizard.jpg" />
</ItemGroup>
<ItemGroup>
+ <Content Include="Bin\ffmpeg.exe">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Bin\MediaInfo.dll">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
<Content Include="Images\Flags\achan_1.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
@@ -481,6 +492,9 @@
<Content Include="Images\Flags\achan_6.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
+ <Content Include="Images\Flags\achan_7.png">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
<Content Include="Images\Flags\achan_8.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
@@ -523,6 +537,12 @@
<Content Include="Images\Flags\acodec_dts.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
+ <Content Include="Images\Flags\acodec_dtshd_hra.png">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Images\Flags\acodec_dtshd_ma.png">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
<Content Include="Images\Flags\acodec_dtshr.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
@@ -4627,11 +4647,15 @@
<Content Include="Images\Studios\Zweites Deutsches Fernsehen %28ZDF%29.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
+ <Content Include="Langs\Debug_%28db_DB%29.xml">
+ <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ </Content>
<Content Include="Langs\English_%28en_US%29-Help.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Langs\English_%28en_US%29.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ <SubType>Designer</SubType>
</Content>
<Content Include="Langs\German_%28de_DE%29-Help.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
@@ -4648,20 +4672,26 @@
<Content Include="Langs\html\template MovieHomepage\German_%28de_DE%29.html">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
- <Content Include="Langs\html\template MovieHomepage\images\bg.jpg">
- <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ <Content Include="Langs\html\template MovieHomepage\images\default.jpg">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\html\template MovieHomepage\images\dvd.jpg">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+ </Content>
+ <Content Include="Langs\html\template MovieHomepage\images\haken.png">
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Langs\html\template MovieHomepage\images\hd.jpg">
- <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Langs\html\template MovieHomepage\images\imdb.jpg">
- <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Langs\html\template MovieHomepage\images\movie_folder.png">
- <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Langs\html\template MovieHomepage\images\youtube.jpg">
- <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+ <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Langs\html\template MovieHomepage\style.css">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
@@ -4765,13 +4795,14 @@
<Content Include="Langs\Languages.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
- <Content Include="Langs\Português_%28pt_BR%29-Help.xml">
+ <Content Include="Langs\Norwegian_%28no_NO%29-Help.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
- <Content Include="Langs\Português_%28pt_BR%29.xml">
+ <Content Include="Langs\Norwegian_%28no_NO%29.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="logo.ico" />
+ <Content Include="Resources\haswatched.png" />
<Content Include="Themes\movie-Default.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
@@ -4794,6 +4825,14 @@
<Project>{208AA35E-C6AE-4D2D-A9DD-B6EFD19A4279}</Project>
<Name>EmberAPI</Name>
</ProjectReference>
+ <ProjectReference Include="..\FanartTVAPI\FanartTVAPI.csproj">
+ <Project>{70F651C6-6BB4-4E4D-AD6C-25C36CA1E9E6}</Project>
+ <Name>FanartTVAPI</Name>
+ </ProjectReference>
+ <ProjectReference Include="..\WatTmdb\WatTmdb.csproj">
+ <Project>{EFC11645-FAB4-4C30-A498-29F5ECDF77E8}</Project>
+ <Name>WatTmdb</Name>
+ </ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Project="$(SolutionDir)\.nuget\nuget.targets" />
diff --git a/Ember Media Manager/Images/Flags/achan_7.png b/Ember Media Manager/Images/Flags/achan_7.png
new file mode 100644
index 0000000..5ae9a64
Binary files /dev/null and b/Ember Media Manager/Images/Flags/achan_7.png differ
diff --git a/Ember Media Manager/Images/Flags/acodec_dtshd_hra.png b/Ember Media Manager/Images/Flags/acodec_dtshd_hra.png
new file mode 100644
index 0000000..4a31f50
Binary files /dev/null and b/Ember Media Manager/Images/Flags/acodec_dtshd_hra.png differ
diff --git a/Ember Media Manager/Images/Flags/acodec_dtshd_ma.png b/Ember Media Manager/Images/Flags/acodec_dtshd_ma.png
new file mode 100644
index 0000000..4a31f50
Binary files /dev/null and b/Ember Media Manager/Images/Flags/acodec_dtshd_ma.png differ
diff --git a/Ember Media Manager/Images/Genres/Genres.xml b/Ember Media Manager/Images/Genres/Genres.xml
index f950aee..79e90c5 100644
--- a/Ember Media Manager/Images/Genres/Genres.xml
+++ b/Ember Media Manager/Images/Genres/Genres.xml
@@ -85,9 +85,6 @@
<name searchstring="Enfants" language="Français">
<icon>children.jpg</icon>
</name>
- <name searchstring="Kinder-" language="German">
- <icon>children.jpg</icon>
- </name>
<name searchstring="Infantil" language="Español">
<icon>children.jpg</icon>
</name>
@@ -418,7 +415,7 @@
<name searchstring="Guerra" language="Italian">
<icon>war.jpg</icon>
</name>
- <name searchstring="Western" language="English|Français|Español">
+ <name searchstring="Western" language="English|German|Français|Español">
<icon>western.jpg</icon>
</name>
<name searchstring="Wrestling" language="English">
@@ -442,6 +439,9 @@
<name searchstring="Corto" language="Español">
<icon>short.jpg</icon>
</name>
+ <name searchstring="Mondo" language="German">
+ <icon>documentary.jpg</icon>
+ </name>
<default>
<icon>default.jpg</icon>
</default>
diff --git a/Ember Media Manager/Langs/Debug_(db_DB).xml b/Ember Media Manager/Langs/Debug_(db_DB).xml
new file mode 100644
index 0000000..25b9e5f
--- /dev/null
+++ b/Ember Media Manager/Langs/Debug_(db_DB).xml
@@ -0,0 +1,902 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">1</string>
+ <string id="2">2</string>
+ <string id="3">3</string>
+ <string id="4">4</string>
+ <string id="5">5</string>
+ <string id="6">6</string>
+ <string id="7">7</string>
+ <string id="8">8</string>
+ <string id="9">9</string>
+ <string id="10">10</string>
+ <string id="11">11</string>
+ <string id="12">12</string>
+ <string id="13">13</string>
+ <string id="14">14</string>
+ <string id="15">15</string>
+ <string id="16">16</string>
+ <string id="17">17</string>
+ <string id="18">18</string>
+ <string id="19">19</string>
+ <string id="20">20</string>
+ <string id="21">21</string>
+ <string id="22">22</string>
+ <string id="23">23</string>
+ <string id="24">24</string>
+ <string id="25">25</string>
+ <string id="26">26</string>
+ <string id="27">27</string>
+ <string id="28">28</string>
+ <string id="29">29</string>
+ <string id="30">30</string>
+ <string id="31">31</string>
+ <string id="32">32</string>
+ <string id="33">33</string>
+ <string id="34">34</string>
+ <string id="35">35</string>
+ <string id="36">36</string>
+ <string id="37">37</string>
+ <string id="38">38</string>
+ <string id="39">39</string>
+ <string id="40">40</string>
+ <string id="41">41</string>
+ <string id="42">42</string>
+ <string id="43">43</string>
+ <string id="44">44</string>
+ <string id="45">45</string>
+ <string id="46">46</string>
+ <string id="47">47</string>
+ <string id="48">48</string>
+ <string id="49">49</string>
+ <string id="50">50</string>
+ <string id="51">51</string>
+ <string id="52">52</string>
+ <string id="53">53</string>
+ <string id="54">54</string>
+ <string id="55">55</string>
+ <string id="56">56</string>
+ <string id="57">57</string>
+ <string id="58">58</string>
+ <string id="59">59</string>
+ <string id="60">60</string>
+ <string id="61">61</string>
+ <string id="62">62</string>
+ <string id="63">63</string>
+ <string id="64">64</string>
+ <string id="65">65</string>
+ <string id="66">66</string>
+ <string id="67">67</string>
+ <string id="68">68</string>
+ <string id="69">69</string>
+ <string id="70">70</string>
+ <string id="71">71</string>
+ <string id="72">72</string>
+ <string id="73">73</string>
+ <string id="74">74</string>
+ <string id="75">75</string>
+ <string id="76">76</string>
+ <string id="77">77</string>
+ <string id="78">78</string>
+ <string id="79">79</string>
+ <string id="80">80</string>
+ <string id="81">81</string>
+ <string id="82">82</string>
+ <string id="83">83</string>
+ <string id="84">84</string>
+ <string id="85">85</string>
+ <string id="86">86</string>
+ <string id="87">87</string>
+ <string id="88">88</string>
+ <string id="89">89</string>
+ <string id="90">90</string>
+ <string id="91">91</string>
+ <string id="92">92</string>
+ <string id="93">93</string>
+ <string id="94">94</string>
+ <string id="95">95</string>
+ <string id="96">96</string>
+ <string id="97">97</string>
+ <string id="98">98</string>
+ <string id="99">99</string>
+ <string id="100">100</string>
+ <string id="101">101</string>
+ <string id="102">102</string>
+ <string id="103">103</string>
+ <string id="104">104</string>
+ <string id="105">105</string>
+ <string id="106">106</string>
+ <string id="107">107</string>
+ <string id="108">108</string>
+ <string id="109">109</string>
+ <string id="110">110</string>
+ <string id="111">111</string>
+ <string id="112">112</string>
+ <string id="113">113</string>
+ <string id="114">114</string>
+ <string id="115">115</string>
+ <string id="116">116</string>
+ <string id="117">117</string>
+ <string id="118">118</string>
+ <string id="119">119</string>
+ <string id="120">120</string>
+ <string id="121">121</string>
+ <string id="122">122</string>
+ <string id="123">123</string>
+ <string id="124">124</string>
+ <string id="125">125</string>
+ <string id="126">126</string>
+ <string id="127">127</string>
+ <string id="128">128</string>
+ <string id="129">129</string>
+ <string id="130">130</string>
+ <string id="131">131</string>
+ <string id="132">132</string>
+ <string id="133">133</string>
+ <string id="134">134</string>
+ <string id="135">135</string>
+ <string id="136">136</string>
+ <string id="137">137</string>
+ <string id="138">138</string>
+ <string id="139">139</string>
+ <string id="140">140</string>
+ <string id="141">141</string>
+ <string id="142">142</string>
+ <string id="143">143</string>
+ <string id="144">144</string>
+ <string id="145">145</string>
+ <string id="146">146</string>
+ <string id="147">147</string>
+ <string id="148">148</string>
+ <string id="149">149</string>
+ <string id="150">150</string>
+ <string id="151">151</string>
+ <string id="152">152</string>
+ <string id="153">153</string>
+ <string id="154">154</string>
+ <string id="155">155</string>
+ <string id="156">156</string>
+ <string id="157">157</string>
+ <string id="158">158</string>
+ <string id="159">159</string>
+ <string id="160">160</string>
+ <string id="161">161</string>
+ <string id="162">162</string>
+ <string id="163">163</string>
+ <string id="164">164</string>
+ <string id="165">165</string>
+ <string id="166">166</string>
+ <string id="167">167</string>
+ <string id="168">168</string>
+ <string id="169">169</string>
+ <string id="170">170</string>
+ <string id="171">171</string>
+ <string id="172">172</string>
+ <string id="173">173</string>
+ <string id="174">174</string>
+ <string id="175">175</string>
+ <string id="176">176</string>
+ <string id="177">177</string>
+ <string id="178">178</string>
+ <string id="179">179</string>
+ <string id="180">180</string>
+ <string id="181">181</string>
+ <string id="182">182</string>
+ <string id="183">183</string>
+ <string id="184">184</string>
+ <string id="185">185</string>
+ <string id="186">186</string>
+ <string id="187">187</string>
+ <string id="188">188</string>
+ <string id="189">189</string>
+ <string id="190">190</string>
+ <string id="191">191</string>
+ <string id="192">192</string>
+ <string id="193">193</string>
+ <string id="194">194</string>
+ <string id="195">195</string>
+ <string id="196">196</string>
+ <string id="197">197</string>
+ <string id="198">198</string>
+ <string id="199">199</string>
+ <string id="200">200</string>
+ <string id="201">201</string>
+ <string id="202">202</string>
+ <string id="203">203</string>
+ <string id="204">204</string>
+ <string id="205">205</string>
+ <string id="206">206</string>
+ <string id="207">207</string>
+ <string id="208">208</string>
+ <string id="209">209</string>
+ <string id="210">210</string>
+ <string id="211">211</string>
+ <string id="212">212</string>
+ <string id="213">213</string>
+ <string id="214">214</string>
+ <string id="215">215</string>
+ <string id="216">216</string>
+ <string id="217">217</string>
+ <string id="218">218</string>
+ <string id="219">219</string>
+ <string id="220">220</string>
+ <string id="221">221</string>
+ <string id="222">222</string>
+ <string id="223">223</string>
+ <string id="224">224</string>
+ <string id="225">225</string>
+ <string id="226">226</string>
+ <string id="227">227</string>
+ <string id="228">228</string>
+ <string id="229">229</string>
+ <string id="230">230</string>
+ <string id="231">231</string>
+ <string id="232">232</string>
+ <string id="233">233</string>
+ <string id="234">234</string>
+ <string id="235">235</string>
+ <string id="236">236</string>
+ <string id="237">237</string>
+ <string id="238">238</string>
+ <string id="239">239</string>
+ <string id="240">240</string>
+ <string id="241">241</string>
+ <string id="242">242</string>
+ <string id="243">243</string>
+ <string id="244">244</string>
+ <string id="245">245</string>
+ <string id="246">246</string>
+ <string id="247">247</string>
+ <string id="248">248</string>
+ <string id="249">249</string>
+ <string id="250">250</string>
+ <string id="251">251</string>
+ <string id="252">252</string>
+ <string id="253">253</string>
+ <string id="254">254</string>
+ <string id="255">255</string>
+ <string id="256">256</string>
+ <string id="257">257</string>
+ <string id="258">258</string>
+ <string id="259">259</string>
+ <string id="260">260</string>
+ <string id="261">261</string>
+ <string id="262">262</string>
+ <string id="263">263</string>
+ <string id="264">264</string>
+ <string id="265">265</string>
+ <string id="266">266</string>
+ <string id="267">267</string>
+ <string id="268">268</string>
+ <string id="269">269</string>
+ <string id="270">270</string>
+ <string id="271">271</string>
+ <string id="272">272</string>
+ <string id="273">273</string>
+ <string id="274">274</string>
+ <string id="275">275</string>
+ <string id="276">276</string>
+ <string id="277">277</string>
+ <string id="278">278</string>
+ <string id="279">279</string>
+ <string id="280">280</string>
+ <string id="281">281</string>
+ <string id="282">282</string>
+ <string id="283">283</string>
+ <string id="284">284</string>
+ <string id="285">285</string>
+ <string id="286">286</string>
+ <string id="287">287</string>
+ <string id="288">288</string>
+ <string id="289">289</string>
+ <string id="290">290</string>
+ <string id="291">291</string>
+ <string id="292">292</string>
+ <string id="293">293</string>
+ <string id="294">294</string>
+ <string id="295">295</string>
+ <string id="296">296</string>
+ <string id="297">297</string>
+ <string id="298">298</string>
+ <string id="299">299</string>
+ <string id="300">300</string>
+ <string id="301">301</string>
+ <string id="302">302</string>
+ <string id="303">303</string>
+ <string id="304">304</string>
+ <string id="305">305</string>
+ <string id="306">306</string>
+ <string id="307">307</string>
+ <string id="308">308</string>
+ <string id="309">309</string>
+ <string id="310">310</string>
+ <string id="311">311</string>
+ <string id="312">312</string>
+ <string id="313">313</string>
+ <string id="314">314</string>
+ <string id="315">315</string>
+ <string id="316">316</string>
+ <string id="317">317</string>
+ <string id="318">318</string>
+ <string id="319">319</string>
+ <string id="320">320</string>
+ <string id="321">321</string>
+ <string id="322">322</string>
+ <string id="323">323</string>
+ <string id="324">324</string>
+ <string id="325">325</string>
+ <string id="326">326</string>
+ <string id="327">327</string>
+ <string id="328">328</string>
+ <string id="329">329</string>
+ <string id="330">330</string>
+ <string id="331">331</string>
+ <string id="332">332</string>
+ <string id="333">333</string>
+ <string id="334">334</string>
+ <string id="335">335</string>
+ <string id="336">336</string>
+ <string id="337">337</string>
+ <string id="338">338</string>
+ <string id="339">339</string>
+ <string id="340">340</string>
+ <string id="341">341</string>
+ <string id="342">342</string>
+ <string id="343">343</string>
+ <string id="344">344</string>
+ <string id="345">345</string>
+ <string id="346">346</string>
+ <string id="347">347</string>
+ <string id="348">348</string>
+ <string id="349">349</string>
+ <string id="350">350</string>
+ <string id="351">351</string>
+ <string id="352">352</string>
+ <string id="353">353</string>
+ <string id="354">354</string>
+ <string id="355">355</string>
+ <string id="356">356</string>
+ <string id="357">357</string>
+ <string id="358">358</string>
+ <string id="359">359</string>
+ <string id="360">360</string>
+ <string id="361">361</string>
+ <string id="362">362</string>
+ <string id="363">363</string>
+ <string id="364">364</string>
+ <string id="365">365</string>
+ <string id="366">366</string>
+ <string id="367">367</string>
+ <string id="368">368</string>
+ <string id="369">369</string>
+ <string id="370">370</string>
+ <string id="371">371</string>
+ <string id="372">372</string>
+ <string id="373">373</string>
+ <string id="374">374</string>
+ <string id="375">375</string>
+ <string id="376">376</string>
+ <string id="377">377</string>
+ <string id="378">378</string>
+ <string id="379">379</string>
+ <string id="380">380</string>
+ <string id="381">381</string>
+ <string id="382">382</string>
+ <string id="383">383</string>
+ <string id="384">384</string>
+ <string id="385">385</string>
+ <string id="386">386</string>
+ <string id="387">387</string>
+ <string id="388">388</string>
+ <string id="389">389</string>
+ <string id="390">390</string>
+ <string id="391">391</string>
+ <string id="392">392</string>
+ <string id="393">393</string>
+ <string id="394">394</string>
+ <string id="395">395</string>
+ <string id="396">396</string>
+ <string id="397">397</string>
+ <string id="398">398</string>
+ <string id="399">399</string>
+ <string id="400">400</string>
+ <string id="401">401</string>
+ <string id="402">402</string>
+ <string id="403">403</string>
+ <string id="404">404</string>
+ <string id="405">405</string>
+ <string id="406">406</string>
+ <string id="407">407</string>
+ <string id="408">408</string>
+ <string id="409">409</string>
+ <string id="410">410</string>
+ <string id="411">411</string>
+ <string id="412">412</string>
+ <string id="413">413</string>
+ <string id="414">414</string>
+ <string id="415">415</string>
+ <string id="416">416</string>
+ <string id="417">417</string>
+ <string id="418">418</string>
+ <string id="419">419</string>
+ <string id="420">420</string>
+ <string id="421">421</string>
+ <string id="422">422</string>
+ <string id="423">423</string>
+ <string id="424">424</string>
+ <string id="425">425</string>
+ <string id="426">426</string>
+ <string id="427">427</string>
+ <string id="428">428</string>
+ <string id="429">429</string>
+ <string id="430">430</string>
+ <string id="431">431</string>
+ <string id="432">432</string>
+ <string id="433">433</string>
+ <string id="434">434</string>
+ <string id="435">435</string>
+ <string id="436">436</string>
+ <string id="437">437</string>
+ <string id="438">438</string>
+ <string id="439">439</string>
+ <string id="440">440</string>
+ <string id="441">441</string>
+ <string id="442">442</string>
+ <string id="443">443</string>
+ <string id="444">444</string>
+ <string id="445">445</string>
+ <string id="446">446</string>
+ <string id="447">447</string>
+ <string id="448">448</string>
+ <string id="449">449</string>
+ <string id="450">450</string>
+ <string id="451">451</string>
+ <string id="452">452</string>
+ <string id="453">453</string>
+ <string id="454">454</string>
+ <string id="455">455</string>
+ <string id="456">456</string>
+ <string id="457">457</string>
+ <string id="458">458</string>
+ <string id="459">459</string>
+ <string id="460">460</string>
+ <string id="461">461</string>
+ <string id="462">462</string>
+ <string id="463">463</string>
+ <string id="464">464</string>
+ <string id="465">465</string>
+ <string id="466">466</string>
+ <string id="467">467</string>
+ <string id="468">468</string>
+ <string id="469">469</string>
+ <string id="470">470</string>
+ <string id="471">471</string>
+ <string id="472">472</string>
+ <string id="473">473</string>
+ <string id="474">474</string>
+ <string id="475">475</string>
+ <string id="476">476</string>
+ <string id="477">477</string>
+ <string id="478">478</string>
+ <string id="479">479</string>
+ <string id="480">480</string>
+ <string id="481">481</string>
+ <string id="482">482</string>
+ <string id="483">483</string>
+ <string id="484">484</string>
+ <string id="485">485</string>
+ <string id="486">486</string>
+ <string id="487">487</string>
+ <string id="488">488</string>
+ <string id="489">489</string>
+ <string id="490">490</string>
+ <string id="491">491</string>
+ <string id="492">492</string>
+ <string id="493">493</string>
+ <string id="494">494</string>
+ <string id="495">495</string>
+ <string id="496">496</string>
+ <string id="497">497</string>
+ <string id="498">498</string>
+ <string id="499">499</string>
+ <string id="500">500</string>
+ <string id="501">501</string>
+ <string id="502">502</string>
+ <string id="503">503</string>
+ <string id="504">504</string>
+ <string id="505">505</string>
+ <string id="506">506</string>
+ <string id="507">507</string>
+ <string id="508">508</string>
+ <string id="509">509</string>
+ <string id="510">510</string>
+ <string id="511">511</string>
+ <string id="512">512</string>
+ <string id="513">513</string>
+ <string id="514">514</string>
+ <string id="515">515</string>
+ <string id="516">516</string>
+ <string id="517">517</string>
+ <string id="518">518</string>
+ <string id="519">519</string>
+ <string id="520">520</string>
+ <string id="521">521</string>
+ <string id="522">522</string>
+ <string id="523">523</string>
+ <string id="524">524</string>
+ <string id="525">525</string>
+ <string id="526">526</string>
+ <string id="527">527</string>
+ <string id="528">528</string>
+ <string id="529">529</string>
+ <string id="530">530</string>
+ <string id="531">531</string>
+ <string id="532">532</string>
+ <string id="533">533</string>
+ <string id="534">534</string>
+ <string id="535">535</string>
+ <string id="536">536</string>
+ <string id="537">537</string>
+ <string id="538">538</string>
+ <string id="539">539</string>
+ <string id="540">540</string>
+ <string id="541">541</string>
+ <string id="542">542</string>
+ <string id="543">543</string>
+ <string id="544">544</string>
+ <string id="545">545</string>
+ <string id="546">546</string>
+ <string id="547">547</string>
+ <string id="548">548</string>
+ <string id="549">549</string>
+ <string id="550">550</string>
+ <string id="551">551</string>
+ <string id="552">552</string>
+ <string id="553">553</string>
+ <string id="554">554</string>
+ <string id="555">555</string>
+ <string id="556">556</string>
+ <string id="557">557</string>
+ <string id="558">558</string>
+ <string id="559">559</string>
+ <string id="560">560</string>
+ <string id="561">561</string>
+ <string id="562">562</string>
+ <string id="563">563</string>
+ <string id="564">564</string>
+ <string id="565">565</string>
+ <string id="566">566</string>
+ <string id="567">567</string>
+ <string id="568">568</string>
+ <string id="569">569</string>
+ <string id="570">570</string>
+ <string id="571">571</string>
+ <string id="572">572</string>
+ <string id="573">573</string>
+ <string id="574">574</string>
+ <string id="575">575</string>
+ <string id="576">576</string>
+ <string id="577">577</string>
+ <string id="578">578</string>
+ <string id="579">579</string>
+ <string id="580">580</string>
+ <string id="581">581</string>
+ <string id="582">582</string>
+ <string id="583">583</string>
+ <string id="584">584</string>
+ <string id="585">585</string>
+ <string id="586">586</string>
+ <string id="587">587</string>
+ <string id="588">588</string>
+ <string id="589">589</string>
+ <string id="590">590</string>
+ <string id="591">591</string>
+ <string id="592">592</string>
+ <string id="593">593</string>
+ <string id="594">594</string>
+ <string id="595">595</string>
+ <string id="596">596</string>
+ <string id="597">597</string>
+ <string id="598">598</string>
+ <string id="599">599</string>
+ <string id="600">600</string>
+ <string id="601">601</string>
+ <string id="602">602</string>
+ <string id="603">603</string>
+ <string id="604">604</string>
+ <string id="605">605</string>
+ <string id="606">606</string>
+ <string id="607">607</string>
+ <string id="608">608</string>
+ <string id="609">609</string>
+ <string id="610">610</string>
+ <string id="611">611</string>
+ <string id="612">612</string>
+ <string id="613">613</string>
+ <string id="614">614</string>
+ <string id="615">615</string>
+ <string id="616">616</string>
+ <string id="617">617</string>
+ <string id="618">618</string>
+ <string id="619">619</string>
+ <string id="620">620</string>
+ <string id="621">621</string>
+ <string id="622">622</string>
+ <string id="623">623</string>
+ <string id="624">624</string>
+ <string id="625">625</string>
+ <string id="626">626</string>
+ <string id="627">627</string>
+ <string id="628">628</string>
+ <string id="629">629</string>
+ <string id="630">630</string>
+ <string id="631">631</string>
+ <string id="632">632</string>
+ <string id="633">633</string>
+ <string id="634">634</string>
+ <string id="635">635</string>
+ <string id="636">636</string>
+ <string id="637">637</string>
+ <string id="638">638</string>
+ <string id="639">639</string>
+ <string id="640">640</string>
+ <string id="641">641</string>
+ <string id="642">642</string>
+ <string id="643">643</string>
+ <string id="644">644</string>
+ <string id="645">645</string>
+ <string id="646">646</string>
+ <string id="647">647</string>
+ <string id="648">648</string>
+ <string id="649">649</string>
+ <string id="650">650</string>
+ <string id="651">651</string>
+ <string id="652">652</string>
+ <string id="653">653</string>
+ <string id="654">654</string>
+ <string id="655">655</string>
+ <string id="656">656</string>
+ <string id="657">657</string>
+ <string id="658">658</string>
+ <string id="659">659</string>
+ <string id="660">660</string>
+ <string id="661">661</string>
+ <string id="662">662</string>
+ <string id="663">663</string>
+ <string id="664">664</string>
+ <string id="665">665</string>
+ <string id="666">666</string>
+ <string id="667">667</string>
+ <string id="668">668</string>
+ <string id="669">669</string>
+ <string id="670">670</string>
+ <string id="671">671</string>
+ <string id="672">672</string>
+ <string id="673">673</string>
+ <string id="674">674</string>
+ <string id="675">675</string>
+ <string id="676">676</string>
+ <string id="677">677</string>
+ <string id="678">678</string>
+ <string id="679">679</string>
+ <string id="680">680</string>
+ <string id="681">681</string>
+ <string id="682">682</string>
+ <string id="683">683</string>
+ <string id="684">684</string>
+ <string id="685">685</string>
+ <string id="686">686</string>
+ <string id="687">687</string>
+ <string id="688">688</string>
+ <string id="689">689</string>
+ <string id="690">690</string>
+ <string id="691">691</string>
+ <string id="692">692</string>
+ <string id="693">693</string>
+ <string id="694">694</string>
+ <string id="695">695</string>
+ <string id="696">696</string>
+ <string id="697">697</string>
+ <string id="698">698</string>
+ <string id="699">699</string>
+ <string id="700">700</string>
+ <string id="701">701</string>
+ <string id="702">702</string>
+ <string id="703">703</string>
+ <string id="704">704</string>
+ <string id="705">705</string>
+ <string id="706">706</string>
+ <string id="707">707</string>
+ <string id="708">708</string>
+ <string id="709">709</string>
+ <string id="710">710</string>
+ <string id="711">711</string>
+ <string id="712">712</string>
+ <string id="713">713</string>
+ <string id="714">714</string>
+ <string id="715">715</string>
+ <string id="716">716</string>
+ <string id="717">717</string>
+ <string id="718">718</string>
+ <string id="719">719</string>
+ <string id="720">720</string>
+ <string id="721">721</string>
+ <string id="722">722</string>
+ <string id="723">723</string>
+ <string id="724">724</string>
+ <string id="725">725</string>
+ <string id="726">726</string>
+ <string id="727">727</string>
+ <string id="728">728</string>
+ <string id="729">729</string>
+ <string id="730">730</string>
+ <string id="731">731</string>
+ <string id="732">732</string>
+ <string id="733">733</string>
+ <string id="734">734</string>
+ <string id="735">735</string>
+ <string id="736">736</string>
+ <string id="737">737</string>
+ <string id="738">738</string>
+ <string id="739">739</string>
+ <string id="740">740</string>
+ <string id="741">741</string>
+ <string id="742">742</string>
+ <string id="743">743</string>
+ <string id="744">744</string>
+ <string id="745">745</string>
+ <string id="746">746</string>
+ <string id="747">747</string>
+ <string id="748">748</string>
+ <string id="749">749</string>
+ <string id="750">750</string>
+ <string id="751">751</string>
+ <string id="752">752</string>
+ <string id="753">753</string>
+ <string id="754">754</string>
+ <string id="755">755</string>
+ <string id="756">756</string>
+ <string id="757">757</string>
+ <string id="758">758</string>
+ <string id="759">759</string>
+ <string id="760">760</string>
+ <string id="761">761</string>
+ <string id="762">762</string>
+ <string id="763">763</string>
+ <string id="764">764</string>
+ <string id="765">765</string>
+ <string id="766">766</string>
+ <string id="767">767</string>
+ <string id="768">768</string>
+ <string id="769">769</string>
+ <string id="770">770</string>
+ <string id="771">771</string>
+ <string id="772">772</string>
+ <string id="773">773</string>
+ <string id="774">774</string>
+ <string id="775">775</string>
+ <string id="776">776</string>
+ <string id="777">777</string>
+ <string id="778">778</string>
+ <string id="779">779</string>
+ <string id="780">780</string>
+ <string id="781">781</string>
+ <string id="782">782</string>
+ <string id="783">783</string>
+ <string id="784">784</string>
+ <string id="785">785</string>
+ <string id="786">786</string>
+ <string id="787">787</string>
+ <string id="788">788</string>
+ <string id="789">789</string>
+ <string id="790">790</string>
+ <string id="791">791</string>
+ <string id="792">792</string>
+ <string id="793">793</string>
+ <string id="794">794</string>
+ <string id="795">795</string>
+ <string id="796">796</string>
+ <string id="797">797</string>
+ <string id="798">798</string>
+ <string id="799">799</string>
+ <string id="800">800</string>
+ <string id="801">801</string>
+ <string id="802">802</string>
+ <string id="803">803</string>
+ <string id="804">804</string>
+ <string id="805">805</string>
+ <string id="806">806</string>
+ <string id="807">807</string>
+ <string id="808">808</string>
+ <string id="809">809</string>
+ <string id="810">810</string>
+ <string id="811">811</string>
+ <string id="812">812</string>
+ <string id="813">813</string>
+ <string id="814">814</string>
+ <string id="815">815</string>
+ <string id="816">816</string>
+ <string id="817">817</string>
+ <string id="818">818</string>
+ <string id="819">819</string>
+ <string id="820">820</string>
+ <string id="821">821</string>
+ <string id="822">822</string>
+ <string id="823">823</string>
+ <string id="824">824</string>
+ <string id="825">825</string>
+ <string id="826">826</string>
+ <string id="827">827</string>
+ <string id="828">828</string>
+ <string id="829">829</string>
+ <string id="830">830</string>
+ <string id="831">831</string>
+ <string id="832">832</string>
+ <string id="833">833</string>
+ <string id="834">834</string>
+ <string id="835">835</string>
+ <string id="836">836</string>
+ <string id="837">837</string>
+ <string id="838">838</string>
+ <string id="839">839</string>
+ <string id="840">840</string>
+ <string id="841">841</string>
+ <string id="842">842</string>
+ <string id="843">843</string>
+ <string id="844">844</string>
+ <string id="845">845</string>
+ <string id="846">846</string>
+ <string id="847">847</string>
+ <string id="848">848</string>
+ <string id="849">849</string>
+ <string id="850">850</string>
+ <string id="851">851</string>
+ <string id="852">852</string>
+ <string id="853">853</string>
+ <string id="854">854</string>
+ <string id="855">855</string>
+ <string id="856">856</string>
+ <string id="857">857</string>
+ <string id="858">858</string>
+ <string id="859">859</string>
+ <string id="860">860</string>
+ <string id="861">861</string>
+ <string id="862">862</string>
+ <string id="863">863</string>
+ <string id="864">864</string>
+ <string id="865">865</string>
+ <string id="866">866</string>
+ <string id="867">867</string>
+ <string id="868">868</string>
+ <string id="869">869</string>
+ <string id="870">870</string>
+ <string id="871">871</string>
+ <string id="872">872</string>
+ <string id="873">873</string>
+ <string id="874">874</string>
+ <string id="875">875</string>
+ <string id="876">876</string>
+ <string id="877">877</string>
+ <string id="878">878</string>
+ <string id="879">879</string>
+ <string id="880">880</string>
+ <string id="881">881</string>
+ <string id="882">882</string>
+ <string id="883">883</string>
+ <string id="884">884</string>
+ <string id="885">885</string>
+ <string id="886">886</string>
+ <string id="887">887</string>
+ <string id="888">888</string>
+ <string id="889">889</string>
+ <string id="890">890</string>
+ <string id="891">891</string>
+ <string id="892">892</string>
+ <string id="893">893</string>
+ <string id="894">894</string>
+ <string id="895">895</string>
+ <string id="896">896</string>
+ <string id="897">897</string>
+ <string id="898">898</string>
+ <string id="899">899</string>
+ <string id="900">900</string>
+</strings>
diff --git a/Ember Media Manager/Langs/English_(en_US)-Help.xml b/Ember Media Manager/Langs/English_(en_US)-Help.xml
index 81f1175..bf50c58 100644
--- a/Ember Media Manager/Langs/English_(en_US)-Help.xml
+++ b/Ember Media Manager/Langs/English_(en_US)-Help.xml
@@ -1,362 +1,369 @@
<strings>
- <string control="Core_chkShowGenresText">If enabled, the value of the genre images will always be displayed. If disabled, the text will only be visible when you hover your mouse over one of the genre images.</string>
- <string control="Core_chkSourceFromFolder">If enabled, Ember will check the folder name for source types. If disabled, Ember will only check the file name.</string>
- <string control="Core_chkNoDisplayFanart">If enabled, fanart will not be displayed in the main window. This is helpful to speed up the interface on slow computers.</string>
- <string control="Core_chkNoDisplayPoster">If enabled, posters will not be displayed in the main window. This is helpful to speed up the interface on slow computers.</string>
- <string control="Core_chkShowDims">If enabled, the dimensions of the images (posters and fanart) will be overlayed on top of the images.</string>
- <string control="Core_chkUpdates">If enabled, Ember will check for a new version at each start up.</string>
- <string control="Core_chkOverwriteNfo">If enabled, NFO files will be overwritten when saving. If disabled, they will be renamed to *.info.</string>
- <string control="Core_chkLogErrors">If enabled, all errors will be logged to a file located in <Ember Installation Directory>\Log\errlog.txt.</string>
- <string control="Core_cbEpTheme">Select the theme to apply for the episode layout.</string>
- <string control="Core_cbTVShowTheme">Select the theme to apply for the TV Show and Season layout.</string>
- <string control="Core_cbMovieTheme">Select the theme to apply for the movie layout.</string>
- <string control="Core_btnDLTrans">Download addons for Ember, including modules, themes, translations to other languages, and export templates.</string>
- <string control="Core_cbIntLang">Select the language to use for Ember's interface. (You must restart Ember for changes to take effect)</string>
- <string control="Core_chkCleanFolderJPG">Clean all files named "folder.jpg".</string>
- <string control="Core_chkCleanExtrathumbs">Clean all "extrathumbs" folders.</string>
- <string control="Core_chkCleanMovieTBN">Clean all files named "movie.tbn".</string>
- <string control="Core_chkCleanMovieNameJPG">Clean all files named <movie>.jpg.</string>
- <string control="Core_chkCleanMovieTBNb">Clean all files named <movie>.tbn.</string>
- <string control="Core_chkCleanMovieJPG">Clean all files named "movie.jpg".</string>
- <string control="Core_chkCleanFanartJPG">Clean all files named "fanart.jpg".</string>
- <string control="Core_chkCleanPosterJPG">Clean all files named "poster.jpg".</string>
- <string control="Core_chkCleanMovieFanartJPG">Clean all files named <movie>-fanart.jpg.</string>
- <string control="Core_chkCleanPosterTBN">Clean all files named "poster.tbn".</string>
- <string control="Core_chkCleanMovieNFO">Clean all files named "movie.nfo".</string>
- <string control="Core_chkCleanDotFanartJPG">Clean all files named <movie>.fanart.jpg.</string>
- <string control="Core_chkCleanMovieNFOb">Clean all files named <movie>.nfo.</string>
- <string control="Core_chkWhitelistVideo">Automatically whitelist all files which have an extension in the "Valid Video Extensions" list.</string>
- <string control="Core_btnRemoveWhitelist">Remove the selected extension from the whitelist.</string>
- <string control="Core_btnAddWhitelist">Add the entered extension to the whitelist.</string>
- <string control="Core_txtWhitelist">Enter an extension to add to the whitelist.</string>
- <string control="Core_lstWhitelist">This list contains all the current extensions that will be skipped during cleaning.</string>
- <string control="Core_chkYAMJCompatibleSets">If enabled, Ember will save sets information in a format that is compatible with YAMJ. If disabled, Ember will save sets information in a format that is compatible with XBMC.</string>
- <string control="Core_chkAskCheckboxScrape">If enabled, when clicking on a checkbox in the movies list a non-automatic will be used. If disabled, an automatic scrape will be used.</string>
- <string control="Core_chkMarkNew">If enabled, new movies will be "marked". If disabled, new movies will still be colored green until updated or the next Ember session.</string>
- <string control="Core_lbGenre">Select the language(s) of the genres you would like Ember to display.</string>
- <string control="Core_txtCheckTitleTol">Enter the tolerance level you would like Ember to use when title matching. The higher the number, the more lenient the algorithm is. 0 = disabled</string>
- <string control="Core_chkCheckTitles">Enable this to have Ember check the differences between the title of the movie and it's file name. This is useful to make sure that the scraped data is actually for the selected movie file.</string>
- <string control="Core_btnRemoveToken">Remove the selected sort token from the list.</string>
- <string control="Core_btnAddToken">Add the entered sort token to the list.</string>
- <string control="Core_txtSortToken">Enter in a sort token to add to the list.</string>
- <string control="Core_lstSortTokens">A list of all current sort tokens. (If the movie title begins with a sort token, then the sort token will be moved to the end. For example: Sort Token = "The", Title = "The Dark Knight", Result = "Dark Knight, The")</string>
- <string control="Core_chkDisplayYear">If enabled, Ember will display the year of the movie in the main movie list.</string>
- <string control="Core_chkMovieExtraCol">Hide the Extrathumbs column from the main movie list.</string>
- <string control="Core_chkMovieSubCol">Hide the Subtitles column from the main movie list.</string>
- <string control="Core_chkMovieTrailerCol">Hide the Trailers column from the main movie list.</string>
- <string control="Core_chkMovieInfoCol">Hide the Info column from the main movie list.</string>
- <string control="Core_chkMovieFanartCol">Hide the Fanart column from the main movie list.</string>
- <string control="Core_chkMoviePosterCol">Hide the Poster column from the main movie list.</string>
- <string control="Core_chkMovieNameMultiOnly">If enabled, "<movie>.ext" items will only be utilized in folders that have multiple movies. This is useful when you have a mixture of multiple movie and single movie folders and you wish to reduce the number of extra files.</string>
- <string control="Core_rbBracketTrailer">Save trailer files as "<movie>[trailer].ext".</string>
- <string control="Core_rbDashTrailer">Save trailer files as "<movie>-trailer.ext".</string>
- <string control="Core_chkVideoTSParent">If enabled, Ember will save the meta files in the parent directory (YAMJ compatible). If disabled, Ember will save the meta files directly to the VIDEO_TS folder (XBMC compatible). This setting applies to BDMV folders, as well.</string>
- <string control="Core_chkMovieNameNFO">Save nfo files as "<movie>.nfo".</string>
- <string control="Core_chkMovieNFO">Save nfo files as "movie.nfo".</string>
- <string control="Core_chkMovieNameDotFanartJPG">Save fanart files as "<movie>.fanart.jpg".</string>
- <string control="Core_chkMovieNameFanartJPG">Save fanart files as "<movie>-fanart.jpg".</string>
- <string control="Core_chkFanartJPG">Save fanart files as "fanart.jpg"</string>
- <string control="Core_chkFolderJPG">Save poster files as "folder.jpg"</string>
- <string control="Core_chkPosterJPG">Save poster files as "poster.jpg"</string>
- <string control="Core_chkPosterTBN">Save poster files as "poster.tbn"</string>
- <string control="Core_chkMovieNameJPG">Save poster files as "<movie>.jpg"</string>
- <string control="Core_chkMovieJPG">Save poster files as "movie.jpg"</string>
- <string control="Core_chkMovieNameTBN">Save poster files as "<movie>.tbn"</string>
- <string control="Core_chkMovieTBN">Save poster files as "movie.tbn"</string>
- <string control="Core_lvMovies">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colID">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colName">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colPath">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colRecur">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colFolder">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colSingle">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_btnMovieRem">Remove the selected source(s) from the sources list.</string>
- <string control="Core_btnMovieAddFolder">Add a new folder to the sources list.</string>
- <string control="Core_txtPosterWidth">Resize poster files to the entered width.</string>
- <string control="Core_txtPosterHeight">Resize poster files to the entered height.</string>
- <string control="Core_tbPosterQual">Adjust the quality of the poster files. (0 = original quality)</string>
- <string control="Core_chkResizePoster">Resize poster files before saving.</string>
- <string control="Core_cbPosterSize">Select the preferred poster size you would like to retreive from the image servers. During automatic scrapers, Ember will attempt to find a poster of this size first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwritePoster">If enabled, existing poster files will be overwritten if new ones are selected. If disabled, poster files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtFanartWidth">Resize fanart files to the entered width.</string>
- <string control="Core_txtFanartHeight">Resize fanart files to the entered height.</string>
- <string control="Core_chkFanartOnly">If enabled, Ember will only retrieve fanart of the selected size. (NOTE: If there are no fanart images of the selected size available, no fanart images will be retrieved)</string>
- <string control="Core_tbFanartQual">Adjust the quality of the fanart files. (0 = original quality)</string>
- <string control="Core_chkResizeFanart">Resize fanart files before saving.</string>
- <string control="Core_cbFanartSize">Select the preferred fanart size you would like to retrieve from the image servers. Durint automatic scrapers, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwriteFanart">If enabled, existing fanart files will be overwritten if new ones are selected. If disabled, fanart files will only be saved if a current one does not already exist.</string>
- <string control="Core_chkNoSaveImagesToNfo">If enabled, Ember will not save URLs to the poster and fanart images in the nfo files. (Recommended for YAMJ compatibility)</string>
- <string control="Core_chkSingleScrapeImages">Select images while scraping a single movie file.</string>
- <string control="Core_chkUseImgCacheUpdaters">Save images to the image cache when scraping multiple movie files.</string>
- <string control="Core_chkPersistImgCache">If enabled, Ember will not clear the image cache between sessions.</string>
- <string control="Core_chkUseImgCache">Enable Ember's image cache.</string>
- <string control="Core_chkUseETasFA">If enabled and no fanart is available for the selected movie, Ember will use one of the extracted thumbnails as the fanart image.</string>
- <string control="Core_chkNoSpoilers">If enabled, extrathumbs will only be extracted from the first half of the movie in order to avoid "spoilers".</string>
- <string control="Core_txtAutoThumbs">Enter the number of extrathumbs you would like to automatically generate.</string>
- <string control="Core_chkAutoThumbs">If enabled, Ember will automatically extract the entered number of extrathumbs during scraping.</string>
- <string control="Core_txtProxyDomain">Enter the domain for your proxy. (Optional - not necessary for most proxies)</string>
- <string control="Core_txtProxyPassword">Enter the password needed to access your proxy.</string>
- <string control="Core_txtProxyUsername">Enter the username needed to access your proxy.</string>
- <string control="Core_chkEnableCredentials">Enable if your proxy requires authentication.</string>
- <string control="Core_txtProxyPort">Enter the port needed to access your proxy.</string>
- <string control="Core_txtProxyURI">Enter the IP or URL needed to access your proxy.</string>
- <string control="Core_chkEnableProxy">If enabled, Ember will use the entered proxy for all internet communications.</string>
- <string control="Core_btnDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_btnUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_chkProperCase">Automatically apply proper casing to movie titles. (Example: "the dark knight" becomes "The Dark Knight")</string>
- <string control="Core_btnRemoveFilter">Remove the selected filter from the list.</string>
- <string control="Core_btnAddFilter">Add the entered filter to the list.</string>
- <string control="Core_txtFilter">Enter text or regex to use as a filter. Special: "a[->]b" = replace all occurrances of "a" with "b" (Example: ".[->]_" will replace all periods in the title with underscores.)</string>
- <string control="Core_lstFilters">The list of all current filters that will be used when generating titles for movies.</string>
- <string control="Core_chkMissingExtra">If enabled, Ember will display movies missing extrathumbs when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingSubs">If enabled, Ember will display movies missing subtitle files when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingTrailer">If enabled, Ember will display movies missing trailers when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingNFO">If enabled, Ember will display movies missing nfo files when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingFanart">If enabled, Ember will display movies missing fanart when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingPoster">If enabled, Ember will display movies missing posters when utilizing the Missing Items Filter.</string>
- <string control="Core_chkAutoBD">If enabled, Ember will automatically save new fanart images to the entered backdrops folder.</string>
- <string control="Core_btnBrowse">Open a folder browser to select a backdrops folder.</string>
- <string control="Core_txtBDPath">The path to the backdrops folder.</string>
- <string control="Core_btnRemoveNoStack">Remove the selected extension from the No Stack Extensions list.</string>
- <string control="Core_btnAddNoStack">Add the entered extension to the No Stack Extensions list.</string>
- <string control="Core_txtNoStack">Enter an extension to add to the No Stack Extensions list.</string>
- <string control="Core_lstNoStack">The list of extensions Ember will not stack into single files when adding them to the library.</string>
- <string control="Core_btnRemMovieExt">Remove the selected extension from the Valid Video Extensions list.</string>
- <string control="Core_btnAddMovieExt">Add the entered extension to the Valid Video Extensions list.</string>
- <string control="Core_txtMovieExt">Enter an extension to add to the Valid Video Extensions list.</string>
- <string control="Core_lstMovieExts">The list of extensions Ember will look for when updating the library.</string>
- <string control="Core_btnEditSource">Edit the selected source.</string>
- <string control="Core_chkScanOrderModify">If enabled, Ember will add new files in order of there last modified time. If disabled, Ember will add new files to the library in alphabetical order.</string>
- <string control="Core_chkSortBeforeScan">If enabled, Ember will sort all single files in the top directory of the source into their own folders.</string>
- <string control="Core_chkIgnoreLastScan">If enabled, Ember will scan all folders/files regardless of the last scan time. If disabled, Ember will only scan files/folders added after the last time files were scanned.</string>
- <string control="Core_chkCleanDB">If enabled, Ember will clean the movie database after each scan. (Remove entries for files that no longer exist or no longer match selected setting values)</string>
- <string control="Core_chkAutoDetectVTS">If enabled, Ember will attempt to recognize VIDEO_TS folders even if the folder is not named "VIDEO_TS". If disabled, Ember will still handle VIDEO_TS folders if the folder is named "VIDEO_TS". This setting also applies to BDMV folders.</string>
- <string control="Core_chkSkipStackedSizeCheck">If enabled, Ember will not skip files smaller than the entered "Skip Files Smaller Than" size if they contain stacking markers (such as "CD1" or "DVD2").</string>
- <string control="Core_txtSkipLessThan">Ember will use the entered size as the minimum size for movie files. Any files smaller than this will be skipped when updating the library.</string>
- <string control="Core_txtTVSkipLessThan">Ember will use the entered size as the minimum size for episode files. Any files smaller than this will be skipped when updating the library.</string>
- <string control="Core_cbTrailerQuality">Select the preferred quality of the downloaded trailers.</string>
- <string control="Core_chkDeleteAllTrailers">If enabled, Ember will delete all existing trailers for the movie before saving the new one.</string>
- <string control="Core_chkOverwriteTrailer">If enabled, existing trailer files will be overwritten when saving new ones. If disabled, new trailer files will only be saved if one does not already exist.</string>
- <string control="Core_chkNoDLTrailer">If enabled, trailer files will not be downloaded. Instead, the trailer url will be saved to the nfo.</string>
- <string control="Core_chkSingleScrapeTrailer">If enabled, trailers will be downloaded while scraping a single movie.</string>
- <string control="Core_chkUpdaterTrailer">If enabled, trailers will be downloaded during "All Items" scrapers.</string>
- <string control="Core_chkDownloadTrailer">Enable Ember's trailer support.</string>
- <string control="Core_chkAutoETSize">Select the size of the fanart you would like to download as extrathumbs.</string>
- <string control="Core_cbAutoETSize">If enabled, Ember will automatically download all fanart of the selected size as extrathumbs.</string>
- <string control="Core_txtETWidth">Resize extrathumbs to the entered width.</string>
- <string control="Core_txtETHeight">Resize extrathumbs to the entered height.</string>
- <string control="Core_chkETPadding">If enabled, Ember will add "black bars" to the edges of the extrathumbs if they are smaller than the entered size.</string>
- <string control="Core_rbETCustom">Resize extrathumbs to the entered size, regardless of the native resolution.</string>
- <string control="Core_rbETNative">Save extrathumbs using the same resolution as the video.</string>
- <string control="Core_lvTVSources">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
- <string control="Core_ColumnHeader1">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
- <string control="Core_ColumnHeader2">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
- <string control="Core_ColumnHeader3">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
- <string control="Core_chkTVScanOrderModify">If enabled, Ember will add new files in order of there last modified time. If disabled, Ember will add new files to the library in alphabetical order.</string>
- <string control="Core_chkTVIgnoreLastScan">If enabled, Ember will scan all folders/files regardless of the last scan time. If disabled, Ember will only scan files/folders added after the last time files were scanned.</string>
- <string control="Core_chkTVCleanDB">If enabled, Ember will clean the TV Show database after each scan. (Remove entries for files that no longer exist or no longer match selected setting values)</string>
- <string control="Core_btnAddTVSource">Add a new folder to the sources list.</string>
- <string control="Core_btnEditTVSource">Edit the selected source.</string>
- <string control="Core_btnRemTVSource">Remove the selected source(s) from the sources list.</string>
- <string control="Core_chkSeasonAllJPG">Save All Seasons poster files as "season-all.jpg".</string>
- <string control="Core_chkSeasonAllTBN">Save All Seasons poster files as "season-all.tbn".</string>
- <string control="Core_chkEpisodeDotFanart">Save episode fanart files as "<episode>.fanart.jpg".</string>
- <string control="Core_chkEpisodeDashFanart">Save episode fanart files as "<episode>-fanart.jpg".</string>
- <string control="Core_chkEpisodeJPG">Save episode poster files as "<episode>.jpg".</string>
- <string control="Core_chkEpisodeTBN">Save episode poster files as "<episode>.tbn".</string>
- <string control="Core_chkSeasonDotFanart">Save season fanart files as "<season>.fanart.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonDashFanart">Save season fanart files as "<season>-fanart.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonFanartJPG">Save season fanart files as "fanart.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonFolderJPG">Save season fanart files as "folder.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonNameJPG">Save season poster files as "<season>.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonNameTBN">Save season poster files as "<season>.tbn". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonPosterJPG">Save season poster files as "poster.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonPosterTBN">Save season poster files as "poster.tbn". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonXTBN">Save season poster files as "seasonX.tbn". (Example: season2.tbn)</string>
- <string control="Core_chkSeasonXXTBN">Save season poster files as "seasonXX.tbn". (Example: season02.tbn)</string>
- <string control="Core_chkShowDotFanart">Save show fanart files as "<show>.fanart.jpg".</string>
- <string control="Core_chkShowDashFanart">Save show fanart files as "<show>-fanart.jpg".</string>
- <string control="Core_chkShowFanartJPG">Save show fanart files as "fanart.jpg".</string>
- <string control="Core_chkShowJPG">Save show poster files as "<show>.jpg".</string>
- <string control="Core_chkShowTBN">Save show poster files as "<show>.tbn".</string>
- <string control="Core_chkShowPosterJPG">Save show poster files as "poster.jpg".</string>
- <string control="Core_chkShowPosterTBN">Save show poster files as "poster.tbn".</string>
- <string control="Core_chkShowFolderJPG">Save show poster files as "folder.jpg".</string>
- <string control="Core_btnAddShowRegex">Add the entered regex to the TV Show Regex list.</string>
- <string control="Core_txtSeasonRegex">Enter the regex to use to detect the season number.</string>
- <string control="Core_cboSeasonRetrieve">Choose if you would like to process the season regex against the directory name or the episode file name.</string>
- <string control="Core_txtEpRegex">Enter the regex to use to detect the episode number.</string>
- <string control="Core_cboEpRetrieve">Choose if you would like to process the episode regex against the directory name, the episode file name, or the results of the season regex.</string>
- <string control="Core_btnEditShowRegex">Edit the selected TV Show regex.</string>
- <string control="Core_btnRemoveShowRegex">Remove the selected TV Show regex from the list.</string>
- <string control="Core_lvShowRegex">The list of current TV Show regex.</string>
- <string control="Core_colRegID">The list of current TV Show regex.</string>
- <string control="Core_colSeason">The list of current TV Show regex.</string>
- <string control="Core_colSeasonApply">The list of current TV Show regex.</string>
- <string control="Core_colEpisode">The list of current TV Show regex.</string>
- <string control="Core_colEpApply">The list of current TV Show regex.</string>
- <string control="Core_chkDisplayMissingEpisodes">If enabled, episodes that are missing from your collection will be displayed in the episode list, but will be colored a light gray.</string>
- <string control="Core_chkEpisodeNfoCol">Hide the Info column from the episode list.</string>
- <string control="Core_chkEpisodeFanartCol">Hide the Fanart column from the episode list.</string>
- <string control="Core_chkEpisodePosterCol">Hide the Poster column from the episode list.</string>
- <string control="Core_chkSeasonFanartCol">Hide the Fanart column from the season list.</string>
- <string control="Core_chkSeasonPosterCol">Hide the Poster column from the poster list.</string>
- <string control="Core_chkShowNfoCol">Hide the Info column from the show list.</string>
- <string control="Core_chkShowFanartCol">Hide the Fanart column from the show list.</string>
- <string control="Core_chkShowPosterCol">Hide the Poster column from the show list.</string>
- <string control="Core_chkDisplayAllSeason">If enabled, if an All Season poster exists for the selected show, it will be displayed on the right of the interface.</string>
- <string control="Core_cbRatingRegion">Select the region of the ratings you would like to display in the interface.</string>
- <string control="Core_chkNoFilterEpisode">If enabled, Ember will not attempt to filter episode file names for titles and instead will build them from the show name, season, and episode until a proper title has been fetched.</string>
- <string control="Core_btnEpFilterDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_btnEpFilterUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_chkEpProperCase">Automatically apply proper casing to episode titles. (Example: "stole beer from golfer" becomes "Stole Beer From Golfer")</string>
- <string control="Core_btnRemoveEpFilter">Remove the selected filter from the filter list.</string>
- <string control="Core_btnAddEpFilter">Add the entered filter to the filter list.</string>
- <string control="Core_txtEpFilter">Enter a filter to add to the filter list.</string>
- <string control="Core_lstEpFilters">The list of all current filters that will be used when generating titles for episodes.</string>
- <string control="Core_btnShowFilterDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_btnShowFilterUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_chkShowProperCase">Automatically apply proper casing to episode titles. (Example: "my name is earl" becomes "My Name is Earl")</string>
- <string control="Core_btnRemoveShowFilter">Remove the selected filter from the filter list.</string>
- <string control="Core_btnAddShowFilter">Add the entered filter to the filter list.</string>
- <string control="Core_txtShowFilter">Enter a filter to add to the filter list.</string>
- <string control="Core_lstShowFilters">The list of all current filters that will be used when generating titles for shows.</string>
- <string control="Core_chkGetEnglishImages">If enabled, all English images will be retrieved, regardless of the selected language.</string>
- <string control="Core_chkOnlyTVImagesLanguage">If enabled, only images for the preferred language will be retrieved.</string>
- <string control="Core_txtShowPosterWidth">Resize show poster files to the entered width.</string>
- <string control="Core_txtShowPosterHeight">Resize show poster files to the entered height.</string>
- <string control="Core_tbShowPosterQual">Adjust the quality of the show poster files. (0 = original quality)</string>
- <string control="Core_chkResizeShowPoster">Resize show poster files before saving.</string>
- <string control="Core_cbShowPosterSize">Select the preferred show poster type you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a poster of this type first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwriteShowPoster">If enabled, existing show poster files will be overwritten if new ones are selected. If disabled, show poster files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtShowFanartWidth">Resize show fanart files to the entered width.</string>
- <string control="Core_txtShowFanartHeight">Resize show fanart files to the entered height.</string>
- <string control="Core_tbShowFanartQual">Adjust the quality of the show fanart files. (0 = original quality)</string>
- <string control="Core_chkResizeShowFanart">Resize show fanart files before saving.</string>
- <string control="Core_cbShowFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwriteShowFanart">If enabled, existing show fanart files will be overwritten if new ones are selected. If disabled, show fanart files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtSeaPosterWidth">Resize season poster files to the entered width.</string>
- <string control="Core_txtSeaPosterHeight">Resize season poster files to the entered height.</string>
- <string control="Core_tbSeaPosterQual">Adjust the quality of the season poster files. (0 = original quality)</string>
- <string control="Core_chkSeaResizePoster">Resize season poster files before saving.</string>
- <string control="Core_cbSeaPosterSize">Select the preferred season poster type you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a poster of this type first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkSeaOverwritePoster">If enabled, existing season poster files will be overwritten if new ones are selected. If disabled, season poster files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtSeaFanartWidth">Resize season fanart files to the entered width.</string>
- <string control="Core_txtSeaFanartHeight">Resize season fanart files to the entered height.</string>
- <string control="Core_tbSeaFanartQual">Adjust the quality of the season fanart files. (0 = original quality)</string>
- <string control="Core_chkSeaResizeFanart">Resize season fanart files before saving.</string>
- <string control="Core_cbSeaFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkSeaOverwriteFanart">If enabled, existing season fanart files will be overwritten if new ones are selected. If disabled, season fanart files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtEpPosterWidth">Resize episode poster files to the entered width.</string>
- <string control="Core_txtEpPosterHeight">Resize episode poster files to the entered height.</string>
- <string control="Core_tbEpPosterQual">Adjust the quality of the episode poster files. (0 = original quality)</string>
- <string control="Core_chkResizeEpPoster">Resize episode poster files before saving.</string>
- <string control="Core_chkOverwriteEpPoster">If enabled, existing episode poster files will be overwritten if new ones are selected. If disabled, episode poster files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtEpFanartWidth">Resize episode fanart files to the entered width.</string>
- <string control="Core_txtEpFanartHeight">Resize episode fanart files to the entered height.</string>
- <string control="Core_tbEpFanartQual">Adjust the quality of the episode fanart files. (0 = original quality)</string>
- <string control="Core_chkResizeEpFanart">Resize episode fanart files before saving.</string>
- <string control="Core_cbEpFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwriteEpFanart">If enabled, existing episode fanart files will be overwritten if new ones are selected. If disabled, episode fanart files will only be saved if a current one does not already exist.</string>
- <string control="Core_chkScraperShowRating">Enable scraping show rating.</string>
- <string control="Core_chkScraperShowActors">Enable scraping show actors.</string>
- <string control="Core_chkScraperShowStudio">Enable scraping show studios.</string>
- <string control="Core_chkScraperShowPremiered">Enable scraping show premiered date.</string>
- <string control="Core_chkScraperShowEGU">Enable scraping the Episode Guide URL.</string>
- <string control="Core_chkScraperShowMPAA">Enable scraping show MPAA.</string>
- <string control="Core_chkScraperShowPlot">Enable scraping show plot.</string>
- <string control="Core_chkScraperShowGenre">Enable scraping show genre.</string>
- <string control="Core_chkScraperShowTitle">Enable scraping show title.</string>
- <string control="Core_chkScraperEpActors">Enable scraping episode actors.</string>
- <string control="Core_chkScraperEpCredits">Enable scraping episode credits.</string>
- <string control="Core_chkScraperEpDirector">Enable scraping episode directors.</string>
- <string control="Core_chkScraperEpPlot">Enable scraping episode plot.</string>
- <string control="Core_chkScraperEpRating">Enable scraping episode rating.</string>
- <string control="Core_chkScraperEpAired">Enable scraping episode aired date.</string>
- <string control="Core_chkScraperEpTitle">Enable scraping episode title.</string>
- <string control="Core_chkScraperEpEpisode">Enable scraping episode number.</string>
- <string control="Core_chkScraperEpSeason">Enable scraping season number.</string>
- <string control="Core_chkEpLockTitle">If enabled, the episode title will only be scraped if a current one does not exist.</string>
- <string control="Core_chkEpLockRating">If enabled, the episode rating will only be scraped if a current one does not exist.</string>
- <string control="Core_chkEpLockPlot">If enabled, the episode plot will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockPlot">If enabled, the show plot will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockGenre">If enabled, the show genre will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockStudio">If enabled, the show studio will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockRating">If enabled, the show rating will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockTitle">If enabled, the show title will only be scraped if a current one does not exist.</string>
- <string control="Core_lstTVMetaData">The list of extensions that have default meta data entries.</string>
- <string control="Core_txtTVDefFIExt">Enter an extension to create a default meta data entry.</string>
- <string control="Core_btnRemoveTVMetaDataFT">Remove the default meta data for the selected extension from the default meta data list.</string>
- <string control="Core_btnEditTVMetaDataFT">Edit the default meta data for the selected extension in the default meta data list.</string>
- <string control="Core_btnNewTVMetaDataFT">Create default meta data for the entered extension and add the to the default meta data list.</string>
- <string control="Core_cboTVMetaDataOverlay">If the selected language is found in the episode, a special icon indicator will be overlayed on the meta data audio icon.</string>
- <string control="Core_chkTVScanMetaData">If enabled, Ember will scan episode files for meta data.</string>
- <string control="Core_cboTVUpdate">Select the time to wait between updating cached TV information files.</string>
- <string control="Core_txtAPIKey">Enter the TVDB API Key of the media center/player you use. This is not necessary for Ember to function. It is only used when saving the Episode Guide URL to the nfo.</string>
- <string control="Core_txtTVDBMirror">Enter the mirror to use when retrieving information from theTVDB.</string>
- <string control="Core_btnTVLanguageFetch">Click to download all available languages from theTVDB.</string>
- <string control="Core_cbTVLanguage">Select the preferred language to use when downloading show information and images.</string>
- <string control="Core_chkCertification">Enable scraping movie certification.</string>
- <string control="Core_chkTop250">Enable scraping movie Top 250 ranking.</string>
- <string control="Core_chkCountry">Enable scraping movie production country.</string>
- <string control="Core_txtGenreLimit">Limit the number of scraped genres to the entered value.</string>
- <string control="Core_txtActorLimit">Limit the number of scraped actors to the entered value.</string>
- <string control="Core_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
- <string control="Core_chkMusicBy">Enable scraping movie musicians. (Scrape Full Crew must be enabled)</string>
- <string control="Core_chkProducers">Enable scraping movie producers. (Scrape Full Crew must be enabled)</string>
- <string control="Core_chkWriters">Enable scraping movie writers.</string>
- <string control="Core_chkStudio">Enable scraping movie studio.</string>
- <string control="Core_chkRuntime">Enable scraping movie runtime.</string>
- <string control="Core_chkPlot">Enable scraping movie plot.</string>
- <string control="Core_chkOutline">Enable scraping movie outline.</string>
- <string control="Core_chkGenre">Enable scraping movie genre.</string>
- <string control="Core_chkDirector">Enable scraping movie director.</string>
- <string control="Core_chkTagline">Enable scraping movie tagline.</string>
- <string control="Core_chkCast">Enable scraping movie cast.</string>
- <string control="Core_chkVotes">Enable scraping movie votes.</string>
- <string control="Core_chkTrailer">Enable scraping movie trailer url.</string>
- <string control="Core_chkRating">Enable scraping movie rating.</string>
- <string control="Core_chkRelease">Enable scraping movie release date.</string>
- <string control="Core_chkMPAA">Enable scraping movie MPAA.</string>
- <string control="Core_chkYear">Enable scraping movie year.</string>
- <string control="Core_chkTitle">Enable scraping movie title.</string>
- <string control="Core_lstMetaData">The list of extensions that have default meta data entries.</string>
- <string control="Core_txtDefFIExt">Enter an extension to create a default meta data entry.</string>
- <string control="Core_btnRemoveMetaDataFT">Remove the default meta data for the selected extension from the default meta data list.</string>
- <string control="Core_btnEditMetaDataFT">Edit the default meta data for the selected extension in the default meta data list.</string>
- <string control="Core_btnNewMetaDataFT">Create default meta data for the entered extension and add the to the default meta data list.</string>
- <string control="Core_chkIFOScan">If enabled, Ember will process *.ifo files for meta data information.</string>
- <string control="Core_cbLanguages">If the selected language is found in the movie, a special icon indicator will be overlayed on the meta data audio icon.</string>
- <string control="Core_txtRuntimeFormat">Enter the format you wish to use for the movie duration retrieved from scanning meta data. Note you can also use <0m> for 0 padding minutes</string>
- <string control="Core_chkScanMediaInfo">If enabled, Ember will scan movie files for meta data.</string>
- <string control="Core_chkUseMIDuration">Use the movie duration retrieved from scanning meta data as the runtime of the movie.</string>
- <string control="Core_chkLockOutline">If enabled, the movie outline will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockPlot">If enabled, the movie plot will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockTrailer">If enabled, the movie trailer will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockGenre">If enabled, the movie genre will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockRealStudio">If enabled, the movie studio will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockRating">If enabled, the movie rating will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockTagline">If enabled, the movie tagline will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockTitle">If enabled, the movie title will only be scraped if a current one does not exist.</string>
- <string control="Core_cbForce">Select the region of the title you would like Ember to look for.</string>
- <string control="Core_chkForceTitle">If enabled, Ember will check for alternative titles in the selected language. This is useful for fetching titles in your native language when scraping foreign films.</string>
- <string control="Core_chkOutlineForPlot">If enabled, Ember will use the outline for the plot if the plot is empty.</string>
- <string control="Core_chkCastWithImg">If enabled, Ember will only scrape cast entries that have valid images.</string>
- <string control="Core_chkUseCertForMPAA">If enabled, Ember will use the certifcation of the selected region in place of the MPAA rating.</string>
- <string control="Core_chkFullCast">If enabled, all cast members will be scraped instead of only top billed.</string>
- <string control="Core_chkFullCrew">If enabled, all crew members will be scraped (if individually enabled).</string>
- <string control="Core_cbCert">Select the region to filter certification ratings.</string>
- <string control="Core_chkCert">Only scrape the certificaton rating for the selected region.</string>
- <string control="Core_chkMarkNewShows">If enabled, new shows will be "marked". If disabled, new shows will still be colored green until updated or the next Ember session.</string>
- <string control="Core_chkMarkNewEpisodes">If enabled, new episodes will be "marked". If disabled, new episodes will still be colored green until updated or the next Ember session.</string>
- <string control="Core_cbOrdering">Select the default ordering Ember will use when scraping information for a show.</string>
- <string control="Core_chkOnlyValueForCert">If enabled, Ember will only save the value of the certification to the MPAA field. (Example: "Germany:18" will save as "18")</string>
- <string control="Core_rbBanner">If enabled, Ember will attempt to download a banner (wide) image of the selected type as the default show poster.</string>
- <string control="Core_rbPoster">If enabled, Ember will attempt to download a poster image of the selected type as the default show poster.</string>
- <string control="Core_btnResetShowFilters">This will reset the show filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
- <string control="Core_btnResetEpFilter">This will reset the episode filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
- <string control="Core_btnResetMovieFilters">This will reset the movie filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
- <string control="Core_btnResetValidExts">This will reset the valid extensions to the default list. WARNING: This WILL delete any custom extensions you have entered.</string>
- <string control="Core_ResetShowRegex">This will reset the show regex to the default list. WARNING: This WILL delete any custom regex you have entered.</string>
- <string control="Core_chkClickScrape">Enable Click Scrape on main screen column marks.</string>
-</strings>
\ No newline at end of file
+ <string control="Core_chkShowGenresText">If enabled, the value of the genre images will always be displayed. If disabled, the text will only be visible when you hover your mouse over one of the genre images.</string>
+ <string control="Core_chkSourceFromFolder">If enabled, Ember will check the folder name for source types. If disabled, Ember will only check the file name.</string>
+ <string control="Core_chkNoDisplayFanart">If enabled, fanart will not be displayed in the main window. This is helpful to speed up the interface on slow computers.</string>
+ <string control="Core_chkNoDisplayPoster">If enabled, posters will not be displayed in the main window. This is helpful to speed up the interface on slow computers.</string>
+ <string control="Core_chkShowDims">If enabled, the dimensions of the images (posters and fanart) will be overlayed on top of the images.</string>
+ <string control="Core_chkUpdates">If enabled, Ember will check for a new version at each start up.</string>
+ <string control="Core_chkOverwriteNfo">If enabled, NFO files will be overwritten when saving. If disabled, they will be renamed to *.info.</string>
+ <string control="Core_chkLogErrors">If enabled, all errors will be logged to a file located in <Ember Installation Directory>\Log\errlog.txt.</string>
+ <string control="Core_cbEpTheme">Select the theme to apply for the episode layout.</string>
+ <string control="Core_cbTVShowTheme">Select the theme to apply for the TV Show and Season layout.</string>
+ <string control="Core_cbMovieTheme">Select the theme to apply for the movie layout.</string>
+ <string control="Core_btnDLTrans">Download addons for Ember, including modules, themes, translations to other languages, and export templates.</string>
+ <string control="Core_cbIntLang">Select the language to use for Ember's interface. (You must restart Ember for changes to take effect)</string>
+ <string control="Core_chkCleanFolderJPG">Clean all files named "folder.jpg".</string>
+ <string control="Core_chkCleanExtrathumbs">Clean all "extrathumbs" folders.</string>
+ <string control="Core_chkCleanMovieTBN">Clean all files named "movie.tbn".</string>
+ <string control="Core_chkCleanMovieNameJPG">Clean all files named <movie>.jpg.</string>
+ <string control="Core_chkCleanMovieTBNb">Clean all files named <movie>.tbn.</string>
+ <string control="Core_chkCleanMovieJPG">Clean all files named "movie.jpg".</string>
+ <string control="Core_chkCleanFanartJPG">Clean all files named "fanart.jpg".</string>
+ <string control="Core_chkCleanPosterJPG">Clean all files named "poster.jpg".</string>
+ <string control="Core_chkCleanMovieFanartJPG">Clean all files named <movie>-fanart.jpg.</string>
+ <string control="Core_chkCleanPosterTBN">Clean all files named "poster.tbn".</string>
+ <string control="Core_chkCleanMovieNFO">Clean all files named "movie.nfo".</string>
+ <string control="Core_chkCleanDotFanartJPG">Clean all files named <movie>.fanart.jpg.</string>
+ <string control="Core_chkCleanMovieNFOb">Clean all files named <movie>.nfo.</string>
+ <string control="Core_chkWhitelistVideo">Automatically whitelist all files which have an extension in the "Valid Video Extensions" list.</string>
+ <string control="Core_btnRemoveWhitelist">Remove the selected extension from the whitelist.</string>
+ <string control="Core_btnAddWhitelist">Add the entered extension to the whitelist.</string>
+ <string control="Core_txtWhitelist">Enter an extension to add to the whitelist.</string>
+ <string control="Core_lstWhitelist">This list contains all the current extensions that will be skipped during cleaning.</string>
+ <string control="Core_chkYAMJCompatibleSets">If enabled, Ember will save sets information in a format that is compatible with YAMJ. If disabled, Ember will save sets information in a format that is compatible with XBMC.</string>
+ <string control="Core_chkAskCheckboxScrape">If enabled, when clicking on a checkbox in the movies list a non-automatic will be used. If disabled, an automatic scrape will be used.</string>
+ <string control="Core_chkMarkNew">If enabled, new movies will be "marked". If disabled, new movies will still be colored green until updated or the next Ember session.</string>
+ <string control="Core_lbGenre">Select the language(s) of the genres you would like Ember to display.</string>
+ <string control="Core_txtCheckTitleTol">Enter the tolerance level you would like Ember to use when title matching. The higher the number, the more lenient the algorithm is. 0 = disabled</string>
+ <string control="Core_chkCheckTitles">Enable this to have Ember check the differences between the title of the movie and it's file name. This is useful to make sure that the scraped data is actually for the selected movie file.</string>
+ <string control="Core_btnRemoveToken">Remove the selected sort token from the list.</string>
+ <string control="Core_btnAddToken">Add the entered sort token to the list.</string>
+ <string control="Core_txtSortToken">Enter in a sort token to add to the list.</string>
+ <string control="Core_lstSortTokens">A list of all current sort tokens. (If the movie title begins with a sort token, then the sort token will be moved to the end. For example: Sort Token = "The", Title = "The Dark Knight", Result = "Dark Knight, The")</string>
+ <string control="Core_chkDisplayYear">If enabled, Ember will display the year of the movie in the main movie list.</string>
+ <string control="Core_chkMovieExtraCol">Hide the Extrathumbs column from the main movie list.</string>
+ <string control="Core_chkMovieSubCol">Hide the Subtitles column from the main movie list.</string>
+ <string control="Core_chkMovieTrailerCol">Hide the Trailers column from the main movie list.</string>
+ <string control="Core_chkMovieInfoCol">Hide the Info column from the main movie list.</string>
+ <string control="Core_chkMovieFanartCol">Hide the Fanart column from the main movie list.</string>
+ <string control="Core_chkMoviePosterCol">Hide the Poster column from the main movie list.</string>
+ <string control="Core_chkMovieNameMultiOnly">If enabled, "<movie>.ext" items will only be utilized in folders that have multiple movies. This is useful when you have a mixture of multiple movie and single movie folders and you wish to reduce the number of extra files.</string>
+ <string control="Core_rbBracketTrailer">Save trailer files as "<movie>[trailer].ext".</string>
+ <string control="Core_rbDashTrailer">Save trailer files as "<movie>-trailer.ext".</string>
+ <string control="Core_chkVideoTSParent">If enabled, Ember will save the meta files in the parent directory (YAMJ compatible). If disabled, Ember will save the meta files directly to the VIDEO_TS folder (XBMC compatible). This setting applies to BDMV folders, as well.</string>
+ <string control="Core_chkMovieNameNFO">Save nfo files as "<movie>.nfo".</string>
+ <string control="Core_chkMovieNFO">Save nfo files as "movie.nfo".</string>
+ <string control="Core_chkMovieNameDotFanartJPG">Save fanart files as "<movie>.fanart.jpg".</string>
+ <string control="Core_chkMovieNameFanartJPG">Save fanart files as "<movie>-fanart.jpg".</string>
+ <string control="Core_chkFanartJPG">Save fanart files as "fanart.jpg"</string>
+ <string control="Core_chkFolderJPG">Save poster files as "folder.jpg"</string>
+ <string control="Core_chkPosterJPG">Save poster files as "poster.jpg"</string>
+ <string control="Core_chkPosterTBN">Save poster files as "poster.tbn"</string>
+ <string control="Core_chkMovieNameJPG">Save poster files as "<movie>.jpg"</string>
+ <string control="Core_chkMovieJPG">Save poster files as "movie.jpg"</string>
+ <string control="Core_chkMovieNameTBN">Save poster files as "<movie>.tbn"</string>
+ <string control="Core_chkMovieTBN">Save poster files as "movie.tbn"</string>
+ <string control="Core_lvMovies">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
+ <string control="Core_colID">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
+ <string control="Core_colName">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
+ <string control="Core_colPath">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
+ <string control="Core_colRecur">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
+ <string control="Core_colFolder">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
+ <string control="Core_colSingle">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
+ <string control="Core_btnMovieRem">Remove the selected source(s) from the sources list.</string>
+ <string control="Core_btnMovieAddFolder">Add a new folder to the sources list.</string>
+ <string control="Core_txtPosterWidth">Resize poster files to the entered width.</string>
+ <string control="Core_txtPosterHeight">Resize poster files to the entered height.</string>
+ <string control="Core_tbPosterQual">Adjust the quality of the poster files. (0 = original quality)</string>
+ <string control="Core_chkResizePoster">Resize poster files before saving.</string>
+ <string control="Core_cbPosterSize">Select the preferred poster size you would like to retreive from the image servers. During automatic scrapers, Ember will attempt to find a poster of this size first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
+ <string control="Core_chkOverwritePoster">If enabled, existing poster files will be overwritten if new ones are selected. If disabled, poster files will only be saved if a current one does not already exist.</string>
+ <string control="Core_txtFanartWidth">Resize fanart files to the entered width.</string>
+ <string control="Core_txtFanartHeight">Resize fanart files to the entered height.</string>
+ <string control="Core_chkFanartOnly">If enabled, Ember will only retrieve fanart of the selected size. (NOTE: If there are no fanart images of the selected size available, no fanart images will be retrieved)</string>
+ <string control="Core_tbFanartQual">Adjust the quality of the fanart files. (0 = original quality)</string>
+ <string control="Core_chkResizeFanart">Resize fanart files before saving.</string>
+ <string control="Core_cbFanartSize">Select the preferred fanart size you would like to retrieve from the image servers. Durint automatic scrapers, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
+ <string control="Core_chkOverwriteFanart">If enabled, existing fanart files will be overwritten if new ones are selected. If disabled, fanart files will only be saved if a current one does not already exist.</string>
+ <string control="Core_chkNoSaveImagesToNfo">If enabled, Ember will not save URLs to the poster and fanart images in the nfo files. (Recommended for YAMJ compatibility)</string>
+ <string control="Core_chkSingleScrapeImages">Select images while scraping a single movie file.</string>
+ <string control="Core_chkUseImgCacheUpdaters">Save images to the image cache when scraping multiple movie files.</string>
+ <string control="Core_chkPersistImgCache">If enabled, Ember will not clear the image cache between sessions.</string>
+ <string control="Core_chkUseImgCache">Enable Ember's image cache.</string>
+ <string control="Core_chkUseETasFA">If enabled and no fanart is available for the selected movie, Ember will use one of the extracted thumbnails as the fanart image.</string>
+ <string control="Core_chkNoSpoilers">If enabled, extrathumbs will only be extracted from the first half of the movie in order to avoid "spoilers".</string>
+ <string control="Core_txtAutoThumbs">Enter the number of extrathumbs you would like to automatically generate.</string>
+ <string control="Core_chkAutoThumbs">If enabled, Ember will automatically extract the entered number of extrathumbs during scraping.</string>
+ <string control="Core_txtProxyDomain">Enter the domain for your proxy. (Optional - not necessary for most proxies)</string>
+ <string control="Core_txtProxyPassword">Enter the password needed to access your proxy.</string>
+ <string control="Core_txtProxyUsername">Enter the username needed to access your proxy.</string>
+ <string control="Core_chkEnableCredentials">Enable if your proxy requires authentication.</string>
+ <string control="Core_txtProxyPort">Enter the port needed to access your proxy.</string>
+ <string control="Core_txtProxyURI">Enter the IP or URL needed to access your proxy.</string>
+ <string control="Core_chkEnableProxy">If enabled, Ember will use the entered proxy for all internet communications.</string>
+ <string control="Core_btnDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
+ <string control="Core_btnUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
+ <string control="Core_chkProperCase">Automatically apply proper casing to movie titles. (Example: "the dark knight" becomes "The Dark Knight")</string>
+ <string control="Core_btnRemoveFilter">Remove the selected filter from the list.</string>
+ <string control="Core_btnAddFilter">Add the entered filter to the list.</string>
+ <string control="Core_txtFilter">Enter text or regex to use as a filter. Special: "a[->]b" = replace all occurrances of "a" with "b" (Example: ".[->]_" will replace all periods in the title with underscores.)</string>
+ <string control="Core_lstFilters">The list of all current filters that will be used when generating titles for movies.</string>
+ <string control="Core_chkMissingExtra">If enabled, Ember will display movies missing extrathumbs when utilizing the Missing Items Filter.</string>
+ <string control="Core_chkMissingSubs">If enabled, Ember will display movies missing subtitle files when utilizing the Missing Items Filter.</string>
+ <string control="Core_chkMissingTrailer">If enabled, Ember will display movies missing trailers when utilizing the Missing Items Filter.</string>
+ <string control="Core_chkMissingNFO">If enabled, Ember will display movies missing nfo files when utilizing the Missing Items Filter.</string>
+ <string control="Core_chkMissingFanart">If enabled, Ember will display movies missing fanart when utilizing the Missing Items Filter.</string>
+ <string control="Core_chkMissingPoster">If enabled, Ember will display movies missing posters when utilizing the Missing Items Filter.</string>
+ <string control="Core_chkAutoBD">If enabled, Ember will automatically save new fanart images to the entered backdrops folder.</string>
+ <string control="Core_btnBrowse">Open a folder browser to select a backdrops folder.</string>
+ <string control="Core_txtBDPath">The path to the backdrops folder.</string>
+ <string control="Core_btnRemoveNoStack">Remove the selected extension from the No Stack Extensions list.</string>
+ <string control="Core_btnAddNoStack">Add the entered extension to the No Stack Extensions list.</string>
+ <string control="Core_txtNoStack">Enter an extension to add to the No Stack Extensions list.</string>
+ <string control="Core_lstNoStack">The list of extensions Ember will not stack into single files when adding them to the library.</string>
+ <string control="Core_btnRemMovieExt">Remove the selected extension from the Valid Video Extensions list.</string>
+ <string control="Core_btnAddMovieExt">Add the entered extension to the Valid Video Extensions list.</string>
+ <string control="Core_txtMovieExt">Enter an extension to add to the Valid Video Extensions list.</string>
+ <string control="Core_lstMovieExts">The list of extensions Ember will look for when updating the library.</string>
+ <string control="Core_btnEditSource">Edit the selected source.</string>
+ <string control="Core_chkScanOrderModify">If enabled, Ember will add new files in order of there last modified time. If disabled, Ember will add new files to the library in alphabetical order.</string>
+ <string control="Core_chkSortBeforeScan">If enabled, Ember will sort all single files in the top directory of the source into their own folders.</string>
+ <string control="Core_chkIgnoreLastScan">If enabled, Ember will scan all folders/files regardless of the last scan time. If disabled, Ember will only scan files/folders added after the last time files were scanned.</string>
+ <string control="Core_chkCleanDB">If enabled, Ember will clean the movie database after each scan. (Remove entries for files that no longer exist or no longer match selected setting values)</string>
+ <string control="Core_chkAutoDetectVTS">If enabled, Ember will attempt to recognize VIDEO_TS folders even if the folder is not named "VIDEO_TS". If disabled, Ember will still handle VIDEO_TS folders if the folder is named "VIDEO_TS". This setting also applies to BDMV folders.</string>
+ <string control="Core_chkSkipStackedSizeCheck">If enabled, Ember will not skip files smaller than the entered "Skip Files Smaller Than" size if they contain stacking markers (such as "CD1" or "DVD2").</string>
+ <string control="Core_txtSkipLessThan">Ember will use the entered size as the minimum size for movie files. Any files smaller than this will be skipped when updating the library.</string>
+ <string control="Core_txtTVSkipLessThan">Ember will use the entered size as the minimum size for episode files. Any files smaller than this will be skipped when updating the library.</string>
+ <string control="Core_cbTrailerQuality">Select the preferred quality of the downloaded trailers.</string>
+ <string control="Core_chkDeleteAllTrailers">If enabled, Ember will delete all existing trailers for the movie before saving the new one.</string>
+ <string control="Core_chkOverwriteTrailer">If enabled, existing trailer files will be overwritten when saving new ones. If disabled, new trailer files will only be saved if one does not already exist.</string>
+ <string control="Core_chkNoDLTrailer">If enabled, trailer files will not be downloaded. Instead, the trailer url will be saved to the nfo.</string>
+ <string control="Core_chkSingleScrapeTrailer">If enabled, trailers will be downloaded while scraping a single movie.</string>
+ <string control="Core_chkUpdaterTrailer">If enabled, trailers will be downloaded during "All Items" scrapers.</string>
+ <string control="Core_chkDownloadTrailer">Enable Ember's trailer support.</string>
+ <string control="Core_chkAutoETSize">Select the size of the fanart you would like to download as extrathumbs.</string>
+ <string control="Core_cbAutoETSize">If enabled, Ember will automatically download all fanart of the selected size as extrathumbs.</string>
+ <string control="Core_txtETWidth">Resize extrathumbs to the entered width.</string>
+ <string control="Core_txtETHeight">Resize extrathumbs to the entered height.</string>
+ <string control="Core_chkETPadding">If enabled, Ember will add "black bars" to the edges of the extrathumbs if they are smaller than the entered size.</string>
+ <string control="Core_rbETCustom">Resize extrathumbs to the entered size, regardless of the native resolution.</string>
+ <string control="Core_rbETNative">Save extrathumbs using the same resolution as the video.</string>
+ <string control="Core_lvTVSources">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
+ <string control="Core_ColumnHeader1">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
+ <string control="Core_ColumnHeader2">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
+ <string control="Core_ColumnHeader3">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
+ <string control="Core_chkTVScanOrderModify">If enabled, Ember will add new files in order of there last modified time. If disabled, Ember will add new files to the library in alphabetical order.</string>
+ <string control="Core_chkTVIgnoreLastScan">If enabled, Ember will scan all folders/files regardless of the last scan time. If disabled, Ember will only scan files/folders added after the last time files were scanned.</string>
+ <string control="Core_chkTVCleanDB">If enabled, Ember will clean the TV Show database after each scan. (Remove entries for files that no longer exist or no longer match selected setting values)</string>
+ <string control="Core_btnAddTVSource">Add a new folder to the sources list.</string>
+ <string control="Core_btnEditTVSource">Edit the selected source.</string>
+ <string control="Core_btnRemTVSource">Remove the selected source(s) from the sources list.</string>
+ <string control="Core_chkSeasonAllJPG">Save All Seasons poster files as "season-all.jpg".</string>
+ <string control="Core_chkSeasonAllTBN">Save All Seasons poster files as "season-all.tbn".</string>
+ <string control="Core_chkEpisodeDotFanart">Save episode fanart files as "<episode>.fanart.jpg".</string>
+ <string control="Core_chkEpisodeDashFanart">Save episode fanart files as "<episode>-fanart.jpg".</string>
+ <string control="Core_chkEpisodeJPG">Save episode poster files as "<episode>.jpg".</string>
+ <string control="Core_chkEpisodeTBN">Save episode poster files as "<episode>.tbn".</string>
+ <string control="Core_chkSeasonDotFanart">Save season fanart files as "<season>.fanart.jpg". (Will only save inside the season directory, if it exists)</string>
+ <string control="Core_chkSeasonDashFanart">Save season fanart files as "<season>-fanart.jpg". (Will only save inside the season directory, if it exists)</string>
+ <string control="Core_chkSeasonFanartJPG">Save season fanart files as "fanart.jpg". (Will only save inside the season directory, if it exists)</string>
+ <string control="Core_chkSeasonFolderJPG">Save season fanart files as "folder.jpg". (Will only save inside the season directory, if it exists)</string>
+ <string control="Core_chkSeasonNameJPG">Save season poster files as "<season>.jpg". (Will only save inside the season directory, if it exists)</string>
+ <string control="Core_chkSeasonNameTBN">Save season poster files as "<season>.tbn". (Will only save inside the season directory, if it exists)</string>
+ <string control="Core_chkSeasonPosterJPG">Save season poster files as "poster.jpg". (Will only save inside the season directory, if it exists)</string>
+ <string control="Core_chkSeasonPosterTBN">Save season poster files as "poster.tbn". (Will only save inside the season directory, if it exists)</string>
+ <string control="Core_chkSeasonXTBN">Save season poster files as "seasonX.tbn". (Example: season2.tbn)</string>
+ <string control="Core_chkSeasonXXTBN">Save season poster files as "seasonXX.tbn". (Example: season02.tbn)</string>
+ <string control="Core_chkShowDotFanart">Save show fanart files as "<show>.fanart.jpg".</string>
+ <string control="Core_chkShowDashFanart">Save show fanart files as "<show>-fanart.jpg".</string>
+ <string control="Core_chkShowFanartJPG">Save show fanart files as "fanart.jpg".</string>
+ <string control="Core_chkShowJPG">Save show poster files as "<show>.jpg".</string>
+ <string control="Core_chkShowTBN">Save show poster files as "<show>.tbn".</string>
+ <string control="Core_chkShowPosterJPG">Save show poster files as "poster.jpg".</string>
+ <string control="Core_chkShowPosterTBN">Save show poster files as "poster.tbn".</string>
+ <string control="Core_chkShowFolderJPG">Save show poster files as "folder.jpg".</string>
+ <string control="Core_btnAddShowRegex">Add the entered regex to the TV Show Regex list.</string>
+ <string control="Core_txtSeasonRegex">Enter the regex to use to detect the season number.</string>
+ <string control="Core_cboSeasonRetrieve">Choose if you would like to process the season regex against the directory name or the episode file name.</string>
+ <string control="Core_txtEpRegex">Enter the regex to use to detect the episode number.</string>
+ <string control="Core_cboEpRetrieve">Choose if you would like to process the episode regex against the directory name, the episode file name, or the results of the season regex.</string>
+ <string control="Core_btnEditShowRegex">Edit the selected TV Show regex.</string>
+ <string control="Core_btnRemoveShowRegex">Remove the selected TV Show regex from the list.</string>
+ <string control="Core_lvShowRegex">The list of current TV Show regex.</string>
+ <string control="Core_colRegID">The list of current TV Show regex.</string>
+ <string control="Core_colSeason">The list of current TV Show regex.</string>
+ <string control="Core_colSeasonApply">The list of current TV Show regex.</string>
+ <string control="Core_colEpisode">The list of current TV Show regex.</string>
+ <string control="Core_colEpApply">The list of current TV Show regex.</string>
+ <string control="Core_chkDisplayMissingEpisodes">If enabled, episodes that are missing from your collection will be displayed in the episode list, but will be colored a light gray.</string>
+ <string control="Core_chkEpisodeNfoCol">Hide the Info column from the episode list.</string>
+ <string control="Core_chkEpisodeFanartCol">Hide the Fanart column from the episode list.</string>
+ <string control="Core_chkEpisodePosterCol">Hide the Poster column from the episode list.</string>
+ <string control="Core_chkSeasonFanartCol">Hide the Fanart column from the season list.</string>
+ <string control="Core_chkSeasonPosterCol">Hide the Poster column from the poster list.</string>
+ <string control="Core_chkShowNfoCol">Hide the Info column from the show list.</string>
+ <string control="Core_chkShowFanartCol">Hide the Fanart column from the show list.</string>
+ <string control="Core_chkShowPosterCol">Hide the Poster column from the show list.</string>
+ <string control="Core_chkDisplayAllSeason">If enabled, if an All Season poster exists for the selected show, it will be displayed on the right of the interface.</string>
+ <string control="Core_cbRatingRegion">Select the region of the ratings you would like to display in the interface.</string>
+ <string control="Core_chkNoFilterEpisode">If enabled, Ember will not attempt to filter episode file names for titles and instead will build them from the show name, season, and episode until a proper title has been fetched.</string>
+ <string control="Core_btnEpFilterDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
+ <string control="Core_btnEpFilterUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
+ <string control="Core_chkEpProperCase">Automatically apply proper casing to episode titles. (Example: "stole beer from golfer" becomes "Stole Beer From Golfer")</string>
+ <string control="Core_btnRemoveEpFilter">Remove the selected filter from the filter list.</string>
+ <string control="Core_btnAddEpFilter">Add the entered filter to the filter list.</string>
+ <string control="Core_txtEpFilter">Enter a filter to add to the filter list.</string>
+ <string control="Core_lstEpFilters">The list of all current filters that will be used when generating titles for episodes.</string>
+ <string control="Core_btnShowFilterDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
+ <string control="Core_btnShowFilterUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
+ <string control="Core_chkShowProperCase">Automatically apply proper casing to episode titles. (Example: "my name is earl" becomes "My Name is Earl")</string>
+ <string control="Core_btnRemoveShowFilter">Remove the selected filter from the filter list.</string>
+ <string control="Core_btnAddShowFilter">Add the entered filter to the filter list.</string>
+ <string control="Core_txtShowFilter">Enter a filter to add to the filter list.</string>
+ <string control="Core_lstShowFilters">The list of all current filters that will be used when generating titles for shows.</string>
+ <string control="Core_chkGetEnglishImages">If enabled, all English images will be retrieved, regardless of the selected language.</string>
+ <string control="Core_chkOnlyTVImagesLanguage">If enabled, only images for the preferred language will be retrieved.</string>
+ <string control="Core_txtShowPosterWidth">Resize show poster files to the entered width.</string>
+ <string control="Core_txtShowPosterHeight">Resize show poster files to the entered height.</string>
+ <string control="Core_tbShowPosterQual">Adjust the quality of the show poster files. (0 = original quality)</string>
+ <string control="Core_chkResizeShowPoster">Resize show poster files before saving.</string>
+ <string control="Core_cbShowPosterSize">Select the preferred show poster type you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a poster of this type first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
+ <string control="Core_chkOverwriteShowPoster">If enabled, existing show poster files will be overwritten if new ones are selected. If disabled, show poster files will only be saved if a current one does not already exist.</string>
+ <string control="Core_txtShowFanartWidth">Resize show fanart files to the entered width.</string>
+ <string control="Core_txtShowFanartHeight">Resize show fanart files to the entered height.</string>
+ <string control="Core_tbShowFanartQual">Adjust the quality of the show fanart files. (0 = original quality)</string>
+ <string control="Core_chkResizeShowFanart">Resize show fanart files before saving.</string>
+ <string control="Core_cbShowFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
+ <string control="Core_chkOverwriteShowFanart">If enabled, existing show fanart files will be overwritten if new ones are selected. If disabled, show fanart files will only be saved if a current one does not already exist.</string>
+ <string control="Core_txtSeaPosterWidth">Resize season poster files to the entered width.</string>
+ <string control="Core_txtSeaPosterHeight">Resize season poster files to the entered height.</string>
+ <string control="Core_tbSeaPosterQual">Adjust the quality of the season poster files. (0 = original quality)</string>
+ <string control="Core_chkSeaResizePoster">Resize season poster files before saving.</string>
+ <string control="Core_cbSeaPosterSize">Select the preferred season poster type you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a poster of this type first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
+ <string control="Core_chkSeaOverwritePoster">If enabled, existing season poster files will be overwritten if new ones are selected. If disabled, season poster files will only be saved if a current one does not already exist.</string>
+ <string control="Core_txtSeaFanartWidth">Resize season fanart files to the entered width.</string>
+ <string control="Core_txtSeaFanartHeight">Resize season fanart files to the entered height.</string>
+ <string control="Core_tbSeaFanartQual">Adjust the quality of the season fanart files. (0 = original quality)</string>
+ <string control="Core_chkSeaResizeFanart">Resize season fanart files before saving.</string>
+ <string control="Core_cbSeaFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
+ <string control="Core_chkSeaOverwriteFanart">If enabled, existing season fanart files will be overwritten if new ones are selected. If disabled, season fanart files will only be saved if a current one does not already exist.</string>
+ <string control="Core_txtEpPosterWidth">Resize episode poster files to the entered width.</string>
+ <string control="Core_txtEpPosterHeight">Resize episode poster files to the entered height.</string>
+ <string control="Core_tbEpPosterQual">Adjust the quality of the episode poster files. (0 = original quality)</string>
+ <string control="Core_chkResizeEpPoster">Resize episode poster files before saving.</string>
+ <string control="Core_chkOverwriteEpPoster">If enabled, existing episode poster files will be overwritten if new ones are selected. If disabled, episode poster files will only be saved if a current one does not already exist.</string>
+ <string control="Core_txtEpFanartWidth">Resize episode fanart files to the entered width.</string>
+ <string control="Core_txtEpFanartHeight">Resize episode fanart files to the entered height.</string>
+ <string control="Core_tbEpFanartQual">Adjust the quality of the episode fanart files. (0 = original quality)</string>
+ <string control="Core_chkResizeEpFanart">Resize episode fanart files before saving.</string>
+ <string control="Core_cbEpFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
+ <string control="Core_chkOverwriteEpFanart">If enabled, existing episode fanart files will be overwritten if new ones are selected. If disabled, episode fanart files will only be saved if a current one does not already exist.</string>
+ <string control="Core_chkScraperShowRating">Enable scraping show rating.</string>
+ <string control="Core_chkScraperShowActors">Enable scraping show actors.</string>
+ <string control="Core_chkScraperShowStudio">Enable scraping show studios.</string>
+ <string control="Core_chkScraperShowPremiered">Enable scraping show premiered date.</string>
+ <string control="Core_chkScraperShowEGU">Enable scraping the Episode Guide URL.</string>
+ <string control="Core_chkScraperShowMPAA">Enable scraping show MPAA.</string>
+ <string control="Core_chkScraperShowPlot">Enable scraping show plot.</string>
+ <string control="Core_chkScraperShowGenre">Enable scraping show genre.</string>
+ <string control="Core_chkScraperShowTitle">Enable scraping show title.</string>
+ <string control="Core_chkScraperEpActors">Enable scraping episode actors.</string>
+ <string control="Core_chkScraperEpCredits">Enable scraping episode credits.</string>
+ <string control="Core_chkScraperEpDirector">Enable scraping episode directors.</string>
+ <string control="Core_chkScraperEpPlot">Enable scraping episode plot.</string>
+ <string control="Core_chkScraperEpRating">Enable scraping episode rating.</string>
+ <string control="Core_chkScraperEpAired">Enable scraping episode aired date.</string>
+ <string control="Core_chkScraperEpTitle">Enable scraping episode title.</string>
+ <string control="Core_chkScraperEpEpisode">Enable scraping episode number.</string>
+ <string control="Core_chkScraperEpSeason">Enable scraping season number.</string>
+ <string control="Core_chkEpLockTitle">If enabled, the episode title will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkEpLockRating">If enabled, the episode rating will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkEpLockPlot">If enabled, the episode plot will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkShowLockPlot">If enabled, the show plot will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkShowLockGenre">If enabled, the show genre will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkShowLockStudio">If enabled, the show studio will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkShowLockRating">If enabled, the show rating will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkShowLockTitle">If enabled, the show title will only be scraped if a current one does not exist.</string>
+ <string control="Core_lstTVMetaData">The list of extensions that have default meta data entries.</string>
+ <string control="Core_txtTVDefFIExt">Enter an extension to create a default meta data entry.</string>
+ <string control="Core_btnRemoveTVMetaDataFT">Remove the default meta data for the selected extension from the default meta data list.</string>
+ <string control="Core_btnEditTVMetaDataFT">Edit the default meta data for the selected extension in the default meta data list.</string>
+ <string control="Core_btnNewTVMetaDataFT">Create default meta data for the entered extension and add the to the default meta data list.</string>
+ <string control="Core_cboTVMetaDataOverlay">If the selected language is found in the episode, a special icon indicator will be overlayed on the meta data audio icon.</string>
+ <string control="Core_chkTVScanMetaData">If enabled, Ember will scan episode files for meta data.</string>
+ <string control="Core_cboTVUpdate">Select the time to wait between updating cached TV information files.</string>
+ <string control="Core_txtAPIKey">Enter the TVDB API Key of the media center/player you use. This is not necessary for Ember to function. It is only used when saving the Episode Guide URL to the nfo.</string>
+ <string control="Core_txtTVDBMirror">Enter the mirror to use when retrieving information from theTVDB.</string>
+ <string control="Core_btnTVLanguageFetch">Click to download all available languages from theTVDB.</string>
+ <string control="Core_cbTVLanguage">Select the preferred language to use when downloading show information and images.</string>
+ <string control="Core_chkCertification">Enable scraping movie certification.</string>
+ <string control="Core_chkTop250">Enable scraping movie Top 250 ranking.</string>
+ <string control="Core_chkCountry">Enable scraping movie production country.</string>
+ <string control="Core_txtGenreLimit">Limit the number of scraped genres to the entered value.</string>
+ <string control="Core_txtActorLimit">Limit the number of scraped actors to the entered value.</string>
+ <string control="Core_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
+ <string control="Core_chkMusicBy">Enable scraping movie musicians. (Scrape Full Crew must be enabled)</string>
+ <string control="Core_chkProducers">Enable scraping movie producers. (Scrape Full Crew must be enabled)</string>
+ <string control="Core_chkWriters">Enable scraping movie writers.</string>
+ <string control="Core_chkStudio">Enable scraping movie studio.</string>
+ <string control="Core_chkRuntime">Enable scraping movie runtime.</string>
+ <string control="Core_chkPlot">Enable scraping movie plot.</string>
+ <string control="Core_chkOutline">Enable scraping movie outline.</string>
+ <string control="Core_chkGenre">Enable scraping movie genre.</string>
+ <string control="Core_chkDirector">Enable scraping movie director.</string>
+ <string control="Core_chkTagline">Enable scraping movie tagline.</string>
+ <string control="Core_chkCast">Enable scraping movie cast.</string>
+ <string control="Core_chkVotes">Enable scraping movie votes.</string>
+ <string control="Core_chkTrailer">Enable scraping movie trailer url.</string>
+ <string control="Core_chkRating">Enable scraping movie rating.</string>
+ <string control="Core_chkRelease">Enable scraping movie release date.</string>
+ <string control="Core_chkMPAA">Enable scraping movie MPAA.</string>
+ <string control="Core_chkYear">Enable scraping movie year.</string>
+ <string control="Core_chkTitle">Enable scraping movie title.</string>
+ <string control="Core_lstMetaData">The list of extensions that have default meta data entries.</string>
+ <string control="Core_txtDefFIExt">Enter an extension to create a default meta data entry.</string>
+ <string control="Core_btnRemoveMetaDataFT">Remove the default meta data for the selected extension from the default meta data list.</string>
+ <string control="Core_btnEditMetaDataFT">Edit the default meta data for the selected extension in the default meta data list.</string>
+ <string control="Core_btnNewMetaDataFT">Create default meta data for the entered extension and add the to the default meta data list.</string>
+ <string control="Core_chkIFOScan">If enabled, Ember will process *.ifo files for meta data information.</string>
+ <string control="Core_cbLanguages">If the selected language is found in the movie, a special icon indicator will be overlayed on the meta data audio icon.</string>
+ <string control="Core_txtRuntimeFormat">Enter the format you wish to use for the movie duration retrieved from scanning meta data. Note you can also use <0m> for 0 padding minutes</string>
+ <string control="Core_chkScanMediaInfo">If enabled, Ember will scan movie files for meta data.</string>
+ <string control="Core_chkUseMIDuration">Use the movie duration retrieved from scanning meta data as the runtime of the movie.</string>
+ <string control="Core_chkLockOutline">If enabled, the movie outline will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkLockPlot">If enabled, the movie plot will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkLockTrailer">If enabled, the movie trailer will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkLockGenre">If enabled, the movie genre will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkLockRealStudio">If enabled, the movie studio will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkLockRating">If enabled, the movie rating will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkLockTagline">If enabled, the movie tagline will only be scraped if a current one does not exist.</string>
+ <string control="Core_chkLockTitle">If enabled, the movie title will only be scraped if a current one does not exist.</string>
+ <string control="Core_cbForce">Select the region of the title you would like Ember to look for.</string>
+ <string control="Core_chkForceTitle">If enabled, Ember will check for alternative titles in the selected language. This is useful for fetching titles in your native language when scraping foreign films.</string>
+ <string control="Core_chkOutlineForPlot">If enabled, Ember will use the outline for the plot if the plot is empty.</string>
+ <string control="Core_chkCastWithImg">If enabled, Ember will only scrape cast entries that have valid images.</string>
+ <string control="Core_chkUseCertForMPAA">If enabled, Ember will use the certifcation of the selected region in place of the MPAA rating.</string>
+ <string control="Core_chkFullCast">If enabled, all cast members will be scraped instead of only top billed.</string>
+ <string control="Core_chkFullCrew">If enabled, all crew members will be scraped (if individually enabled).</string>
+ <string control="Core_cbCert">Select the region to filter certification ratings.</string>
+ <string control="Core_chkCert">Only scrape the certificaton rating for the selected region.</string>
+ <string control="Core_chkMarkNewShows">If enabled, new shows will be "marked". If disabled, new shows will still be colored green until updated or the next Ember session.</string>
+ <string control="Core_chkMarkNewEpisodes">If enabled, new episodes will be "marked". If disabled, new episodes will still be colored green until updated or the next Ember session.</string>
+ <string control="Core_cbOrdering">Select the default ordering Ember will use when scraping information for a show.</string>
+ <string control="Core_chkOnlyValueForCert">If enabled, Ember will only save the value of the certification to the MPAA field. (Example: "Germany:18" will save as "18")</string>
+ <string control="Core_rbBanner">If enabled, Ember will attempt to download a banner (wide) image of the selected type as the default show poster.</string>
+ <string control="Core_rbPoster">If enabled, Ember will attempt to download a poster image of the selected type as the default show poster.</string>
+ <string control="Core_btnResetShowFilters">This will reset the show filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
+ <string control="Core_btnResetEpFilter">This will reset the episode filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
+ <string control="Core_btnResetMovieFilters">This will reset the movie filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
+ <string control="Core_btnResetValidExts">This will reset the valid extensions to the default list. WARNING: This WILL delete any custom extensions you have entered.</string>
+ <string control="Core_ResetShowRegex">This will reset the show regex to the default list. WARNING: This WILL delete any custom regex you have entered.</string>
+ <string control="Core_chkClickScrape">Enable Click Scrape on main screen column marks.</string>
+ <string control="Core_chkSpecialDateAdd">If enabled Ember will respect the FileBuilt-Date of videofile instead of using the current date when importing new movies into the database. That results in more stable searches when filtering for newest movies!</string>
+ <string control="Core_chkLockLanguageV">If enabled, the language field (video metadata) will not be updated.</string>
+ <string control="Core_chkLockLanguageA">If enabled, the language field (audio metadata) will not be updated.</string>
+ <string control="Core_chkLockMPAA">If enabled, the certification/MPAA field will not be updated.</string>
+ <string control="Core_chkUseMPAAFSK">If enabled, MPAA values will be converted to FSK if no FSK values are found. Priority: FSK -> MPAA</string>
+ <string control="Core_chkMovieWatchedCol">Hide the Watched column from the main movie list.</string>
+ <string control="Core_chkEpisodeWatchedCol">Hide the Watched column from the episode list.</string>
+ </strings>
diff --git a/Ember Media Manager/Langs/English_(en_US).xml b/Ember Media Manager/Langs/English_(en_US).xml
index 5d3a6ff..181f3c2 100644
--- a/Ember Media Manager/Langs/English_(en_US).xml
+++ b/Ember Media Manager/Langs/English_(en_US).xml
@@ -1,4 +1,3 @@
-<?xml version="1.0" encoding="utf-8"?>
<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<string id="1">&File</string>
<string id="2">E&xit</string>
@@ -189,7 +188,7 @@
<string id="187">&Format / Indent</string>
<string id="188">&Parse</string>
<string id="189">&Save</string>
- <string id="190">Manual NFO Editor | </string>
+ <string id="190">Manual NFO Editor |</string>
<string id="191">This is not a proper XML document</string>
<string id="192">File is not valid.</string>
<string id="193">File is valid.</string>
@@ -218,7 +217,7 @@
<string id="216">Enter Path and Press "Go" to Begin.</string>
<string id="217">Path to Sort:</string>
<string id="218">Select the folder which contains the files you wish to sort.</string>
- <string id="219">Moving </string>
+ <string id="219">Moving</string>
<string id="220">WARNING: If you continue, all files will be sorted into separate folders.</string>
<string id="221">The folder you entered does not exist. Please enter a valid path.</string>
<string id="222">Folder Not Found</string>
@@ -266,7 +265,7 @@
<string id="264">Clear Cache</string>
<string id="265">Change Poster (Download)</string>
<string id="266">Change Fanart (Download)</string>
- <string id="267">Master.eLang.GetString(148, "One or more cache resources is currently in use and cannot be deleted at the moment.</string>
+ <string id="267">One or more cache resources is currently in use and cannot be deleted at the moment.</string>
<string id="268">Cannot Clear Cache</string>
<string id="269">Size: {0}x{1}</string>
<string id="270">The trailer could not be played. This could be due to an invalid URI or you do not have the proper player to play the trailer type.</string>
@@ -278,7 +277,7 @@
<string id="276">Apply</string>
<string id="277">New Addon</string>
<string id="278">Year</string>
- <string id="279">Edit Addon - </string>
+ <string id="279">Edit Addon -</string>
<string id="280">Addon Files</string>
<string id="281">Video</string>
<string id="282">Audio</string>
@@ -302,68 +301,68 @@
<string id="300">Yes</string>
<string id="301">Country</string>
<string id="302">Original Title</string>
- <string id="303"></string>
- <string id="304"></string>
- <string id="305"></string>
- <string id="306"></string>
- <string id="307"></string>
- <string id="308"></string>
- <string id="309"></string>
- <string id="310"></string>
- <string id="311"></string>
- <string id="312"></string>
- <string id="313"></string>
- <string id="314"></string>
- <string id="315"></string>
- <string id="316"></string>
- <string id="317"></string>
- <string id="318"></string>
- <string id="319"></string>
- <string id="320"></string>
- <string id="321"></string>
+ <string id="303"/>
+ <string id="304"/>
+ <string id="305"/>
+ <string id="306"/>
+ <string id="307"/>
+ <string id="308"/>
+ <string id="309"/>
+ <string id="310"/>
+ <string id="311"/>
+ <string id="312"/>
+ <string id="313"/>
+ <string id="314"/>
+ <string id="315"/>
+ <string id="316"/>
+ <string id="317"/>
+ <string id="318"/>
+ <string id="319"/>
+ <string id="320"/>
+ <string id="321"/>
<string id="322">X-Large</string>
<string id="323">Large</string>
<string id="324">Medium</string>
<string id="325">Small</string>
- <string id="326"></string>
- <string id="327"></string>
- <string id="328"></string>
- <string id="329"></string>
- <string id="330"></string>
- <string id="331"></string>
- <string id="332"></string>
- <string id="333"></string>
- <string id="334"></string>
- <string id="335"></string>
- <string id="336"></string>
- <string id="337"></string>
- <string id="338"></string>
- <string id="339"></string>
- <string id="340"></string>
- <string id="341"></string>
- <string id="342"></string>
- <string id="343"></string>
- <string id="344"></string>
- <string id="345"></string>
- <string id="346"></string>
- <string id="347"></string>
- <string id="348"></string>
- <string id="349"></string>
+ <string id="326"/>
+ <string id="327"/>
+ <string id="328"/>
+ <string id="329"/>
+ <string id="330"/>
+ <string id="331"/>
+ <string id="332"/>
+ <string id="333"/>
+ <string id="334"/>
+ <string id="335"/>
+ <string id="336"/>
+ <string id="337"/>
+ <string id="338"/>
+ <string id="339"/>
+ <string id="340"/>
+ <string id="341"/>
+ <string id="342"/>
+ <string id="343"/>
+ <string id="344"/>
+ <string id="345"/>
+ <string id="346"/>
+ <string id="347"/>
+ <string id="348"/>
+ <string id="349"/>
<string id="350">DVD</string>
<string id="351">Invalid</string>
- <string id="352"></string>
- <string id="353"></string>
- <string id="354"></string>
+ <string id="352"/>
+ <string id="353"/>
+ <string id="354"/>
<string id="355">Exists</string>
- <string id="356"></string>
- <string id="357"></string>
- <string id="358"></string>
- <string id="359"></string>
- <string id="360"></string>
+ <string id="356"/>
+ <string id="357"/>
+ <string id="358"/>
+ <string id="359"/>
+ <string id="360"/>
<string id="361">Finished</string>
<string id="362">Done</string>
- <string id="363"></string>
- <string id="364"></string>
+ <string id="363"/>
+ <string id="364"/>
<string id="365">Sets Manager</string>
<string id="366">Sets</string>
<string id="367">Movies In Set</string>
@@ -371,18 +370,18 @@
<string id="369">Loading Movies and Sets...</string>
<string id="370">Canceling Load...</string>
<string id="371">Add and configure movie boxed sets.</string>
- <string id="372"></string>
+ <string id="372"/>
<string id="373">Download</string>
- <string id="374"></string>
- <string id="375"></string>
- <string id="376"></string>
- <string id="377"></string>
- <string id="378"></string>
- <string id="379"></string>
- <string id="380"></string>
- <string id="381"></string>
- <string id="382"></string>
- <string id="383"></string>
+ <string id="374"/>
+ <string id="375"/>
+ <string id="376"/>
+ <string id="377"/>
+ <string id="378"/>
+ <string id="379"/>
+ <string id="380"/>
+ <string id="381"/>
+ <string id="382"/>
+ <string id="383"/>
<string id="384">Custom Scraper</string>
<string id="385">Create a custom scraper</string>
<string id="386">Selection Filter</string>
@@ -421,13 +420,13 @@
<string id="419">Meta Data is not available for this movie. Try rescanning.</string>
<string id="420">Settings</string>
<string id="421">Connection</string>
- <string id="422"></string>
- <string id="423"></string>
- <string id="424"></string>
+ <string id="422"/>
+ <string id="423"/>
+ <string id="424"/>
<string id="425">Username:</string>
<string id="426">Password:</string>
- <string id="427"></string>
- <string id="428"></string>
+ <string id="427"/>
+ <string id="428"/>
<string id="429">Miscellaneous</string>
<string id="430">Interface Language:</string>
<string id="431">Enable Panel Animation</string>
@@ -444,12 +443,12 @@
<string id="442">WARNING: Using the Expert Mode Cleaner could potentially delete wanted files. Take care when using this tool.</string>
<string id="443">Download Addons...</string>
<string id="444">File</string>
- <string id="445"></string>
- <string id="446"></string>
+ <string id="445"/>
+ <string id="446"/>
<string id="447">Downloading Files...</string>
- <string id="448"></string>
- <string id="449"></string>
- <string id="450"></string>
+ <string id="448"/>
+ <string id="449"/>
+ <string id="450"/>
<string id="451">Folder/File Name Filters</string>
<string id="452">Convert Names to Proper Case</string>
<string id="453">Always Display Genre Text</string>
@@ -473,10 +472,10 @@
<string id="471">File Naming</string>
<string id="472">Use <movie> Only for Folders with Multiple Movies</string>
<string id="473">YAMJ Compatible VIDEO_TS File Placement/Naming</string>
- <string id="474"></string>
- <string id="475"></string>
- <string id="476"></string>
- <string id="477"></string>
+ <string id="474">Frodo Compatible VIDEO_TS File Placement/Naming</string>
+ <string id="475"/>
+ <string id="476"/>
+ <string id="477"/>
<string id="478">Quality:</string>
<string id="479">Max Width:</string>
<string id="480">Max Height:</string>
@@ -484,9 +483,9 @@
<string id="482">Preferred Size:</string>
<string id="483">Overwrite Existing</string>
<string id="484">Loading Settings...</string>
- <string id="485"></string>
- <string id="486"></string>
- <string id="487"></string>
+ <string id="485"/>
+ <string id="486"/>
+ <string id="487"/>
<string id="488">Global Locks</string>
<string id="489">Lock Trailer</string>
<string id="490">Lock Genre</string>
@@ -508,7 +507,7 @@
<string id="506">Number To Create:</string>
<string id="507">Extract During Scrapers</string>
<string id="508">Use Outline for Plot if Plot is Empty</string>
- <string id="509"></string>
+ <string id="509"/>
<string id="510">Scrape Only Actors With Images</string>
<string id="511">Use Certification for MPAA</string>
<string id="512">Scrape Full Cast</string>
@@ -522,17 +521,17 @@
<string id="520">Backdrops Folder</string>
<string id="521">Automatically Save Fanart To Backdrops Folder</string>
<string id="522">Delete All Existing</string>
- <string id="523"></string>
+ <string id="523"/>
<string id="524">Only Get URLs When Scraping</string>
<string id="525">Get During Single Scrape</string>
- <string id="526"></string>
+ <string id="526"/>
<string id="527">Get During Automated Scrapers</string>
- <string id="528"></string>
+ <string id="528"/>
<string id="529">Enable Trailer Support</string>
<string id="530">No Stack Extensions</string>
- <string id="531"></string>
- <string id="532"></string>
- <string id="533"></string>
+ <string id="531"/>
+ <string id="532"/>
+ <string id="533"/>
<string id="534">Valid Video Extensions</string>
<string id="535">Edit Source</string>
<string id="536">Miscellaneous Options</string>
@@ -553,20 +552,20 @@
<string id="551">Use Image Cache</string>
<string id="552">Select the folder where you wish to store your backdrops.</string>
<string id="553">File System</string>
- <string id="554"></string>
+ <string id="554"/>
<string id="555">Files and Sources</string>
<string id="556">Scrapers - Data</string>
<string id="557">Scrapers - Images & Trailers</string>
<string id="558">Wide</string>
- <string id="559"></string>
- <string id="560"></string>
- <string id="561"></string>
- <string id="562"></string>
- <string id="563"></string>
- <string id="564"></string>
- <string id="565"></string>
- <string id="566"></string>
- <string id="567"></string>
+ <string id="559"/>
+ <string id="560"/>
+ <string id="561"/>
+ <string id="562"/>
+ <string id="563"/>
+ <string id="564"/>
+ <string id="565"/>
+ <string id="566"/>
+ <string id="567"/>
<string id="568">Generating Actors Cache:</string>
<string id="569">All</string>
<string id="570">[none]</string>
@@ -587,12 +586,12 @@
<string id="585">Check for Trailer</string>
<string id="586">Check for Subs</string>
<string id="587">Check for Extrathumbs</string>
- <string id="588"></string>
- <string id="589"></string>
- <string id="590"></string>
+ <string id="588"/>
+ <string id="589"/>
+ <string id="590"/>
<string id="591">Top 250</string>
- <string id="592"></string>
- <string id="593"></string>
+ <string id="592"/>
+ <string id="593"/>
<string id="594">Metadata Editor</string>
<string id="595">Video Streams</string>
<string id="596">Audio Streams</string>
@@ -629,18 +628,18 @@
<string id="627">Selected Items: {0}</string>
<string id="628">Enable IFO Parsing</string>
<string id="629">Themes</string>
- <string id="630"></string>
- <string id="631"></string>
- <string id="632"></string>
- <string id="633"></string>
- <string id="634"></string>
+ <string id="630"/>
+ <string id="631"/>
+ <string id="632"/>
+ <string id="633"/>
+ <string id="634"/>
<string id="635">You have selected {0} folders to open. Are you sure you want to do this?</string>
- <string id="636"></string>
- <string id="637"></string>
- <string id="638"></string>
- <string id="639"></string>
- <string id="640"></string>
- <string id="641"></string>
+ <string id="636"/>
+ <string id="637"/>
+ <string id="638"/>
+ <string id="639"/>
+ <string id="640"/>
+ <string id="641"/>
<string id="642">Sort Title</string>
<string id="643">YAMJ Compatible Sets Saving</string>
<string id="644">Cleaning Database...</string>
@@ -653,7 +652,7 @@
<string id="651">No Information is Available for This Show</string>
<string id="652">No Information is Available for This Episode</string>
<string id="653">TV Shows</string>
- <string id="654">Season </string>
+ <string id="654">Season</string>
<string id="655">Season Specials</string>
<string id="656">Edit Episode</string>
<string id="657">Edit the details for the selected episode.</string>
@@ -688,7 +687,7 @@
<string id="686">Season Fanart</string>
<string id="687">Episode Posters</string>
<string id="688">Episode Fanart</string>
- <string id="689"> [MISSING]</string>
+ <string id="689">[MISSING]</string>
<string id="690">Edit Regex</string>
<string id="691">Show Match Regex</string>
<string id="692">Season Match Regex:</string>
@@ -701,12 +700,12 @@
<string id="699">Regex</string>
<string id="700">TV Show</string>
<string id="701">TV Episode</string>
- <string id="702"></string>
- <string id="703"></string>
- <string id="704"></string>
+ <string id="702"/>
+ <string id="703"/>
+ <string id="704"/>
<string id="705">TV Source</string>
<string id="706">Select the parent folder for your TV Series folders/files.</string>
- <string id="707"></string>
+ <string id="707"/>
<string id="708">Donate</string>
<string id="709">Clean Database</string>
<string id="710">Force Title Language:</string>
@@ -775,29 +774,29 @@
<string id="773">Delete Episode</string>
<string id="774">Enabled</string>
<string id="775">Disabled</string>
- <string id="776"></string>
+ <string id="776"/>
<string id="777">Writer</string>
- <string id="778"></string>
- <string id="779"></string>
- <string id="780"></string>
- <string id="781"></string>
- <string id="782"></string>
+ <string id="778"/>
+ <string id="779"/>
+ <string id="780"/>
+ <string id="781"/>
+ <string id="782"/>
<string id="783">Plot Summary:</string>
- <string id="784"></string>
- <string id="785"></string>
+ <string id="784"/>
+ <string id="785"/>
<string id="786">All Seasons Poster</string>
- <string id="787"></string>
- <string id="788"></string>
- <string id="789"></string>
- <string id="790"></string>
- <string id="791"></string>
+ <string id="787"/>
+ <string id="788"/>
+ <string id="789"/>
+ <string id="790"/>
+ <string id="791"/>
<string id="792">Donate</string>
<string id="793">&Versions...</string>
<string id="794">&Module Settings...</string>
<string id="795">Interface</string>
<string id="796">Scan in order of last write time</string>
<string id="797">Default Episode Ordering:</string>
- <string id="798"></string>
+ <string id="798"/>
<string id="799">Scraper - Trailers</string>
<string id="800">Preferred Quality:</string>
<string id="801">TVDB Mirror</string>
@@ -813,8 +812,8 @@
<string id="811">PasteBin URL:</string>
<string id="812">Old Title: {0} | New Title: {1}</string>
<string id="813">Movie Scraped</string>
- <string id="814">Added Episode: </string>
- <string id="815">Added Movie: </string>
+ <string id="814">Added Episode:</string>
+ <string id="815">Added Movie:</string>
<string id="816">An Error Has Occurred</string>
<string id="817">New Movie Added</string>
<string id="818">New Episode Added</string>
@@ -825,17 +824,17 @@
<string id="823">Audio & Video Codec Mapping</string>
<string id="824">Video Source:</string>
<string id="825">Downloads:</string>
- <string id="826"></string>
- <string id="827"></string>
- <string id="828">Enable Actors Cache</string>
+ <string id="826"/>
+ <string id="827"/>
+ <string id="828">Enable Actor Thumbs</string>
<string id="829">Watch for ""Dump"" Folder</string>
<string id="830">Edit the details for the selected season.</string>
- <string id="831"></string>
+ <string id="831"/>
<string id="832">Display All Season Poster</string>
<string id="833">These are Scraper specific settings and act as a filter.\nYou should also check Ember Global Settings.</string>
<string id="834">* Inside Season Folder</string>
<string id="835">Only Save the Value to NFO</string>
- <string id="836"></string>
+ <string id="836"/>
<string id="837">Scrapers - Images</string>
<string id="838">Banner</string>
<string id="839">Absolute</string>
@@ -845,9 +844,9 @@
<string id="843">Are you sure you want to reset to the default list of valid video extensions?</string>
<string id="844">Are you sure you want to reset to the default list of show regex?</string>
<string id="845">>> No Item Selected <<</string>
- <string id="846"></string>
- <string id="847"></string>
- <string id="848"></string>
+ <string id="846"/>
+ <string id="847"/>
+ <string id="848"/>
<string id="849">Enable Click Scrape</string>
<string id="850">&Check For Updates...</string>
<string id="851">No Updates at this time</string>
@@ -866,7 +865,28 @@
<string id="864">Setting menus...</string>
<string id="865">Version {0}.{1}.{2}.{3}</string>
<string id="866">Metadata</string>
- <string id="867">XBMC Frodo</string>
- <string id="868">Top 250</string>
- <string id="869">EmberMM.com &Wiki...</string>
+ <string id="867">XBMC Frodo</string>
+ <string id="868">Top 250</string>
+ <string id="869">EmberMM.com &Wiki...</string>
+ <string id="870"/>
+ <string id="871"/>
+ <string id="872"/>
+ <string id="873"/>
+ <string id="874">Use file creation date of videofile</string>
+ <string id="875"/>
+ <string id="876"/>
+ <string id="877"/>
+ <string id="878"/>
+ <string id="879">Lock Language (video)</string>
+ <string id="880">Lock Language (audio)</string>
+ <string id="881">Lock MPAA/Certification</string>
+ <string id="882">Use MPAA as Fallback for FSK Rating</string>
+ <string id="883">Watched</string>
+ <string id="884">Hide Watched Column</string>
+ <string id="885">Lock Subtitle</string>
+ <string id="886">Retry</string>
+ <string id="887">Abort</string>
+ <string id="888">Database Compatibility</string>
+ <string id="889">Database is not compatible!</string>
+ <string id="890">Your database is not compatible with this version of Ember!\n\nYou can ....</string>
</strings>
diff --git a/Ember Media Manager/Langs/German_(de_DE)-Help.xml b/Ember Media Manager/Langs/German_(de_DE)-Help.xml
index c9cfa32..7997179 100644
--- a/Ember Media Manager/Langs/German_(de_DE)-Help.xml
+++ b/Ember Media Manager/Langs/German_(de_DE)-Help.xml
@@ -6,9 +6,9 @@
<string control="Core_chkShowDims">Wenn aktiviert blendet ember die Abmessungen der Poster und Fanarts oben in den Bildern ein.</string>
<string control="Core_chkUpdates">Wenn aktiviert prüft Ember bei jedem Start ob eine neue Version verfügbar ist.</string>
<string control="Core_chkOverwriteNfo">Wenn aktiviert werden NFO Dateien beim speichern überschrieben. Wenn deaktiviert werden diese nach .INFO verschoben</string>
- <string control="Core_chkLogErrors">Wenn aktiviert werden alle Fehler in folgendes Logfile geschrieben: <Ember Installation Directory>\Log\errlog.txt.</string>
+ <string control="Core_chkLogErrors">Wenn aktiviert werden alle Fehler in folgendes Logfile geschrieben: <Ember Installations-Verzeichniss>\Log\errlog.txt.</string>
<string control="Core_cbEpTheme">Wähle das Theme für das Episoden Layout.</string>
- <string control="Core_cbTVShowTheme">Wähle das Theme für das das TV-Serien and Staffel Layout.</string>
+ <string control="Core_cbTVShowTheme">Wähle das Theme für das das TV-Serien und Staffel Layout.</string>
<string control="Core_cbMovieTheme">Wähle das Theme für das das Film Layout.</string>
<string control="Core_btnDLTrans">Lade Erweiterungen für Ember herunter, z.B. Module, Themes, Übersetzungen oder Export Templates.</string>
<string control="Core_cbIntLang">Wähle die Sprache für die Ember Oberfläche. (Ember muss anschließend neugestartet werden)</string>
@@ -26,9 +26,9 @@
<string control="Core_chkCleanDotFanartJPG">Alle <movie>.fanart.jpg Dateien löschen.</string>
<string control="Core_chkCleanMovieNFOb">Alle <movie>.nfo Dateien löschen.</string>
<string control="Core_chkWhitelistVideo">Alle Erweiterungen die unter "Gültige Video Erweiterungen" aufgeführt sind automatisch der Whitelist hinzufügen.</string>
- <string control="Core_btnRemoveWhitelist">Die Gewählte Erweiterung aus der Whitelist entfernen.</string>
- <string control="Core_btnAddWhitelist">Die angegebene Erweiterung zur Whitelist hinzufügen.</string>
- <string control="Core_txtWhitelist">Gib eine Erweiterung zum hinzufügen ein.</string>
+ <string control="Core_btnRemoveWhitelist">Die gewählte Erweiterung aus der Whitelist entfernen.</string>
+ <string control="Core_btnAddWhitelist">Die eingegebene Erweiterung zur Whitelist hinzufügen.</string>
+ <string control="Core_txtWhitelist">Gib eine Erweiterung zum Hinzufügen ein.</string>
<string control="Core_lstWhitelist">Diese Liste beinhaltet alle Erweiterungen die beim säubern übersprungen werden.</string>
<string control="Core_chkYAMJCompatibleSets">Wenn aktiviert speichert Ember Sets YAMJ kompatibel. Wenn deaktiviert werden Sets zu XBMC kompatibel gespeichert.</string>
<string control="Core_chkAskCheckboxScrape">Wenn aktiviert bewirkt ein klick auf die Movie Checkbox das nicht automatische scrappen. Wenn deaktiviert ist der automatische scrap möglich.</string>
@@ -37,8 +37,8 @@
<string control="Core_txtCheckTitleTol">Enter the tolerance level you would like Ember to use when title matching. The higher the number, the more lenient the algorithm is. 0 = disabled</string>
<string control="Core_chkCheckTitles">Aktiviere dies um Ember nach Unterschiedlichen Titeln und Dateinamen suchen zu lassen. Dies ist hilfreich um sicherzustellen, dass die Informationen für den richtigen Film sind.</string>
<string control="Core_btnRemoveToken">Löscht das gewählte Token aus der Liste.</string>
- <string control="Core_btnAddToken">Fügt das eingegebene Token in die Liste hinzu.</string>
- <string control="Core_txtSortToken">Gib ein Token ein.</string>
+ <string control="Core_btnAddToken">Fügt das eingegebene Token der Liste hinzu.</string>
+ <string control="Core_txtSortToken">Gib ein Sortier-Token ein um ihn der Liste hinzuzufügen.</string>
<string control="Core_lstSortTokens">Eine Liste aller aktueller Sort-Tokens. (Wenn ein Filmtitel mit einem dieser Sort-Tokens beginnt, wird das Token ans Ende verschoben. z.B.: Sort Token = "The", Titel = "The Dark Knight", Ergebnis = "Dark Knight, The")</string>
<string control="Core_chkDisplayYear">Wenn aktiviert zeigt Ember in der Medienliste das Jahr in Klammern hinter dem Titel.</string>
<string control="Core_chkMovieExtraCol">Verstecke die Extrathumb Spalte in der Medienliste.</string>
@@ -63,35 +63,35 @@
<string control="Core_chkMovieJPG">Poster Dateien als "movie.jpg" speichern.</string>
<string control="Core_chkMovieNameTBN">Poster Dateien als "<movie>.tbn" speichern.</string>
<string control="Core_chkMovieTBN">Poster Dateien als "movie.tbn" speichern.</string>
- <string control="Core_lvMovies">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colID">Die Liste aller aktuellen Filmquellen (Movie sources). (Diese Pfade werden nach Filmen durchsucht)</string>
- <string control="Core_colName">Die Liste aller aktuellen Filmquellen (Movie sources). (Diese Pfade werden nach Filmen durchsucht)</string>
- <string control="Core_colPath">Die Liste aller aktuellen Filmquellen (Movie sources). (Diese Pfade werden nach Filmen durchsucht)</string>
- <string control="Core_colRecur">Die Liste aller aktuellen Filmquellen (Movie sources). (Diese Pfade werden nach Filmen durchsucht)</string>
- <string control="Core_colFolder">Die Liste aller aktuellen Filmquellen (Movie sources). (Diese Pfade werden nach Filmen durchsucht)</string>
- <string control="Core_colSingle">Die Liste aller aktuellen Filmquellen (Movie sources). (Diese Pfade werden nach Filmen durchsucht)</string>
- <string control="Core_btnMovieRem">Die gewählte Filmquelle entfernen.</string>
+ <string control="Core_lvMovies">Die Liste aller aktuellen Filmquellen. (Diese Pfade werden nach Filmen durchsucht)</string>
+ <string control="Core_colID">Die Liste aller aktuellen Filmquellen. (Diese Pfade werden nach Filmen durchsucht)</string>
+ <string control="Core_colName">Die Liste aller aktuellen Filmquellen. (Diese Pfade werden nach Filmen durchsucht)</string>
+ <string control="Core_colPath">Die Liste aller aktuellen Filmquellen. (Diese Pfade werden nach Filmen durchsucht)</string>
+ <string control="Core_colRecur">Die Liste aller aktuellen Filmquellen. (Diese Pfade werden nach Filmen durchsucht)</string>
+ <string control="Core_colFolder">Die Liste aller aktuellen Filmquellen. (Diese Pfade werden nach Filmen durchsucht)</string>
+ <string control="Core_colSingle">Die Liste aller aktuellen Filmquellen. (Diese Pfade werden nach Filmen durchsucht)</string>
+ <string control="Core_btnMovieRem">Die gewählte Filmquelle(n) entfernen.</string>
<string control="Core_btnMovieAddFolder">Eine neue Filmquelle anlegen.</string>
- <string control="Core_txtPosterWidth">Poster auf die angegebene Größe ändern.</string>
- <string control="Core_txtPosterHeight">Poster auf die angegebene Größe ändern.</string>
+ <string control="Core_txtPosterWidth">Poster auf die angegebene Breite ändern.</string>
+ <string control="Core_txtPosterHeight">Poster auf die angegebene Höhe ändern.</string>
<string control="Core_tbPosterQual">Die Qualität von Poster auf diesen Wert ändern (0 = Original Qualität)</string>
<string control="Core_chkResizePoster">Die Größe von Postern vor dem Scannen verändern.</string>
<string control="Core_cbPosterSize">Wähle deine bevorzugte Größe von Postern. Ember wird versuchen Poster in deiner gewünschten Größe zu scrapen, falls solche nicht verfügbar sind wird nach der nächst kleineren Größe gesucht.</string>
<string control="Core_chkOverwritePoster">Wenn aktiviert werden vorhandene Poster beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist..</string>
- <string control="Core_txtFanartWidth">Die Größe von Fanart Dateien wird auf diesen Wert verändert.</string>
+ <string control="Core_txtFanartWidth">Fanart auf die angegebene Breite ändern.</string>
<string control="Core_txtFanartHeight">Die Größe von Fanart Dateien wird auf diesen Wert verändert.</string>
<string control="Core_chkFanartOnly">Wenn aktiviert wird Ember nur versuchen Fanarts in dieser größe zu laden. (Beachte, dass wenn kein Fanart in der gewünschten Größe vorhanden ist, keines gespeichert wird)</string>
<string control="Core_tbFanartQual">Die Qualität von Fanart Bildern (0 = Original Qualität)</string>
- <string control="Core_chkResizeFanart">Größe vor dem speichern ändern.</string>
+ <string control="Core_chkResizeFanart">Größe des Fanarts vor dem Speichern ändern.</string>
<string control="Core_cbFanartSize">Wähle deine bevorzugte Größe von Fanarts. Ember wird versuchen Fanarts in deiner gewünschten Größe zu scrapen, falls solche nicht verfügbar sind wird nach der nächst kleineren Größe gesucht.</string>
- <string control="Core_chkOverwriteFanart">Wenn aktiviert werden vorhandene Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Fanart nur gespeichert, wenn aktuell keines vorhanden ist..</string>
+ <string control="Core_chkOverwriteFanart">Wenn aktiviert werden vorhandene Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Fanart nur gespeichert, wenn aktuell keines vorhanden ist.</string>
<string control="Core_chkNoSaveImagesToNfo">Wenn aktiviert wird Ember NICHT die URLs von Bildern in den NFO-Dateien speichern. (Für die YAMJ kompatibilität)</string>
- <string control="Core_chkSingleScrapeImages">Bilder beim einzelnen scrapen aussuchen</string>
+ <string control="Core_chkSingleScrapeImages">Bilder beim einzelnen Scrapen aussuchen.</string>
<string control="Core_chkUseImgCacheUpdaters">Bilder im Bildercache speichern beim automatischen scrapen</string>
<string control="Core_chkPersistImgCache">Wenn aktiviert bleibt der Imagecache nach Beenden vorhanden.</string>
<string control="Core_chkUseImgCache">Embers Imagecache benutzen.</string>
<string control="Core_chkUseETasFA">Wenn aktiviert und kein Fanart verfügbar ist, wird Ember ein Extrathumb als Fanart speichern.</string>
- <string control="Core_chkNoSpoilers">Wenn aktiviert werden nur Frames aus der ersten Hälfte des Films extrahiert. (Um Spoiler zu verhindern)</string>
+ <string control="Core_chkNoSpoilers">Wenn aktiviert werden nur Frames aus der ersten Hälfte des Films extrahiert um Spoiler zu verhindern.</string>
<string control="Core_txtAutoThumbs">Gib die Anzahl an Frames an, die Ember aus dem Video extrahieren soll.</string>
<string control="Core_chkAutoThumbs">Wenn aktiviert wird Ember die angegebene Anzahl an Frames aus dem Video extrahieren.</string>
<string control="Core_txtProxyDomain">Gib die Domäne für die Anmeldung am Proxy ein. (Bei den meisten Proxy Servern nicht nötig)</string>
@@ -106,7 +106,7 @@
<string control="Core_chkProperCase">Ändere die Filmtitel in Jedes-Wort-Groß. (z.B.: "the dark knight" wird "The Dark Knight")</string>
<string control="Core_btnRemoveFilter">Entfernt den aktuellen Filter.</string>
<string control="Core_btnAddFilter">Fügt den angegebenen Filter der Liste hinzu.</string>
- <string control="Core_txtFilter">Gib einen Text oder RegExp als Filter ein. Special: "a[->]b" = replace all occurrances of "a" with "b" (Example: ".[->]_" will replace all periods in the title with underscores.)</string>
+ <string control="Core_txtFilter">Gib einen Text oder RegExp als Filter ein. Special: "a[->]b" = ersetzt alle "a" durch ein "b" (Beispiel: ".[->]_" ersetzt alle Punkte durch einen Unterstrich.)</string>
<string control="Core_lstFilters">Die Liste aller aktuell aktivierten Filter die benutzt werden um den Filmtitel zu erkennen.</string>
<string control="Core_chkMissingExtra">Wenn aktiviert wird Ember bei "Fehlendem Einträge Filter" Filme anzeigen, die über keine Extrathumbs verfügen.</string>
<string control="Core_chkMissingSubs">Wenn aktiviert wird Ember bei dem "Fehlendem Einträge Filter" Filme anzeigen, die über keine Untertitel verfügen.</string>
@@ -119,23 +119,23 @@
<string control="Core_txtBDPath">Der Pfad zum Backdrop Verzeichnis.</string>
<string control="Core_btnRemoveNoStack">Entfernt die gewählte Erweiterung aus der Nicht-Stapeln-Liste.</string>
<string control="Core_btnAddNoStack">Fügt die angegebene Erweiterung der Nicht-Stapeln-Liste hinzu.</string>
- <string control="Core_txtNoStack">Gib eine Erweiterung zum hinzufügen an.</string>
+ <string control="Core_txtNoStack">Gib eine Erweiterung an um sie der Nicht-Stapeln-Liste hinzuzufügen.</string>
<string control="Core_lstNoStack">Die Liste an Erweiterungen welche nicht zu einzelnen Filmen zusammengefasst (=gestapelt) werden.</string>
<string control="Core_btnRemMovieExt">Entfernt die gewählte Erweiterung aus der Gültige-Erweiterungen-Liste.</string>
<string control="Core_btnAddMovieExt">Fügt die angegebene Erweiterung der Gültige-Erweiterungen-Liste.</string>
- <string control="Core_txtMovieExt">Gib eine Erweiterung zum hinzufügen an.</string>
+ <string control="Core_txtMovieExt">Gib eine neue Erweiterung ein um sie der Gültige-Erweiterungen-Liste hinzuzufügen.</string>
<string control="Core_lstMovieExts">Die Liste an Erweiterungen nach denen Ember in den Quellen suchen wird.</string>
<string control="Core_btnEditSource">Die gewählte Quelle editieren.</string>
<string control="Core_chkScanOrderModify">Wenn aktiviert wird Ember neue Videos in der Reihenfolge des zuletzt geänderten Zeitraums einlesen, wenn deaktiviert legt Ember neue Dateien alphabetisch an.</string>
- <string control="Core_chkSortBeforeScan">Wenn aktiviert, wird Ember vor einem Scan alle Einzel Dateien im Haupt Verzeichnis der Source in ihre eigenen Ordner sortieren.</string>
- <string control="Core_chkIgnoreLastScan">Wenn aktiviert wird Ember die letzte Scanzeit beim lesen ignorieren. Wenn deaktiviert wird Ember nur Dateien einlesen die jünger als die letzte Scanzeit sind..</string>
- <string control="Core_chkCleanDB">Wenn aktiviert wird Ember nach jedem Scanvorgang die Datenbank säubern.</string>
+ <string control="Core_chkSortBeforeScan">Wenn aktiviert, wird Ember vor einem Scan alle einzelnen Dateien im Hauptverzeichnis der Source in ihre eigenen Ordner sortieren.</string>
+ <string control="Core_chkIgnoreLastScan">Wenn aktiviert wird Ember die letzte Scanzeit beim lesen ignorieren. Wenn deaktiviert wird Ember nur Dateien einlesen die jünger als die letzte Scanzeit sind.</string>
+ <string control="Core_chkCleanDB">Wenn aktiviert wird Ember nach jedem Scanvorgang die Datenbank säubern (Dateien die nicht mehr vorhanden sind werden aus der Datenbank entfernt).</string>
<string control="Core_chkAutoDetectVTS">Wenn aktiviert wird Ember versuchen VideoTS Verz. zu erkennen obwohl sie nicht so benannt sind. Wenn deaktiviert werden nur "VIDEO_TS" erkannt.</string>
- <string control="Core_chkSkipStackedSizeCheck">Wenn aktiviert wird Ember nur Dateien scannen die größer als die angegebene Größe sind.</string>
- <string control="Core_txtSkipLessThan">Ember wird Dateien die kleiner als die angegebene Größe sind beim scannen überspringen.</string>
- <string control="Core_txtTVSkipLessThan">Ember wird Dateien die kleiner als die angegebene Größe sind beim scannen überspringen.</string>
+ <string control="Core_chkSkipStackedSizeCheck">Wenn aktiviert wird Ember Dateien die kleiner sind als die minimale Grösse nicht überspringen wenn sie gestapelt sind (wie z.B. "CD1" oder "DVD2"</string>
+ <string control="Core_txtSkipLessThan">Ember wird Dateien die kleiner als die angegebene Größe sind beim scannen von Filmen überspringen.</string>
+ <string control="Core_txtTVSkipLessThan">Ember wird Dateien die kleiner als die angegebene Größe sind beim scannen von Episoden überspringen.</string>
<string control="Core_cbTrailerQuality">Wähle dein bevorzugtes Trailer Format.</string>
- <string control="Core_chkDeleteAllTrailers">If enabled, Ember will delete all existing trailers for the movie before saving the new one.</string>
+ <string control="Core_chkDeleteAllTrailers">Wenn aktiviert wird Ember alle existierenden Trailer löschen bevor der neue Trailer gespeichert wird.</string>
<string control="Core_chkOverwriteTrailer">Wenn aktiviert wird Ember Trailer beim speichern überschreiben.</string>
<string control="Core_chkNoDLTrailer">Wenn aktiviert werden keine Trailer heruntergeladen, es wird nur die URL in der NFO-Datei gespeichert.</string>
<string control="Core_chkSingleScrapeTrailer">Wenn aktiviert werden Trailer beim einzeln Scrapen gescraped.</string>
@@ -144,7 +144,7 @@
<string control="Core_chkAutoETSize">Wähle die Größe für Fanarts die als Extrathumbs gespeichert werden sollen.</string>
<string control="Core_cbAutoETSize">Wenn aktiviert werden automatisch alle Fanarts der angegebebnen Größe als Extrathumbs gespeichert.</string>
<string control="Core_txtETWidth">Verändere die Größe von Extrathumbs zu der angegebenen.</string>
- <string control="Core_txtETHeight">Verändere die Größe von Extrathumbs zu der angegebenen.</string>
+ <string control="Core_txtETHeight">Verändere die Größe von Extrathumbs auf die angegebene Grösse.</string>
<string control="Core_chkETPadding">Wenn aktiviert wird Ember schwarze Balken in den Extrathumbs erzeugen um die Größe zu erreichen.</string>
<string control="Core_rbETCustom">Verändere die Größe von Extrathumbs auf die angegebene.</string>
<string control="Core_rbETNative">Speichere Extrathumbs in ihrer ursprünglichen Größe.</string>
@@ -153,11 +153,11 @@
<string control="Core_ColumnHeader2">Die Liste aller angelegten Serien Quellverzeichnisse. (Verzeichnisse werden nach TV-Serien durchsucht)</string>
<string control="Core_ColumnHeader3">Die Liste aller angelegten Serien Quellverzeichnisse. (Verzeichnisse werden nach TV-Serien durchsucht)</string>
<string control="Core_chkTVScanOrderModify">Wenn aktiviert wird Ember neue Videos in der Reihenfolge des zuletzt geänderten Zeitraums einlesen, wenn deaktiviert legt Ember neue Dateien alphabetisch an.</string>
- <string control="Core_chkTVIgnoreLastScan">>Wenn aktiviert wird Ember die letzte Scanzeit beim lesen ignorieren. Wenn deaktiviert wird Ember nur Dateien einlesen die jünger als die letzte Scanzeit sind..</string>
- <string control="Core_chkTVCleanDB">Wenn aktiviert wird Ember nach jedem Scanvorgang die Datenbank säubern.</string>
- <string control="Core_btnAddTVSource">Fügt eine neue Quelle ein.</string>
- <string control="Core_btnEditTVSource">Die aktuelle Quelle editieren.</string>
- <string control="Core_btnRemTVSource">Die aktuelle Quelle aus der Liste löschen.</string>
+ <string control="Core_chkTVIgnoreLastScan">Wenn aktiviert wird Ember die letzte Scanzeit beim lesen ignorieren. Wenn deaktiviert wird Ember nur Dateien einlesen die jünger als die letzte Scanzeit sind.</string>
+ <string control="Core_chkTVCleanDB">Wenn aktiviert wird Ember nach jedem Scanvorgang die Datenbank säubern. (Entfernt Einträge deren Dateien nicht mehr vorhanden sind oder nicht mehr mit den Einstellungen übereinstimmen)</string>
+ <string control="Core_btnAddTVSource">Eine neue Filmquelle anlegen.</string>
+ <string control="Core_btnEditTVSource">Die gewählte Quelle editieren.</string>
+ <string control="Core_btnRemTVSource">Die gewählte Filmquelle(n) entfernen.</string>
<string control="Core_chkSeasonAllJPG">Das Alle-Staffeln Poster als "season-all.jpg" speichern.</string>
<string control="Core_chkSeasonAllTBN">Das Alle-Staffeln Poster als "season-all.tbn" speichern.</string>
<string control="Core_chkEpisodeDotFanart">Das Episoden Fanart Poster als "<episode>.fanart.jpg" speichern.</string>
@@ -187,8 +187,8 @@
<string control="Core_cboSeasonRetrieve">Wähle ob die Staffel anhand des Verzeichnis- oder Dateinamens erkannt werden soll.</string>
<string control="Core_txtEpRegex">Gib das Regex zum erkennen der Episoden Nummer ein.</string>
<string control="Core_cboEpRetrieve">Wähle ob die Nummer der Episode aus dem Dateinamen, Verzeichnisnamen oder dem Ergebnis der Staffel suche erkannt werden soll.</string>
- <string control="Core_btnEditShowRegex">Das gewählte Regex editieren.</string>
- <string control="Core_btnRemoveShowRegex">Das gewählte Regex aus der Liste löschen.</string>
+ <string control="Core_btnEditShowRegex">Das gewählte Serien Regex editieren.</string>
+ <string control="Core_btnRemoveShowRegex">Das gewählte Serien Regex aus der Liste löschen.</string>
<string control="Core_lvShowRegex">Die Liste der vorhandenen Serien Regex.</string>
<string control="Core_colRegID">Die Liste der vorhandenen Serien Regex.</string>
<string control="Core_colSeason">Die Liste der vorhandenen Serien Regex.</string>
@@ -207,70 +207,70 @@
<string control="Core_chkDisplayAllSeason">Wenn aktiviert und ein Alle-Staffeln-Poster vorhanden ist wird es rechts angezeigt.</string>
<string control="Core_cbRatingRegion">Wähle die Region der Bewertung/Altersfreigabe.</string>
<string control="Core_chkNoFilterEpisode">Wenn aktiviert wird Ember versuchen die Episodentitel zu filtern. Wenn deaktiviert wird Ember die Titel scrapen.</string>
- <string control="Core_btnEpFilterDown">Schiebe den gewählten Filter in der Liste oben unten. (Filter werden von oben nach unten abgearbeitet)</string>
+ <string control="Core_btnEpFilterDown">Schiebe den gewählten Filter in der Liste nach oben. (Filter werden von oben nach unten abgearbeitet)</string>
<string control="Core_btnEpFilterUp">Schiebe den gewählten Filter in der Liste nach unten. (Filter werden von oben nach unten abgearbeitet)</string>
<string control="Core_chkEpProperCase">Ändere die Episodentitel in Jedes-Wort-Groß. (z.B.: "the dark knight" wird "The Dark Knight")</string>
- <string control="Core_btnRemoveEpFilter">Entfernt den aktuellen Filter.</string>
- <string control="Core_btnAddEpFilter">Fügt den angegebenen Filter der Liste hinzu.</string>
- <string control="Core_txtEpFilter">Fügt den angegebenen Filter der Liste hinzu.</string>
+ <string control="Core_btnRemoveEpFilter">Entfernt den Filter von der Liste.</string>
+ <string control="Core_btnAddEpFilter">Fügt den Filter der Liste hinzu.</string>
+ <string control="Core_txtEpFilter">Gib einen Filter ein.</string>
<string control="Core_lstEpFilters">Die Liste aller gewählten Filter die zum filtern von Episodentitel verwendet werden.</string>
<string control="Core_btnShowFilterDown">Schiebe den gewählten Filter in der Liste nach oben. (Filter werden von oben nach unten abgearbeitet)</string>
<string control="Core_btnShowFilterUp">Schiebe den gewählten Filter in der Liste nach unten. (Filter werden von oben nach unten abgearbeitet)</string>
<string control="Core_chkShowProperCase">Ändere die Episodentitel in Jedes-Wort-Groß. (z.B.: "the dark knight" wird "The Dark Knight")</string>
- <string control="Core_btnRemoveShowFilter">Entfernt den aktuellen Filter.</string>
- <string control="Core_btnAddShowFilter">Fügt den angegebenen Filter der Liste hinzu.</string>
+ <string control="Core_btnRemoveShowFilter">Entfernt den Filter von der Liste.</string>
+ <string control="Core_btnAddShowFilter">Fügt den Filter der Liste hinzu.</string>
<string control="Core_txtShowFilter">Gib einen Filter ein.</string>
- <string control="Core_lstShowFilters">Die Liste aller Filter die benutzt werden um den Serientitel zu erkennen..</string>
+ <string control="Core_lstShowFilters">Die Liste aller Filter die benutzt werden um den Serientitel zu erkennen.</string>
<string control="Core_chkGetEnglishImages">Wenn aktiviert werden auch englische Bilder geladen - egal welche Sprache eingestellt ist.</string>
<string control="Core_chkOnlyTVImagesLanguage">Wenn aktiviert werden nur Bilder der gewählten Sprache geladen.</string>
- <string control="Core_txtShowPosterWidth">Verändere die Größe von Postern auf die angegebene.</string>
- <string control="Core_txtShowPosterHeight">Verändere die Größe von Postern auf die angegebene.</string>
+ <string control="Core_txtShowPosterWidth">Verändere die Größe von Postern auf die angegebene Breite.</string>
+ <string control="Core_txtShowPosterHeight">Verändere die Größe von Postern auf die angegebene Höhe.</string>
<string control="Core_tbShowPosterQual">Die Qualität von Postern (0 = Original Qualität)</string>
<string control="Core_chkResizeShowPoster">Postergröße verändern vor dem speichern</string>
<string control="Core_cbShowPosterSize">Wähle deinen Bevorzugten Serien Poster Typ. Während des Scrapens wird Ember versuchen ein Bild von diesem Typ zu laden.</string>
- <string control="Core_chkOverwriteShowPoster">Wenn aktiviert werden vorhandene Poster beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist..</string>
- <string control="Core_txtShowFanartWidth">Verändere die Größe von Serien Fanarts auf die angegebene.</string>
- <string control="Core_txtShowFanartHeight">Verändere die Größe von Serien Fanarts auf die angegebene.</string>
- <string control="Core_tbShowFanartQual">Die Qualität von Fanart Bildern (0 = Original Qualität)</string>
- <string control="Core_chkResizeShowFanart">Fanartgröße verändern vor dem speichern</string>
- <string control="Core_cbShowFanartSize">Wähle deine bevorzugte Größe von Serien Fanarts. Ember wird versuchen Poster in deiner gewünschten Größe zu scrapen, falls solche nicht verfügbar sind wird nach der nächst kleineren Größe gesucht.</string>
- <string control="Core_chkOverwriteShowFanart">Wenn aktiviert werden vorhandene Serien Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist..</string>
- <string control="Core_txtSeaPosterWidth">Verändere die Größe von Staffel Postern auf die angegebene.</string>
- <string control="Core_txtSeaPosterHeight">Verändere die Größe von Staffel Postern auf die angegebene.</string>
+ <string control="Core_chkOverwriteShowPoster">Wenn aktiviert werden vorhandene Poster beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist.</string>
+ <string control="Core_txtShowFanartWidth">Verändere die Größe von Serien Fanarts auf die angegebene Breite.</string>
+ <string control="Core_txtShowFanartHeight">Verändere die Größe von Serien Fanarts auf die angegebene Höhe.</string>
+ <string control="Core_tbShowFanartQual">Die Qualität von Serien Fanart (0 = Original Qualität)</string>
+ <string control="Core_chkResizeShowFanart">Fanartgröße verändern vor dem Speichern.</string>
+ <string control="Core_cbShowFanartSize">Wähle deine bevorzugte Größe von Episoden Fanarts. Ember wird versuchen Fanarts in deiner gewünschten Größe zu scrapen, falls solche nicht verfügbar sind wird nach der nächst kleineren Größe gesucht.</string>
+ <string control="Core_chkOverwriteShowFanart">Wenn aktiviert werden vorhandene Serien Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist.</string>
+ <string control="Core_txtSeaPosterWidth">Verändere die Größe von Serien Poster auf die angegebene Breite.</string>
+ <string control="Core_txtSeaPosterHeight">Verändere die Größe von Serien Poster auf die angegebene Höhe.</string>
<string control="Core_tbSeaPosterQual">Die Qualität von Staffel Postern (0 = Original Qualität)</string>
- <string control="Core_chkSeaResizePoster">Staffel Poster Größe verändern vor dem speichern</string>
+ <string control="Core_chkSeaResizePoster">Staffel Poster Größe verändern vor dem speichern.</string>
<string control="Core_cbSeaPosterSize">Wähle deine bevorzugte Größe von Staffel Postern. Ember wird versuchen Poster in deiner gewünschten Größe zu scrapen, falls solche nicht verfügbar sind wird nach der nächst kleineren Größe gesucht.</string>
- <string control="Core_chkSeaOverwritePoster">Wenn aktiviert werden vorhandene Staffel Poster beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist..</string>
- <string control="Core_txtSeaFanartWidth">Verändere die Größe von Staffel Fanart auf die angegebene.</string>
- <string control="Core_txtSeaFanartHeight">Verändere die Größe von Staffel Fanart auf die angegebene.</string>
+ <string control="Core_chkSeaOverwritePoster">Wenn aktiviert werden vorhandene Staffel Poster beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist.</string>
+ <string control="Core_txtSeaFanartWidth">Verändere die Größe von Staffel Fanarts auf die angegebene Breite.</string>
+ <string control="Core_txtSeaFanartHeight">Verändere die Größe von Episoden Fanart auf die angegebene Höhe.</string>
<string control="Core_tbSeaFanartQual">Die Qualität von Staffel Fanart (0 = Original Qualität)</string>
- <string control="Core_chkSeaResizeFanart">Staffel Fanart Größe verändern vor dem speichern</string>
- <string control="Core_cbSeaFanartSize">Wähle deine bevorzugte Größe von Staffel Fanarts. Ember wird versuchen Fanarts in deiner gewünschten Größe zu scrapen, falls solche nicht verfügbar sind wird nach der nächst kleineren Größe gesucht.</string>
- <string control="Core_chkSeaOverwriteFanart">Wenn aktiviert werden vorhandene Staffel Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist..</string>
- <string control="Core_txtEpPosterWidth">Verändere die Größe von Episoden Postern auf die angegebene.</string>
- <string control="Core_txtEpPosterHeight">Verändere die Größe von Episoden Postern auf die angegebene.</string>
+ <string control="Core_chkSeaResizeFanart">Staffel Fanart Größe verändern vor dem speichern.</string>
+ <string control="Core_cbSeaFanartSize">Wähle deine bevorzugte Größe von Episoden Fanarts. Ember wird versuchen Fanarts in deiner gewünschten Größe zu scrapen, falls solche nicht verfügbar sind wird nach der nächst kleineren Größe gesucht.</string>
+ <string control="Core_chkSeaOverwriteFanart">Wenn aktiviert werden vorhandene Staffel Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist.</string>
+ <string control="Core_txtEpPosterWidth">Verändere die Größe von Episoden Postern auf die angegebene Breite.</string>
+ <string control="Core_txtEpPosterHeight">Verändere die Größe von Episoden Postern auf die angegebene Höhe.</string>
<string control="Core_tbEpPosterQual">Die Qualität von Episoden Postern (0 = Original Qualität)</string>
<string control="Core_chkResizeEpPoster">Episoden Poster Größe verändern vor dem speichern</string>
- <string control="Core_chkOverwriteEpPoster">Wenn aktiviert werden vorhandene Episoden Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist..</string>
- <string control="Core_txtEpFanartWidth">Verändere die Größe von Episoden Fanart auf die angegebene.</string>
- <string control="Core_txtEpFanartHeight">Verändere die Größe von Episoden Fanart auf die angegebene.</string>
+ <string control="Core_chkOverwriteEpPoster">Wenn aktiviert werden vorhandene Episoden Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist.</string>
+ <string control="Core_txtEpFanartWidth">Verändere die Größe von Episoden Fanart auf die angegebene Breite.</string>
+ <string control="Core_txtEpFanartHeight">Verändere die Größe von Episoden Fanart auf die angegebene Höhe.</string>
<string control="Core_tbEpFanartQual">Die Qualität von Episoden Fanart (0 = Original Qualität)</string>
- <string control="Core_chkResizeEpFanart">Episoden Fanart Größe verändern vor dem speichern</string>
+ <string control="Core_chkResizeEpFanart">Episoden Fanart Größe verändern vor dem speichern.</string>
<string control="Core_cbEpFanartSize">Wähle deine bevorzugte Größe von Episoden Fanarts. Ember wird versuchen Fanarts in deiner gewünschten Größe zu scrapen, falls solche nicht verfügbar sind wird nach der nächst kleineren Größe gesucht.</string>
- <string control="Core_chkOverwriteEpFanart">Wenn aktiviert werden vorhandene Episoden Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist..</string>
+ <string control="Core_chkOverwriteEpFanart">Wenn aktiviert werden vorhandene Episoden Fanarts beim speichern überschrieben. Wenn nicht aktiviert wird das Poster nur gespeichert, wenn aktuell keines vorhanden ist.</string>
<string control="Core_chkScraperShowRating">Das Scrapen von TV-Serien Bewertungen einschalten.</string>
<string control="Core_chkScraperShowActors">Das Scrapen von TV-Serien Schauspielern einschalten.</string>
<string control="Core_chkScraperShowStudio">Das Scrapen von TV-Serien Studios einschalten.</string>
<string control="Core_chkScraperShowPremiered">Das Scrapen von TV-Serien Premiereterminen einschalten.</string>
<string control="Core_chkScraperShowEGU">Das Scrapen von EpisodenGuide URLs einschalten.</string>
<string control="Core_chkScraperShowMPAA">Das Scrapen von MPAA-Informationen einschalten.</string>
- <string control="Core_chkScraperShowPlot">Das Scrapen von TV-Serien Inhaltsangaben (=Plot) einschalten.</string>
- <string control="Core_chkScraperShowGenre">Das Scrapen von TV-Serien Genres einschalten.</string>
+ <string control="Core_chkScraperShowPlot">Das Scrapen von TV-Serien Inhaltsangaben einschalten.</string>
+ <string control="Core_chkScraperShowGenre">Das Scrapen von Genres einschalten.</string>
<string control="Core_chkScraperShowTitle">Das Scrapen von TV-Serien Titeln einschalten.</string>
<string control="Core_chkScraperEpActors">Das Scrapen von Episoden Schauspielern einschalten.</string>
<string control="Core_chkScraperEpCredits">Das Scrapen von Episoden Credits einschalten.</string>
<string control="Core_chkScraperEpDirector">Das Scrapen von Episoden Regisseuren einschalten.</string>
- <string control="Core_chkScraperEpPlot">Das Scrapen von Episoden Inhaltsangaben (=Plot) einschalten.</string>
+ <string control="Core_chkScraperEpPlot">Das Scrapen von Episoden Inhaltsangaben einschalten.</string>
<string control="Core_chkScraperEpRating">Das Scrapen von Episoden Bewertungen einschalten.</string>
<string control="Core_chkScraperEpAired">Das Scrapen von Episoden Austrahlungsterminen einschalten.</string>
<string control="Core_chkScraperEpTitle">Das Scrapen von Episoden Titeln einschalten.</string>
@@ -298,6 +298,7 @@
<string control="Core_cbTVLanguage">Wähle die bevorzugte Sprache in der nach Informationen und Bildern gesucht werden soll.</string>
<string control="Core_chkCertification">Das Scrapen von Altersbeschränkungen einschalten.</string>
<string control="Core_chkTop250">Das Scrapen von IMDB Top250 einschalten.</string>
+ <string control="Core_chkCountry">Das Scrapen von Ländern einschalten.</string>
<string control="Core_txtGenreLimit">Die Anzahl an gescrapeten Genres limitieren.</string>
<string control="Core_txtActorLimit">Die Anzahl an gescrapeten Schauspielern limitieren.</string>
<string control="Core_chkCrew">Das Scrapen von der restlichen Crew einschalten. ("Gesamte Crew Scrapen" muss eingeschaltet sein)</string>
@@ -305,28 +306,28 @@
<string control="Core_chkProducers">Das Scrapen von Produzenten einschalten. ("Gesamte Crew Scrapen" muss eingeschaltet sein)</string>
<string control="Core_chkWriters">Das Scrapen von Autoren einschalten.</string>
<string control="Core_chkStudio">Das Scrapen von Studios einschalten.</string>
- <string control="Core_chkRuntime">Das Scrapen von Spielzeiten (=Duration) einschalten.</string>
- <string control="Core_chkPlot">Das Scrapen von Inhaltsangaben (=Plot, Inhalt) einschalten.</string>
- <string control="Core_chkOutline">Das Scrapen von Kurzbeschreibungen (=Outline) einschalten.</string>
+ <string control="Core_chkRuntime">Das Scrapen von Spielzeiten einschalten.</string>
+ <string control="Core_chkPlot">Das Scrapen von Inhaltsangaben einschalten.</string>
+ <string control="Core_chkOutline">Das Scrapen von Kurzbeschreibungen einschalten.</string>
<string control="Core_chkGenre">Das Scrapen von Genres einschalten.</string>
<string control="Core_chkDirector">Das Scrapen von Regisseuren einschalten.</string>
<string control="Core_chkTagline">Das Scrapen von Taglines einschalten.</string>
<string control="Core_chkCast">Das Scrapen von Schauspielern einschalten.</string>
- <string control="Core_chkVotes">Das Scrapen von Anzahl Bewertungen (=Stimmen) einschalten.</string>
+ <string control="Core_chkVotes">Das Scrapen von Anzahl Bewertungen einschalten.</string>
<string control="Core_chkTrailer">Das Scrapen von Trailer URLs einschalten.</string>
<string control="Core_chkRating">Das Scrapen von Bewertungen einschalten.</string>
<string control="Core_chkRelease">Das Scrapen von Premiere-Daten einschalten.</string>
<string control="Core_chkMPAA">Das Scrapen von MPAA-Informationen einschalten.</string>
<string control="Core_chkYear">Das Scrapen von Filmjahren einschalten.</string>
<string control="Core_chkTitle">Das Scrapen von Filmtiteln einschalten.</string>
- <string control="Core_lstMetaData">Die Liste der Erweiterungen die einen Default Metadatensatz haben.</string>
- <string control="Core_txtDefFIExt">Gib eine Erweiterung für einen neuen default Metadatensatz ein.</string>
- <string control="Core_btnRemoveMetaDataFT">Die Default Metadaten der gewählten Erweiterung entfernen.</string>
- <string control="Core_btnEditMetaDataFT">Die Default Metadaten der gewählten Erweiterung editieren.</string>
- <string control="Core_btnNewMetaDataFT">Default Metadaten für die gewählte Erweiterung anlegen und der Liste der Default Metadatan hinzufügen.</string>
- <string control="Core_chkIFOScan">Wenn aktiviert werden Metadaten aus .IFO Dateien gelesen.</string>
+ <string control="Core_lstMetaData">Die Liste der Erweiterungen die einen Defaultmetadaten Eintrag haben.</string>
+ <string control="Core_txtDefFIExt">Gib eine Erweiterung ein.</string>
+ <string control="Core_btnRemoveMetaDataFT">Die Defaultmetadaten der gewählten Erweiterung entfernen.</string>
+ <string control="Core_btnEditMetaDataFT">Die gewählten Defaultmetadaten editieren.</string>
+ <string control="Core_btnNewMetaDataFT">Fügt die eingegebenen Defaultmetadaten der Liste hinzu.</string>
+ <string control="Core_chkIFOScan">Wenn aktiviert werden Metadaten aus *.IFO Dateien gelesen.</string>
<string control="Core_cbLanguages">Wenn ein Film die gewählte Sprache beinhaltet wird ein Overlay bei dem Audio Metadaten Symbol eingeblendet.</string>
- <string control="Core_txtRuntimeFormat">Wähle das Format für die Spielzeit von Filmen gescannt aus den Metadaten.</string>
+ <string control="Core_txtRuntimeFormat">Wähle das Format für die Spielzeit von Filmen gescannt aus den Metadaten. Benutze <0m> um die Minuten auzufüllen.</string>
<string control="Core_chkScanMediaInfo">Wenn aktiviert werden Metadaten aus den Dateien gescannt.</string>
<string control="Core_chkUseMIDuration">Benutze die Spielzeit aus den Metadaten als Filmlänge.</string>
<string control="Core_chkLockOutline">Wenn aktiviert wird die Kurzbeschreibung nur verändert wenn sie leer ist.</string>
@@ -335,7 +336,7 @@
<string control="Core_chkLockGenre">Wenn aktiviert werden das Genre nicht verändert sofern mindestens eins zugewiesen ist.</string>
<string control="Core_chkLockRealStudio">Wenn aktiviert wird das Studio nicht verändert sofern eines vorhanden ist.</string>
<string control="Core_chkLockRating">Wenn aktiviert wird die Bewertung nicht verändert sofern eine vorhanden ist.</string>
- <string control="Core_chkLockTagline">Wenn aktiviert wird die Tagline nicht verändert sofern sie nicht leer ist.</string>
+ <string control="Core_chkLockTagline">Wenn aktiviert wird der Titel nicht verändert sofern er nicht leer ist.</string>
<string control="Core_chkLockTitle">Wenn aktiviert wird der Titel nicht verändert sofern er nicht leer ist.</string>
<string control="Core_cbForce">Wähle die Region die benutzt werden soll im Titel in der eigenen Sprache zu erhalten.</string>
<string control="Core_chkForceTitle">Wenn aktiviert wird Ember nach Filmtiteln in der gewählten Sprache suchen. Dies ist Hilfreich um Titel in der eigenen Sprache bei Fremdsprachigen Filmen zu erhalten.</string>
@@ -357,5 +358,10 @@
<string control="Core_btnResetMovieFilters">Dies wird die Film Filter wieder auf den Standard zurücksetzen. WARNUNG: Dies WIRD jegliche eigene Änderung löschen.</string>
<string control="Core_btnResetValidExts">Dies wird die Liste der gültigen Erweiterungen wieder auf den Standard zurücksetzen. WARNUNG: Dies WIRD jegliche eigene Änderung löschen.</string>
<string control="Core_ResetShowRegex">Dies wird die Serien RegEx wieder auf den Standard zurücksetzen. WARNUNG: Dies WIRD jegliche eigene Änderung löschen.</string>
+ <string control="Core_chkClickScrape">Aktiviere Click-Scrape im Hauptmenü beim Anklicken der Tabellen-Markierungen.</string>
+ <string control="Core_chkSpecialDateAdd">Wenn aktiviert wird beim Einlesen von Filmen in die Datenbank, das Erstelldatum der Videodatei berücksichtigt statt das aktuelle Datum. Dadurch wird die Sortierung der neuesten Filme zuverlässig und unabhängig von der Datenbank!</string>
+ <string control="Core_chkLockLanguageV">Wenn aktiviert wird das Sprachfeld (Video Metadata) nicht aktualisiert.</string>
+ <string control="Core_chkLockLanguageA">Wenn aktiviert wird das Sprachfeld (Audio Metadata) nicht aktualisiert.</string>
+ <string control="Core_chkLockMPAA">Wenn aktiviert wird die Altersfreigabe nicht aktualisiert.</string>
+ <string control="Core_chkUseMPAAFSK">Wenn aktiviert werden die MPAA Freigabewerte in FSK konvertiert falls keine FSK Freigabe gefunden wird. Priorität: FSK -> MPAA</string>
</strings>
-<!-- Rev2123 -->
diff --git a/Ember Media Manager/Langs/German_(de_DE).xml b/Ember Media Manager/Langs/German_(de_DE).xml
index 458fdde..9c0000e 100644
--- a/Ember Media Manager/Langs/German_(de_DE).xml
+++ b/Ember Media Manager/Langs/German_(de_DE).xml
@@ -1,4 +1,3 @@
-<?xml version="1.0" encoding="utf-8"?>
<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<string id="1">&Datei</string>
<string id="2">Beenden</string>
@@ -18,7 +17,7 @@
<string id="16">Staffel Ergebnis</string>
<string id="17">C&ache leeren</string>
<string id="18">Al&le Filme neu laden</string>
- <string id="19">Exit</string>
+ <string id="19">Schliessen</string>
<string id="20">Genres</string>
<string id="21">Titel</string>
<string id="22">Neu laden</string>
@@ -30,13 +29,13 @@
<string id="28">Hinzufügen</string>
<string id="29">Setzen</string>
<string id="30">Entfernen</string>
- <string id="31">Film Re-Scrapen</string>
+ <string id="31">Ausgewählte Filme (Re)Scrapen</string>
<string id="32">Film wechseln</string>
<string id="33">Beinhaltendes Verzeichnis öffnen</string>
<string id="34">Film löschen</string>
<string id="35">Alle markieren</string>
<string id="36">Filme</string>
- <string id="37">Filter aus</string>
+ <string id="37">Filter löschen</string>
<string id="38">Generell</string>
<string id="39">Intolerant</string>
<string id="40">Unvollständige</string>
@@ -52,7 +51,7 @@
<string id="50">Quelle:</string>
<string id="51">Genre:</string>
<string id="52">Filter</string>
- <string id="53">Scraper Abbrechen...</string>
+ <string id="53">Scraper wird abbgebrochen...</string>
<string id="54">Scraper Abbrechen</string>
<string id="55">Keine Informationen über diesen Film verfügbar</string>
<string id="56">Altersfreigabe</string>
@@ -98,7 +97,7 @@
<string id="96">Nur gesperrte Filme anzeigen.</string>
<string id="97">Nur Filme der gewählten Quelle anzeigen.</string>
<string id="98">Genre wählen...</string>
- <string id="99">Speichere Daten und beende..</string>
+ <string id="99">Breche alle Prozesse ab...</string>
<string id="100">Schauspieler</string>
<string id="101">Bist du sicher, dass du fortfahren möchtest?</string>
<string id="102">WARNUNG: Wenn du fortfährst werden alle nicht erlaubten Dateitypen gelöscht!</string>
@@ -122,10 +121,10 @@
<string id="120">Dateinamensäuberung abbrechen</string>
<string id="121">Breche Backdrop Kopiervorgang ab</string>
<string id="122">Kopiervorgang abbrechen</string>
- <string id="123">reset</string>
- <string id="124">speichern</string>
- <string id="125">Breche Scraper ab...</string>
- <string id="126">Scraper stoppen</string>
+ <string id="123">leeren</string>
+ <string id="124">Reguläre Ausdrücke aktualisieren</string>
+ <string id="125">Scraper wird abbgebrochen...</string>
+ <string id="126">Scraper Abbrechen</string>
<string id="127">Scrape Medien (Alle Filme - Fragen):</string>
<string id="128">Scrape Medien (Alle Filme - Automatisch):</string>
<string id="129">Dateinamen säubern:</string>
@@ -141,10 +140,10 @@
<string id="139">Scrapen:</string>
<string id="140">Metadata scannen:</string>
<string id="141">Keine Daten aus dem Internet verfügbar, bitte Internetverbindung prüfen und erneut versuchen.</string>
- <string id="142">Fehler beim herunterladen der Details.</string>
+ <string id="142">Fehler beim Herunterladen der Details.</string>
<string id="143">Nur {0} aktualisieren</string>
- <string id="144">Aktualisieren</string>
- <string id="145">Nur</string>
+ <string id="144">Update</string>
+ <string id="145">Nur</string>
<string id="146">Staffel (Re)Scrapen</string>
<string id="147">Episode (Re)Scrapen</string>
<string id="148">Poster</string>
@@ -163,7 +162,7 @@
<string id="161">Bitte gebe eine URL zur Prüfung ein.</string>
<string id="162">Keine Thumb URL eingegeben</string>
<string id="163">Film (Re)Scrapen</string>
- <string id="164">(Re)Scrape gewählten Film</string>
+ <string id="164">Ausgewählte Filme (Re)Scrapen</string>
<string id="165">Erstelle Filmliste...</string>
<string id="166">Erstellung abbrechen...</string>
<string id="167">Abbruch</string>
@@ -172,7 +171,7 @@
<string id="170">Sperre aufheben</string>
<string id="171">Name:</string>
<string id="172">Beschreibung:</string>
- <string id="173">Erweiterungs Version:</string>
+ <string id="173">Addon Version:</string>
<string id="174">Verzeichnis</string>
<string id="175">Dateiname</string>
<string id="176">Neues Verzeichnis</string>
@@ -189,10 +188,10 @@
<string id="187">&Formatieren</string>
<string id="188">&Parsen</string>
<string id="189">&Speichern</string>
- <string id="190">NFO Editor | </string>
+ <string id="190">NFO Editor |</string>
<string id="191">Dies ist kein gültiges XML-Dokument</string>
<string id="192">Datei ist nicht gültig.</string>
- <string id="193">Datei ist gültig</string>
+ <string id="193">Datei ist gültig.</string>
<string id="194">Nicht gültig</string>
<string id="195">Gültig</string>
<string id="196">Möchtest du die Änderungen speichern?</string>
@@ -218,7 +217,7 @@
<string id="216">Verzeichnis wählen und "Los" drücken</string>
<string id="217">Pfad zum sortieren:</string>
<string id="218">Wählen den Pfad in dem sich die Dateien zum sortieren befinden.</string>
- <string id="219">Verschiebe </string>
+ <string id="219">Verschiebe</string>
<string id="220">WARNUNG: Wenn du fortfährst werden alle Dateien in separate Verzeichnisse verschoben.</string>
<string id="221">Der eingegebene Pfad existiert nicht. Bitte wähle einen gültigen.</string>
<string id="222">Verzeichnis nicht gefunden</string>
@@ -266,20 +265,20 @@
<string id="264">Cache leeren</string>
<string id="265">Poster wechseln (Herunterladen)</string>
<string id="266">Fanart wechseln (Herunterladen)</string>
- <string id="267">Master.eLang.GetString(148, "Ein oder mehrere Ressources sind in Benutzung und können derzeit nicht gelöscht werden</string>
+ <string id="267">Ein oder mehrere Ressources sind in Benutzung und können derzeit nicht gelöscht werden.</string>
<string id="268">Konnte Cache nicht leeren</string>
<string id="269">Größe: {0}x{1}</string>
<string id="270">Trailer konnte nicht gestartet werden. Dies könnte an einer Fehlerhaften URI oder an deinem Player liegen.</string>
<string id="271">Fehler bei der Wiedergabe</string>
- <string id="272">Erweiterungs Datei</string>
+ <string id="272">Addon Datei</string>
<string id="273">Speichern</string>
<string id="274">Zurücksetzen</string>
<string id="275">Filter</string>
<string id="276">Übernehmen</string>
- <string id="277">Neu</string>
+ <string id="277">Neues Addon</string>
<string id="278">Jahr</string>
- <string id="279">Erweiterung Edit. - </string>
- <string id="280">Erweiterungs Dateien</string>
+ <string id="279">Bearbeite Addon</string>
+ <string id="280">Addon Dateien</string>
<string id="281">Video</string>
<string id="282">Audio</string>
<string id="283">Unbekannt</string>
@@ -293,77 +292,77 @@
<string id="291">Templates</string>
<string id="292">Ungültiger Eintrag</string>
<string id="293">Sonstiges</string>
- <string id="294">Neu</string>
+ <string id="294">Neues erstellen</string>
<string id="295">Erweiterung löschen</string>
- <string id="296">Um mit dem Löschen fortzufahren musst du bestätigen, dass du der Besitzer dieser Erweiterung bist</string>
+ <string id="296">Um mit dem Löschen fortzufahren musst du bestätigen, dass du der Besitzer dieser Erweiterung bist.</string>
<string id="297">Besitz Bestätigen</string>
<string id="298">Ember Media Manager neu starten?</string>
- <string id="299">Die Änderungen benötigen einen Neustart von Ember\n\nMöchtest du jetzt neu starten?</string>
+ <string id="299">Die Änderungen benötigen einen Neustart von Ember.\n\nMöchtest du jetzt neu starten?</string>
<string id="300">Ja</string>
<string id="301">Land</string>
<string id="302">Originaltitel</string>
- <string id="303"></string>
- <string id="304"></string>
- <string id="305"></string>
- <string id="306"></string>
- <string id="307"></string>
- <string id="308"></string>
- <string id="309"></string>
- <string id="310"></string>
- <string id="311"></string>
- <string id="312"></string>
- <string id="313"></string>
- <string id="314"></string>
- <string id="315"></string>
- <string id="316"></string>
- <string id="317"></string>
- <string id="318"></string>
- <string id="319"></string>
- <string id="320"></string>
- <string id="321"></string>
+ <string id="303"/>
+ <string id="304"/>
+ <string id="305"/>
+ <string id="306"/>
+ <string id="307"/>
+ <string id="308"/>
+ <string id="309"/>
+ <string id="310"/>
+ <string id="311"/>
+ <string id="312"/>
+ <string id="313"/>
+ <string id="314"/>
+ <string id="315"/>
+ <string id="316"/>
+ <string id="317"/>
+ <string id="318"/>
+ <string id="319"/>
+ <string id="320"/>
+ <string id="321"/>
<string id="322">Sehr groß</string>
<string id="323">Groß</string>
<string id="324">Mittel</string>
<string id="325">Klein</string>
- <string id="326"></string>
- <string id="327"></string>
- <string id="328"></string>
- <string id="329"></string>
- <string id="330"></string>
- <string id="331"></string>
- <string id="332"></string>
- <string id="333"></string>
- <string id="334"></string>
- <string id="335"></string>
- <string id="336"></string>
- <string id="337"></string>
- <string id="338"></string>
- <string id="339"></string>
- <string id="340"></string>
- <string id="341"></string>
- <string id="342"></string>
- <string id="343"></string>
- <string id="344"></string>
- <string id="345"></string>
- <string id="346"></string>
- <string id="347"></string>
- <string id="348"></string>
- <string id="349"></string>
- <string id="350">DVD</string>
+ <string id="326"/>
+ <string id="327"/>
+ <string id="328"/>
+ <string id="329"/>
+ <string id="330"/>
+ <string id="331"/>
+ <string id="332"/>
+ <string id="333"/>
+ <string id="334"/>
+ <string id="335"/>
+ <string id="336"/>
+ <string id="337"/>
+ <string id="338"/>
+ <string id="339"/>
+ <string id="340"/>
+ <string id="341"/>
+ <string id="342"/>
+ <string id="343"/>
+ <string id="344"/>
+ <string id="345"/>
+ <string id="346"/>
+ <string id="347"/>
+ <string id="348"/>
+ <string id="349"/>
+ <string id="350">DVD</string>
<string id="351">Ungültig</string>
- <string id="352"></string>
- <string id="353"></string>
- <string id="354"></string>
+ <string id="352"/>
+ <string id="353"/>
+ <string id="354"/>
<string id="355">Existiert</string>
- <string id="356"></string>
- <string id="357"></string>
- <string id="358"></string>
- <string id="359"></string>
- <string id="360"></string>
+ <string id="356"/>
+ <string id="357"/>
+ <string id="358"/>
+ <string id="359"/>
+ <string id="360"/>
<string id="361">Fertiggestellt</string>
<string id="362">Alles fertiggestellt</string>
- <string id="363"></string>
- <string id="364"></string>
+ <string id="363"/>
+ <string id="364"/>
<string id="365">Sets Manager</string>
<string id="366">Sets</string>
<string id="367">Filme im Set</string>
@@ -371,23 +370,23 @@
<string id="369">Lade Filme und Sets...</string>
<string id="370">Breche laden ab...</string>
<string id="371">Filme zu Filmboxen hinzufügen.</string>
- <string id="372"></string>
+ <string id="372"/>
<string id="373">Herunterladen</string>
- <string id="374"></string>
- <string id="375"></string>
- <string id="376"></string>
- <string id="377"></string>
- <string id="378"></string>
- <string id="379"></string>
- <string id="380"></string>
- <string id="381"></string>
- <string id="382"></string>
- <string id="383"></string>
+ <string id="374"/>
+ <string id="375"/>
+ <string id="376"/>
+ <string id="377"/>
+ <string id="378"/>
+ <string id="379"/>
+ <string id="380"/>
+ <string id="381"/>
+ <string id="382"/>
+ <string id="383"/>
<string id="384">Benutzerdefinierter Scraper</string>
<string id="385">Benutzerdefinierten Scraper erstellen</string>
<string id="386">Auswahl Filter</string>
<string id="387">Update Modus</string>
- <string id="388">Modi</string>
+ <string id="388">Modifikator</string>
<string id="389">Starten</string>
<string id="390">Optionen</string>
<string id="391">Sonstige Crew</string>
@@ -395,7 +394,7 @@
<string id="393">Produzenten</string>
<string id="394">Autoren</string>
<string id="395">Studio</string>
- <string id="396">Länge</string>
+ <string id="396">Laufzeit</string>
<string id="397">Tagline</string>
<string id="398">Schauspieler</string>
<string id="399">Anz. Stimmen</string>
@@ -406,7 +405,7 @@
<string id="404">Weiter ></string>
<string id="405">Willkommen beim EMM</string>
<string id="406">TIPP: Auswählen, die den Text <movie> beinhalten, werden den Filmdatei-Namen verwenden.</string>
- <string id="407">Hinzufügen</string>
+ <string id="407">Quelle hinzufügen</string>
<string id="408">Das war nicht schwer, oder? Wie bereits erwähnt können die Einstellungen jederzeit im Einstellungs-Fenster verändert werden.</string>
<string id="409">Das war alles!{0}Ember Media Manager ist jetzt bereit!</string>
<string id="410">Pfad</string>
@@ -414,21 +413,21 @@
<string id="412">Verzeichnisnamen benutzen</string>
<string id="413">Einzelner Film</string>
<string id="414">Zuerst solltest du Ember Media Manager mitteilen wo sich deine Filme befinden. Erzeuge eine neue Quelle und trage dort das Quellverzeichnis ein. Du kannst soviele Quellen anlegen wie du möchtest.</string>
- <string id="415">Du startest entweder Ember zum ersten mal oder hast ein Upgrade auf eine neue Version durchgeführt. Da sind ein paar Dinge die Ember noch von dir wissen muss. {0}Dieser Assistent wird dich durch die Einstellungen begleiten um sich deinen Wünschen und Gegebenheiten anzupassen.{0}{0}In diesem Assistent werden nur die wichtigsten Einstellungen angeboten, du kannst diese und andere Einstellungen jederzeit im "Einstellungen..." Dialog unter dem "Bearbeiten" Menüpunkt verändern.</string>
+ <string id="415">Du startest entweder Ember zum ersten mal oder hast ein Upgrade auf eine neue Version durchgeführt. Da sind ein paar Dinge die Ember noch von dir wissen muss. Dieser Assistent wird dich durch die Einstellungen begleiten um sich deinen Wünschen und Gegebenheiten anzupassen.{0}{0}In diesem Assistent werden nur die wichtigsten Einstellungen angeboten, du kannst diese und andere Einstellungen jederzeit im "Einstellungen..." Dialog unter dem "Bearbeiten" Menüpunkt verändern.</string>
<string id="416">Jetzt, wo Ember Media Manager weiß, WO er nach den Dateien schauen muss, brauchen wir ihm nur noch sagen, WONACH er suchen soll. Bitte wähle eine Kombination aus Dateitypen nach denen Ember Media Manager suchen und in welchen er speichern soll. Du kannst in jeder Sektion natürlich mehrere auswählen.</string>
<string id="417">Einige Optionen, die dich noch interessieren könnten:{0}{0}Benutzerdefinierte Filter - Wenn deine Dateinamen oder Verzeichnisse Tags wie "DVDRip", BluRay", "x264", etc. beinhalten, du diese aber beim lesen herausfiltern möchtest, kannst du Benutzerdefinierte Reguläre-Ausdrücke (RegExp) verwenden.{0}{0}Bilder - Diese Sektion erlaubt die Wahl, welche Webseiten zum "Scrapen" verwendet werden, sowie was deine bevorzugte Bildgröße ist.{0}{0}Sperren - In dieser Sektion wird es dir ermöglicht bestimmte Informationen zu sperren, was bedeutet, dass diese Informationen - selbst beim Re-scrapen - nicht automatisch verändert werden. Dies ist besonders hilfreich, wenn du den Titel, Inhalt oder die Kurzbeschreibung manuell editiert hast.</string>
<string id="418">Bist du sicher, dass du die gewählte Quelle entfernen möchtest? Dies wird alle Filme der gewählten Quelle aus der Datenbank entfernen</string>
<string id="419">Es sind keine Metadaten für diesen Film verfügbar.</string>
<string id="420">Einstellungen</string>
<string id="421">Kommunikation</string>
- <string id="422"></string>
- <string id="423"></string>
- <string id="424"></string>
+ <string id="422"/>
+ <string id="423"/>
+ <string id="424"/>
<string id="425">Benutzer:</string>
<string id="426">Passwort:</string>
- <string id="427"></string>
- <string id="428"></string>
- <string id="429">Gemischtes</string>
+ <string id="427"/>
+ <string id="428"/>
+ <string id="429">Diverses</string>
<string id="430">Sprache:</string>
<string id="431">Panel Animation einschalten</string>
<string id="432">Automatisch nach Updates suchen</string>
@@ -444,12 +443,12 @@
<string id="442">WARNUNG: Der Experten-Modus könnte auch erwünschte Dateien löschen!</string>
<string id="443">Erweiterungen laden...</string>
<string id="444">Datei</string>
- <string id="445"></string>
- <string id="446"></string>
+ <string id="445"/>
+ <string id="446"/>
<string id="447">Lade Dateien herunter...</string>
- <string id="448"></string>
- <string id="449"></string>
- <string id="450"></string>
+ <string id="448"/>
+ <string id="449"/>
+ <string id="450"/>
<string id="451">Pfad-/Dateiname Filter</string>
<string id="452">Jedes Wort groß schreiben</string>
<string id="453">Immer Genre-Text anzeigen</string>
@@ -473,20 +472,20 @@
<string id="471">Datei Benennung</string>
<string id="472">Benutze <movie> nur für Verz. mit mehreren Filmen</string>
<string id="473">YAMJ Kompatible VIDEO_TS Datei Sortierung/Benennung</string>
- <string id="474"></string>
- <string id="475"></string>
- <string id="476"></string>
- <string id="477"></string>
+ <string id="474">Frodo Kompatible VIDEO_TS Datei Sortierung/Benennung</string>
+ <string id="475"/>
+ <string id="476"/>
+ <string id="477"/>
<string id="478">Poster Qualität:</string>
<string id="479">Max Breite:</string>
<string id="480">Max Höhe:</string>
<string id="481">Größe automatisch verändern:</string>
- <string id="482">Bevorzugte Größe</string>
+ <string id="482">Bevorzugte Größe:</string>
<string id="483">Existierende überschreiben</string>
<string id="484">Lade Einstellungen...</string>
- <string id="485"></string>
- <string id="486"></string>
- <string id="487"></string>
+ <string id="485"/>
+ <string id="486"/>
+ <string id="487"/>
<string id="488">Globales sperren</string>
<string id="489">Trailer sperren</string>
<string id="490">Genre sperren</string>
@@ -494,8 +493,8 @@
<string id="492">Bewertung sperren</string>
<string id="493">Tagline sperren</string>
<string id="494">Titel sperren</string>
- <string id="495">Kurzbeschr. sperren</string>
- <string id="496">Beschreibung sperren</string>
+ <string id="495">Kurzbeschreibung sperren</string>
+ <string id="496">Handlung sperren</string>
<string id="497">Bilder</string>
<string id="498">URLs nicht in Nfo speichern</string>
<string id="499">Beim Einzelscrapen holen</string>
@@ -508,33 +507,33 @@
<string id="506">Anzahl:</string>
<string id="507">Beim scrapen extrahieren</string>
<string id="508">Benutze Kurzbeschr. falls Beschr. nicht vorhanden</string>
- <string id="509"></string>
+ <string id="509"/>
<string id="510">Nur Schauspieler mit Bild berücksichtigen</string>
<string id="511">FSK berücksichtigen</string>
<string id="512">Alle Schauspieler (Cast)</string>
<string id="513">Alle Mitarbeiter (Crew)</string>
<string id="514">Altersfreigaben Region:</string>
- <string id="515">Lautzeit Format</string>
+ <string id="515">Laufzeit Format</string>
<string id="516">Benutze Spielzeit als Länge</string>
<string id="517">Metadaten scannen</string>
<string id="518">Verändert Embers Aussehen und Verhalten</string>
- <string id="519">Entfernen</string>
+ <string id="519">Markierte entfernen</string>
<string id="520">Backdrops Verzeichnis</string>
<string id="521">Speichere automatisch Fanart im Backdrops-Verz.</string>
<string id="522">Alle vorhandenen überschreiben</string>
- <string id="523"></string>
+ <string id="523"/>
<string id="524">Nur URLs holen beim Scrapen</string>
<string id="525">Hole beim einzelnen Scrapen</string>
- <string id="526"></string>
+ <string id="526"/>
<string id="527">Hole beim automatischen Scrapen</string>
- <string id="528"></string>
+ <string id="528"/>
<string id="529">Trailer Supp. aktivieren</string>
<string id="530">Erweiter. nicht stapeln</string>
- <string id="531"></string>
- <string id="532"></string>
- <string id="533"></string>
+ <string id="531"/>
+ <string id="532"/>
+ <string id="533"/>
<string id="534">Gültige Video Erweiterungen</string>
- <string id="535">Editieren</string>
+ <string id="535">Quelle editieren</string>
<string id="536">Diverse Optionen</string>
<string id="537">Erkenne VIDEO_TS Verzeichnisse</string>
<string id="538">auch bei gestapelten Dateien</string>
@@ -544,8 +543,8 @@
<string id="542">Rahmen</string>
<string id="543">Breite:</string>
<string id="544">Höhe:</string>
- <string id="545">Benutzerdef. Größe</string>
- <string id="546">Native Größe</string>
+ <string id="545">Benutze benutzerdef. Größe</string>
+ <string id="546">Benutze native Größe</string>
<string id="547">Caching</string>
<string id="548">Mehrfach Scrapen</string>
<string id="549">Neue TV-Serien "fest" markieren</string>
@@ -553,21 +552,21 @@
<string id="551">Image Cache benutzen</string>
<string id="552">Wähle das Verzeichnis für die Backdrops</string>
<string id="553">Datei Einstellungen</string>
- <string id="554"></string>
+ <string id="554"/>
<string id="555">Dateien und Quellen</string>
<string id="556">Scraper - Daten</string>
- <string id="557">Scraper - Bilder</string>
+ <string id="557">Scraper - Bilder & Trailer</string>
<string id="558">Banner</string>
- <string id="559"></string>
- <string id="560"></string>
- <string id="561"></string>
- <string id="562"></string>
- <string id="563"></string>
- <string id="564"></string>
- <string id="565"></string>
- <string id="566"></string>
- <string id="567"></string>
- <string id="568">Schauspl.Cache aktivieren:</string>
+ <string id="559"/>
+ <string id="560"/>
+ <string id="561"/>
+ <string id="562"/>
+ <string id="563"/>
+ <string id="564"/>
+ <string id="565"/>
+ <string id="566"/>
+ <string id="567"/>
+ <string id="568">Generiere Schauspl. Cache:</string>
<string id="569">Alle</string>
<string id="570">[keine]</string>
<string id="571">[Deaktiviert]</string>
@@ -578,7 +577,7 @@
<string id="576">Überprüfe Filmdetails:</string>
<string id="577">Scrape Felder - Global</string>
<string id="578">Limit:</string>
- <string id="579">Tags:</string>
+ <string id="579">Datei Quelle</string>
<string id="580">Zeige nur Filme der gewählten Quelle.</string>
<string id="581">Fehlende Einträge Filter</string>
<string id="582">Prüfe Poster</string>
@@ -587,12 +586,12 @@
<string id="585">Prüfe Trailer</string>
<string id="586">Prüfe Untertit.</string>
<string id="587">Prüfe Extrathumbs</string>
- <string id="588"></string>
- <string id="589"></string>
- <string id="590"></string>
+ <string id="588"/>
+ <string id="589"/>
+ <string id="590"/>
<string id="591">Top 250</string>
- <string id="592"></string>
- <string id="593"></string>
+ <string id="592"/>
+ <string id="593"/>
<string id="594">Metadaten Editor</string>
<string id="595">Video Streams</string>
<string id="596">Audio Streams</string>
@@ -607,8 +606,8 @@
<string id="605">Scan Type</string>
<string id="606">Breite</string>
<string id="607">Höhe</string>
- <string id="608">Verhä.</string>
- <string id="609">Länge</string>
+ <string id="608">Seitenverhältnis</string>
+ <string id="609">Dauer</string>
<string id="610">Sprache</string>
<string id="611">Kanäle</string>
<string id="612">Bevorzugt</string>
@@ -618,38 +617,38 @@
<string id="616">Progressive</string>
<string id="617">Video Stream</string>
<string id="618">Audio Stream</string>
- <string id="619">Untert. Stream</string>
+ <string id="619">Untertitel Stream</string>
<string id="620">Movie Theme</string>
<string id="621">Neue Episoden "fest" markieren</string>
- <string id="622">Medien Scrapen (Fragen):</string>
- <string id="623">Medien Scrapen (Automatisch):</string>
+ <string id="622">Medien Scrapen (Aktueller Filter - Fragen)</string>
+ <string id="623">Medien Scrapen (Aktueller Filter - Automatisch)</string>
<string id="624">Aktueller Filter</string>
<string id="625">Standard nach Dateityp</string>
<string id="626">Dateityp</string>
<string id="627">Gewählte Einträge: {0}</string>
<string id="628">IFO Parsing einschalten</string>
<string id="629">Themes</string>
- <string id="630"></string>
- <string id="631"></string>
- <string id="632"></string>
- <string id="633"></string>
- <string id="634"></string>
+ <string id="630"/>
+ <string id="631"/>
+ <string id="632"/>
+ <string id="633"/>
+ <string id="634"/>
<string id="635">Du hast {0} Verzeichnisse zum öffnen gewählt. Bist du Sicher?</string>
- <string id="636"></string>
- <string id="637"></string>
- <string id="638"></string>
- <string id="639"></string>
- <string id="640"></string>
- <string id="641"></string>
- <string id="642">Sort. Titel</string>
+ <string id="636"/>
+ <string id="637"/>
+ <string id="638"/>
+ <string id="639"/>
+ <string id="640"/>
+ <string id="641"/>
+ <string id="642">Sortier Titel</string>
<string id="643">YAMJ Kompatibles speichern</string>
<string id="644">Säubere Datenbank...</string>
<string id="645">Premiere: {0}</string>
- <string id="646">Aus der Datenbank entfernen</string>
+ <string id="646">Aus Datenbank entfernen</string>
<string id="647">Ausgestrahlt: {0}</string>
<string id="648">Staffel: {0}, Episode: {1}</string>
<string id="649">Alle aktualisieren</string>
- <string id="650">Staffel</string>
+ <string id="650">Staffel </string>
<string id="651">Keine Informationen über diese Serie vorhanden</string>
<string id="652">Keine Informationen über diese Episode vorhanden</string>
<string id="653">TV Serien</string>
@@ -663,11 +662,11 @@
<string id="661">Episode Laden</string>
<string id="662">Als Poster speichern</string>
<string id="663">Serie Editieren</string>
- <string id="664">Die Details der gewählten Serie editieren.</string>
+ <string id="664">TV Serien Theme</string>
<string id="665">Premiere:</string>
<string id="666">TV Serien Theme</string>
<string id="667">Episode Theme</string>
- <string id="668">Datenbank nach Update säubern</string>
+ <string id="668">Datenbank nach Bibliotheksaktualisierung säubern</string>
<string id="669">Letzte Scanzeit beim Update ignorieren</string>
<string id="670">Serien Verzeichnis/Datei Filter</string>
<string id="671">Episoden Verzeichnis/Datei Filter</string>
@@ -688,8 +687,8 @@
<string id="686">Staffel Fanart</string>
<string id="687">Episoden Poster</string>
<string id="688">Episoden Fanart</string>
- <string id="689"> [FEHLT]</string>
- <string id="690">Editieren</string>
+ <string id="689">[FEHLT]</string>
+ <string id="690">Edit Regex</string>
<string id="691">Serien Match Regex</string>
<string id="692">Staffel Match Regex:</string>
<string id="693">Episode Match Regex:</string>
@@ -701,12 +700,12 @@
<string id="699">Regex</string>
<string id="700">Serie</string>
<string id="701">Episode</string>
- <string id="702"></string>
- <string id="703"></string>
- <string id="704"></string>
+ <string id="702"/>
+ <string id="703"/>
+ <string id="704"/>
<string id="705">Serien Quelle</string>
<string id="706">Wähle das Serien Verzeichnis</string>
- <string id="707">IMDB Bewertung</string>
+ <string id="707"/>
<string id="708">Spende</string>
<string id="709">Datenbank säubern</string>
<string id="710">Nur Titel der Sprache:</string>
@@ -762,7 +761,7 @@
<string id="760">Lade Serien Zip:</string>
<string id="761">Prüfe Serie:</string>
<string id="762">Prüfe Episode:</string>
- <string id="763">Bist du sicher, dass du die gewählte Serie und alle enthaltenen Episoden löschen möchtest?</string>
+ <string id="763">Bist du sicher, dass du die gewählte Serie(n) und alle enthaltenen Episoden löschen möchtest?</string>
<string id="764">Bist du sicher, dass du die gewählte Episode löschen möchtest?</string>
<string id="765">Bist du sicher, dass du die gewählte Staffel und alle enthaltenen Episoden löschen möchtest?</string>
<string id="766">Serie (Re)Scrapen</string>
@@ -773,37 +772,37 @@
<string id="771">Staffel löschen</string>
<string id="772">Episode wechseln</string>
<string id="773">Episode löschen</string>
- <string id="774">eingeschaltet</string>
- <string id="775">ausgeschaltet</string>
- <string id="776"></string>
+ <string id="774">Aktiviert</string>
+ <string id="775">Deaktiviert</string>
+ <string id="776"/>
<string id="777">Autor</string>
- <string id="778"></string>
- <string id="779"></string>
- <string id="780"></string>
- <string id="781"></string>
- <string id="782"></string>
+ <string id="778"/>
+ <string id="779"/>
+ <string id="780"/>
+ <string id="781"/>
+ <string id="782"/>
<string id="783">Inhalt:</string>
- <string id="784"></string>
- <string id="785"></string>
+ <string id="784"/>
+ <string id="785"/>
<string id="786">Alle-Staffeln Poster</string>
- <string id="787"></string>
- <string id="788"></string>
- <string id="789"></string>
- <string id="790"></string>
- <string id="791"></string>
+ <string id="787"/>
+ <string id="788"/>
+ <string id="789"/>
+ <string id="790"/>
+ <string id="791"/>
<string id="792">Spende</string>
<string id="793">&Versionen...</string>
<string id="794">&Modul Einstellungen...</string>
<string id="795">Oberfläche</string>
<string id="796">In der Reihenfolge des letzten Schreibvorgangs scannen</string>
<string id="797">Standard Episoden Sortierung:</string>
- <string id="798"></string>
+ <string id="798"/>
<string id="799">Scraper - Trailer</string>
<string id="800">Bevorzugte Qualität:</string>
<string id="801">TVDB Mirror</string>
<string id="802">Module</string>
<string id="803">Als nächstes verrate Ember wo sich deine TV-Serien befinden. Du kannst so viele Quellen eintragen wie du möchtest.</string>
- <string id="804">Und zu guter Letzt musst du Ember noch sagen, nach welchen Serien Dateien Ember suchen muss. Wähle einfach eine Kombination aus Dateien die Ember laden und speichern soll. Du kannst auch mehrere wählen!</string>
+ <string id="804">Und zu guter Letzt musst du Ember noch sagen, nach welchen Serien Dateien Ember suchen muss. Wähle einfach eine Kombination aus Dateien die Ember laden und speichern soll. Du kannst auch mehrere wählen!</string>
<string id="805">Bei PasteBin.com hochladen</string>
<string id="806">In die Zwischenablage kopieren</string>
<string id="807">Ein Hochladen zu Pastebin.com ist ein Fehler aufgetreten</string>
@@ -813,44 +812,73 @@
<string id="811">PasteBin URL:</string>
<string id="812">Bisheriger Titel: {0} | Neuer Titel: {1}</string>
<string id="813">Film Scraped</string>
- <string id="814">Episode hinzugefügt: </string>
- <string id="815">Film hinzugefügt: </string>
+ <string id="814">Neue Episode hinzugefügt</string>
+ <string id="815">Neuen Film hinzugefügt</string>
<string id="816">Ein Fehler ist aufgetreten</string>
<string id="817">Neuen Film hinzugefügt</string>
<string id="818">Neue Episode hinzugefügt</string>
<string id="819">TV RegEx Profile</string>
<string id="820">RegEx Profile</string>
<string id="821">Beschreibung</string>
- <string id="822">Miscellaneous</string>
+ <string id="822">Diverses</string>
<string id="823">Audio & Video Codec Mapping</string>
<string id="824">Video Source:</string>
<string id="825">Downloads:</string>
- <string id="826"></string>
- <string id="827"></string>
- <string id="828">Aktiviere Schauspl.Cache</string>
+ <string id="826"/>
+ <string id="827"/>
+ <string id="828">Aktiviere Actor Thumbs</string>
<string id="829">Überwachen des ""Dump"" Ordners</string>
<string id="830">Details für die gewählte Staffel editieren.</string>
- <string id="831"></string>
+ <string id="831"/>
<string id="832">Alle-Staffeln Poster zeigen</string>
<string id="833">Dies sind Scraper spezifische Einstellungen.\nDu solltest auch die Globalen Einstellungen prüfen.</string>
<string id="834">* Im Staffel Verzeichnis</string>
<string id="835">Nur Wert speichern</string>
- <string id="836"></string>
- <string id="837">Scraper - Bilder</string>
+ <string id="836"/>
+ <string id="837">Fragen On Click Scrape</string>
<string id="838">Banner</string>
<string id="839">Absolut</string>
- <string id="840">Bist du sicher, dass du die Serien Filter zurücksetzen möchtest?</string>
- <string id="841">Bist du sicher, dass du die Episoden Filter zurücksetzen möchtest?</string>
- <string id="842">Bist du sicher, dass du die Film Filter zurücksetzen möchtest?</string>
- <string id="843">Bist du sicher, dass du die gültigen Video Extensions zurücksetzen möchtest?</string>
- <string id="844">Bist du sicher, dass du die Serien RegEx zurücksetzen möchtest?</string>
- <string id="845">>> Kein Eintrag gewählt <<</string>
- <string id="846"></string>
- <string id="847"></string>
- <string id="848"></string>
- <string id="849">Einschalten Click Scrape</string>
- <string id="850">Nach Updates Su&chen</string>
- <string id="851">Kein Update vorhanden</string>
- <string id="852">Fragen On Click Scrape</string>
+ <string id="840">Sind sie sich sicher das sie die Show-Filter auf die Standardwerte zurücksetzen wollen ?</string>
+ <string id="841">Sind sie sich sicher das sie die Folgen(Episoden)-Filter auf die Standardwerte zurücksetzen wollen ?</string>
+ <string id="842">Sind sie sich sicher das sie die Filme-Filter auf die Standardwerte zurücksetzen wollen ?</string>
+ <string id="843">Sind sie sich sicher das sie die Liste der zulässigen Video- Dateierweiterungen auf die Standardwerte zurücksetzen wollen ?</string>
+ <string id="844">Sind sie sich sicher das sie die Liste der regulären Ausdrücke für Shows auf die Standardwerte zurücksetzen wollen ?</string>
+ <string id="845">>> Kein Eintrag ausgewählt <<</string>
+ <string id="846"/>
+ <string id="847"/>
+ <string id="848"/>
+ <string id="849">Click-Scrape aktivieren</string>
+ <string id="850">&Überprüfe auf Updates...</string>
+ <string id="851">Zur Zeit keine Updates verfügbar</string>
+ <string id="852">Fragen bei Click-Scrape</string>
+ <string id="853">Scrape Medien (Alle Filme - Überspringen):</string>
+ <string id="854">Grundeinstellung</string>
+ <string id="855">Erstellen von Standard-Optionen...</string>
+ <string id="856">Lade Module...</string>
+ <string id="857">Erstelle Grafische Benutzeroberfläche...</string>
+ <string id="858">Lade Datenbank...</string>
+ <string id="859">Laufendes Modul...</string>
+ <string id="860">Medien werden geladen...</string>
+ <string id="861">Command Line Scraping...</string>
+ <string id="862">Lade Übersetzungen...</string>
+ <string id="863">Positionieren von Steuerelementen...</string>
+ <string id="864">Stelle Menüs ein...</string>
+ <string id="865">Version {0}.{1}.{2}.{3}</string>
+ <string id="866">Metadaten</string>
+ <string id="867">XBMC Frodo</string>
+ <string id="868">Top 250</string>
+ <string id="869">EmberMM.com &Wiki...</string>
+ <string id="870"/>
+ <string id="871"/>
+ <string id="872"/>
+ <string id="873"/>
+ <string id="874"/>
+ <string id="875"/>
+ <string id="876"/>
+ <string id="877"/>
+ <string id="878"/>
+ <string id="879">Sprache sperren (Video)</string>
+ <string id="880">Sprache sperren (Audio)</string>
+ <string id="881">Altersfreigabe sperren</string>
+ <string id="882">Benutze MPAA wenn keine FSK Freigabe vorliegt</string>
</strings>
-<!-- Edit F089 Rev2292 -->
diff --git a/Ember Media Manager/Langs/Norwegian_(no_NO)-Help.xml b/Ember Media Manager/Langs/Norwegian_(no_NO)-Help.xml
new file mode 100644
index 0000000..1e0a8ce
--- /dev/null
+++ b/Ember Media Manager/Langs/Norwegian_(no_NO)-Help.xml
@@ -0,0 +1,367 @@
+<strings>
+ <string control="Core_chkShowGenresText">Hvis påslått så vil bildeteksten alltid bli vist. Hvis avslått, så vil teksten kun vises når musepekeren er over sjangerbildet.</string>
+ <string control="Core_chkSourceFromFolder">Hvis påslått, så vil EMM alltid sjekke mappenavnet for kildetypen. Hvis avslått, så vil EMM kun sjekke filnavnet.</string>
+ <string control="Core_chkNoDisplayFanart">Hvis påslått, så vil fankunst ikke vises i hovedvinduet. Dette er bra for å øke hastigheten av grensesnittet på tregere maskiner.</string>
+ <string control="Core_chkNoDisplayPoster">Hvis påslått, så vil plakater ikke bli vist i hovedvinduet. Dette er bra for å øke hastigheten av grensesnittet på tregere maskiner.</string>
+ <string control="Core_chkShowDims">Hvis påslått, så vil dimensjonene til bilder (plakater og fankunst) bli vist over bildene.</string>
+ <string control="Core_chkUpdates">Hvis påslåt, så vil EMM se etter ny versjon når EMM starter.</string>
+ <string control="Core_chkOverwriteNfo">Hvis påslått, så vil Nfo-filer bli overskrevet når detaljer lagres. Hvis avslått, så vil de bli omdøpt til *.info.</string>
+ <string control="Core_chkLogErrors">Hvis påslått, så vil alle feilmeldinger bli lagret i <EMM installasjonmappe>\Log\errlog.txt.</string>
+ <string control="Core_cbEpTheme">Velg temaet for episodeoppsett.</string>
+ <string control="Core_cbTVShowTheme">Velg temaet for TVserie- og sesongoppsett.</string>
+ <string control="Core_cbMovieTheme">Velg temaet for filmoppsett.</string>
+ <string control="Core_btnDLTrans">Last ned programutvidelser for EMM, inkludert moduler, temaer, oversettelser til andre språk, og eksporttemplater.</string>
+ <string control="Core_cbIntLang">Velg språket som brukes i EMMs grensesnitt (krever omstart).</string>
+ <string control="Core_chkCleanFolderJPG">Rens all "folder.jpg"-filer.</string>
+ <string control="Core_chkCleanExtrathumbs">Rens alle "extrathumbs"-mapper.</string>
+ <string control="Core_chkCleanMovieTBN">Rens alle "movie.tbn"-filer.</string>
+ <string control="Core_chkCleanMovieNameJPG">Rens alle "<film>.jpg"-filer.</string>
+ <string control="Core_chkCleanMovieTBNb">Rens alle "<film>.tbn-filer.</string>
+ <string control="Core_chkCleanMovieJPG">Rens alle "movie.jpg"-filer.</string>
+ <string control="Core_chkCleanFanartJPG">Rens alle "fanart.jpg"-filer.</string>
+ <string control="Core_chkCleanPosterJPG">Rens alle "poster.jpg"-filer</string>
+ <string control="Core_chkCleanMovieFanartJPG">Rens alle "<film>-fanart.jpg"-filer</string>
+ <string control="Core_chkCleanPosterTBN">Rens alle "poster.tbn"-filer.</string>
+ <string control="Core_chkCleanMovieNFO">Rens alle "movie.nfo"-filer.</string>
+ <string control="Core_chkCleanDotFanartJPG">Rens alle "<film>.fanart.jpg"-filer.</string>
+ <string control="Core_chkCleanMovieNFOb">Rens alle "<movie>.nfo"-filer.</string>
+ <string control="Core_chkWhitelistVideo">Automatisk tillat alle filer som har en filtype i "Gyldig filtype"-listen.</string>
+ <string control="Core_btnRemoveWhitelist">Fjern valgte filtype fra listen.</string>
+ <string control="Core_btnAddWhitelist">Legg til innførte filtype til listen.</string>
+ <string control="Core_txtWhitelist">Skriv inn en filtype til å legge til i listen.</string>
+ <string control="Core_lstWhitelist">Denne listen inneholder alle nåværende filtyper som vil bli hoppet over når databasen renses.</string>
+ <string control="Core_chkYAMJCompatibleSets">Hvis påslåt, så vil EMM lagre all samling-informasjon i et format som er YAMJ-kompatibelt. Hvis avslått, så vil informasjonen lagres i XBMC-format.</string>
+ <string control="Core_chkAskCheckboxScrape">Hvis påslått, så vil en manuell detaljhenter bli brukt ved markering i filmlisten. Hvis avslått, så vil en automatisk detaljhenter bli brukt.</string>
+ <string control="Core_chkMarkNew">Hvis påslått, så vil nye filmer bli "markert" i filmlisten. Hvis avslått, så vil nye filmer bli vist med tykk, grønn farge til filmen er oppdatert eller til neste EMM-sesjon.</string>
+ <string control="Core_lbGenre">Velg språk du vil at EMM skal bruke.</string>
+ <string control="Core_txtCheckTitleTol">Velg toleransenivået du vil at EMM skal bruke når tittel skal matches. Høyere tall, jo snillere er EMM. 0 = avslått.</string>
+ <string control="Core_chkCheckTitles">Slå på denne for at EMM skal sjeffe forskjellen mellom filmnavn og filnavn. Dette er for at automatisk detaljhenting er for riktig film.</string>
+ <string control="Core_btnRemoveToken">Fjern valgt token fra listen.</string>
+ <string control="Core_btnAddToken">Legg til den innskrevne sorteringstoken i listen.</string>
+ <string control="Core_txtSortToken">Skriv inn en sorteringstoken til å legge til i listen.</string>
+ <string control="Core_lstSortTokens">Liste over alle nåværende sorteringstoken. (Hvis tittelen begynner med en sorteringstoken, så vil tokenen bli flyttet til slutten av tittelen. Eksempel: Sorteringstoken = "The", Title = "The Dark Knight", Resultat = "Dark Knight, The".)</string>
+ <string control="Core_chkDisplayYear">Hvis påslått, EMM vil vise filmens år i filmlisten.</string>
+ <string control="Core_chkMovieExtraCol">Gjem ekstrakunst-seksjonen fra filmlisten.</string>
+ <string control="Core_chkMovieSubCol">Gjem undertekstseksjonen fra filmlisten.</string>
+ <string control="Core_chkMovieTrailerCol">Gjem trailerseksjonen fra filmlisten.</string>
+ <string control="Core_chkMovieInfoCol">Gjem infoseksjonen fra filmlisten.</string>
+ <string control="Core_chkMovieFanartCol">Gjen fankunstseksjonen fra filmlisten.</string>
+ <string control="Core_chkMoviePosterCol">Gjem plakatseksjonen fra filmlisten.</string>
+ <string control="Core_chkMovieNameMultiOnly">Hvis påslått, så vil "<film>.ext" kun bli brukt i mapper som har flere filmer.</string>
+ <string control="Core_rbBracketTrailer">Lagre trailere som "<film>[trailer].ext".</string>
+ <string control="Core_rbDashTrailer">Lagre trailere som <movie>-trailer.ext".</string>
+ <string control="Core_chkVideoTSParent">Hvis påslått, så vil EMM lagre metadata i filmmappen (YAMJ). Hvis avslått, så vil EMM lagre metadata i VIDEO_TSmappen (XBMC). Dette angår også BDMVmapper.</string>
+ <string control="Core_chkMovieNameNFO">Lagre Nfofiler som "<film>.nfo".</string>
+ <string control="Core_chkMovieNFO">Lagre Nfofiler som "movie.nfo".</string>
+ <string control="Core_chkMovieNameDotFanartJPG">Lagre fankunst som "<film>.fanart.jpg".</string>
+ <string control="Core_chkMovieNameFanartJPG">Lagre fankunst som "<film>-fanart.jpg".</string>
+ <string control="Core_chkFanartJPG">Lagre fankunst som "fanart.jpg".</string>
+ <string control="Core_chkFolderJPG">Lagre plakater som "folder.jpg".</string>
+ <string control="Core_chkPosterJPG">Lagre plakater som "poster.jpg".</string>
+ <string control="Core_chkPosterTBN">Lagre plakater som "poster.tbn".</string>
+ <string control="Core_chkMovieNameJPG">Lagre plakater som "<film>.jpg".</string>
+ <string control="Core_chkMovieJPG">Lagre plakater som "movie.jpg".</string>
+ <string control="Core_chkMovieNameTBN">Lagre plakater som "<film>.tbn".</string>
+ <string control="Core_chkMovieTBN">Lagre plakater som "movie.tbn".</string>
+ <string control="Core_lvMovies">Liste over alle nåværende filmkilder (baner som vil ble skannet for filmfiler).</string>
+ <string control="Core_colID">Liste over alle nåværende filmkilder (baner som vil ble skannet for filmfiler).</string>
+ <string control="Core_colName">Liste over alle nåværende filmkilder (baner som vil ble skannet for filmfiler).</string>
+ <string control="Core_colPath">Liste over alle nåværende filmkilder (baner som vil ble skannet for filmfiler).</string>
+ <string control="Core_colRecur">Liste over alle nåværende filmkilder (baner som vil ble skannet for filmfiler).</string>
+ <string control="Core_colFolder">Liste over alle nåværende filmkilder (baner som vil ble skannet for filmfiler).</string>
+ <string control="Core_colSingle">Liste over alle nåværende filmkilder (baner som vil ble skannet for filmfiler).</string>
+ <string control="Core_btnMovieRem">Fjern valgte kilder fra kildelisten.</string>
+ <string control="Core_btnMovieAddFolder">Legg til en ny mappe til kildelisten</string>
+ <string control="Core_txtPosterWidth">Forandre størrelsen på plakater til den innførte bredden.</string>
+ <string control="Core_txtPosterHeight">Forandre størrelsen på plakater til den innførte høyden.</string>
+ <string control="Core_tbPosterQual">Justér kvaliteten til plakatfiler (0 = original kvalitet).</string>
+ <string control="Core_chkResizePoster">Forandre størrelsen på plakatfiler før lagring.</string>
+ <string control="Core_cbPosterSize">Velg den foretrukne plakatstørrelsen du vil EMM skal hente under automatisk detaljhenting. Hvis den ikke finnes, så vil den nærmeste størrelsen brukes.</string>
+ <string control="Core_chkOverwritePoster">Hvis påslått, så vil eksisterende plakatfiler bli overskrevet hvis nye plakater er valgt. Hvis avslått, plakater vil kun bli lagret hvis en ikke allerede finnes.</string>
+ <string control="Core_txtFanartWidth">Forandre størrelsen på fankunst til den innførte bredden.</string>
+ <string control="Core_txtFanartHeight">Forandre størrelsen på fankunst til den innførte høyden.</string>
+ <string control="Core_chkFanartOnly">Hvis påslått, så vil EMM hente fankunst kun med valgt størrelse (BEMERK: Hvis det ikke er fankunst med valgt størrelse tilgjengelig, så vil ingen fankunst bli hentet).</string>
+ <string control="Core_tbFanartQual">Justér kvaliteten til fankunstfiler (0 = original kvalitet).</string>
+ <string control="Core_chkResizeFanart">Forandre størrelsen på fankunstfiler før lagring.</string>
+ <string control="Core_cbFanartSize">Velg den foretrukne fankunststørrelsen du vil EMM skal hente under automatisk detaljhenting. Hvis den ikke finnes, så vil den nærmeste størrelsen brukes.</string>
+ <string control="Core_chkOverwriteFanart">Hvis påslått, så vil eksisterende fankunstfiler bli overskrevet hvis nye plakater er valgt. Hvis avslått, fankunst vil kun bli lagret hvis en ikke allerede finnes.</string>
+ <string control="Core_chkNoSaveImagesToNfo">Hvis påslått, så vil EMM ikke lagre URLer til plakater og fankunst i Nfo. (Anbefalt for YAMJ)</string>
+ <string control="Core_chkSingleScrapeImages">Velg bilder under detaljhenting av en enkelt film.</string>
+ <string control="Core_chkUseImgCacheUpdaters">Lagre bilder til bildemellomlager under detaljhenting for flere filmer.</string>
+ <string control="Core_chkPersistImgCache">Hvis påslått, så vil EMM ikke tømme mellomlageret.</string>
+ <string control="Core_chkUseImgCache">Slå på EMMs bildemellomlager.</string>
+ <string control="Core_chkUseETasFA">Hvis påslått og ingen fankunst er tilgjengelig for filmen, EMM vil bruke et bilde fra filmen som fankunst.</string>
+ <string control="Core_chkNoSpoilers">Hvis påslått, så vil ekstrakunst kun hentes fra den første halvdelen av filmen. Dette for å unngå spoilere.</string>
+ <string control="Core_txtAutoThumbs">Før inn antall ekstrakunstbilder vil skal automatisk lages.</string>
+ <string control="Core_chkAutoThumbs">Hvis påslått, så vil EMM automatisk hente det innførte tallet av ekstrakunst fra filmen.</string>
+ <string control="Core_txtProxyDomain">Før inn domenet til proxien din. (Valgfritt, ikke nødvendig for de fleste proxier)</string>
+ <string control="Core_txtProxyPassword">Før inn passordet til din proxy.</string>
+ <string control="Core_txtProxyUsername">Før inn brukernavnet til din proxy.</string>
+ <string control="Core_chkEnableCredentials">Slå på hvis din proxy krever innlogging.</string>
+ <string control="Core_txtProxyPort">Før inn porten til din proxy.</string>
+ <string control="Core_txtProxyURI">Før inn IP-adressen eller URL til din proxy.</string>
+ <string control="Core_chkEnableProxy">Hvis påslått, EMM vil bruke valgt proxy for all internettilgang.</string>
+ <string control="Core_btnDown">Flytt valgt filter opp i listen. (Filtre er brukt fra toppen og ned)</string>
+ <string control="Core_btnUp">Flytt valgt filter ned i listen. (Filtre er brukt fra toppen og ned)</string>
+ <string control="Core_chkProperCase">Bruk riktig forbokstav i filmtitler. (Eksempel: "the dark knight" blir "The Dark Knight")</string>
+ <string control="Core_btnRemoveFilter">Fjern valgt filter fra listen.</string>
+ <string control="Core_btnAddFilter">Legg til det innførte filteret til listen.</string>
+ <string control="Core_txtFilter">Før inn text eller Regex for å bruke det som Filter. Spesielle: "a[->]b" = erstatter alle a med b.</string>
+ <string control="Core_lstFilters">Liste over alle filtre som vil bli brukt under generering av filmtitler.</string>
+ <string control="Core_chkMissingExtra">Hvis påslått, EMM vil vise filmer med manglende ekstrakunst når du bruker Manglende Objekter-filter.</string>
+ <string control="Core_chkMissingSubs">Hvis påslått, EMM vil vise filmer med manglende undertekst når du bruker Manglende Objekter-filter.</string>
+ <string control="Core_chkMissingTrailer">Hvis påslått, EMM vil vise filmer med manglende trailer når du bruker Manglende Objekter-filter.</string>
+ <string control="Core_chkMissingNFO">Hvis påslått, EMM vil vise filmer med manglende Nfo-filer når du bruker Manglende Objekter-filter.</string>
+ <string control="Core_chkMissingFanart">Hvis påslått, EMM vil vise filmer med manglende fankunst når du bruker Manglende Objekter-filter.</string>
+ <string control="Core_chkMissingPoster">Hvis påslått, EMM vil vise filmer med manglende plakater når du bruker Manglende Objekter-filter.</string>
+ <string control="Core_chkAutoBD">Hvis påslått, EMM vil automatisk lagre ny fankunst i den innførte bakgrunnsmappen.</string>
+ <string control="Core_btnBrowse">Åpne en mappeutforsker for å velge en bakgrunnsmappe.</string>
+ <string control="Core_txtBDPath">Banen til bakgrunnsmappen.</string>
+ <string control="Core_btnRemoveNoStack">Fjern den valgte filtypen fra No Stack-listen.</string>
+ <string control="Core_btnAddNoStack">Legg til den innførte filtypen til No Stack-listen.</string>
+ <string control="Core_txtNoStack">Før inn en filtype for å legge til i No Stack-listen.</string>
+ <string control="Core_lstNoStack">Listen over filtyper EMM ikke vil stable inn i enkle filer når filmer legges til i biblioteket.</string>
+ <string control="Core_btnRemMovieExt">Fjern valgt filtypen fra Tillatte Videofiltyper-listen.</string>
+ <string control="Core_btnAddMovieExt">Legg til den innførte filtypen til Tillatte Videofiltyper-listen.</string>
+ <string control="Core_txtMovieExt">Før inn en filtype for å legge inn i Tillatte Videofiltyper-listen.</string>
+ <string control="Core_lstMovieExts">Liste over filtyper som EMM vil se etter i en bibliotekoppdatering.</string>
+ <string control="Core_btnEditSource">Endre valgt kilde.</string>
+ <string control="Core_chkScanOrderModify">Hvis påslått, EMM vil legge til nye filer etter deres siste modifiserte tidspunkt. Hvis avslått, så vil de ble lagt til alfabetisk.</string>
+ <string control="Core_chkSortBeforeScan">Hvis påslått, EMM vil sortere filer i toppmappen i kildene inn i egne mapper.</string>
+ <string control="Core_chkIgnoreLastScan">Hvis påslått, EMM vil skanne alle mapper/filer uansett om de var der forrige skan. Hvis avslått, så vil EMM skanne alle mapper/filer.</string>
+ <string control="Core_chkCleanDB">Hvis påslått, EMM vil rense databasen etter hver skanning. (Fjerne ting som ikke lenger eksisterer)</string>
+ <string control="Core_chkAutoDetectVTS">Hvis påslått, så vil EMM prøve å gjenkjenne VIDEO_TS-mapper, selv om de ikke heter VIDEO_TS. Hvis avslått, så vil kun mapper som heter VIDEO_TS bli gjenkjent som det. Dette gjelder også BDMV-mapper.</string>
+ <string control="Core_chkSkipStackedSizeCheck">Hvis påslått, EMM vil ikke hoppe over filer mindre enn den innførte "Hopp over mindre enn" størrelsen hvis de stablende elementer (som "CD1" eller "DVD2").</string>
+ <string control="Core_txtSkipLessThan">EMM vil bruke den innførte størrelsen for minimumstørrelse for alle filmfiler. Filer mindre enn dette vil bli hoppet over under bibliotekoppdateringer.</string>
+ <string control="Core_txtTVSkipLessThan">EMM vil bruke den innførte størrelsen for minimumstørrelse for alle episodefiler. Filer mindre enn dette vil bli hoppet over under bibliotekoppdateringer.</string>
+ <string control="Core_cbTrailerQuality">Velg den foretrukne kvaliteten til trailere.</string>
+ <string control="Core_chkDeleteAllTrailers">Hvis påslått, så vil EMM slette alle lagrede trailere for valgt film før den lagrer en ny.</string>
+ <string control="Core_chkOverwriteTrailer">Hvis påslått, så vil eksisterende trailere bli overskrevet når nye lagres. Hvis avslått, så vil nye trailere kun bli lagret hvis ingen eksisterer fra før.</string>
+ <string control="Core_chkNoDLTrailer">Hvis påslått, så vil trailere ikke bli lastet ned. Istedet vil URL til trailer bli lagret i Nfo.</string>
+ <string control="Core_chkSingleScrapeTrailer">Hvis påslått, trailere vil bli lastet ned under detaljhenting av én film.</string>
+ <string control="Core_chkUpdaterTrailer">Hvis påslått, så vil trailere bli lastet ned under "alle objekter"-detaljhentere.</string>
+ <string control="Core_chkDownloadTrailer">Slå på EMMs trailerfunksjon.</string>
+ <string control="Core_chkAutoETSize">Velg størrelsen på fankunst du vil lagre som ekstrakunst.</string>
+ <string control="Core_cbAutoETSize">Hvis påslått, så vil EMM automatisk laste ned all fankunst med valgt størrelse som ekstrakunst.</string>
+ <string control="Core_txtETWidth">Forandre bredden på ekstrakunst til denne bredden.</string>
+ <string control="Core_txtETHeight">Forandre høyden på ekstrakunst til denne høyden.</string>
+ <string control="Core_chkETPadding">Hvis påslått, så vil EMM legge til svarte områder dersom ekstrakunsten er mindre enn den valgte størrelsen.</string>
+ <string control="Core_rbETCustom">Forandre størrelsen på ekstrakunst til den valgte størrelsen, uansett originalstørrelse.</string>
+ <string control="Core_rbETNative">Lagre ekstrakunsten med samme størrelse som video.</string>
+ <string control="Core_lvTVSources">Liste over alle nåværende TVkilder. (Baner som skal skannes for TVserier)</string>
+ <string control="Core_ColumnHeader1">Liste over alle nåværende TVkilder. (Baner som skal skannes for TVserier)</string>
+ <string control="Core_ColumnHeader2">Liste over alle nåværende TVkilder. (Baner som skal skannes for TVserier)</string>
+ <string control="Core_ColumnHeader3">Liste over alle nåværende TVkilder. (Baner som skal skannes for TVserier)</string>
+ <string control="Core_chkTVScanOrderModify">Hvis påslått, EMM vil legge til nye filer etter deres siste modifiserte tidspunkt. Hvis avslått, så vil de ble lagt til alfabetisk.</string>
+ <string control="Core_chkTVIgnoreLastScan">Hvis påslått, EMM vil skanne alle mapper/filer uansett om de var der forrige skan. Hvis avslått, så vil EMM skanne alle mapper/filer.</string>
+ <string control="Core_chkTVCleanDB">Hvis påslått, så vil EMM rense TVseriedatabasen etter hvert gjennomskan. (Fjerne alle episoder som ikke lenger eksisterer)</string>
+ <string control="Core_btnAddTVSource">Legg til en ny mappe til kildelisten</string>
+ <string control="Core_btnEditTVSource">Endre valgt kilde.</string>
+ <string control="Core_btnRemTVSource">Fjern valgte kilder fra kildelisten.</string>
+ <string control="Core_chkSeasonAllJPG">Lagre alle-sesongerplakatfiler som "season-all.jpg".</string>
+ <string control="Core_chkSeasonAllTBN">Lagre alle-sesongerplakatfiler som "season-all.tbn".</string>
+ <string control="Core_chkEpisodeDotFanart">Lagre episodefankunst som "<episode>.fanart.jpg".</string>
+ <string control="Core_chkEpisodeDashFanart">Lagre episodefankunst som "<episode>-fanart.jpg".</string>
+ <string control="Core_chkEpisodeJPG">Lagre episodeplakat som "<episode>.jpg".</string>
+ <string control="Core_chkEpisodeTBN">Lagre episodeplakat som "<episode>.tbn".</string>
+ <string control="Core_chkSeasonDotFanart">Lagre sesong-fankunst som "<sesong>.fanart.jpg". (Kun i sesongmappen, hvis den eksisterer)</string>
+ <string control="Core_chkSeasonDashFanart">Lagre sesong-fankunst som "<sesong>-fanart.jpg". (Kun i sesongmappen, hvis den eksisterer)</string>
+ <string control="Core_chkSeasonFanartJPG">Lagre sesong-fankunst som "fanart.jpg". (Kun i sesongmappen, hvis den eksisterer)</string>
+ <string control="Core_chkSeasonFolderJPG">Lagre sesong-fankunst som "folder.jpg". (Kun i sesongmappen, hvis den eksisterer)</string>
+ <string control="Core_chkSeasonNameJPG">Lagre sesong-plakat som "<sesong>.jpg". (Kun i sesongmappen, hvis den eksisterer)</string>
+ <string control="Core_chkSeasonNameTBN">Lagre sesong-plakat som "<sesong>.tbn". (Kun i sesongmappen, hvis den eksisterer)</string>
+ <string control="Core_chkSeasonPosterJPG">Lagre sesong-fankunst som "poster.jpg". (Kun i sesongmappen, hvis den eksisterer)</string>
+ <string control="Core_chkSeasonPosterTBN">Lagre sesong-fankunst som "sesong.tbn". (Kun i sesongmappen, hvis den eksisterer)</string>
+ <string control="Core_chkSeasonXTBN">Lagre sesongplakat som "seasonX.tbn". (Eksempel: season2.tbn)</string>
+ <string control="Core_chkSeasonXXTBN">Lagre sesongplakat som "seasonXX.tbn". (Eksempel: season02.tbn)</string>
+ <string control="Core_chkShowDotFanart">Lagre seriefankunst som "<serie>.fanart.jpg".</string>
+ <string control="Core_chkShowDashFanart">Lagre seriefankunst som "<serie>-fanart.jpg".</string>
+ <string control="Core_chkShowFanartJPG">Lagre seriefankunst som "fanart.jpg".</string>
+ <string control="Core_chkShowJPG">Lagre serieplakat som "<serie>.jpg".</string>
+ <string control="Core_chkShowTBN">Lagre serieplakat som "<serie>.tbn".</string>
+ <string control="Core_chkShowPosterJPG">Lagre serieplakat som "poster.jpg".</string>
+ <string control="Core_chkShowPosterTBN">Lagre serieplakat som "poster.tbn".</string>
+ <string control="Core_chkShowFolderJPG">"Lagre serieplakat som "folder.jpg".</string>
+ <string control="Core_btnAddShowRegex">Legg til den innførte Regex til TVserie-Regexlisten.</string>
+ <string control="Core_txtSeasonRegex">Legg til Regex til å finne sesongtall.</string>
+ <string control="Core_cboSeasonRetrieve">Velg hvis du vil at Regex skal sjekke mappenavn eller filnavn for sesongtall.</string>
+ <string control="Core_txtEpRegex">Legg til Regex til å finne episodetall.</string>
+ <string control="Core_cboEpRetrieve">Velg hvis du vil at Regex skal sjekke mappenavn eller filnavn for episodetall.</string>
+ <string control="Core_btnEditShowRegex">Endre valgt TVserie-Regex.</string>
+ <string control="Core_btnRemoveShowRegex">Fjern valgte TVserie-Regex fra listen.</string>
+ <string control="Core_lvShowRegex">Liste over nåværende TVserie-Regex.</string>
+ <string control="Core_colRegID">Liste over nåværende TVserie-Regex.</string>
+ <string control="Core_colSeason">Liste over nåværende TVserie-Regex.</string>
+ <string control="Core_colSeasonApply">Liste over nåværende TVserie-Regex.</string>
+ <string control="Core_colEpisode">Liste over nåværende TVserie-Regex.</string>
+ <string control="Core_colEpApply">Liste over nåværende TVserie-Regex.</string>
+ <string control="Core_chkDisplayMissingEpisodes">Hvis påslått, så vil episoder du mangler bli vist i listen, men påført en lys grå farge.</string>
+ <string control="Core_chkEpisodeNfoCol">Gjem infoseksjonen fra episodelisten.</string>
+ <string control="Core_chkEpisodeFanartCol">Gjem fankunstseksjonen fra episodelisten.</string>
+ <string control="Core_chkEpisodePosterCol">Gjem plakatseksjonen fra episodelisten.</string>
+ <string control="Core_chkSeasonFanartCol">Gjem fankunstseksjonen fra sesonglisten.</string>
+ <string control="Core_chkSeasonPosterCol">Gjem plakatseksjonen fra plakatlisten.</string>
+ <string control="Core_chkShowNfoCol">Gjem infoseksjonen fra serielisten.</string>
+ <string control="Core_chkShowFanartCol">Gjem fankunstseksjonen fra serielisten.</string>
+ <string control="Core_chkShowPosterCol">Gjem plakatseksjonen fra serielisten.</string>
+ <string control="Core_chkDisplayAllSeason">Hvis påslått, hvis en "alle sesonger"-plakat eksisterer for valgt serie så vil den bli vist til høyre i hovedbildet.</string>
+ <string control="Core_cbRatingRegion">Velg regionen for filmvurderinger du vil skal vises i hovedbildet.</string>
+ <string control="Core_chkNoFilterEpisode">Hvis påslått, EMM vik ikke filtrere episodetitler fra filnavn, og heller bygge tittel utifra serienavn, sesong og episode til en skikkelig tittel har blitt hentet.</string>
+ <string control="Core_btnEpFilterDown">Flytt valgt filter opp i listen. (Filtre er brukt fra toppen og ned)</string>
+ <string control="Core_btnEpFilterUp">Flytt valgt filter ned i listen. (Filtre er brukt fra toppen og ned)</string>
+ <string control="Core_chkEpProperCase">Automatisk legg til riktig førbokstav i episodetitler. (Eksempel: "stole beer from a golfer" blir "Stole Beer From A Golfer")</string>
+ <string control="Core_btnRemoveEpFilter">Fjern det valgte filteret fra filterlisten.</string>
+ <string control="Core_btnAddEpFilter">Legg til det innførte filteret til filterlisten.</string>
+ <string control="Core_txtEpFilter">Før inn et filter for å legge til i filterlisten.</string>
+ <string control="Core_lstEpFilters">Liste over alle filtere som vil bli brukt under generering av episodetitler.</string>
+ <string control="Core_btnShowFilterDown">Flytt valgt filter opp i listen. (Filtre er brukt fra toppen og ned)</string>
+ <string control="Core_btnShowFilterUp">Flytt valgt filter ned i listen. (Filtre er brukt fra toppen og ned)</string>
+ <string control="Core_chkShowProperCase">Automatisk bruk riktig førbokstav i serietitler. (Eksempel: "my name is earl" blir "My Name Is Earl")</string>
+ <string control="Core_btnRemoveShowFilter">Fjern det valgte filteret fra filterlisten.</string>
+ <string control="Core_btnAddShowFilter">Legg til det innførte filteret til filterlisten.</string>
+ <string control="Core_txtShowFilter">Før inn et filter for å legge til i filterlisten.</string>
+ <string control="Core_lstShowFilters">Liste over alle filtere som vil bli brukt under generering av serietitler.</string>
+ <string control="Core_chkGetEnglishImages">Hvis påslåt, alle engelske bilder vil bli lastet ned, uansett valgt språk.</string>
+ <string control="Core_chkOnlyTVImagesLanguage">Hvis påslått, alle bilder med foretrukket språk vil bli lastet ned.</string>
+ <string control="Core_txtShowPosterWidth">Forandre serieplakatbredde til valgt bredde.</string>
+ <string control="Core_txtShowPosterHeight">Forandre serieplakathøyde til valgt høyde.</string>
+ <string control="Core_tbShowPosterQual">Endre kvaliteten på serieplakater. (0 = original kvalitet)</string>
+ <string control="Core_chkResizeShowPoster">Forandre størrelsen på plakater før de lagres.</string>
+ <string control="Core_cbShowPosterSize">Velg den foretrukne plakattypen du vil skal hentes fra serverene. Under detaljhenting vil EMM prøve å finne denne typen først. Hvis den ikke finnes, så vil første type funnet bli brukt.</string>
+ <string control="Core_chkOverwriteShowPoster">Hvis påslått, eksisterende plakatfiler vil bli overskrevet hvis nye er valgt. Hvis avslått, plakater vil kun bli lagret hvis ingen allerede eksisterer.</string>
+ <string control="Core_txtShowFanartWidth">Forandre bredden til fankunst til den valgte bredden.</string>
+ <string control="Core_txtShowFanartHeight">Forandre høyden til fankunst til den valgte høyden.</string>
+ <string control="Core_tbShowFanartQual">Endre kvaliteten til fankunsten. (0 = original kvalitet)</string>
+ <string control="Core_chkResizeShowFanart">Forandre størrelsen på fankunst før den blir lagret.</string>
+ <string control="Core_cbShowFanartSize">Velg den foretrukne størrelsen på fankunsten du vil skal hentes fra serveren. Under detaljhenting så vil EMM prøve å finne denne først. Hvis den ikke finnes, så vil første bilde bli brukt.</string>
+ <string control="Core_chkOverwriteShowFanart">Hvis påslått, eksisterende fankunstfiler vil bli overskrevet hvis nye er valgt. Hvis avslått, fankunst vil kun bli lagret hvis ingen allerede eksisterer.</string>
+ <string control="Core_txtSeaPosterWidth">Forandre bredden til sesongplakater til valgt bredde.</string>
+ <string control="Core_txtSeaPosterHeight">Forandre høyden til sesongplakater til valgt høyden.</string>
+ <string control="Core_tbSeaPosterQual">Endre kvaliteten på sesongplakater. (0 = original kvalitet)</string>
+ <string control="Core_chkSeaResizePoster">Forandre størrelsen på sesongplakater før lagring.</string>
+ <string control="Core_cbSeaPosterSize">Velg den foretrukne sesongplakattypen du vil skal hentes fra serverene. Under detaljhenting vil EMM prøve å finne denne typen først. Hvis den ikke finnes, så vil første type funnet bli brukt.</string>
+ <string control="Core_chkSeaOverwritePoster">Hvis påslått, eksisterende sesongplakatfiler vil bli overskrevet hvis nye er valgt. Hvis avslått, nye plakater vil kun bli lagret hvis ingen allerede eksisterer.</string>
+ <string control="Core_txtSeaFanartWidth">Forandre bredden til sesongfankunst til innført bredde.</string>
+ <string control="Core_txtSeaFanartHeight">Forandre høyden til sesongfankunst til innført høyde.</string>
+ <string control="Core_tbSeaFanartQual">Endre kvaliteten på sesongfankunstfiler. (0 = original kvalitet)</string>
+ <string control="Core_chkSeaResizeFanart">Forandre størrelsen på fankunstfiler før lagring.</string>
+ <string control="Core_cbSeaFanartSize">Velg den foretrukne størrelsen på fankunsten du vil skal hentes fra serveren. Under detaljhenting så vil EMM prøve å finne denne først. Hvis den ikke finnes, så vil første bilde bli brukt.</string>
+ <string control="Core_chkSeaOverwriteFanart">Hvis påslått, eksisterende sesongfankunstfiler vil bli overskrevet hvis nye er valgt. Hvis avslått, ny fankunst vil kun bli lagret hvis ingen allerede eksisterer.</string>
+ <string control="Core_txtEpPosterWidth">Forandre bredden til episodeplakater til innført bredde.</string>
+ <string control="Core_txtEpPosterHeight">Forandre høyden til episodeplakater til innført høyde.</string>
+ <string control="Core_tbEpPosterQual">Endre kvaliteten på episodeplakatfiler. (0 = original kvalitet)</string>
+ <string control="Core_chkResizeEpPoster">Forandre størrelsen på episodeplakatfiler før lagring.</string>
+ <string control="Core_chkOverwriteEpPoster">Hvis påslått, eksisterende episodeplakatfiler vil bli overskrevet hvis nye er valgt. Hvis avslått, nye plakater vil kun bli lagret hvis ingen allerede eksisterer.</string>
+ <string control="Core_txtEpFanartWidth">Forandre bredden til episodefankunst til innført bredde.</string>
+ <string control="Core_txtEpFanartHeight">Forandre høyden til episodefankunst til innført høyde.</string>
+ <string control="Core_tbEpFanartQual">Endre kvaliteten på episodefankunstfiler. (0 = original kvalitet)</string>
+ <string control="Core_chkResizeEpFanart">Forandre størrelsen på episodefankunstfiler før lagring.</string>
+ <string control="Core_cbEpFanartSize">Velg den foretrukne størrelsen på fankunsten du vil skal hentes fra serveren. Under detaljhenting så vil EMM prøve å finne denne først. Hvis den ikke finnes, så vil første bilde bli brukt.</string>
+ <string control="Core_chkOverwriteEpFanart">Hvis påslått, eksisterende episodepfankunstfiler vil bli overskrevet hvis nye er valgt. Hvis avslått, ny fankunst vil kun bli lagret hvis ingen allerede eksisterer.</string>
+ <string control="Core_chkScraperShowRating">Slå på detaljhenting av seriens vurdering.</string>
+ <string control="Core_chkScraperShowActors">Slå på detaljhenting av seriens skuespillere.</string>
+ <string control="Core_chkScraperShowStudio">Slå på detaljhenting av seriens studio.</string>
+ <string control="Core_chkScraperShowPremiered">Slå på detaljhenting av seriens premieredato.</string>
+ <string control="Core_chkScraperShowEGU">Slå på detaljhenting av seriens episodeguide-URL.</string>
+ <string control="Core_chkScraperShowMPAA">Slå på detaljhenting av seriens MPAA-markering.</string>
+ <string control="Core_chkScraperShowPlot">Slå på detaljhenting av seriens historie.</string>
+ <string control="Core_chkScraperShowGenre">Slå på detaljhenting av seriens sjanger.</string>
+ <string control="Core_chkScraperShowTitle">Slå på detaljhenting av seriens tittel.</string>
+ <string control="Core_chkScraperEpActors">Slå på detaljhenting av episodens skuespillere</string>
+ <string control="Core_chkScraperEpCredits">Slå på detaljhenting av episodensakreditter.</string>
+ <string control="Core_chkScraperEpDirector">Slå på detaljhenting av episodens regissører.</string>
+ <string control="Core_chkScraperEpPlot">Slå på detaljhenting av episodens historie.</string>
+ <string control="Core_chkScraperEpRating">Slå på detaljhenting av episodens vurdering.</string>
+ <string control="Core_chkScraperEpAired">Slå på detaljhenting av episodens </string>
+ <string control="Core_chkScraperEpTitle">Slå på detaljhenting av episodens tittel.</string>
+ <string control="Core_chkScraperEpEpisode">Slå på detaljhenting av episodens nummer.</string>
+ <string control="Core_chkScraperEpSeason">Slå på detaljhenting av sesongens nummer.</string>
+ <string control="Core_chkEpLockTitle">Hvis påslått, episodetittelen vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkEpLockRating">Hvis påslått, episodevurdering vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkEpLockPlot">Hvis påslått, episodehistorien vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkShowLockPlot">Hvis påslått, seriehistorien vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkShowLockGenre">Hvis påslått, seriesjanger vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkShowLockStudio">Hvis påslått, seriestudio vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkShowLockRating">Hvis påslått, serievurdering vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkShowLockTitle">Hvis påslått, serietittelen vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_lstTVMetaData">Liste over filtyper som har standard metadatafelt.</string>
+ <string control="Core_txtTVDefFIExt">Før inn en filtype for å lage et standard metadatafelt.</string>
+ <string control="Core_btnRemoveTVMetaDataFT">Fjern standard metadata fra valgt filtype i listen over standard metadata.</string>
+ <string control="Core_btnEditTVMetaDataFT">Endre standard metadata fra valgt filtype i listen over standard metadata.</string>
+ <string control="Core_btnNewTVMetaDataFT">Lag standard metadata for valgt filtype og legg den til i listen over standard metadata.</string>
+ <string control="Core_cboTVMetaDataOverlay">Hvis valgt språk blir funnet i episoden, så vil et spesielt ikon bli lagt over lydmetadataikonen.</string>
+ <string control="Core_chkTVScanMetaData">Hvis påslått, EMM vil skanne episodefiler for metadata.</string>
+ <string control="Core_cboTVUpdate">Velg ventetid mellom oppdateringer av TV-info-mellomlager.</string>
+ <string control="Core_txtAPIKey">Skriv inn TVDB API-nøkkelen til mediacenteret/spilleren din. Dette er ikke nødvendig for at EMM skal fungere. Den vil kun bli brukt når episodeguide-URLer blir lagret.</string>
+ <string control="Core_txtTVDBMirror">Før inn speilserver til theTVDB.</string>
+ <string control="Core_btnTVLanguageFetch">Klikk her for å laste ned tilgjengelige språk fra theTVDB.</string>
+ <string control="Core_cbTVLanguage">Velg det foretrukne språket å bruke når du laster ned serieinformasjon og bilder.</string>
+ <string control="Core_chkCertification">Slå på detaljhenting av aldersgrense.</string>
+ <string control="Core_chkTop250">Slå på detaljhenting av IMDB Top 250-plassering.</string>
+ <string control="Core_chkCountry">Slå på detaljhenting av filmens produksjonsland.</string>
+ <string control="Core_txtGenreLimit">Begrens antall detaljhentede sjangre til den innførte verdien.</string>
+ <string control="Core_txtActorLimit">Begrens antall skuespillere til den innførte verdien.</string>
+ <string control="Core_chkCrew">Begrens detaljhenting av andre crew. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="Core_chkMusicBy">Begrens detaljhenting av musikere. (Detaljhenting av fullt crew må være påslått)</string>
+ <string control="Core_chkProducers">Begrens detaljhenting av filmprodusenter. (Detaljhenting av full crew må være påslått)</string>
+ <string control="Core_chkWriters">Slå på detaljhenting av manusforfattere.</string>
+ <string control="Core_chkStudio">Slå på detaljhenting av studio.</string>
+ <string control="Core_chkRuntime">Slå på detaljhenting av filmlengde.</string>
+ <string control="Core_chkPlot">Slå på detaljhenting av filmens historie.</string>
+ <string control="Core_chkOutline">Slå på detaljhenting av filmens beskrivelse.</string>
+ <string control="Core_chkGenre">Slå på detaljhenting av filmens sjanger.</string>
+ <string control="Core_chkDirector">Slå på detaljhetning av filmens regissør.</string>
+ <string control="Core_chkTagline">Slå på detaljhetning av filmens undertittel.</string>
+ <string control="Core_chkCast">Slå på detaljhetning av filmens skuespillerbeholdning.</string>
+ <string control="Core_chkVotes">Slå på detaljhetning av filmens poeng.</string>
+ <string control="Core_chkTrailer">Slå på detaljhetning av filmens trailer-URL.</string>
+ <string control="Core_chkRating">Slå på detaljhetning av filmens vurdering.</string>
+ <string control="Core_chkRelease">Slå på detaljhetning av filmens premieredato.</string>
+ <string control="Core_chkMPAA">Slå på detaljhetning av filmens MPAA-markering.</string>
+ <string control="Core_chkYear">Slå på detaljhetning av filmens år.</string>
+ <string control="Core_chkTitle">Slå på detaljhetning av filmens tittel.</string>
+ <string control="Core_lstMetaData">Liste over filtyper som har standard metadatafelt.</string>
+ <string control="Core_txtDefFIExt">Før inn en filtype for å lage et standard metadatafelt.</string>
+ <string control="Core_btnRemoveMetaDataFT">Fjern standard metadata fra valgt filtype i listen over standard metadata.</string>
+ <string control="Core_btnEditMetaDataFT">Endre standard metadata fra valgt filtype i listen over standard metadata.</string>
+ <string control="Core_btnNewMetaDataFT">Lag standard metadata for valgt filtype og legg den til i listen over standard metadata.</string>
+ <string control="Core_chkIFOScan">Hvis påslått, så vil EMM skanne .IFO-filer for metadata.</string>
+ <string control="Core_cbLanguages">Hvis valgt språk blir funnet i filmen, så vil et spesielt ikon bli lagt over lydmetadataikonen.</string>
+ <string control="Core_txtRuntimeFormat">Før inn formatet du vil bruke for filmens varighet, hentet fra metadata. Merk at du kan bruke <0m> for 0 bufferminutter.</string>
+ <string control="Core_chkScanMediaInfo">Hvis påslått, EMM vil skanne filmfiler for metadata.</string>
+ <string control="Core_chkUseMIDuration">Bruk varighetslengde hentet fra metadata som filmens varighet.</string>
+ <string control="Core_chkLockOutline">Hvis påslått, filmbeskrivelse vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkLockPlot">Hvis påslått, filmhistorien vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkLockTrailer">Hvis påslått, filmtrailer vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkLockGenre">Hvis påslått, filmsjanger vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkLockRealStudio">Hvis påslått, filmstudio vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkLockRating">Hvis påslått, vurdering vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkLockTagline">Hvis påslått, undertittel vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_chkLockTitle">Hvis påslått, filmtittel vil kun bli detaljhentet hvis en ikke allerede eksisterer.</string>
+ <string control="Core_cbForce">Velg regiontittel du vil at EMM skal se etter.</string>
+ <string control="Core_chkForceTitle">Hvis påslått, så vil EMM sjekke for alternative titler på det valgte språket. Dette er gunstig for å finne titler i ditt språk.</string>
+ <string control="Core_chkOutlineForPlot">Hvis påslått, så vil EMM bruke filmbeskrivelse hvis filmhistorien er tom.</string>
+ <string control="Core_chkCastWithImg">Hvis påslått, så vil EMM kun detaljhente skuespillere som har riktig type bilder.</string>
+ <string control="Core_chkUseCertForMPAA">Hvis påslått, så vil EMM bruke aldersgrensen i valgt region istedet for MPAAsertifisering.</string>
+ <string control="Core_chkFullCast">Hvis påslått, så vil alle skuespillere bli detaljhentet, istedet for kun hovedrolleinnehavere.</string>
+ <string control="Core_chkFullCrew">Hvis påslått, så vil alle crewmedlemmer bli detaljhentet. (Hvis individuelt påslått)</string>
+ <string control="Core_cbCert">Velg regionen for aldersgrenser.</string>
+ <string control="Core_chkCert">Detaljhent kun aldersgrense for valgt region.</string>
+ <string control="Core_chkMarkNewShows">Hvis påslått, så vil nye serier bli "markert" i filmlisten. Hvis avslått, så vil nye serier bli vist med tykk, grønn farge til serien er oppdatert eller til neste EMM-sesjon.</string>
+ <string control="Core_chkMarkNewEpisodes">Hvis påslått, så vil nye episoder bli "markert" i filmlisten. Hvis avslått, så vil nye episoder bli vist med tykk, grønn farge til episoden er oppdatert eller til neste EMM-sesjon.</string>
+ <string control="Core_cbOrdering">Velg standard rekkefølge EMM vil bruke under detaljhenting av serieinformasjon.</string>
+ <string control="Core_chkOnlyValueForCert">Hvis påslått, så vil EMM kun lagre verdien av aldergrensen. (Eksempel: "Norge: 18" blir "18")</string>
+ <string control="Core_rbBanner">Hvis påslått, så vil EMM laste ned et bannerbilde (bredt bilde) av valgt type som standard TVserie-plakat.</string>
+ <string control="Core_rbPoster">Hvis påslått, så vil EMM prøveå laste ned plakater av valgt type som standard TVserie-plakat.</string>
+ <string control="Core_btnResetShowFilters">Dette vil resette seriefiltere til standardliste. ADVARSEL: Dette vil slette alle selvvalgte filtere du har lagt inn.</string>
+ <string control="Core_btnResetEpFilter">Dette vil resette episodefiltere til standardliste. ADVARSEL: Dette vil slette alle selvvalgte filtere du har lagt inn.</string>
+ <string control="Core_btnResetMovieFilters">Dette vil resette filmfiltere til standardliste. ADVARSEL: Dette vil slette alle selvvalgte filtere du har lagt inn.</string>
+ <string control="Core_btnResetValidExts">Dette vil resette godkjente filtyper til standardliste. ADVARSEL: Dette vil slette alle selvvalgte filtere du har lagt inn.</string>
+ <string control="Core_ResetShowRegex">Dette vil resette serieRegex til standardliste. ADVARSEL: Dette vil slette alle selvvalgte filtere du har lagt inn.</string>
+ <string control="Core_chkClickScrape">Slå på Klikkdetaljhenting på hovedbildemarkeringer.</string>
+ <string control="Core_chkSpecialDateAdd">Hvis påslått, så vil EMM respektere fildatoen i videofilen istedet for å bruke dagens dato når videoen importeres til databasen. Dette resulterer mer stabile søk når nye filmer sorteres.</string>
+ <string control="Core_chkLockLanguageV">Hvis påslått, så vil språk (videometadata) ikke bli oppdatert.</string>
+ <string control="Core_chkLockLanguageA">Hvis påslått, så vil språk (lydmetadata) ikke bli oppdatert.</string>
+ <string control="Core_chkLockMPAA">Hvis påslått, så vil MPAA/aldersgrense ikke bli oppdatert.</string>
+ <string control="Core_chkUseMPAAFSK">Hvis påslått, så vil MPAA-verdier bli konvertert til FSK hvis ingen FSK-verdier ble funnet. Prioritet: FSK -> MPAA</string>
+</strings>
diff --git a/Ember Media Manager/Langs/Norwegian_(no_NO).xml b/Ember Media Manager/Langs/Norwegian_(no_NO).xml
new file mode 100644
index 0000000..eb09012
--- /dev/null
+++ b/Ember Media Manager/Langs/Norwegian_(no_NO).xml
@@ -0,0 +1,884 @@
+<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <string id="1">&Fil</string>
+ <string id="2">&Avslutt</string>
+ <string id="3">&Endre</string>
+ <string id="4">&Innstillinger...</string>
+ <string id="5">&Hjelp</string>
+ <string id="6">&Om...</string>
+ <string id="7">Laster media:</string>
+ <string id="8">&Verktøy</string>
+ <string id="9">&Rens Filer</string>
+ <string id="10">&Sortér filer i mapper</string>
+ <string id="11">Kopiér eksisterende fankunst til &bakgrunnmappe</string>
+ <string id="12">Tilbakestill studio&merke-metadata</string>
+ <string id="13">Mappenavn</string>
+ <string id="14">S&amlingmanager</string>
+ <string id="15">Filnavn</string>
+ <string id="16">Sesongresultat</string>
+ <string id="17">Nullstill alle mellomlagre</string>
+ <string id="18">Omlast alle filmer</string>
+ <string id="19">Lukk</string>
+ <string id="20">Sjangere</string>
+ <string id="21">Tittel</string>
+ <string id="22">Omlast</string>
+ <string id="23">Merk</string>
+ <string id="24">Lås</string>
+ <string id="25">Endre filmdetaljer</string>
+ <string id="26">Detaljer</string>
+ <string id="27">>> Velg sjanger <<</string>
+ <string id="28">Legg til</string>
+ <string id="29">Samling</string>
+ <string id="30">Fjern</string>
+ <string id="31">Detaljhent valgte filmer (på nytt)</string>
+ <string id="32">Forandre film</string>
+ <string id="33">Åpne tilhørende mappe</string>
+ <string id="34">Slett film</string>
+ <string id="35">Merk alle</string>
+ <string id="36">Filmer</string>
+ <string id="37">Nullstill filtere</string>
+ <string id="38">Generelt</string>
+ <string id="39">Ute av toleranse</string>
+ <string id="40">Manglende objekter</string>
+ <string id="41">Duplikater</string>
+ <string id="42">Spesifikt</string>
+ <string id="43">Låst</string>
+ <string id="44">Forandrer</string>
+ <string id="45">Og</string>
+ <string id="46">Eller</string>
+ <string id="47">Ny</string>
+ <string id="48">Merket</string>
+ <string id="49">År:</string>
+ <string id="50">Kilde:</string>
+ <string id="51">Sjanger:</string>
+ <string id="52">Filtre</string>
+ <string id="53">Avbryter Detaljhenter...</string>
+ <string id="54">Avbryt Detaljhenter</string>
+ <string id="55">Ingen informasjon tilgjengelig for denne filmen</string>
+ <string id="56">Sertifisering(er)</string>
+ <string id="57">Slippdato</string>
+ <string id="58">Oppdatér</string>
+ <string id="59">Metadata</string>
+ <string id="60">Filbane</string>
+ <string id="61">IMDB ID</string>
+ <string id="62">Direktør</string>
+ <string id="63">Rollebesetning</string>
+ <string id="64">Beskrivelse</string>
+ <string id="65">Handling</string>
+ <string id="66">Informasjon</string>
+ <string id="67">Detaljhent media</string>
+ <string id="68">Alle filmer</string>
+ <string id="69">Automatisk (Tving beste treff)</string>
+ <string id="70">Alle objekter</string>
+ <string id="71">Kun Nfo</string>
+ <string id="72">Kun Plakat</string>
+ <string id="73">Kun Fankunst</string>
+ <string id="74">Kun Ekstrakunst</string>
+ <string id="75">Kun trailer</string>
+ <string id="76">Kun metadata</string>
+ <string id="77">Spør (Krev innspill hvis ingen eksakte treff)</string>
+ <string id="78">Manglende filmobjekter</string>
+ <string id="79">Nye filmer</string>
+ <string id="80">Markerte filmer</string>
+ <string id="81">Selvvalgt Detaljhenter...</string>
+ <string id="82">Oppdatér bibliotek</string>
+ <string id="83">Mediacentere</string>
+ <string id="84">Detaljhent/last ned data fra internettet for flere filmer.</string>
+ <string id="85">Skanner kilder for nytt innhold, og renser databasen.</string>
+ <string id="86">Sender en kommando til XBMC for å starte dens interne "Oppdater Bibliotek"-prosess.</string>
+ <string id="87">Markér eller avmarkér alle filmene i listen.</string>
+ <string id="88">Søk i filmtitlene ved å skrive her.</string>
+ <string id="89">Spill av filmfilen i systemets standardavspiller.</string>
+ <string id="90">Skan på nytt og lagre metadataen for den valgte filmen.</string>
+ <string id="91">Vis kun filmer som har IMDB ID-duplikater.</string>
+ <string id="92">Vis kun filmer hvor dens tittelmatch er ute av toleranse.</string>
+ <string id="93">Vis kun filmer som har manglende objekter</string>
+ <string id="94">Vis kun nye filmer.</string>
+ <string id="95">Vis kun markerte filmer.</string>
+ <string id="96">Vis kun låste filmer.</string>
+ <string id="97">Vis kun filmer fra valgte kilde.</string>
+ <string id="98">Velg sjanger...</string>
+ <string id="99">Avbryter alle prosesser...</string>
+ <string id="100">Skuespiller</string>
+ <string id="101">Er du sikker på at du vil fortsette?</string>
+ <string id="102">ADVARSEL: Hvis du fortsetter, så vil alle ikke-hvitlistefiletyper bli slettet!</string>
+ <string id="103">ADVARSEL: Hvis du fortsetter, så vil alle følgende typer bli permanent slettet:</string>
+ <string id="104">Er du sikker?</string>
+ <string id="105">Fjern all merking</string>
+ <string id="106">>> Flere <<</string>
+ <string id="107">Umarkert</string>
+ <string id="108">Lås opp</string>
+ <string id="109">ADVARSEL: DETTE VIL PERMANENT SLETTE MERKEDE FILMER PERMANENT FRA HARDDISKEN</string>
+ <string id="110">Oppdatér media:</string>
+ <string id="111">Kunne ikke laste mapper. Vennligst sjekk innstillingene.</string>
+ <string id="112">Spilletid: {0}</string>
+ <string id="113">Velg språket du vil at Ember skal bruke når detaljer for TV-serier hentes.</string>
+ <string id="114">* Dette MÅ være påslått for å bruke ekstrafankunst og filnavn-valg som movie.tbn, fanart.jpg og videre.</string>
+ <string id="115">Legg til Regex</string>
+ <string id="116">Utfører føroppgaver (Henter data)...</string>
+ <string id="117">Ukjent film ({0})</string>
+ <string id="118">{0} Stemmer</string>
+ <string id="119">Avbryter filrenser</string>
+ <string id="120">Avbryt filrenser</string>
+ <string id="121">Avbryter bakgrunnkopi</string>
+ <string id="122">Avbryt kopiér</string>
+ <string id="123">Nullstill</string>
+ <string id="124">Oppdatér Regex</string>
+ <string id="125">Avbryter Detaljhenter...</string>
+ <string id="126">Avbryt Detaljhenter</string>
+ <string id="127">Detaljhenter media (Alle filmer - Spør):</string>
+ <string id="128">Detaljhenter media (Alle Filmer - Automatisk):</string>
+ <string id="129">Renser filer:</string>
+ <string id="130">Kopierer fankunst til bakgrunnsmappe:</string>
+ <string id="131">{0} som {1}</string>
+ <string id="132">Detaljhenter media (Manglende filmobjekter - Automatisk):</string>
+ <string id="133">Detaljhenter media (Manglende filmobjekter - Spør):</string>
+ <string id="134">Detaljhenter media (Nye filmer - Spør):</string>
+ <string id="135">Detaljhenter media (Nye filmer - Automatisk):</string>
+ <string id="136">Detaljhenter media (Markerte filmer - Spør):</string>
+ <string id="137">Detaljhenter media (Markerte filmer - Automatisk):</string>
+ <string id="138">Detaljhenter {0} på nytt</string>
+ <string id="139">Detaljhenter:</string>
+ <string id="140">Skanner metadata</string>
+ <string id="141">Kan ikke hente filmdetaljer fra internett. Vennligst sjekk tilkoblingen, og prøv på nytt</string>
+ <string id="142">Kunne ikke hente detaljer</string>
+ <string id="143">Oppdatér kun {0}</string>
+ <string id="144">Oppdatér</string>
+ <string id="145">Kun</string>
+ <string id="146">Detaljhent sesong (på nytt)</string>
+ <string id="147">Detaljhent episode (på nytt)</string>
+ <string id="148">Plakat</string>
+ <string id="149">Fankunst</string>
+ <string id="150">Nfo</string>
+ <string id="151">Trailer</string>
+ <string id="152">Undertekst</string>
+ <string id="153">Ekstrakunst</string>
+ <string id="154">Skuespillernavn:</string>
+ <string id="155">Skuespillerrolle:</string>
+ <string id="156">Skuespillerbilde (URL):</string>
+ <string id="157">Ny skuespiller</string>
+ <string id="158">Endre skuespiller</string>
+ <string id="159">Valgt URL er ikke gyldig.</string>
+ <string id="160">Ugyldig URL</string>
+ <string id="161">Vennligst skriv inn en URL for å verifisere</string>
+ <string id="162">Ingen hodebilde-URL spesifisert</string>
+ <string id="163">Detaljhent film (på nytt)</string>
+ <string id="164">Detaljhent valgte filmer (på nytt)</string>
+ <string id="165">Lager filmliste...</string>
+ <string id="166">Avbryter listelaging</string>
+ <string id="167">Avbryt</string>
+ <string id="168">Detaljhent-rekkefølge</string>
+ <string id="169">Lås alt</string>
+ <string id="170">Lås opp alt</string>
+ <string id="171">Navn:</string>
+ <string id="172">Beskrivelse:</string>
+ <string id="173">Utvidelseversjon:</string>
+ <string id="174">Mappe</string>
+ <string id="175">Filnavn</string>
+ <string id="176">Ny mappe</string>
+ <string id="177">Nytt filnavn</string>
+ <string id="178">Min. EMM-versjon:</string>
+ <string id="179">OK</string>
+ <string id="180">Sniktitt</string>
+ <string id="181">Skriv inn URL til bilde:</string>
+ <string id="182">Manuell fankunst</string>
+ <string id="183">Manuell plakat</string>
+ <string id="184">Bildeviser</string>
+ <string id="185">Pass til</string>
+ <string id="186">Full størrelse</string>
+ <string id="187">&Format / Innrykk</string>
+ <string id="188">&Les</string>
+ <string id="189">&Lagre</string>
+ <string id="190">Manuell Nfo-skriver</string>
+ <string id="191">Dette er ikke et skikkelig XML-dokument.</string>
+ <string id="192">Filen er ikke gyldig.</string>
+ <string id="193">Filen er gyldig.</string>
+ <string id="194">Ugyldig</string>
+ <string id="195">Gyldig</string>
+ <string id="196">Vil du lagre forandringene?</string>
+ <string id="197">Lagre?</string>
+ <string id="198">Filmkilde</string>
+ <string id="199">Kildenavn:</string>
+ <string id="200">Kildebane:</string>
+ <string id="201">Kildevalg:</string>
+ <string id="202">Kun én film i hver mappe*</string>
+ <string id="203">Bruk mappenavn for førstegangs listevisning</string>
+ <string id="204">Søk rekursivt</string>
+ <string id="205">Velg hovedmappe for filmmapper/filer</string>
+ <string id="206">Samlingnavn</string>
+ <string id="207">Forandre samling</string>
+ <string id="208">Legg til ny samling</string>
+ <string id="209">En ny versjon er tilgjengelig</string>
+ <string id="210">Kunne ikke laste oppdatér-applikasjon</string>
+ <string id="211">Klikk her</string>
+ <string id="212">for å besøke embermm.com</string>
+ <string id="213">Sortér filer i mapper</string>
+ <string id="214">Gå</string>
+ <string id="215">Status</string>
+ <string id="216">Skriv inn bane og trykk "Gå" for å begynne</string>
+ <string id="217">Bane å sortere</string>
+ <string id="218">Velg mappen som inneholder filene du vil sortere</string>
+ <string id="219">Flytter</string>
+ <string id="220">ADVARSEL: Hvis du fortsetter, så vil alle filer bli sortert inn i egne mapper</string>
+ <string id="221">Mappen du valgte eksisterer ikke. Vennligst velg en gyldig bane.</string>
+ <string id="222">Mappe ikke funnet</string>
+ <string id="223">Velg studio</string>
+ <string id="224">Forandre detaljene til valgt film.</string>
+ <string id="225">Lokal trailer funnet</string>
+ <string id="226">Studio:</string>
+ <string id="227">Trailer URL:</string>
+ <string id="228">Kreditter:</string>
+ <string id="229">MPAA Aldersgrensegrunn:</string>
+ <string id="230">Manuell forandring</string>
+ <string id="231">Skuespillere:</string>
+ <string id="232">Navn</string>
+ <string id="233">Rolle</string>
+ <string id="234">Hodebilde</string>
+ <string id="235">MPAA Aldersgrense:</string>
+ <string id="236">Premiere/slippdato</string>
+ <string id="237">Sertifisering(er):</string>
+ <string id="238">Spilletid:</string>
+ <string id="239">Direktør:</string>
+ <string id="240">Topp 250:</string>
+ <string id="241">Handling:</string>
+ <string id="242">Handling i et nøtteskall:</string>
+ <string id="243">Undertittel:</string>
+ <string id="244">Stemmer:</string>
+ <string id="245">Rangering:</string>
+ <string id="246">Tittel:</string>
+ <string id="247">Fjern plakat</string>
+ <string id="248">Bytt plakat (Detaljhent)</string>
+ <string id="249">Bytt plakat (lokal)</string>
+ <string id="250">Fjern fankunst</string>
+ <string id="251">Bytt fankunst (Detaljhent)</string>
+ <string id="252">Bytt fankunst (lokal)</string>
+ <string id="253">Du har ekstrakunst i kø for å bli overført til filmmappen.</string>
+ <string id="254">Overfør nå</string>
+ <string id="255">Sett som fankunst</string>
+ <string id="256">Bildeekstrakt</string>
+ <string id="257">Max. EMM-versjon</string>
+ <string id="258">Kategori</string>
+ <string id="259">Bane til nytt skjermdumpbilde:</string>
+ <string id="260">Nåværende skjermdump</string>
+ <string id="261">Skjermdumpbildet må være JPG, 150 KB eller mindre i størrelse, og 133x95 piksler i dimensjon.</string>
+ <string id="262">Versjon:</string>
+ <string id="263">Installert:</string>
+ <string id="264">Rens mellomlager</string>
+ <string id="265">Bytt plakat (Last ned)</string>
+ <string id="266">Bytt fankunst (Last ned)</string>
+ <string id="267">En eller flere resurser i mellomlageret er i bruk, og kan ikke slettes.</string>
+ <string id="268">Kan ikke rense mellomlager</string>
+ <string id="269">Størrelse: {0}x{1}</string>
+ <string id="270">Kunne ikke spille av traileren. Dette kan være grunnet ugyldig URL eller at du ikke har riktig avspiller.</string>
+ <string id="271">Kunne spille av trailer.</string>
+ <string id="272">Utvidelsesfil</string>
+ <string id="273">Lagre</string>
+ <string id="274">Nullstill</string>
+ <string id="275">Filter</string>
+ <string id="276">Påfør</string>
+ <string id="277">Ny utvidelse</string>
+ <string id="278">År</string>
+ <string id="279">Forandre utvidelse</string>
+ <string id="280">Utvidelsesfiler</string>
+ <string id="281">Video</string>
+ <string id="282">Lyd</string>
+ <string id="283">Ukjent</string>
+ <string id="284">Kansellert</string>
+ <string id="285">Utvidelser</string>
+ <string id="286">Innlogging</string>
+ <string id="287">Innlogging til utvidelsesserver</string>
+ <string id="288">Henter "{0}" utvidelser</string>
+ <string id="289">Logger inn...</string>
+ <string id="290">Oversettelser</string>
+ <string id="291">Templater</string>
+ <string id="292">Ugyldig innførsel</string>
+ <string id="293">Andre</string>
+ <string id="294">Lag ny</string>
+ <string id="295">Slett utvidelse</string>
+ <string id="296">For å fortsette med sletting, må du bekrefte at du er eieren av utvidelsen.</string>
+ <string id="297">Bekreft eierskap</string>
+ <string id="298">Start EMM på nytt?</string>
+ <string id="299">Nye endringer krever en omstart av EMM for å bli ferdig.\n\nVil du starte EMM på nytt nå?</string>
+ <string id="300">Ja</string>
+ <string id="301">Land</string>
+ <string id="302">Original Tittel</string>
+ <string id="303"/>
+ <string id="304"/>
+ <string id="305"/>
+ <string id="306"/>
+ <string id="307"/>
+ <string id="308"/>
+ <string id="309"/>
+ <string id="310"/>
+ <string id="311"/>
+ <string id="312"/>
+ <string id="313"/>
+ <string id="314"/>
+ <string id="315"/>
+ <string id="316"/>
+ <string id="317"/>
+ <string id="318"/>
+ <string id="319"/>
+ <string id="320"/>
+ <string id="321"/>
+ <string id="322">X-Stor</string>
+ <string id="323">Stor</string>
+ <string id="324">Medium</string>
+ <string id="325">Liten</string>
+ <string id="326"/>
+ <string id="327"/>
+ <string id="328"/>
+ <string id="329"/>
+ <string id="330"/>
+ <string id="331"/>
+ <string id="332"/>
+ <string id="333"/>
+ <string id="334"/>
+ <string id="335"/>
+ <string id="336"/>
+ <string id="337"/>
+ <string id="338"/>
+ <string id="339"/>
+ <string id="340"/>
+ <string id="341"/>
+ <string id="342"/>
+ <string id="343"/>
+ <string id="344"/>
+ <string id="345"/>
+ <string id="346"/>
+ <string id="347"/>
+ <string id="348"/>
+ <string id="349"/>
+ <string id="350">DVD</string>
+ <string id="351">Ugyldig</string>
+ <string id="352"/>
+ <string id="353"/>
+ <string id="354"/>
+ <string id="355">Eksisterer</string>
+ <string id="356"/>
+ <string id="357"/>
+ <string id="358"/>
+ <string id="359"/>
+ <string id="360"/>
+ <string id="361">Ferdig</string>
+ <string id="362">Ferdig</string>
+ <string id="363"/>
+ <string id="364"/>
+ <string id="365">Samlingmanager</string>
+ <string id="366">Samlinger</string>
+ <string id="367">Filmer i samling</string>
+ <string id="368">Ingen valgt</string>
+ <string id="369">Laster film og samlinger...</string>
+ <string id="370">Avbryter lasting...</string>
+ <string id="371">Legg til og konfigurer filmsamlinger.</string>
+ <string id="372"/>
+ <string id="373">Last ned</string>
+ <string id="374"/>
+ <string id="375"/>
+ <string id="376"/>
+ <string id="377"/>
+ <string id="378"/>
+ <string id="379"/>
+ <string id="380"/>
+ <string id="381"/>
+ <string id="382"/>
+ <string id="383"/>
+ <string id="384">Selvvalgt Detjalhenter</string>
+ <string id="385">Lag en ny selvvalgt Detaljhenter</string>
+ <string id="386">Valgfilter</string>
+ <string id="387">Oppdatér modus</string>
+ <string id="388">Modifiseringer</string>
+ <string id="389">Start</string>
+ <string id="390">Valg</string>
+ <string id="391">Andre crew</string>
+ <string id="392">Musikk av</string>
+ <string id="393">Produsenter</string>
+ <string id="394">Forfattere</string>
+ <string id="395">Studio</string>
+ <string id="396">Spilletid</string>
+ <string id="397">Undertittel</string>
+ <string id="398">Rollebesetning</string>
+ <string id="399">Stemmer</string>
+ <string id="400">Rangering</string>
+ <string id="401">MPAA</string>
+ <string id="402">Ember Oppstarthjelper</string>
+ <string id="403">< Tilbake</string>
+ <string id="404">Neste ></string>
+ <string id="405">Velkommen til Ember Media Manager</string>
+ <string id="406">TIPS: Valg som inneholder teksten <film> betyr at EMM vil bruke filnavnet til filmen.</string>
+ <string id="407">Legg til kilde</string>
+ <string id="408">Det var vel ikke så vanskelig? Som nevnt tidligere, så kan du forandre disse valgene på et senere tidspunkt i Innstillingene.</string>
+ <string id="409">Det var dét!{0}Ember Media Manager er klar!</string>
+ <string id="410">Bane</string>
+ <string id="411">Rekursivt</string>
+ <string id="412">Bruk mappenavn</string>
+ <string id="413">Kun én video</string>
+ <string id="414">Først, la oss fortelle EMM hvor det kan finne filmene dine. Du kan legge til så mange kilder du vil.</string>
+ <string id="415">Dette er enten den første gangen du kjører EMM, eller så ha du oppgradert til en nyere versjon. Det er noen ting EMM trenger for å fungere skikkelig. Denne hjelperen vil hjelpe deg konfigurere EMM.{0}{0}Bare en håndfull valg vil bli vist i denne hjelperen. Du kan forandre disse, eller andre valg, når du vil i Innstillingene, som du finner i Edit-menyen.</string>
+ <string id="416">Nå som EMM vet HVOR det kan finne filene, må vi fortelle det HVILKE filer det må søke etter. Velg de filene du vil at EMM skal bruke. Du kan velge flere typer i hver seksjon, hvis du ønsker.</string>
+ <string id="417">Noen valg du kan være interessert i: {0}{0}Selvvalgte filtre - Hvis filnavnene inneholder ting som "DVDRip", "BluRay", "x264", eller lignende, og du ønsker å filtrere ut disse i medialisten, så kan du bruke Selvvalgte filtre-valget. Selvvalgte filtre-funksjonen støtter Regex.{0}{0}Bilder- Den seksjonen tillater deg å velge hvilke nettsider EMM skal "detaljhente" bilder fra, og hvilke størrelser du ønsker.{0}{0}Låser - Denne seksjonen tillater deg å "låse" visse detaljer, sånn at de ikke blir forandrer hvis du detaljhenter på nytt. Dette er nyttig hvis du manuelt oppdaterer tittel, handling eller lignende, og ikke ønsker at dette forsvinner.</string>
+ <string id="418">Er du sikker på at du vil fjerne valgte kilder? Dette vil også fjerne filmene i disse mappene fra EMM-databasen.</string>
+ <string id="419">Metadata er ikke tilgjengelig for denne filmen. Prøv å skanne på nytt.</string>
+ <string id="420">Innstillinger</string>
+ <string id="421">Tilkobling</string>
+ <string id="422"/>
+ <string id="423"/>
+ <string id="424"/>
+ <string id="425">Brukernavn:</string>
+ <string id="426">Passord:</string>
+ <string id="427"/>
+ <string id="428"/>
+ <string id="429">Diverse</string>
+ <string id="430">Grensesnittspråk</string>
+ <string id="431">Slå på Panelanimasjon</string>
+ <string id="432">Se etter oppdateringer</string>
+ <string id="433">Skriv over ikke-standard Nfofiler</string>
+ <string id="434">(Hvis umarkert, ikke-standard Nfofiler vil bli omdøt til <filnavn>.info)</string>
+ <string id="435">Lagre feilmeldinger til fil</string>
+ <string id="436">Vis Overlay hvis video inneholder en lydstrøm med følgende språk:</string>
+ <string id="437">Rens filer</string>
+ <string id="438">Standard</string>
+ <string id="439">Ekspert</string>
+ <string id="440">Tillatte videofiltyper</string>
+ <string id="441">Tillatte filtyper:</string>
+ <string id="442">ADVARSEL: Ekspertmodus-renser kan potensielt slette ønskede filer. Vis varsomhet når du bruker dette verktøyet.</string>
+ <string id="443">Last ned programutvidelser...</string>
+ <string id="444">Fil</string>
+ <string id="445"/>
+ <string id="446"/>
+ <string id="447">Laster ned filer...</string>
+ <string id="448"/>
+ <string id="449"/>
+ <string id="450"/>
+ <string id="451">Mappe/fil-filtre</string>
+ <string id="452">Konverter navn til riktig forbokstav</string>
+ <string id="453">Alltid vis sjangertekst</string>
+ <string id="454">Sjangerspråkfilter</string>
+ <string id="455">Ikke vis fankunst</string>
+ <string id="456">Ikke vis plakat</string>
+ <string id="457">Vis bildedimensjoner</string>
+ <string id="458">Hjelp</string>
+ <string id="459">Markér nye filmer</string>
+ <string id="460">Medialistevalg</string>
+ <string id="461">Ikkematch-toleranse:</string>
+ <string id="462">Sjekk tittelmatch-konfidens</string>
+ <string id="463">Sortér tokens til ignoranse</string>
+ <string id="464">Vis år i listetittel</string>
+ <string id="465">Gjem ekstrakunstseksjon</string>
+ <string id="466">Gjem undertekstseksjon</string>
+ <string id="467">Gjem trailerseksjon</string>
+ <string id="468">Gjem informasjonseksjon</string>
+ <string id="469">Gjem fankunstseksjon</string>
+ <string id="470">Gjem plakatseksjon</string>
+ <string id="471">Filnavn</string>
+ <string id="472">bruk <film> kun for mapper med flere filmer</string>
+ <string id="473">YAMJ-kompatibel VIDEO-TS filplassering/navn</string>
+ <string id="474">Frodo kompatibel VIDEO_TS filplassering/navn</string>
+ <string id="475"/>
+ <string id="476"/>
+ <string id="477"/>
+ <string id="478">Kvalitet:</string>
+ <string id="479">Max bredde:</string>
+ <string id="480">Max høyde:</string>
+ <string id="481">Automatisk forandre størrelse:</string>
+ <string id="482">Foretrukker størrelse:</string>
+ <string id="483">Overskriv eksisterende</string>
+ <string id="484">Laster innstillinger...</string>
+ <string id="485"/>
+ <string id="486"/>
+ <string id="487"/>
+ <string id="488">Globale låser</string>
+ <string id="489">Lås trailer</string>
+ <string id="490">Lås sjanger</string>
+ <string id="491">Lås studio</string>
+ <string id="492">Lås rangering</string>
+ <string id="493">Lås undertittle</string>
+ <string id="494">Lås tittel</string>
+ <string id="495">Lås beskrivelse</string>
+ <string id="496">Lås handling</string>
+ <string id="497">Bilder</string>
+ <string id="498">Ikke skriv URLer i Nfo</string>
+ <string id="499">Hent ved singel Detaljhent</string>
+ <string id="500">MoviePosterDB.com</string>
+ <string id="501">TheMovieDB.org</string>
+ <string id="502">IMPAwards.com</string>
+ <string id="503">Bruk hvis man ikke finner fankunst</string>
+ <string id="504">Metadata er ikke tilgjengelig for denne episoden. Prøv å skanne på nytt</string>
+ <string id="505">Ingen handlingdetaljer (spoilers)</string>
+ <string id="506">Antall å lage:</string>
+ <string id="507">Ekstrakt under Detaljhent</string>
+ <string id="508">Bruk beskrivelse hvis handling er tom</string>
+ <string id="509"/>
+ <string id="510">Detaljhent kun skuespillere med bilder</string>
+ <string id="511">Bruk MPAA-sertifisering</string>
+ <string id="512">Detaljhent full rollebesetning</string>
+ <string id="513">Detaljhent fullt crew</string>
+ <string id="514">Bruk følgende sertifiseringsspråk:</string>
+ <string id="515">Oppgitt spilletidformat</string>
+ <string id="516">Bruk oppgitt spilletid for spilletid</string>
+ <string id="517">Skan metadata</string>
+ <string id="518">Konfigurer EMMs utseende og operasjon</string>
+ <string id="519">Fjerne valgte</string>
+ <string id="520">Bakgrunnsmappe</string>
+ <string id="521">Automatisk lagre fankunst til bakgrunnsmappe</string>
+ <string id="522">Slett all eksisterende</string>
+ <string id="523"/>
+ <string id="524">Hent kun URLer under Detaljhenting</string>
+ <string id="525">Hent under singel Detaljhenting</string>
+ <string id="526"/>
+ <string id="527">Hent under automatisk Detaljhenting</string>
+ <string id="528"/>
+ <string id="529">Slå på trailere</string>
+ <string id="530">No Stack-utvidelser</string>
+ <string id="531"/>
+ <string id="532"/>
+ <string id="533"/>
+ <string id="534">Gyldig videofiltyper</string>
+ <string id="535">Forandre kilde</string>
+ <string id="536">Andre valg</string>
+ <string id="537">Gjenkjenn VIDEO_TS-mapper</string>
+ <string id="538">Hopp over størrelsesjekk for stablede filer</string>
+ <string id="539">MB</string>
+ <string id="540">Hopp over filer mindre enn:</string>
+ <string id="541">Størrelser (Ekstraktede bilder)</string>
+ <string id="542">Polstring</string>
+ <string id="543">Bredde:</string>
+ <string id="544">Høyde:</string>
+ <string id="545">Bruk selvvalgt størrelse</string>
+ <string id="546">Bruk original oppløsning</string>
+ <string id="547">Mellomlagrer</string>
+ <string id="548">Bruk under automatisk Detaljhenting</string>
+ <string id="549">Markér nye serier</string>
+ <string id="550">Vedvarende mellomlagring for bilder</string>
+ <string id="551">Bruk mellomlager for bilder</string>
+ <string id="552">Velg mappen hvor du ønsker å lagre bakgrunner</string>
+ <string id="553">Filsystem</string>
+ <string id="554"/>
+ <string id="555">Filer og kilder</string>
+ <string id="556">Detaljhent - Data</string>
+ <string id="557">Detaljhentere - Bilder og trailere</string>
+ <string id="558">Bred</string>
+ <string id="559"/>
+ <string id="560"/>
+ <string id="561"/>
+ <string id="562"/>
+ <string id="563"/>
+ <string id="564"/>
+ <string id="565"/>
+ <string id="566"/>
+ <string id="567"/>
+ <string id="568">Genererer skuespillermellomlager:</string>
+ <string id="569">Alle</string>
+ <string id="570">[ingen]</string>
+ <string id="571">[Avslått]</string>
+ <string id="572">Henter plakater:</string>
+ <string id="573">Henter fankunst:</string>
+ <string id="574">Henter trailere:</string>
+ <string id="575">Generer ekstrakunst</string>
+ <string id="576">Verifiserer filmdetaljer</string>
+ <string id="577">Detaljområder - Globalt</string>
+ <string id="578">Grense:</string>
+ <string id="579">Filkilde:</string>
+ <string id="580">Vis kun filmer fra valgte kilde.</string>
+ <string id="581">Manglende objekt-filter</string>
+ <string id="582">Se etter plakat</string>
+ <string id="583">Se etter fankunst</string>
+ <string id="584">Se etter Nfo</string>
+ <string id="585">Se etter trailer</string>
+ <string id="586">Se etter undertekst</string>
+ <string id="587">Se etter ekstrakunst</string>
+ <string id="588"/>
+ <string id="589"/>
+ <string id="590"/>
+ <string id="591">Topp 250</string>
+ <string id="592"/>
+ <string id="593"/>
+ <string id="594">Metadata-endrer</string>
+ <string id="595">Videostrømmer</string>
+ <string id="596">Lydstrømmer</string>
+ <string id="597">Undertekststrømmer</string>
+ <string id="598">Strømtype</string>
+ <string id="599">Last ned alle fankunstbilder med følgende størrelse som ekstrakunst:</string>
+ <string id="600">Ekstra sortering</string>
+ <string id="601">Dato lagt til</string>
+ <string id="602">Kilder</string>
+ <string id="603">Endre metadata</string>
+ <string id="604">Kodek</string>
+ <string id="605">Skantype</string>
+ <string id="606">Bredde</string>
+ <string id="607">Høyde</string>
+ <string id="608">Aspekt</string>
+ <string id="609">Lengde</string>
+ <string id="610">Språk</string>
+ <string id="611">Kanaler</string>
+ <string id="612">Foretrukne</string>
+ <string id="613">Strøm-forandrer</string>
+ <string id="614">Aspektforhold</string>
+ <string id="615">Flettet</string>
+ <string id="616">Progressivt</string>
+ <string id="617">Videostrøm</string>
+ <string id="618">Lydstrøm</string>
+ <string id="619">Undertekststrøm</string>
+ <string id="620">Filmtema</string>
+ <string id="621">Markér nye episoder</string>
+ <string id="622">Detaljhenter media (Nåværende filter - Spør):</string>
+ <string id="623">Detaljhenter media (Nåværende filter - Automatisk):</string>
+ <string id="624">Nåværende filter</string>
+ <string id="625">Standarder ved filtyper</string>
+ <string id="626">Filtyper</string>
+ <string id="627">Valgte objekter: {0}</string>
+ <string id="628">Slå på IFO-lesing</string>
+ <string id="629">Temaer</string>
+ <string id="630"/>
+ <string id="631"/>
+ <string id="632"/>
+ <string id="633"/>
+ <string id="634"/>
+ <string id="635">Du har valgt {0} mapper å åpne. Er du sikker på at du vil gjøre dette?</string>
+ <string id="636"/>
+ <string id="637"/>
+ <string id="638"/>
+ <string id="639"/>
+ <string id="640"/>
+ <string id="641"/>
+ <string id="642">Sortér tittel</string>
+ <string id="643">Lagrer YAMJ-kompatible samlinger</string>
+ <string id="644">Renser databasen...</string>
+ <string id="645">Sluppet: {0}</string>
+ <string id="646">Fjern fra databasen</string>
+ <string id="647">Spilledato: {0}</string>
+ <string id="648">Sesong: {0}, episode: {0}</string>
+ <string id="649">Oppdatér alt</string>
+ <string id="650">Sesong</string>
+ <string id="651">Ingen informasjon tilgjengelig for denne serien</string>
+ <string id="652">Ingen informasjon tilgjengelig for denne episoden</string>
+ <string id="653">Tvserier</string>
+ <string id="654">Sesong</string>
+ <string id="655">Sesongspesialer</string>
+ <string id="656">Endre episodedetaljer</string>
+ <string id="657">Endre detaljer for valgte episoder</string>
+ <string id="658">På luften:</string>
+ <string id="659">Sesong:</string>
+ <string id="660">Episode:</string>
+ <string id="661">Last episode</string>
+ <string id="662">Lagre som plakat</string>
+ <string id="663">Endre detaljer</string>
+ <string id="664">Endre detaljene for valgt serie.</string>
+ <string id="665">Første gang på lufta:</string>
+ <string id="666">TVserietema</string>
+ <string id="667">Episodetema</string>
+ <string id="668">Rens databasen etter bibliotekoppdatering</string>
+ <string id="669">Ignorér siste skantid ved oppdatering av bibliotek</string>
+ <string id="670">Serie mappe/filnavn-filtre</string>
+ <string id="671">Episode mappe/filnavn-filtre</string>
+ <string id="672">Proxy</string>
+ <string id="673">Slå på proxy</string>
+ <string id="674">Proxy-URL:</string>
+ <string id="675">Proxy-port:</string>
+ <string id="676">Legitimasjon</string>
+ <string id="677">Slå på legitimasjon</string>
+ <string id="678">Domene</string>
+ <string id="679">TV-aldersgrenseregion</string>
+ <string id="680">Serier</string>
+ <string id="681">Sesonger</string>
+ <string id="682">Episoder</string>
+ <string id="683">Vis plakater</string>
+ <string id="684">Vis fankunst</string>
+ <string id="685">Sesongplakater</string>
+ <string id="686">Sesongfankunst</string>
+ <string id="687">Episodeplakater</string>
+ <string id="688">Episodefankunst</string>
+ <string id="689">[MANGLER]</string>
+ <string id="690">Endre Regex</string>
+ <string id="691">Seriematchende Regex</string>
+ <string id="692">Sesongmatchende Regex</string>
+ <string id="693">Episodematchende Regex</string>
+ <string id="694">Anvend på</string>
+ <string id="695">Endre Regex</string>
+ <string id="696">Serie-regex</string>
+ <string id="697">Episode-regex</string>
+ <string id="698">Tvserier</string>
+ <string id="699">Regex</string>
+ <string id="700">Tvserie</string>
+ <string id="701">Episode</string>
+ <string id="702"/>
+ <string id="703"/>
+ <string id="704"/>
+ <string id="705">TV-kilde</string>
+ <string id="706">Velg hovedmappen for TV-serier</string>
+ <string id="707"/>
+ <string id="708">Donér</string>
+ <string id="709">Rens databasen</string>
+ <string id="710">Tving tittelspråk:</string>
+ <string id="711">Inkludér mappenavn i kildetypesjekk</string>
+ <string id="712">Sortér filer i mapper før hver bibliotekoppdatering</string>
+ <string id="713">Lokal trailer:</string>
+ <string id="714">Bekreft objekter som skal slettes</string>
+ <string id="715">Velg alle filer</string>
+ <string id="716">Detaljhent på nytt</string>
+ <string id="717">Forbereder for oppdatering...</string>
+ <string id="718">Vi er nå klare til å oppdatere. EMM vil nå lukkes sånn at oppdateringen kan starte.\n\nVil du fortsette?</string>
+ <string id="719">Ja</string>
+ <string id="720">Nei</string>
+ <string id="721">Oppdater</string>
+ <string id="722">Sertifisering</string>
+ <string id="723">EpisodeGuideURL</string>
+ <string id="724">Sluppet</string>
+ <string id="725">Skuespillere</string>
+ <string id="726">Sesong {0}</string>
+ <string id="727">Episode</string>
+ <string id="728">På lufta</string>
+ <string id="729">Kreditteringer</string>
+ <string id="730">Foretrukket type:</string>
+ <string id="731">Oppdaterer serie:</string>
+ <string id="732"><h>=Timer. <m>Minutter. <s>Sekunder</string>
+ <string id="733">Hvis manglende episoder</string>
+ <string id="734">Bygg episodetittel istedenfor filtrering</string>
+ <string id="735">Alle sesonger-plakat</string>
+ <string id="736">Hent bilder kun i det foretrukne språket</string>
+ <string id="737">Og hent engelske bilder</string>
+ <string id="738">API-nøkkel:</string>
+ <string id="739">Episoderekkefølge:</string>
+ <string id="740">Hent serieinformasjon på nytt hver:</string>
+ <string id="741">Foretrukket språk:</string>
+ <string id="742">Hent tilgjengelige språk:</string>
+ <string id="743">Serie</string>
+ <string id="744">TVsesong</string>
+ <string id="745">Ingen</string>
+ <string id="746">Blank</string>
+ <string id="747">Grafisk</string>
+ <string id="748">Tekst</string>
+ <string id="749">Uke</string>
+ <string id="750">Annenhver uke</string>
+ <string id="751">Måned</string>
+ <string id="752">Aldri</string>
+ <string id="753">Alltid</string>
+ <string id="754">Modulinnstillinger</string>
+ <string id="755">Episode#</string>
+ <string id="756">Laster alle episoder:</string>
+ <string id="757">Lagrer alle bilder:</string>
+ <string id="758">Søker theTVDB</string>
+ <string id="759">Velg bilder:</string>
+ <string id="760">Laster ned SerieZIP:</string>
+ <string id="761">Verifiserer TVserie:</string>
+ <string id="762">Verifiserer episode:</string>
+ <string id="763">Er du sikker på at du vil slette valgte TVserie og påfølgende episoder?</string>
+ <string id="764">Er du sikker på at du vil slette valgte episode?</string>
+ <string id="765">Er du sikker på at du vil slette valgte sesong, og dens episoder?</string>
+ <string id="766">Detaljhent serie (på nytt)</string>
+ <string id="767">Forandre serie</string>
+ <string id="768">Slett TVserie</string>
+ <string id="769">Endre sesongdetaljer</string>
+ <string id="770">Bytt bilder</string>
+ <string id="771">Slett sesong</string>
+ <string id="772">Forandre episode</string>
+ <string id="773">Slett episode</string>
+ <string id="774">Påslått</string>
+ <string id="775">Avslått</string>
+ <string id="776"/>
+ <string id="777">Forfatter</string>
+ <string id="778"/>
+ <string id="779"/>
+ <string id="780"/>
+ <string id="781"/>
+ <string id="782"/>
+ <string id="783">Handling</string>
+ <string id="784"/>
+ <string id="785"/>
+ <string id="786">Alle sesonger-plakat</string>
+ <string id="787"/>
+ <string id="788"/>
+ <string id="789"/>
+ <string id="790"/>
+ <string id="791"/>
+ <string id="792">Donér</string>
+ <string id="793">&Versjoner</string>
+ <string id="794">&Modulinnstillinger</string>
+ <string id="795">Grensesnitt</string>
+ <string id="796">Skan etter siste skrivetid</string>
+ <string id="797">Standard episoderekkefølge</string>
+ <string id="798"/>
+ <string id="799">Detaljhenter - Trailer</string>
+ <string id="800">Foretrukket kvalitet</string>
+ <string id="801">TVDB-speilserver</string>
+ <string id="802">Moduler</string>
+ <string id="803">Nå, la oss fortelle EMM hvor det kan finne alle TVseriene dine. Du kan legge til så mange kilder du vil.</string>
+ <string id="804">Og til slutt, la oss fortelle EMM hvilke TVserie-filer det skal se etter. Velg de filene du vil ha. Du kan velge flere i samme seksjon.</string>
+ <string id="805">Send til PasteBin.com</string>
+ <string id="806">Kopier til utklippstavle</string>
+ <string id="807">Noe skjedde under sendingen til PasteBin.com</string>
+ <string id="808">Feilmeldingleser</string>
+ <string id="809">Før du sender feilmeldingsskjema, vennligst verifiser at feilmeldingen ikke allerede har blitt sendt. Du kan se alle kjente feil her:</string>
+ <string id="810">http://www.embermm.com/projects/embermm/issues</string>
+ <string id="811">PasteBin URL:</string>
+ <string id="812">Gammel tittel: {0} | Ny tittel: {1}</string>
+ <string id="813">Film detaljhentet</string>
+ <string id="814">La til episode:</string>
+ <string id="815">La til film:</string>
+ <string id="816">En feil har skjedd</string>
+ <string id="817">Ny film lagt til</string>
+ <string id="818">Ny episode lagt til</string>
+ <string id="819">TV RegEx-profiler</string>
+ <string id="820">RegEx-profiler</string>
+ <string id="821">Beskrivelse</string>
+ <string id="822">Diverse</string>
+ <string id="823">Lyd- og videokodekkobling</string>
+ <string id="824">Videokilde:</string>
+ <string id="825">Nedlastinger:</string>
+ <string id="826"/>
+ <string id="827"/>
+ <string id="828">Slå på skuespillerbilder</string>
+ <string id="829">Se etter "Dump"mappe</string>
+ <string id="830">Endre detaljer for valgte sesonger.</string>
+ <string id="831"/>
+ <string id="832">Vis "alle sesonger"-plakater</string>
+ <string id="833">Disse er Detaljhenterspesifikke innstillinger og fungerer som et filter.\nDu kan også bruke EMM globale innstillinger</string>
+ <string id="834">* I hver sesongmappe</string>
+ <string id="835">Skriv kun verdien til Nfo</string>
+ <string id="836"/>
+ <string id="837">Detaljhenter - Bilder</string>
+ <string id="838">Banner</string>
+ <string id="839">Absolutt</string>
+ <string id="840">Er du sikker på at du vil nullstille til standard liste for seriefilter?</string>
+ <string id="841">Er du sikker på at du vil nullstille til standard liste for episodefilter?</string>
+ <string id="842">Er du sikker på at du vil nullstille til standard liste for filmfilter?</string>
+ <string id="843">Er du sikker på at du vil nullstille til standard liste for gyldige videofiltyper?</string>
+ <string id="844">Er du sikker på at du vil nullstille til standard liste for serieregex?</string>
+ <string id="845">>> Intet objekt valgt <<</string>
+ <string id="846"/>
+ <string id="847"/>
+ <string id="848"/>
+ <string id="849">Slå på klikk-detaljhent</string>
+ <string id="850">&Sjekk for oppdateringer</string>
+ <string id="851">Ingen oppdateringer nå</string>
+ <string id="852">Spør ved klikk-detaljhent</string>
+ <string id="853">Detaljhenter media (Alle filmer - Hopp over)</string>
+ <string id="854">Grunnleggende oppsettvalg.</string>
+ <string id="855">Lager standardvalg.</string>
+ <string id="856">Laster moduler...</string>
+ <string id="857">Lager brukergrensesnitt.</string>
+ <string id="858">Laster database...</string>
+ <string id="859">Kjører modul...</string>
+ <string id="860">Laster media...</string>
+ <string id="861">Kommandolinje-detaljhenting...</string>
+ <string id="862">Laster oversettelser...</string>
+ <string id="863">Posisjonkontroll...</string>
+ <string id="864">Lager menyer...</string>
+ <string id="865">Versjon {0}.{1}.{2}.{3}</string>
+ <string id="866">Metadata.</string>
+ <string id="867">XBMC Frodo</string>
+ <string id="868">Topp 250</string>
+ <string id="869">EmberMM.com &Wiki...</string>
+ <string id="870"/>
+ <string id="871"/>
+ <string id="872"/>
+ <string id="873"/>
+ <string id="874"/>
+ <string id="875"/>
+ <string id="876"/>
+ <string id="877"/>
+ <string id="878"/>
+ <string id="879">Lås språk (video)</string>
+ <string id="880">Lås Språk (lyd)</string>
+ <string id="881">Lås MPAA/Aldersgrense</string>
+ <string id="882">Bruk MPAA som reserve for FSK gradering</string>
+</strings>
diff --git "a/Ember Media Manager/Langs/Portugu\303\252s_(pt_BR)-Help.xml" "b/Ember Media Manager/Langs/Portugu\303\252s_(pt_BR)-Help.xml"
deleted file mode 100644
index 58e328f..0000000
--- "a/Ember Media Manager/Langs/Portugu\303\252s_(pt_BR)-Help.xml"
+++ /dev/null
@@ -1,362 +0,0 @@
-<strings>
- <string control="Core_chkShowGenresText">If enabled, the value of the genre images will always be displayed. If disabled, the text will only be visible when you hover your mouse over one of the genre images.</string>
- <string control="Core_chkSourceFromFolder">If enabled, Ember will check the folder name for source types. If disabled, Ember will only check the file name.</string>
- <string control="Core_chkNoDisplayFanart">If enabled, fanart will not be displayed in the main window. This is helpful to speed up the interface on slow computers.</string>
- <string control="Core_chkNoDisplayPoster">If enabled, posters will not be displayed in the main window. This is helpful to speed up the interface on slow computers.</string>
- <string control="Core_chkShowDims">If enabled, the dimensions of the images (posters and fanart) will be overlayed on top of the images.</string>
- <string control="Core_chkUpdates">If enabled, Ember will check for a new version at each start up.</string>
- <string control="Core_chkOverwriteNfo">Marcada faz com que os arquivos NFOs fora do padrão sejam sobrescritos quando o Ember buscar as informações dos filmes. Desmarcada faz com que os arquivos NFOs não sejam sobrescritos e um novo arquivo, com a extensão .INFO, seja criado.</string>
- <string control="Core_chkLogErrors">If enabled, all errors will be logged to a file located in <Ember Installation Directory>\Log\errlog.txt.</string>
- <string control="Core_cbEpTheme">Select the theme to apply for the episode layout.</string>
- <string control="Core_cbTVShowTheme">Select the theme to apply for the TV Show and Season layout.</string>
- <string control="Core_cbMovieTheme">Select the theme to apply for the movie layout.</string>
- <string control="Core_btnDLTrans">Download addons for Ember, including modules, themes, translations to other languages, and export templates.</string>
- <string control="Core_cbIntLang">Select the language to use for Ember's interface. (You must restart Ember for changes to take effect)</string>
- <string control="Core_chkCleanFolderJPG">Clean all files named "folder.jpg".</string>
- <string control="Core_chkCleanExtrathumbs">Clean all "extrathumbs" folders.</string>
- <string control="Core_chkCleanMovieTBN">Clean all files named "movie.tbn".</string>
- <string control="Core_chkCleanMovieNameJPG">Clean all files named <movie>.jpg.</string>
- <string control="Core_chkCleanMovieTBNb">Clean all files named <movie>.tbn.</string>
- <string control="Core_chkCleanMovieJPG">Clean all files named "movie.jpg".</string>
- <string control="Core_chkCleanFanartJPG">Clean all files named "fanart.jpg".</string>
- <string control="Core_chkCleanPosterJPG">Clean all files named "poster.jpg".</string>
- <string control="Core_chkCleanMovieFanartJPG">Clean all files named <movie>-fanart.jpg.</string>
- <string control="Core_chkCleanPosterTBN">Clean all files named "poster.tbn".</string>
- <string control="Core_chkCleanMovieNFO">Clean all files named "movie.nfo".</string>
- <string control="Core_chkCleanDotFanartJPG">Clean all files named <movie>.fanart.jpg.</string>
- <string control="Core_chkCleanMovieNFOb">Clean all files named <movie>.nfo.</string>
- <string control="Core_chkWhitelistVideo">Automatically whitelist all files which have an extension in the "Valid Video Extensions" list.</string>
- <string control="Core_btnRemoveWhitelist">Remove the selected extension from the whitelist.</string>
- <string control="Core_btnAddWhitelist">Add the entered extension to the whitelist.</string>
- <string control="Core_txtWhitelist">Enter an extension to add to the whitelist.</string>
- <string control="Core_lstWhitelist">This list contains all the current extensions that will be skipped during cleaning.</string>
- <string control="Core_chkYAMJCompatibleSets">If enabled, Ember will save sets information in a format that is compatible with YAMJ. If disabled, Ember will save sets information in a format that is compatible with XBMC.</string>
- <string control="Core_chkAskCheckboxScrape">If enabled, when clicking on a checkbox in the movies list a non-automatic will be used. If disabled, an automatic scrape will be used.</string>
- <string control="Core_chkMarkNew">If enabled, new movies will be "marked". If disabled, new movies will still be colored green until updated or the next Ember session.</string>
- <string control="Core_lbGenre">Select the language(s) of the genres you would like Ember to display.</string>
- <string control="Core_txtCheckTitleTol">Enter the tolerance level you would like Ember to use when title matching. The higher the number, the more lenient the algorithm is. 0 = disabled</string>
- <string control="Core_chkCheckTitles">Enable this to have Ember check the differences between the title of the movie and it's file name. This is useful to make sure that the scraped data is actually for the selected movie file.</string>
- <string control="Core_btnRemoveToken">Remove the selected sort token from the list.</string>
- <string control="Core_btnAddToken">Add the entered sort token to the list.</string>
- <string control="Core_txtSortToken">Enter in a sort token to add to the list.</string>
- <string control="Core_lstSortTokens">A list of all current sort tokens. (If the movie title begins with a sort token, then the sort token will be moved to the end. For example: Sort Token = "The", Title = "The Dark Knight", Result = "Dark Knight, The")</string>
- <string control="Core_chkDisplayYear">If enabled, Ember will display the year of the movie in the main movie list.</string>
- <string control="Core_chkMovieExtraCol">Hide the Extrathumbs column from the main movie list.</string>
- <string control="Core_chkMovieSubCol">Hide the Subtitles column from the main movie list.</string>
- <string control="Core_chkMovieTrailerCol">Hide the Trailers column from the main movie list.</string>
- <string control="Core_chkMovieInfoCol">Hide the Info column from the main movie list.</string>
- <string control="Core_chkMovieFanartCol">Hide the Fanart column from the main movie list.</string>
- <string control="Core_chkMoviePosterCol">Hide the Poster column from the main movie list.</string>
- <string control="Core_chkMovieNameMultiOnly">If enabled, "<movie>.ext" items will only be utilized in folders that have multiple movies. This is useful when you have a mixture of multiple movie and single movie folders and you wish to reduce the number of extra files.</string>
- <string control="Core_rbBracketTrailer">Save trailer files as "<movie>[trailer].ext".</string>
- <string control="Core_rbDashTrailer">Save trailer files as "<movie>-trailer.ext".</string>
- <string control="Core_chkVideoTSParent">If enabled, Ember will save the meta files in the parent directory (YAMJ compatible). If disabled, Ember will save the meta files directly to the VIDEO_TS folder (XBMC compatible). This setting applies to BDMV folders, as well.</string>
- <string control="Core_chkMovieNameNFO">Save nfo files as "<movie>.nfo".</string>
- <string control="Core_chkMovieNFO">Save nfo files as "movie.nfo".</string>
- <string control="Core_chkMovieNameDotFanartJPG">Save fanart files as "<movie>.fanart.jpg".</string>
- <string control="Core_chkMovieNameFanartJPG">Save fanart files as "<movie>-fanart.jpg".</string>
- <string control="Core_chkFanartJPG">Save fanart files as "fanart.jpg"</string>
- <string control="Core_chkFolderJPG">Save poster files as "folder.jpg"</string>
- <string control="Core_chkPosterJPG">Save poster files as "poster.jpg"</string>
- <string control="Core_chkPosterTBN">Save poster files as "poster.tbn"</string>
- <string control="Core_chkMovieNameJPG">Save poster files as "<movie>.jpg"</string>
- <string control="Core_chkMovieJPG">Save poster files as "movie.jpg"</string>
- <string control="Core_chkMovieNameTBN">Save poster files as "<movie>.tbn"</string>
- <string control="Core_chkMovieTBN">Save poster files as "movie.tbn"</string>
- <string control="Core_lvMovies">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colID">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colName">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colPath">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colRecur">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colFolder">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_colSingle">The list of all current movie sources. (Paths that will be scanned for movie files)</string>
- <string control="Core_btnMovieRem">Remove the selected source(s) from the sources list.</string>
- <string control="Core_btnMovieAddFolder">Add a new folder to the sources list.</string>
- <string control="Core_txtPosterWidth">Resize poster files to the entered width.</string>
- <string control="Core_txtPosterHeight">Resize poster files to the entered height.</string>
- <string control="Core_tbPosterQual">Adjust the quality of the poster files. (0 = original quality)</string>
- <string control="Core_chkResizePoster">Resize poster files before saving.</string>
- <string control="Core_cbPosterSize">Select the preferred poster size you would like to retreive from the image servers. During automatic scrapers, Ember will attempt to find a poster of this size first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwritePoster">If enabled, existing poster files will be overwritten if new ones are selected. If disabled, poster files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtFanartWidth">Resize fanart files to the entered width.</string>
- <string control="Core_txtFanartHeight">Resize fanart files to the entered height.</string>
- <string control="Core_chkFanartOnly">If enabled, Ember will only retrieve fanart of the selected size. (NOTE: If there are no fanart images of the selected size available, no fanart images will be retrieved)</string>
- <string control="Core_tbFanartQual">Adjust the quality of the fanart files. (0 = original quality)</string>
- <string control="Core_chkResizeFanart">Resize fanart files before saving.</string>
- <string control="Core_cbFanartSize">Select the preferred fanart size you would like to retrieve from the image servers. Durint automatic scrapers, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwriteFanart">If enabled, existing fanart files will be overwritten if new ones are selected. If disabled, fanart files will only be saved if a current one does not already exist.</string>
- <string control="Core_chkNoSaveImagesToNfo">If enabled, Ember will not save URLs to the poster and fanart images in the nfo files. (Recommended for YAMJ compatibility)</string>
- <string control="Core_chkSingleScrapeImages">Select images while scraping a single movie file.</string>
- <string control="Core_chkUseImgCacheUpdaters">Save images to the image cache when scraping multiple movie files.</string>
- <string control="Core_chkPersistImgCache">If enabled, Ember will not clear the image cache between sessions.</string>
- <string control="Core_chkUseImgCache">Enable Ember's image cache.</string>
- <string control="Core_chkUseETasFA">If enabled and no fanart is available for the selected movie, Ember will use one of the extracted thumbnails as the fanart image.</string>
- <string control="Core_chkNoSpoilers">If enabled, extrathumbs will only be extracted from the first half of the movie in order to avoid "spoilers".</string>
- <string control="Core_txtAutoThumbs">Enter the number of extrathumbs you would like to automatically generate.</string>
- <string control="Core_chkAutoThumbs">If enabled, Ember will automatically extract the entered number of extrathumbs during scraping.</string>
- <string control="Core_txtProxyDomain">Enter the domain for your proxy. (Optional - not necessary for most proxies)</string>
- <string control="Core_txtProxyPassword">Enter the password needed to access your proxy.</string>
- <string control="Core_txtProxyUsername">Enter the username needed to access your proxy.</string>
- <string control="Core_chkEnableCredentials">Enable if your proxy requires authentication.</string>
- <string control="Core_txtProxyPort">Enter the port needed to access your proxy.</string>
- <string control="Core_txtProxyURI">Enter the IP or URL needed to access your proxy.</string>
- <string control="Core_chkEnableProxy">If enabled, Ember will use the entered proxy for all internet communications.</string>
- <string control="Core_btnDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_btnUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_chkProperCase">Automatically apply proper casing to movie titles. (Example: "the dark knight" becomes "The Dark Knight")</string>
- <string control="Core_btnRemoveFilter">Remove the selected filter from the list.</string>
- <string control="Core_btnAddFilter">Add the entered filter to the list.</string>
- <string control="Core_txtFilter">Enter text or regex to use as a filter. Special: "a[->]b" = replace all occurrances of "a" with "b" (Example: ".[->]_" will replace all periods in the title with underscores.)</string>
- <string control="Core_lstFilters">The list of all current filters that will be used when generating titles for movies.</string>
- <string control="Core_chkMissingExtra">If enabled, Ember will display movies missing extrathumbs when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingSubs">If enabled, Ember will display movies missing subtitle files when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingTrailer">If enabled, Ember will display movies missing trailers when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingNFO">If enabled, Ember will display movies missing nfo files when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingFanart">If enabled, Ember will display movies missing fanart when utilizing the Missing Items Filter.</string>
- <string control="Core_chkMissingPoster">If enabled, Ember will display movies missing posters when utilizing the Missing Items Filter.</string>
- <string control="Core_chkAutoBD">If enabled, Ember will automatically save new fanart images to the entered backdrops folder.</string>
- <string control="Core_btnBrowse">Open a folder browser to select a backdrops folder.</string>
- <string control="Core_txtBDPath">The path to the backdrops folder.</string>
- <string control="Core_btnRemoveNoStack">Remove the selected extension from the No Stack Extensions list.</string>
- <string control="Core_btnAddNoStack">Add the entered extension to the No Stack Extensions list.</string>
- <string control="Core_txtNoStack">Enter an extension to add to the No Stack Extensions list.</string>
- <string control="Core_lstNoStack">The list of extensions Ember will not stack into single files when adding them to the library.</string>
- <string control="Core_btnRemMovieExt">Remove the selected extension from the Valid Video Extensions list.</string>
- <string control="Core_btnAddMovieExt">Add the entered extension to the Valid Video Extensions list.</string>
- <string control="Core_txtMovieExt">Enter an extension to add to the Valid Video Extensions list.</string>
- <string control="Core_lstMovieExts">The list of extensions Ember will look for when updating the library.</string>
- <string control="Core_btnEditSource">Edit the selected source.</string>
- <string control="Core_chkScanOrderModify">If enabled, Ember will add new files in order of there last modified time. If disabled, Ember will add new files to the library in alphabetical order.</string>
- <string control="Core_chkSortBeforeScan">If enabled, Ember will sort all single files in the top directory of the source into their own folders.</string>
- <string control="Core_chkIgnoreLastScan">If enabled, Ember will scan all folders/files regardless of the last scan time. If disabled, Ember will only scan files/folders added after the last time files were scanned.</string>
- <string control="Core_chkCleanDB">If enabled, Ember will clean the movie database after each scan. (Remove entries for files that no longer exist or no longer match selected setting values)</string>
- <string control="Core_chkAutoDetectVTS">If enabled, Ember will attempt to recognize VIDEO_TS folders even if the folder is not named "VIDEO_TS". If disabled, Ember will still handle VIDEO_TS folders if the folder is named "VIDEO_TS". This setting also applies to BDMV folders.</string>
- <string control="Core_chkSkipStackedSizeCheck">If enabled, Ember will not skip files smaller than the entered "Skip Files Smaller Than" size if they contain stacking markers (such as "CD1" or "DVD2").</string>
- <string control="Core_txtSkipLessThan">Ember will use the entered size as the minimum size for movie files. Any files smaller than this will be skipped when updating the library.</string>
- <string control="Core_txtTVSkipLessThan">Ember will use the entered size as the minimum size for episode files. Any files smaller than this will be skipped when updating the library.</string>
- <string control="Core_cbTrailerQuality">Select the preferred quality of the downloaded trailers.</string>
- <string control="Core_chkDeleteAllTrailers">If enabled, Ember will delete all existing trailers for the movie before saving the new one.</string>
- <string control="Core_chkOverwriteTrailer">If enabled, existing trailer files will be overwritten when saving new ones. If disabled, new trailer files will only be saved if one does not already exist.</string>
- <string control="Core_chkNoDLTrailer">If enabled, trailer files will not be downloaded. Instead, the trailer url will be saved to the nfo.</string>
- <string control="Core_chkSingleScrapeTrailer">If enabled, trailers will be downloaded while scraping a single movie.</string>
- <string control="Core_chkUpdaterTrailer">If enabled, trailers will be downloaded during "All Items" scrapers.</string>
- <string control="Core_chkDownloadTrailer">Enable Ember's trailer support.</string>
- <string control="Core_chkAutoETSize">Select the size of the fanart you would like to download as extrathumbs.</string>
- <string control="Core_cbAutoETSize">If enabled, Ember will automatically download all fanart of the selected size as extrathumbs.</string>
- <string control="Core_txtETWidth">Resize extrathumbs to the entered width.</string>
- <string control="Core_txtETHeight">Resize extrathumbs to the entered height.</string>
- <string control="Core_chkETPadding">If enabled, Ember will add "black bars" to the edges of the extrathumbs if they are smaller than the entered size.</string>
- <string control="Core_rbETCustom">Resize extrathumbs to the entered size, regardless of the native resolution.</string>
- <string control="Core_rbETNative">Save extrathumbs using the same resolution as the video.</string>
- <string control="Core_lvTVSources">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
- <string control="Core_ColumnHeader1">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
- <string control="Core_ColumnHeader2">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
- <string control="Core_ColumnHeader3">The list of all current TV Show sources. (Paths that will be scanned for TV Show files)</string>
- <string control="Core_chkTVScanOrderModify">If enabled, Ember will add new files in order of there last modified time. If disabled, Ember will add new files to the library in alphabetical order.</string>
- <string control="Core_chkTVIgnoreLastScan">If enabled, Ember will scan all folders/files regardless of the last scan time. If disabled, Ember will only scan files/folders added after the last time files were scanned.</string>
- <string control="Core_chkTVCleanDB">If enabled, Ember will clean the TV Show database after each scan. (Remove entries for files that no longer exist or no longer match selected setting values)</string>
- <string control="Core_btnAddTVSource">Add a new folder to the sources list.</string>
- <string control="Core_btnEditTVSource">Edit the selected source.</string>
- <string control="Core_btnRemTVSource">Remove the selected source(s) from the sources list.</string>
- <string control="Core_chkSeasonAllJPG">Save All Seasons poster files as "season-all.jpg".</string>
- <string control="Core_chkSeasonAllTBN">Save All Seasons poster files as "season-all.tbn".</string>
- <string control="Core_chkEpisodeDotFanart">Save episode fanart files as "<episode>.fanart.jpg".</string>
- <string control="Core_chkEpisodeDashFanart">Save episode fanart files as "<episode>-fanart.jpg".</string>
- <string control="Core_chkEpisodeJPG">Save episode poster files as "<episode>.jpg".</string>
- <string control="Core_chkEpisodeTBN">Save episode poster files as "<episode>.tbn".</string>
- <string control="Core_chkSeasonDotFanart">Save season fanart files as "<season>.fanart.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonDashFanart">Save season fanart files as "<season>-fanart.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonFanartJPG">Save season fanart files as "fanart.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonFolderJPG">Save season fanart files as "folder.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonNameJPG">Save season poster files as "<season>.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonNameTBN">Save season poster files as "<season>.tbn". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonPosterJPG">Save season poster files as "poster.jpg". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonPosterTBN">Save season poster files as "poster.tbn". (Will only save inside the season directory, if it exists)</string>
- <string control="Core_chkSeasonXTBN">Save season poster files as "seasonX.tbn". (Example: season2.tbn)</string>
- <string control="Core_chkSeasonXXTBN">Save season poster files as "seasonXX.tbn". (Example: season02.tbn)</string>
- <string control="Core_chkShowDotFanart">Save show fanart files as "<show>.fanart.jpg".</string>
- <string control="Core_chkShowDashFanart">Save show fanart files as "<show>-fanart.jpg".</string>
- <string control="Core_chkShowFanartJPG">Save show fanart files as "fanart.jpg".</string>
- <string control="Core_chkShowJPG">Save show poster files as "<show>.jpg".</string>
- <string control="Core_chkShowTBN">Save show poster files as "<show>.tbn".</string>
- <string control="Core_chkShowPosterJPG">Save show poster files as "poster.jpg".</string>
- <string control="Core_chkShowPosterTBN">Save show poster files as "poster.tbn".</string>
- <string control="Core_chkShowFolderJPG">Save show poster files as "folder.jpg".</string>
- <string control="Core_btnAddShowRegex">Add the entered regex to the TV Show Regex list.</string>
- <string control="Core_txtSeasonRegex">Enter the regex to use to detect the season number.</string>
- <string control="Core_cboSeasonRetrieve">Choose if you would like to process the season regex against the directory name or the episode file name.</string>
- <string control="Core_txtEpRegex">Enter the regex to use to detect the episode number.</string>
- <string control="Core_cboEpRetrieve">Choose if you would like to process the episode regex against the directory name, the episode file name, or the results of the season regex.</string>
- <string control="Core_btnEditShowRegex">Edit the selected TV Show regex.</string>
- <string control="Core_btnRemoveShowRegex">Remove the selected TV Show regex from the list.</string>
- <string control="Core_lvShowRegex">The list of current TV Show regex.</string>
- <string control="Core_colRegID">The list of current TV Show regex.</string>
- <string control="Core_colSeason">The list of current TV Show regex.</string>
- <string control="Core_colSeasonApply">The list of current TV Show regex.</string>
- <string control="Core_colEpisode">The list of current TV Show regex.</string>
- <string control="Core_colEpApply">The list of current TV Show regex.</string>
- <string control="Core_chkDisplayMissingEpisodes">If enabled, episodes that are missing from your collection will be displayed in the episode list, but will be colored a light gray.</string>
- <string control="Core_chkEpisodeNfoCol">Hide the Info column from the episode list.</string>
- <string control="Core_chkEpisodeFanartCol">Hide the Fanart column from the episode list.</string>
- <string control="Core_chkEpisodePosterCol">Hide the Poster column from the episode list.</string>
- <string control="Core_chkSeasonFanartCol">Hide the Fanart column from the season list.</string>
- <string control="Core_chkSeasonPosterCol">Hide the Poster column from the poster list.</string>
- <string control="Core_chkShowNfoCol">Hide the Info column from the show list.</string>
- <string control="Core_chkShowFanartCol">Hide the Fanart column from the show list.</string>
- <string control="Core_chkShowPosterCol">Hide the Poster column from the show list.</string>
- <string control="Core_chkDisplayAllSeason">If enabled, if an All Season poster exists for the selected show, it will be displayed on the right of the interface.</string>
- <string control="Core_cbRatingRegion">Select the region of the ratings you would like to display in the interface.</string>
- <string control="Core_chkNoFilterEpisode">If enabled, Ember will not attempt to filter episode file names for titles and instead will build them from the show name, season, and episode until a proper title has been fetched.</string>
- <string control="Core_btnEpFilterDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_btnEpFilterUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_chkEpProperCase">Automatically apply proper casing to episode titles. (Example: "stole beer from golfer" becomes "Stole Beer From Golfer")</string>
- <string control="Core_btnRemoveEpFilter">Remove the selected filter from the filter list.</string>
- <string control="Core_btnAddEpFilter">Add the entered filter to the filter list.</string>
- <string control="Core_txtEpFilter">Enter a filter to add to the filter list.</string>
- <string control="Core_lstEpFilters">The list of all current filters that will be used when generating titles for episodes.</string>
- <string control="Core_btnShowFilterDown">Move the selected filter up in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_btnShowFilterUp">Move the selected filter down in the list. (Filters are processed in order from top to bottom)</string>
- <string control="Core_chkShowProperCase">Automatically apply proper casing to episode titles. (Example: "my name is earl" becomes "My Name is Earl")</string>
- <string control="Core_btnRemoveShowFilter">Remove the selected filter from the filter list.</string>
- <string control="Core_btnAddShowFilter">Add the entered filter to the filter list.</string>
- <string control="Core_txtShowFilter">Enter a filter to add to the filter list.</string>
- <string control="Core_lstShowFilters">The list of all current filters that will be used when generating titles for shows.</string>
- <string control="Core_chkGetEnglishImages">If enabled, all English images will be retrieved, regardless of the selected language.</string>
- <string control="Core_chkOnlyTVImagesLanguage">If enabled, only images for the preferred language will be retrieved.</string>
- <string control="Core_txtShowPosterWidth">Resize show poster files to the entered width.</string>
- <string control="Core_txtShowPosterHeight">Resize show poster files to the entered height.</string>
- <string control="Core_tbShowPosterQual">Adjust the quality of the show poster files. (0 = original quality)</string>
- <string control="Core_chkResizeShowPoster">Resize show poster files before saving.</string>
- <string control="Core_cbShowPosterSize">Select the preferred show poster type you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a poster of this type first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwriteShowPoster">If enabled, existing show poster files will be overwritten if new ones are selected. If disabled, show poster files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtShowFanartWidth">Resize show fanart files to the entered width.</string>
- <string control="Core_txtShowFanartHeight">Resize show fanart files to the entered height.</string>
- <string control="Core_tbShowFanartQual">Adjust the quality of the show fanart files. (0 = original quality)</string>
- <string control="Core_chkResizeShowFanart">Resize show fanart files before saving.</string>
- <string control="Core_cbShowFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwriteShowFanart">If enabled, existing show fanart files will be overwritten if new ones are selected. If disabled, show fanart files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtSeaPosterWidth">Resize season poster files to the entered width.</string>
- <string control="Core_txtSeaPosterHeight">Resize season poster files to the entered height.</string>
- <string control="Core_tbSeaPosterQual">Adjust the quality of the season poster files. (0 = original quality)</string>
- <string control="Core_chkSeaResizePoster">Resize season poster files before saving.</string>
- <string control="Core_cbSeaPosterSize">Select the preferred season poster type you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a poster of this type first. If a poster of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkSeaOverwritePoster">If enabled, existing season poster files will be overwritten if new ones are selected. If disabled, season poster files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtSeaFanartWidth">Resize season fanart files to the entered width.</string>
- <string control="Core_txtSeaFanartHeight">Resize season fanart files to the entered height.</string>
- <string control="Core_tbSeaFanartQual">Adjust the quality of the season fanart files. (0 = original quality)</string>
- <string control="Core_chkSeaResizeFanart">Resize season fanart files before saving.</string>
- <string control="Core_cbSeaFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkSeaOverwriteFanart">If enabled, existing season fanart files will be overwritten if new ones are selected. If disabled, season fanart files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtEpPosterWidth">Resize episode poster files to the entered width.</string>
- <string control="Core_txtEpPosterHeight">Resize episode poster files to the entered height.</string>
- <string control="Core_tbEpPosterQual">Adjust the quality of the episode poster files. (0 = original quality)</string>
- <string control="Core_chkResizeEpPoster">Resize episode poster files before saving.</string>
- <string control="Core_chkOverwriteEpPoster">If enabled, existing episode poster files will be overwritten if new ones are selected. If disabled, episode poster files will only be saved if a current one does not already exist.</string>
- <string control="Core_txtEpFanartWidth">Resize episode fanart files to the entered width.</string>
- <string control="Core_txtEpFanartHeight">Resize episode fanart files to the entered height.</string>
- <string control="Core_tbEpFanartQual">Adjust the quality of the episode fanart files. (0 = original quality)</string>
- <string control="Core_chkResizeEpFanart">Resize episode fanart files before saving.</string>
- <string control="Core_cbEpFanartSize">Select the preferred fanart size you would like to retreive from the image servers. During the show scraper, Ember will attempt to find a fanart image of this size first. If a fanart image of the selected size cannot be found, the first available image will be used instead.</string>
- <string control="Core_chkOverwriteEpFanart">If enabled, existing episode fanart files will be overwritten if new ones are selected. If disabled, episode fanart files will only be saved if a current one does not already exist.</string>
- <string control="Core_chkScraperShowRating">Enable scraping show rating.</string>
- <string control="Core_chkScraperShowActors">Enable scraping show actors.</string>
- <string control="Core_chkScraperShowStudio">Enable scraping show studios.</string>
- <string control="Core_chkScraperShowPremiered">Enable scraping show premiered date.</string>
- <string control="Core_chkScraperShowEGU">Enable scraping the Episode Guide URL.</string>
- <string control="Core_chkScraperShowMPAA">Enable scraping show MPAA.</string>
- <string control="Core_chkScraperShowPlot">Enable scraping show plot.</string>
- <string control="Core_chkScraperShowGenre">Enable scraping show genre.</string>
- <string control="Core_chkScraperShowTitle">Enable scraping show title.</string>
- <string control="Core_chkScraperEpActors">Enable scraping episode actors.</string>
- <string control="Core_chkScraperEpCredits">Enable scraping episode credits.</string>
- <string control="Core_chkScraperEpDirector">Enable scraping episode directors.</string>
- <string control="Core_chkScraperEpPlot">Enable scraping episode plot.</string>
- <string control="Core_chkScraperEpRating">Enable scraping episode rating.</string>
- <string control="Core_chkScraperEpAired">Enable scraping episode aired date.</string>
- <string control="Core_chkScraperEpTitle">Enable scraping episode title.</string>
- <string control="Core_chkScraperEpEpisode">Enable scraping episode number.</string>
- <string control="Core_chkScraperEpSeason">Enable scraping season number.</string>
- <string control="Core_chkEpLockTitle">If enabled, the episode title will only be scraped if a current one does not exist.</string>
- <string control="Core_chkEpLockRating">If enabled, the episode rating will only be scraped if a current one does not exist.</string>
- <string control="Core_chkEpLockPlot">If enabled, the episode plot will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockPlot">If enabled, the show plot will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockGenre">If enabled, the show genre will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockStudio">If enabled, the show studio will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockRating">If enabled, the show rating will only be scraped if a current one does not exist.</string>
- <string control="Core_chkShowLockTitle">If enabled, the show title will only be scraped if a current one does not exist.</string>
- <string control="Core_lstTVMetaData">The list of extensions that have default meta data entries.</string>
- <string control="Core_txtTVDefFIExt">Enter an extension to create a default meta data entry.</string>
- <string control="Core_btnRemoveTVMetaDataFT">Remove the default meta data for the selected extension from the default meta data list.</string>
- <string control="Core_btnEditTVMetaDataFT">Edit the default meta data for the selected extension in the default meta data list.</string>
- <string control="Core_btnNewTVMetaDataFT">Create default meta data for the entered extension and add the to the default meta data list.</string>
- <string control="Core_cboTVMetaDataOverlay">If the selected language is found in the episode, a special icon indicator will be overlayed on the meta data audio icon.</string>
- <string control="Core_chkTVScanMetaData">If enabled, Ember will scan episode files for meta data.</string>
- <string control="Core_cboTVUpdate">Select the time to wait between updating cached TV information files.</string>
- <string control="Core_txtAPIKey">Enter the TVDB API Key of the media center/player you use. This is not necessary for Ember to function. It is only used when saving the Episode Guide URL to the nfo.</string>
- <string control="Core_txtTVDBMirror">Enter the mirror to use when retrieving information from theTVDB.</string>
- <string control="Core_btnTVLanguageFetch">Click to download all available languages from theTVDB.</string>
- <string control="Core_cbTVLanguage">Select the preferred language to use when downloading show information and images.</string>
- <string control="Core_chkCertification">Enable scraping movie certification.</string>
- <string control="Core_chkTop250">Enable scraping movie Top 250 ranking.</string>
- <string control="Core_chkCountry">Enable scraping movie production country.</string>
- <string control="Core_txtGenreLimit">Limit the number of scraped genres to the entered value.</string>
- <string control="Core_txtActorLimit">Limit the number of scraped actors to the entered value.</string>
- <string control="Core_chkCrew">Enable scraping movie other crew. (Scrape Full Crew must be enabled)</string>
- <string control="Core_chkMusicBy">Enable scraping movie musicians. (Scrape Full Crew must be enabled)</string>
- <string control="Core_chkProducers">Enable scraping movie producers. (Scrape Full Crew must be enabled)</string>
- <string control="Core_chkWriters">Enable scraping movie writers.</string>
- <string control="Core_chkStudio">Enable scraping movie studio.</string>
- <string control="Core_chkRuntime">Enable scraping movie runtime.</string>
- <string control="Core_chkPlot">Enable scraping movie plot.</string>
- <string control="Core_chkOutline">Enable scraping movie outline.</string>
- <string control="Core_chkGenre">Enable scraping movie genre.</string>
- <string control="Core_chkDirector">Enable scraping movie director.</string>
- <string control="Core_chkTagline">Enable scraping movie tagline.</string>
- <string control="Core_chkCast">Enable scraping movie cast.</string>
- <string control="Core_chkVotes">Enable scraping movie votes.</string>
- <string control="Core_chkTrailer">Enable scraping movie trailer url.</string>
- <string control="Core_chkRating">Enable scraping movie rating.</string>
- <string control="Core_chkRelease">Enable scraping movie release date.</string>
- <string control="Core_chkMPAA">Enable scraping movie MPAA.</string>
- <string control="Core_chkYear">Enable scraping movie year.</string>
- <string control="Core_chkTitle">Enable scraping movie title.</string>
- <string control="Core_lstMetaData">The list of extensions that have default meta data entries.</string>
- <string control="Core_txtDefFIExt">Enter an extension to create a default meta data entry.</string>
- <string control="Core_btnRemoveMetaDataFT">Remove the default meta data for the selected extension from the default meta data list.</string>
- <string control="Core_btnEditMetaDataFT">Edit the default meta data for the selected extension in the default meta data list.</string>
- <string control="Core_btnNewMetaDataFT">Create default meta data for the entered extension and add the to the default meta data list.</string>
- <string control="Core_chkIFOScan">If enabled, Ember will process *.ifo files for meta data information.</string>
- <string control="Core_cbLanguages">If the selected language is found in the movie, a special icon indicator will be overlayed on the meta data audio icon.</string>
- <string control="Core_txtRuntimeFormat">Enter the format you wish to use for the movie duration retrieved from scanning meta data. Note you can also use <0m> for 0 padding minutes</string>
- <string control="Core_chkScanMediaInfo">If enabled, Ember will scan movie files for meta data.</string>
- <string control="Core_chkUseMIDuration">Use the movie duration retrieved from scanning meta data as the runtime of the movie.</string>
- <string control="Core_chkLockOutline">If enabled, the movie outline will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockPlot">If enabled, the movie plot will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockTrailer">If enabled, the URL movie trailer will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockGenre">If enabled, the movie genre will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockRealStudio">If enabled, the movie studio will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockRating">If enabled, the movie rating will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockTagline">If enabled, the movie tagline will only be scraped if a current one does not exist.</string>
- <string control="Core_chkLockTitle">If enabled, the movie title will only be scraped if a current one does not exist.</string>
- <string control="Core_cbForce">Select the region of the title you would like Ember to look for.</string>
- <string control="Core_chkForceTitle">If enabled, Ember will check for alternative titles in the selected language. This is useful for fetching titles in your native language when scraping foreign films.</string>
- <string control="Core_chkOutlineForPlot">If enabled, Ember will use the outline for the plot if the plot is empty.</string>
- <string control="Core_chkCastWithImg">If enabled, Ember will only scrape cast entries that have valid images.</string>
- <string control="Core_chkUseCertForMPAA">If enabled, Ember will use the certifcation of the selected region in place of the MPAA rating.</string>
- <string control="Core_chkFullCast">If enabled, all cast members will be scraped instead of only top billed.</string>
- <string control="Core_chkFullCrew">If enabled, all crew members will be scraped (if individually enabled).</string>
- <string control="Core_cbCert">Select the region to filter certification ratings.</string>
- <string control="Core_chkCert">Only scrape the certificaton rating for the selected region.</string>
- <string control="Core_chkMarkNewShows">If enabled, new shows will be "marked". If disabled, new shows will still be colored green until updated or the next Ember session.</string>
- <string control="Core_chkMarkNewEpisodes">If enabled, new episodes will be "marked". If disabled, new episodes will still be colored green until updated or the next Ember session.</string>
- <string control="Core_cbOrdering">Select the default ordering Ember will use when scraping information for a show.</string>
- <string control="Core_chkOnlyValueForCert">If enabled, Ember will only save the value of the certification to the MPAA field. (Example: "Germany:18" will save as "18")</string>
- <string control="Core_rbBanner">If enabled, Ember will attempt to download a banner (wide) image of the selected type as the default show poster.</string>
- <string control="Core_rbPoster">If enabled, Ember will attempt to download a poster image of the selected type as the default show poster.</string>
- <string control="Core_btnResetShowFilters">This will reset the show filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
- <string control="Core_btnResetEpFilter">This will reset the episode filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
- <string control="Core_btnResetMovieFilters">This will reset the movie filters to the default list. WARNING: This WILL delete any custom filters you have entered.</string>
- <string control="Core_btnResetValidExts">This will reset the valid extensions to the default list. WARNING: This WILL delete any custom extensions you have entered.</string>
- <string control="Core_ResetShowRegex">This will reset the show regex to the default list. WARNING: This WILL delete any custom regex you have entered.</string>
- <string control="Core_chkClickScrape">Enable Click Scrape on main screen column marks.</string>
-</strings>
\ No newline at end of file
diff --git "a/Ember Media Manager/Langs/Portugu\303\252s_(pt_BR).xml" "b/Ember Media Manager/Langs/Portugu\303\252s_(pt_BR).xml"
deleted file mode 100644
index 387f3e7..0000000
--- "a/Ember Media Manager/Langs/Portugu\303\252s_(pt_BR).xml"
+++ /dev/null
@@ -1,856 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<strings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
- <string id="1">&Arquivo</string>
- <string id="2">S&air</string>
- <string id="3">&Editar</string>
- <string id="4">&Configurações</string>
- <string id="5">&Ajuda</string>
- <string id="6">&Sobre...</string>
- <string id="7">Carregando Mídia:</string>
- <string id="8">&Ferramentas</string>
- <string id="9">&Limpar Arquivos</string>
- <string id="10">&Ordenar Arquivos Dentro das Pastas</string>
- <string id="11">Copiar Fanart Existente para &Pasta Backdrops</string>
- <string id="12">Reverter as informações do Estúdio</string>
- <string id="13">Nome da Pasta</string>
- <string id="14">Criar &Coletânea</string>
- <string id="15">Nome do Arquivo</string>
- <string id="16">Resultado</string>
- <string id="17">Limpar &Toda a Memória</string>
- <string id="18">Re&carregar Todos os Filmes</string>
- <string id="19">Fechar</string>
- <string id="20">Gêneros</string>
- <string id="21">Título</string>
- <string id="22">Recarregar</string>
- <string id="23">Marcar</string>
- <string id="24">Travar</string>
- <string id="25">Editar o Filme</string>
- <string id="26">Detalhes</string>
- <string id="27">>> Selecione Gênero <<</string>
- <string id="28">Adicionar</string>
- <string id="29">Definir</string>
- <string id="30">Remover</string>
- <string id="31">Procurar Filmes Selecionados</string>
- <string id="32">Alterar Filme</string>
- <string id="33">Abrir a Pasta do Filme</string>
- <string id="34">Deletar o Filme</string>
- <string id="35">Marcar Todos</string>
- <string id="36">Filmes</string>
- <string id="37">Limpar Filtros</string>
- <string id="38">Geral</string>
- <string id="39">Fora da Tolerância</string>
- <string id="40">Faltando Itens</string>
- <string id="41">Duplicados</string>
- <string id="42">Específico</string>
- <string id="43">Travados</string>
- <string id="44"></string>
- <string id="45">e</string>
- <string id="46">ou</string>
- <string id="47">Novos</string>
- <string id="48">Marcados</string>
- <string id="49">Ano:</string>
- <string id="50">Fonte:</string>
- <string id="51">Gênero:</string>
- <string id="52">Filtros</string>
- <string id="53">Cancelando a Busca...</string>
- <string id="54">Cancelar a Busca</string>
- <string id="55">Não Existe Informação Disponível Para Este Filme</string>
- <string id="56">Certificação</string>
- <string id="57">Lançamento</string>
- <string id="58">Atualizar</string>
- <string id="59">Metadados do Arquivo</string>
- <string id="60">Caminho Completo Para o Arquivo</string>
- <string id="61">IMDB ID</string>
- <string id="62">Diretor</string>
- <string id="63">Elenco</string>
- <string id="64">Resumo</string>
- <string id="65">Sinopse</string>
- <string id="66">Informações</string>
- <string id="67">Buscar Mídia</string>
- <string id="68">Todos os Filmes</string>
- <string id="69">Automático (Forçar o Melhor Resultado)</string>
- <string id="70">Todos os Itens</string>
- <string id="71">Somente NFO</string>
- <string id="72">Somente Poster</string>
- <string id="73">Somente Fanart</string>
- <string id="74">Somente Extrathumbs</string>
- <string id="75">Somente Trailer (URL)</string>
- <string id="76">Somente Metadados do Arquivo</string>
- <string id="77">Perguntar (Caso Não Ache o Melhor Resultado)</string>
- <string id="78">Filmes Faltando Itens</string>
- <string id="79">Novos Filmes</string>
- <string id="80">Filmes Marcados</string>
- <string id="81">Busca Personalizada...</string>
- <string id="82">Atualizar Biblioteca</string>
- <string id="83">Programas</string>
- <string id="84">Buscar/Baixar os dados dos filmes usando o modo automático.</string>
- <string id="85">Adicionar novos conteúdos e ou atualizar o banco de dados.</string>
- <string id="86">Enviar um comando para o XBMC para iniciar processo de atualização da biblioteca.</string>
- <string id="87">Marcar ou desmarcar todos os filmes da lista.</string>
- <string id="88">Digite neste campo o que deseja pesquisar.</string>
- <string id="89">Reproduzir o arquivo do filme com o media play padrão do sistema.</string>
- <string id="90">Reescaneia e salva os metadados do filme selecionado.</string>
- <string id="91">Mostra os filmes com as IDs do IMDb duplicadas.</string>
- <string id="92">Mostra só os filmes cujo título correspondente está fora da tolerância.</string>
- <string id="93">Mostra filmes faltando itens</string>
- <string id="94">Mostra os filmes atualizados nesta sessão.</string>
- <string id="95">Mostra os filmes marcados</string>
- <string id="96">Mostra os filmes travados</string>
- <string id="97">Mostra os filmes da fonte escolhida</string>
- <string id="98">Selecionar Gênero...</string>
- <string id="99">Cancelando Todos os Processos...</string>
- <string id="100">Ator</string>
- <string id="101">Você tem certeza que quer continuar?</string>
- <string id="102">AVISO: Se você continuar, todos os tipos de arquivo protegidos não serão excluídos.</string>
- <string id="103">AVISO: Se você continuar, todos os arquivos dos seguintes tipos serão excluídos permanentemente:</string>
- <string id="104">Você tem certeza?</string>
- <string id="105">Desmarcar todas</string>
- <string id="106">>> Multiplos <<</string>
- <string id="107">Desmarcar</string>
- <string id="108">Destravar</string>
- <string id="109">AVISO: Isso vai apagar o filme selecionado do disco rígido</string>
- <string id="110">Atualizando mídia:</string>
- <string id="111">Não é possível carregar os diretórios. Verifique as configurações.</string>
- <string id="112">Tempo Total: {0}</string>
- <string id="113">Agora, selecione o idioma padrão que você gostaria de Ember para procurar quando buscando por Seriados.</string>
- <string id="114">* Isso deve ser habilitado para usar extrathumbs e arquivo de opções de nomes como movie.tbn, fanart.jpg, etc.</string>
- <string id="115">Adicione um Regex</string>
- <string id="116">Executar tarefas preliminares (Coleta de Dados)...</string>
- <string id="117">Filme desconhecido ({0})</string>
- <string id="118">{0} Votos</string>
- <string id="119">Cancelando limpeza arquivos...</string>
- <string id="120">Cancelar Limpeza</string>
- <string id="121">Cancelando cópida do Backdrop..</string>
- <string id="122">Cancelar Cópia</string>
- <string id="123">Limpar</string>
- <string id="124">Atualize o Regex</string>
- <string id="125">Cancelando a Busca...</string>
- <string id="126">Cancelar a Busca</string>
- <string id="127">Buscando Mídia (Todos os Filmes - Perguntar):</string>
- <string id="128">Buscando Mídia (Todos os Filmes - Auto):</string>
- <string id="129">Limpando arquivos:</string>
- <string id="130">Copiando Fanart para diretório Backdrops:</string>
- <string id="131">{0} como {1}</string>
- <string id="132">Buscando Mídia (Filmes faltando itens - Auto):</string>
- <string id="133">Buscando Mídia (Filmes faltando itens - Perguntar):</string>
- <string id="134">Buscando Mídia (Novos Filmes - Perguntar):</string>
- <string id="135">Buscando Mídia (Novos Filmes - Auto):</string>
- <string id="136">Buscando Mídia (Filmes Marcados - Perguntar):</string>
- <string id="137">Buscando Mídia (Filmes Marcados - Auto):</string>
- <string id="138">Buscando Novamente {0}</string>
- <string id="139">Buscando:</string>
- <string id="140">Buscando Dados dos Arquivos:</string>
- <string id="141">Não é possível recuperar detalhes do filme a partir da Internet. Verifique sua conexão e tente novamente.</string>
- <string id="142">Erro Recuperando Detalhes</string>
- <string id="143">Atualizar somente os Filmes</string>
- <string id="144">Atualizar</string>
- <string id="145">Só</string>
- <string id="146">Buscar Temporada</string>
- <string id="147">Buscar Episódio</string>
- <string id="148">Poster</string>
- <string id="149">Fanart</string>
- <string id="150">NFO</string>
- <string id="151">Trailer</string>
- <string id="152">Legendas</string>
- <string id="153">Extrathumbs</string>
- <string id="154">Nome do Ator:</string>
- <string id="155">Personagem:</string>
- <string id="156">Imagem do Ator (URL):</string>
- <string id="157">Novo Ator</string>
- <string id="158">Editar Ator</string>
- <string id="159">URL especificada não é válida.</string>
- <string id="160">URL inválida</string>
- <string id="161">Por favor entre uma URL para verificar.</string>
- <string id="162">Nenhuma URL Thumb específicada</string>
- <string id="163">Buscar Informações do Filme</string>
- <string id="164">Buscar Filmes Selecionados</string>
- <string id="165">Compilando Lista de Filmes...</string>
- <string id="166">Cancelando Compilação...</string>
- <string id="167">Cancelar</string>
- <string id="168">Ordem do Buscador</string>
- <string id="169">Travar todos</string>
- <string id="170">Destravar todos</string>
- <string id="171">Nome:</string>
- <string id="172">Descrição:</string>
- <string id="173">Addon Versão:</string>
- <string id="174">Pasta</string>
- <string id="175">Nome do arquivo</string>
- <string id="176">Nova Pasta</string>
- <string id="177">Novo Filename</string>
- <string id="178">Min. Ember Versão:</string>
- <string id="179">OK</string>
- <string id="180">Prévia</string>
- <string id="181">Endereço da Imagem:</string>
- <string id="182">Adicionar Manualmente um Fanart</string>
- <string id="183">Adicionar Manualmente um Poster</string>
- <string id="184">Visualizador de Imagens</string>
- <string id="185">Ajustado</string>
- <string id="186">Tamanho Real</string>
- <string id="187">&Formatar</string>
- <string id="188">&Validar o Arquivo</string>
- <string id="189">&Salvar</string>
- <string id="190">Editor Manual de NFO | </string>
- <string id="191">Este não é um documento XML apropriado</string>
- <string id="192">Arquivo não é válido.</string>
- <string id="193">Arquivo é válido.</string>
- <string id="194">Não é Válido</string>
- <string id="195">Válido</string>
- <string id="196">Você quer salvar as mudanças?</string>
- <string id="197">Gravar?</string>
- <string id="198">Fonte do Filme</string>
- <string id="199">Nome da Fonte:</string>
- <string id="200">Pasta da Fonte:</string>
- <string id="201">Opções da Fonte:</string>
- <string id="202">Apenas detectar um filme por pasta*</string>
- <string id="203">Usar nome da pasta para listagem inicial</string>
- <string id="204">Buscar Recursivamente</string>
- <string id="205">Selecione a pasta superior para suas pastas de filmes / arquivos.</string>
- <string id="206">Nome da Coletânea:</string>
- <string id="207">Editar a Coletânea</string>
- <string id="208">Adicionar Nova Coletânea</string>
- <string id="209">Uma nova versão está disponível</string>
- <string id="210">Falhou em carregar atualização do aplicativo</string>
- <string id="211">Clique aqui</string>
- <string id="212">para visitar embermm.com</string>
- <string id="213">Ordenar arquivos dentro do diretório</string>
- <string id="214">Ir</string>
- <string id="215">Status</string>
- <string id="216">Coloque o caminho e pressione "Ir" para iniciar.</string>
- <string id="217">Pasta para ordenar:</string>
- <string id="218">Selecione a pasta que contém os arquivos que você deseja ordenar.</string>
- <string id="219">Movendo </string>
- <string id="220">ATENÇÃO: Se você continuar, todos os arquivos serão ordenados em pastas separadas.</string>
- <string id="221">A pasta que você digitou não existe. Por favor, digite um caminho válido.</string>
- <string id="222">Pasta não encontrada</string>
- <string id="223">Selecionar o Estúdio</string>
- <string id="224">Edita os detalhes do filme selecionado.</string>
- <string id="225">Trailer Local Encontrado</string>
- <string id="226">Estúdio:</string>
- <string id="227">URL do Trailer:</string>
- <string id="228">Créditos:</string>
- <string id="229">Descrição da Classificação Indicativa:</string>
- <string id="230">Edição Manual</string>
- <string id="231">Atores:</string>
- <string id="232">Nome</string>
- <string id="233">Personagem</string>
- <string id="234">Thumb</string>
- <string id="235">Classif. Indicat.:</string>
- <string id="236">Lançamento:</string>
- <string id="237">Certificação:</string>
- <string id="238">Duração:</string>
- <string id="239">Diretor:</string>
- <string id="240">Top 250:</string>
- <string id="241">Sinopse:</string>
- <string id="242">Resumo:</string>
- <string id="243">Tagline:</string>
- <string id="244">Votos:</string>
- <string id="245">Avaliação:</string>
- <string id="246">Título:</string>
- <string id="247">Remover Poster</string>
- <string id="248">Alterar Poster (Buscador)</string>
- <string id="249">Alterar Poster (Procura Local)</string>
- <string id="250">Remover Fanart</string>
- <string id="251">Alterar Fanart (Buscador)</string>
- <string id="252">Alterar Fanart (Procura Local)</string>
- <string id="253">Você tem arquivos extrathumbs para serem transferidos para a pasta do filme.</string>
- <string id="254">Transferir Agora</string>
- <string id="255">Definir como Fanart</string>
- <string id="256">Extrair Imagem</string>
- <string id="257">Max. Ember Version:</string>
- <string id="258">Categoria:</string>
- <string id="259">Pasta para a nova imagem:</string>
- <string id="260">Atual Screen Shot:</string>
- <string id="261">Imagem Screen Shot deve ser no formato JPEG, igual ou menor que 150 KB em tamanho, e igual ou menor que 133x95 na dimensão.</string>
- <string id="262">Versão:</string>
- <string id="263">Instalado:</string>
- <string id="264">Limpar Cache</string>
- <string id="265">Alterar Poster (Baixar)</string>
- <string id="266">Alterar Fanart (Baixar)</string>
- <string id="267">Master.eLang.GetString(148, "Um ou mais recursos de cache está atualmente em uso e não pode ser excluída no momento.</string>
- <string id="268">Não posso limpar cache</string>
- <string id="269">Tamanho: {0}x{1}</string>
- <string id="270">O trailer não pôde ser reproduzido. Isto pode ser devido a um URL inválido ou você não tem o codec ou o player apropriado para reproduzir o arquivo.</string>
- <string id="271">Erro ao rodar o Trailer</string>
- <string id="272">Arquivo Addon</string>
- <string id="273">Salvar</string>
- <string id="274">Renovar</string>
- <string id="275">Filtro</string>
- <string id="276">Aplicar</string>
- <string id="277">Novo Addon</string>
- <string id="278">Ano</string>
- <string id="279">Editar Addon - </string>
- <string id="280">Addon Arquivos</string>
- <string id="281">Video</string>
- <string id="282">Audio</string>
- <string id="283">Desconhecido</string>
- <string id="284">Cancelado</string>
- <string id="285">Addons</string>
- <string id="286">Login</string>
- <string id="287">Login para o servidor</string>
- <string id="288">Buscando "{0}" Addons...</string>
- <string id="289">Logando em...</string>
- <string id="290">Traduções</string>
- <string id="291">Modelos</string>
- <string id="292">Entrada Inválida</string>
- <string id="293">Outro</string>
- <string id="294">Criar Novo</string>
- <string id="295">Deletar Addon</string>
- <string id="296">Para continuar com a exclusão, você precisa confirmar que você é o proprietário do Addon.</string>
- <string id="297">Confirme Propriedade</string>
- <string id="298">Restarte Administrador do Media Manager?</string>
- <string id="299">Recente alterações requerem um reinício do Ember Media Manager para completar.\n\nVocê gostaria de reiniciar o Ember Media Manager agora?</string>
- <string id="300">Sim</string>
- <string id="301">País</string>
- <string id="302">Título Original</string>
- <string id="303"></string>
- <string id="304"></string>
- <string id="305"></string>
- <string id="306"></string>
- <string id="307"></string>
- <string id="308"></string>
- <string id="309"></string>
- <string id="310"></string>
- <string id="311"></string>
- <string id="312"></string>
- <string id="313"></string>
- <string id="314"></string>
- <string id="315"></string>
- <string id="316"></string>
- <string id="317"></string>
- <string id="318"></string>
- <string id="319"></string>
- <string id="320"></string>
- <string id="321"></string>
- <string id="322">Extra Grande</string>
- <string id="323">Grande</string>
- <string id="324">Médio</string>
- <string id="325">Pequeno</string>
- <string id="326"></string>
- <string id="327"></string>
- <string id="328"></string>
- <string id="329"></string>
- <string id="330"></string>
- <string id="331"></string>
- <string id="332"></string>
- <string id="333"></string>
- <string id="334"></string>
- <string id="335"></string>
- <string id="336"></string>
- <string id="337"></string>
- <string id="338"></string>
- <string id="339"></string>
- <string id="340"></string>
- <string id="341"></string>
- <string id="342"></string>
- <string id="343"></string>
- <string id="344"></string>
- <string id="345"></string>
- <string id="346"></string>
- <string id="347"></string>
- <string id="348"></string>
- <string id="349"></string>
- <string id="350">DVD</string>
- <string id="351">Invalido</string>
- <string id="352"></string>
- <string id="353"></string>
- <string id="354"></string>
- <string id="355">Existe</string>
- <string id="356"></string>
- <string id="357"></string>
- <string id="358"></string>
- <string id="359"></string>
- <string id="360"></string>
- <string id="361">Finalizado</string>
- <string id="362">Pronto</string>
- <string id="363"></string>
- <string id="364"></string>
- <string id="365">Criar Coletânea</string>
- <string id="366">Coletâneas</string>
- <string id="367">Filmes na Coletânea</string>
- <string id="368">Nenhum Selecionado</string>
- <string id="369">Carregando filmes e conjuntos...</string>
- <string id="370">Cancelado Carregamento...</string>
- <string id="371">Adicione e configure filmes em coletâneas.</string>
- <string id="372"></string>
- <string id="373">Baixar</string>
- <string id="374"></string>
- <string id="375"></string>
- <string id="376"></string>
- <string id="377"></string>
- <string id="378"></string>
- <string id="379"></string>
- <string id="380"></string>
- <string id="381"></string>
- <string id="382"></string>
- <string id="383"></string>
- <string id="384">Personalizar a Busca</string>
- <string id="385">Cria uma Busca Personalizada</string>
- <string id="386">Seleção de Filtro</string>
- <string id="387">Modo de Atualizar</string>
- <string id="388">Modificadores</string>
- <string id="389">Início</string>
- <string id="390">Opções</string>
- <string id="391">Outros</string>
- <string id="392">Músicos</string>
- <string id="393">Produtores</string>
- <string id="394">Escritores</string>
- <string id="395">Estúdio</string>
- <string id="396">Duração</string>
- <string id="397">Tagline</string>
- <string id="398">Elenco</string>
- <string id="399">Votos</string>
- <string id="400">Avaliação</string>
- <string id="401">Classif. Indicat.</string>
- <string id="402">Assistente de Inicialização</string>
- <string id="403">< Voltar</string>
- <string id="404">Próximo ></string>
- <string id="405">Bem-vindo ao Ember Media Manager</string>
- <string id="406">DICA: Seleções contendo o texto <filme> significa que o Ember Media Manager irá usar o nome do arquivo para o filme.</string>
- <string id="407">Adicionar Fonte</string>
- <string id="408">Não foi difícil, foi? Como mencionado anteriormente, você pode alterar essas ou quaisquer outras opções na caixa de diálogo Configurações.</string>
- <string id="409">É isso!{0}Ember Media Manager está pronto!</string>
- <string id="410">Pasta</string>
- <string id="411">Recursivo</string>
- <string id="412">Usar Nome da Pasta</string>
- <string id="413">Apenas um Vídeo</string>
- <string id="414">Primeiro, vamos dizer Ember Media Manager onde localizar todos os seus filmes. Você pode adicionar tantas como fontes como você deseja.</string>
- <string id="415">Esta é a primeira vez que abriu o Ember Media Manager ou atualizou para uma versão mais recente. Existem algumas coisas que Ember Media Manager precisa saber para funcionar corretamente. Este assistente o guiará através da configuração do Ember Media Manager. {0} {0} Apenas um punhado de configurações serão abordadas neste assistente. Você pode alterar estes ou qualquer outra definição a qualquer momento, selecionando "Configurações ..." a partir do menu "Editar.</string>
- <string id="416">Agora que Ember Media Manager sabe onde procurar os arquivos, é preciso dizer-lhe que os arquivos a procurar. Basta selecionar qualquer combinação de tipo de arquivos que você deseja Ember Media Manager para carregar e de guardar. Você pode selecionar mais de um de cada seção, se desejar.</string>
- <string id="417">Algumas opções que você pode estar interessado em:{0}{0}Filtros Personalizados - Se os arquivos do seu filme tem coisas como "DVDRip", "Blu-Ray", "x264", etc em sua pasta ou nome do arquivo e você deseja filtrar os nomes de ao carregar na lista de mídia, você pode utilizar a opção Custom Filter. O filtro personalizado é RegEx compatível para o máximo de usabilidade {0} {0} Imagens -.. Esta seção permite selecionar os sites que a "raspar" a partir de imagens, bem como seleccionar o tamanho preferido para as imagens Ember Media Manager seleciona {0} {0} Bloqueios - Esta seção lhe permite "bloquear" determinadas informações que ele não é atualizado, mesmo se você raspar novamente o filme. Isso é útil se você editar manualmente o título, esboço, ou parcela de um filme e deseja manter as alterações</string>
- <string id="418">Tem certeza que deseja remover as fontes selecionadas? Isto irá remover os filmes a partir destas fontes do banco de dados Ember.</string>
- <string id="419">Os metadados ainda não estão disponíveis para este filme. Clique no botão Atualizar desta janela para reescanear e salvar os metadados do filme selecionado.</string>
- <string id="420">Configurações</string>
- <string id="421">Conexão</string>
- <string id="422"></string>
- <string id="423"></string>
- <string id="424"></string>
- <string id="425">Usuário:</string>
- <string id="426">Senha:</string>
- <string id="427"></string>
- <string id="428"></string>
- <string id="429">Diversos</string>
- <string id="430">Idioma da Interface:</string>
- <string id="431">Ativar animação do painel</string>
- <string id="432">Procurar por atualizações</string>
- <string id="433">Sobrescrever NFOs fora do padrão</string>
- <string id="434">(Leia as explicações abaixo)</string>
- <string id="435">Criar relatório de erros nos arquivos</string>
- <string id="436">Mostrar ícone se o filme possuir o idioma:</string>
- <string id="437">Limpar Arquivos</string>
- <string id="438">Padrão</string>
- <string id="439">Avançado</string>
- <string id="440">Proteger Extensões</string>
- <string id="441">Extensões Protegidas:</string>
- <string id="442">Aviso: usando a limpeza no modo avançado poderá apagar arquivos desejados. Tome cuidado ao usar esta ferramenta.</string>
- <string id="443">Baixar Complementos</string>
- <string id="444">Arquivo</string>
- <string id="445"></string>
- <string id="446"></string>
- <string id="447">Baixando os Arquivos...</string>
- <string id="448"></string>
- <string id="449"></string>
- <string id="450"></string>
- <string id="451">Filtros de Nome de Arquivo e Pasta</string>
- <string id="452">Colocar as Primeiras Letras dos Títulos em Maiúsculas</string>
- <string id="453">Mostrar o texto do gênero no logo</string>
- <string id="454">Filtro de Idioma</string>
- <string id="455">Não mostrar fanart</string>
- <string id="456">Não mostrar poster</string>
- <string id="457">Mostrar dimensões da imagem</string>
- <string id="458">Explicações</string>
- <string id="459">Marcar Novos Filmes</string>
- <string id="460">Opções Para a Listagem dos Títulos</string>
- <string id="461">Tolerância de Erros:</string>
- <string id="462">Conferir Acerto do Título </string>
- <string id="463">Artigos Para Serem Ignorados</string>
- <string id="464">Mostrar Ano na Lista de Títulos</string>
- <string id="465">Ocultar Coluna de Extrathumbs</string>
- <string id="466">Ocultar Coluna de Legendas</string>
- <string id="467">Ocultar Coluna de Trailer</string>
- <string id="468">Ocultar Coluna de NFO</string>
- <string id="469">Ocultar Coluna de Fanart</string>
- <string id="470">Ocultar Coluna de Poster</string>
- <string id="471">Nome dos Arquivos</string>
- <string id="472">Usar <filme> para pastas com múltiplos filmes</string>
- <string id="473">YAMJ Compatible VIDEO_TS File Placement/Naming</string>
- <string id="474"></string>
- <string id="475"></string>
- <string id="476"></string>
- <string id="477"></string>
- <string id="478">Qualidade:</string>
- <string id="479">Largura:</string>
- <string id="480">Altura:</string>
- <string id="481">Redimensionar Automaticamente:</string>
- <string id="482">Tamanho Preferido:</string>
- <string id="483">Sobrescrever Existentes</string>
- <string id="484">Carregando as Configurações</string>
- <string id="485"></string>
- <string id="486"></string>
- <string id="487"></string>
- <string id="488">Trava Global</string>
- <string id="489">Travar Trailer</string>
- <string id="490">Travar Gênero</string>
- <string id="491">Travar Estúdio</string>
- <string id="492">Travar Avaliaçã</string>
- <string id="493">Travar Tagline</string>
- <string id="494">Travar Título</string>
- <string id="495">Travar Resumo</string>
- <string id="496">Travar Sinopse</string>
- <string id="497">Imagens</string>
- <string id="498">Não Gravar URLs no NFO</string>
- <string id="499">Selecionar Manualmente</string>
- <string id="500">MoviePosterDB.com</string>
- <string id="501">TheMovideDB.org</string>
- <string id="502">IMPAwards.com</string>
- <string id="503">Usar a Imagem Extraída</string>
- <string id="504">Meta Data não esta disponível para este episódio. Tente rescanear.</string>
- <string id="505">Evitar Spoilers</string>
- <string id="506">Quantidade:</string>
- <string id="507">Extrair do Filme ao Buscar</string>
- <string id="508">Usar o Resumo na Sinopse Se Ela Estiver Em Branco</string>
- <string id="509"></string>
- <string id="510">Buscar Somente Atores Com Imagens</string>
- <string id="511">Usar Classificação Indicativa</string>
- <string id="512">Buscar Todo o Elenco</string>
- <string id="513">Buscar Toda a Equipe</string>
- <string id="514">Usar a Certificação do:</string>
- <string id="515">Formato Duração</string>
- <string id="516">Usar Duração do Metadados</string>
- <string id="517">Buscar Metadados nos Arquivos de Video</string>
- <string id="518">Configura a aparência e modo de operação do Ember.</string>
- <string id="519">Remover Selecionado</string>
- <string id="520">Pasta Backdrops</string>
- <string id="521">Gravar Fanart automaticamente na pasta Backdrops</string>
- <string id="522">Deletar Existentes</string>
- <string id="523"></string>
- <string id="524">Salvar só as URLs</string>
- <string id="525">Selecionar Manualmente</string>
- <string id="526"></string>
- <string id="527">Em Buscas no Modo Aut.</string>
- <string id="528"></string>
- <string id="529">Ativar Suporte a Trailers</string>
- <string id="530">Extensões Não Empilhadas</string>
- <string id="531"></string>
- <string id="532"></string>
- <string id="533"></string>
- <string id="534">Extensões de Vídeo Válidos</string>
- <string id="535">Editar Fonte</string>
- <string id="536">Opções Diversas</string>
- <string id="537">Reconhecer pastas VIDEO_TS</string>
- <string id="538">Ignorar arquivos agrupados</string>
- <string id="539">MB</string>
- <string id="540">Ignorar arquivos menores que:</string>
- <string id="541">Redimensionar (Só o Extraído)</string>
- <string id="542">Preencher</string>
- <string id="543">Largura:</string>
- <string id="544">Altura:</string>
- <string id="545">Usar Tamanho Personalizado</string>
- <string id="546">Usar Resolução Nativa</string>
- <string id="547">Cache de Imagens</string>
- <string id="548">Em Buscas no Modo Aut.</string>
- <string id="549">Marcar Novas Séries</string>
- <string id="550">Manter o Cache de Imagens</string>
- <string id="551">Ativar Cache de Imagens</string>
- <string id="552">Selecione a pasta onde você deseja armazenar seus backdrops.</string>
- <string id="553">Sistema de Arquivos</string>
- <string id="554"></string>
- <string id="555">Arquivos e Fontes</string>
- <string id="556">Buscador - Dados</string>
- <string id="557">Buscador - Imagens e Trailers</string>
- <string id="558">Esticado</string>
- <string id="559"></string>
- <string id="560"></string>
- <string id="561"></string>
- <string id="562"></string>
- <string id="563"></string>
- <string id="564"></string>
- <string id="565"></string>
- <string id="566"></string>
- <string id="567"></string>
- <string id="568">Gerando Imagem dos Atores:</string>
- <string id="569">Todos</string>
- <string id="570">[none]</string>
- <string id="571">[Desativado]</string>
- <string id="572">Buscando por Posters:</string>
- <string id="573">Buscando por Fanart:</string>
- <string id="574">Buscando por Trailers:</string>
- <string id="575">Gerando Extrathumbs:</string>
- <string id="576">Verificando Detalhes do Filme:</string>
- <string id="577">Campos do Buscador - Global</string>
- <string id="578">Limite:</string>
- <string id="579">Mídia:</string>
- <string id="580">Mostra os filmes do arquivo selecionado.</string>
- <string id="581">Opções do Faltando Itens</string>
- <string id="582">Títulos Faltando Pôsteres</string>
- <string id="583">Títulos Faltando Fanart</string>
- <string id="584">Títulos Faltando o NFO</string>
- <string id="585">Títulos Faltando Trailers</string>
- <string id="586">Títulos Faltando Legendas</string>
- <string id="587">Títulos Faltando Extrathumbs</string>
- <string id="588"></string>
- <string id="589"></string>
- <string id="590"></string>
- <string id="591">Top 250</string>
- <string id="592"></string>
- <string id="593"></string>
- <string id="594">Editora Metadata</string>
- <string id="595">Video</string>
- <string id="596">Audio</string>
- <string id="597">Legenda</string>
- <string id="598">Tipo</string>
- <string id="599">Baixar os Extrathumbs Como Especificado Abaixo:</string>
- <string id="600">Ordenar Filmes Por</string>
- <string id="601">Data da Inclusão</string>
- <string id="602">Fonte</string>
- <string id="603">Editar os Metadados do Arquivo</string>
- <string id="604">Codec</string>
- <string id="605">Varredura</string>
- <string id="606">Largura</string>
- <string id="607">Altura</string>
- <string id="608">Aspecto</string>
- <string id="609">Duração</string>
- <string id="610">Idioma</string>
- <string id="611">Canais</string>
- <string id="612">Preferido</string>
- <string id="613">Editor do Metadados do Arquivo</string>
- <string id="614">Aspecto</string>
- <string id="615">Interlaced</string>
- <string id="616">Progressive</string>
- <string id="617">Video</string>
- <string id="618">Audio</string>
- <string id="619">Legenda</string>
- <string id="620">Filme</string>
- <string id="621">Marcar Novos Episódios</string>
- <string id="622">Buscando Mídia (Filtro Atual - Perguntar):</string>
- <string id="623">Buscando Mídia (Filtro Atual - Auto):</string>
- <string id="624">Filtro Atual</string>
- <string id="625">Tipo de Arquivo Padrão</string>
- <string id="626">Extensão</string>
- <string id="627">Itens Selecionados: {0}</string>
- <string id="628">Buscar Metadados nos NFO Existentes</string>
- <string id="629">Temas</string>
- <string id="630"></string>
- <string id="631"></string>
- <string id="632"></string>
- <string id="633"></string>
- <string id="634"></string>
- <string id="635">Você selecionou {0} diretórios para abrir. Você tem certeza que quer fazer isto?</string>
- <string id="636"></string>
- <string id="637"></string>
- <string id="638"></string>
- <string id="639"></string>
- <string id="640"></string>
- <string id="641"></string>
- <string id="642">Título na Coletânea</string>
- <string id="643">YAMJ Compatible Sets Saving</string>
- <string id="644">Limpando base de dados...</string>
- <string id="645">Estreou: {0}</string>
- <string id="646">Remover do Banco de Dados</string>
- <string id="647">Estreou: {0}</string>
- <string id="648">Temporada: {0}, Episódio: {1}</string>
- <string id="649">Atualizar tudo</string>
- <string id="650">Temporada</string>
- <string id="651">Não Existe Informação Disponível Para Este Seriado</string>
- <string id="652">Não Existe Informação Disponível Para Este Episódio</string>
- <string id="653">Seriados</string>
- <string id="654">Temporada </string>
- <string id="655">Temporada Especiais</string>
- <string id="656">Editar o Episódio</string>
- <string id="657">Editar os detalhes para o Episódio selecionado.</string>
- <string id="658">Estreou:</string>
- <string id="659">Temporada:</string>
- <string id="660">Episódio:</string>
- <string id="661">Carregando Episódio</string>
- <string id="662">Gravar Como Poster</string>
- <string id="663">Editar a Série</string>
- <string id="664">Editar os detalhes para o Seriado selecionado.</string>
- <string id="665">Estreou:</string>
- <string id="666">Seriado</string>
- <string id="667">Episódio</string>
- <string id="668">Limpar o BD após atualizar a biblioteca</string>
- <string id="669">Ignorar última busca ao atualizar a bib.</string>
- <string id="670">Filtro de Série - Pasta/Arquivo</string>
- <string id="671">Filtro de Episódio - Pasta/Arquivo</string>
- <string id="672">Proxy</string>
- <string id="673">Ativar Proxy</string>
- <string id="674">Proxy URL:</string>
- <string id="675">Porta:</string>
- <string id="676">Credenciais</string>
- <string id="677">Ativar Credenciais</string>
- <string id="678">Domínio:</string>
- <string id="679">País da Classificação Etária</string>
- <string id="680">Seriados</string>
- <string id="681">Temporadas</string>
- <string id="682">Episódios</string>
- <string id="683">Poster da Série</string>
- <string id="684">Fanart da Série</string>
- <string id="685">Poster da Temporada</string>
- <string id="686">Fanart da Temporada</string>
- <string id="687">Poster do Episódio</string>
- <string id="688">Fanart do Episódio</string>
- <string id="689"> [MISSING]</string>
- <string id="690">Editar o Regex</string>
- <string id="691">Regex de Série Correspondente</string>
- <string id="692">Regex de Temporada Correspondente:</string>
- <string id="693">Regex de Episódio Correspondente:</string>
- <string id="694">Aplicar para</string>
- <string id="695">Editar o Regex</string>
- <string id="696">Regex da Série</string>
- <string id="697">Regex do Episódio</string>
- <string id="698">Seriados</string>
- <string id="699">Regex</string>
- <string id="700">Seriado</string>
- <string id="701">Episódio</string>
- <string id="702"></string>
- <string id="703"></string>
- <string id="704"></string>
- <string id="705">Fonte de Séries</string>
- <string id="706">Selecionar a pasta pai para seu seriados.</string>
- <string id="707"></string>
- <string id="708">Doar</string>
- <string id="709">Limpar Base de Dados</string>
- <string id="710">Forçar Título:</string>
- <string id="711">Incluir nome da pasta na verificação do tipo da fonte</string>
- <string id="712">Colocar todos os arquivos em novas pastas após atualizar a biblioteca</string>
- <string id="713">Trailer Local:</string>
- <string id="714">Confirme os itens para serem apagados</string>
- <string id="715">Alternar Todos</string>
- <string id="716">Buscar</string>
- <string id="717">Preparando para atualização ...</string>
- <string id="718">Agora estamos prontos para atualizar. Ember será fechado para que a atualização pode começar.\n\nVocê tem certeza que quer continuar?</string>
- <string id="719">SIM</string>
- <string id="720">NAO</string>
- <string id="721">Upgrade</string>
- <string id="722">Certificação</string>
- <string id="723">URL</string>
- <string id="724">Estreou</string>
- <string id="725">Atores</string>
- <string id="726">Temporada {0}</string>
- <string id="727">Episódio</string>
- <string id="728">Estreou</string>
- <string id="729">Créditos</string>
- <string id="730">Tipo Preferido:</string>
- <string id="731">Atualizando a Série:</string>
- <string id="732"><h> = Horas, <m> = Minutos</string>
- <string id="733">Mostrar Episódios Faltantes</string>
- <string id="734">Construir título do episódio em vez de filtrar</string>
- <string id="735">Poster de Todas as Temporadas</string>
- <string id="736">Somente pegar imagens para o idioma selecionada</string>
- <string id="737">Também baixar imagens em Inglês</string>
- <string id="738">Chave API:</string>
- <string id="739">Ordem dos Episódios:</string>
- <string id="740">Buscar por informações da Série a cada:</string>
- <string id="741">Idioma Preferido:</string>
- <string id="742">Idiomas disponíveis localizados</string>
- <string id="743">Seriado</string>
- <string id="744">Temporada</string>
- <string id="745">Nenhum</string>
- <string id="746">Em Branco</string>
- <string id="747">Imagem</string>
- <string id="748">Texto</string>
- <string id="749">Semana</string>
- <string id="750">Bi-Semanal</string>
- <string id="751">Mês</string>
- <string id="752">Nunca</string>
- <string id="753">Sempre</string>
- <string id="754">Ajuste Modulo</string>
- <string id="755">Episódio #</string>
- <string id="756">Carregando todos os episódios:</string>
- <string id="757">Salvando todas as imagens:</string>
- <string id="758">Procurando no theTVDB:</string>
- <string id="759">Selecione as Imagens:</string>
- <string id="760">Baixando ZIP da Série:</string>
- <string id="761">Verificando os Seriados:</string>
- <string id="762">Verificando ps Episódios:</string>
- <string id="763">Você tem certeza que deseja apagar o Seriado selecionado e todos os episódios?</string>
- <string id="764">Você tem certeza que deseja apagar o Episoódio selecionado?</string>
- <string id="765">Você tem certeza que deseja apagar a Temporada selecionada e todos os episódios?</string>
- <string id="766">Buscar Seriado</string>
- <string id="767">Alterar Seriado</string>
- <string id="768">Apagar Seriado</string>
- <string id="769">Editar Temporada</string>
- <string id="770">Alterar Imagens</string>
- <string id="771">Apagar Temporada</string>
- <string id="772">Alterar Episódio</string>
- <string id="773">Apagar Episódio</string>
- <string id="774">Habilitado</string>
- <string id="775">Desabilitado</string>
- <string id="776"></string>
- <string id="777">Escritor</string>
- <string id="778"></string>
- <string id="779"></string>
- <string id="780"></string>
- <string id="781"></string>
- <string id="782"></string>
- <string id="783">Sinopse:</string>
- <string id="784"></string>
- <string id="785"></string>
- <string id="786">Poster Todas as Temporadas</string>
- <string id="787"></string>
- <string id="788"></string>
- <string id="789"></string>
- <string id="790"></string>
- <string id="791"></string>
- <string id="792">Doar</string>
- <string id="793">&Versões...</string>
- <string id="794">&Configuração dos Módulos...</string>
- <string id="795">Interface</string>
- <string id="796">Ao atualizar a biblioteca ordenar os títulos na ordem da criação dos arquivos</string>
- <string id="797">Ordem padrão dos episódios:</string>
- <string id="798"></string>
- <string id="799">Buscador - Trailers</string>
- <string id="800">Qualidade Preferida:</string>
- <string id="801">Página do TVDB</string>
- <string id="802">Módulos</string>
- <string id="803">Em seguida, vamos dizer ao Ember Media Manager onde localizar todos os seus seriados. Você pode adicionar quantas fontes desejar.</string>
- <string id="804">E, finalmente, vamos dizer ao Ember Media Manager quais arquivos de seriado procurar. Basta selecionar qualquer combinação de tipo de arquivos que você deseja que o Ember Media Manager carregue e grave. Você pode selecionar mais de um de por cada seção, se desejar.</string>
- <string id="805">Envie para PasteBin.com</string>
- <string id="806">Copiar para Clipboard</string>
- <string id="807">Um erro ocorreu quando tentou enviar dados para o Pastebin.com</string>
- <string id="808">Visualizador do Log de Erros</string>
- <string id="809">Antes de submeter relatórios de bugs, por favor, verifique se o erro já não foi relatado. Você pode ver uma lista de todos os bugs conhecidos aqui:</string>
- <string id="810">http://www.embermm.com/projects/embermm/issues</string>
- <string id="811">PasteBin URL:</string>
- <string id="812">Título Anterior: {0} | Novo Título: {1}</string>
- <string id="813">Dados Coletados</string>
- <string id="814">Episódios Adicionados: </string>
- <string id="815">Filmes Adicionados: </string>
- <string id="816">Um Erro Ocorreu</string>
- <string id="817">Novo filme adicionado</string>
- <string id="818">Novo episódio adicionado</string>
- <string id="819">Perfis RegEx de Seriados</string>
- <string id="820">Perfil do RegEx</string>
- <string id="821">Descrição</string>
- <string id="822">Miscelânea</string>
- <string id="823">Audio & Video Codec Mapping</string>
- <string id="824">Fonte do Video:</string>
- <string id="825">Downloads:</string>
- <string id="826"></string>
- <string id="827"></string>
- <string id="828">Ativar Cache dos Atores</string>
- <string id="829">Watch for ""Dump"" Folder</string>
- <string id="830">Editar os detalhes para a Temporada selecionada.</string>
- <string id="831"></string>
- <string id="832">Poster de Todas as Temporadas</string>
- <string id="833">These are Scraper specific settings and act as a filter.\nYou should also Checar Ember Global Settings.</string>
- <string id="834">* Inside Temporada Folder</string>
- <string id="835">Salvar Só a Informação Numérica no NFO</string>
- <string id="836"></string>
- <string id="837">Buscador - Imagens</string>
- <string id="838">Baner</string>
- <string id="839">Absoluto</string>
- <string id="840">Você tem certeza que deseja retornar para o padrão os filtros da lista da Série?</string>
- <string id="841">Você tem certeza que deseja retornar para o padrão os filtros da lista de Episódio?</string>
- <string id="842">Você tem certeza que deseja retornar para o padrão os filtros da lista de Filmes?</string>
- <string id="843">Você tem certeza que deseja retornar para o padrão a lista de Extensões de Vídeo Válidos?</string>
- <string id="844">Você tem certeza que deseja voltar a lista regex de Séries para o padrão?</string>
- <string id="845">>> Nenhum Item Selecionado <<</string>
- <string id="846"></string>
- <string id="847"></string>
- <string id="848"></string>
- <string id="849">Buscar ao Selecionar o Filme</string>
- <string id="850">&Procurar por Atualizações</string>
- <string id="851">Nenhuma atualização neste momento</string>
- <string id="852">Perguntar ao Buscar o Filme</string>
- <string id="853">Atualizar Somente os Seriados</string>
-</strings>
\ No newline at end of file
diff --git a/Ember Media Manager/Langs/html/English_(en_US).html b/Ember Media Manager/Langs/html/English_(en_US).html
new file mode 100644
index 0000000..ceb9434
--- /dev/null
+++ b/Ember Media Manager/Langs/html/English_(en_US).html
@@ -0,0 +1,292 @@
+<$NEED_POSTERS>
+<$NEED_FANART>
+<$NEED_FLAGS>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+
+<head>
+<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
+<title>:.My Movie Collection.:
+
+
+
+
+
+
+
+
+
+<$MOVIE>
+
Certification:
") @@ -230,15 +230,83 @@ Namespace IMDB If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA AndAlso (Not Master.eSettings.CertificationLang = "USA" OrElse (Master.eSettings.CertificationLang = "USA" AndAlso String.IsNullOrEmpty(IMDBMovie.MPAA))) Then IMDBMovie.MPAA = If(Master.eSettings.CertificationLang = "USA", StringUtils.USACertToMPAA(IMDBMovie.Certification), If(Master.eSettings.OnlyValueForCert, IMDBMovie.Certification.Split(Convert.ToChar(":"))(1), IMDBMovie.Certification)) End If + + + Else + 'No FSK Rating was found -> Alternative: Set USA Rating instead as fallback, MPAA will be converted to FSK, Certification from USA will be used, so people can see that US info was used! + If Master.eSettings.UseMPAAForFSK Then + Try + If Master.eSettings.CertificationLang = "Germany" AndAlso (IMDBMovie.MPAA.ToLower.Contains("usa") Or IMDBMovie.MPAA.ToLower.Contains("rated")) Then + Dim LANGRATING As String = "USA" + Dim Cert2 = From M In rCert Select N = String.Format("{0}:{1}", DirectCast(M, Match).Groups(1).ToString.Trim, DirectCast(M, Match).Groups(2).ToString.Trim) Order By N Descending Where N.Contains(LANGRATING) + If Cert2.Count > 0 Then + IMDBMovie.Certification = Cert2(0).ToString.Replace("West", String.Empty).Trim + If Options.bMPAA AndAlso Master.eSettings.UseCertForMPAA Then + If IMDBMovie.MPAA.ToLower.Contains("usa:g") Or IMDBMovie.MPAA.ToLower.Contains("rated g") Then + IMDBMovie.Certification = IMDBMovie.MPAA + If Master.eSettings.OnlyValueForCert = False Then + IMDBMovie.MPAA = "Germany:0" + Else + IMDBMovie.MPAA = "0" + End If + + ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg-13") Or IMDBMovie.MPAA.ToLower.Contains("rated pg-13") Then + IMDBMovie.Certification = IMDBMovie.MPAA + If Master.eSettings.OnlyValueForCert = False Then + IMDBMovie.MPAA = "Germany:16" + Else + IMDBMovie.MPAA = "16" + End If + + ElseIf IMDBMovie.MPAA.ToLower.Contains("usa:pg") Or IMDBMovie.MPAA.ToLower.Contains("rated pg") Then + IMDBMovie.Certification = IMDBMovie.MPAA + If Master.eSettings.OnlyValueForCert = False Then + IMDBMovie.MPAA = "Germany:12" + Else + IMDBMovie.MPAA = "12" + End If + + ElseIf IMDBMovie.Certification.ToLower.Contains("usa:r") Or IMDBMovie.Certification.ToLower.Contains("rated r") Then + IMDBMovie.Certification = IMDBMovie.MPAA + If Master.eSettings.OnlyValueForCert = False Then + IMDBMovie.MPAA = "Germany:18" + Else + IMDBMovie.MPAA = "18" + End If + + ElseIf IMDBMovie.Certification.ToLower.Contains("usa:nc-17") Or IMDBMovie.Certification.ToLower.Contains("rated nc") Then + IMDBMovie.Certification = IMDBMovie.MPAA + If Master.eSettings.OnlyValueForCert = False Then + IMDBMovie.MPAA = "Germany:18" + Else + IMDBMovie.MPAA = "18" + End If + + End If + End If + End If + End If + Catch ex As Exception + Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error") + End Try + + End If End If + + Else + IMDBMovie.Certification = Strings.Join(Cert.ToArray, " / ").Trim + + End If End If End If + If String.IsNullOrEmpty(IMDBMovie.Certification) AndAlso Not String.IsNullOrEmpty(IMDBMovie.MPAA) Then IMDBMovie.Certification = IMDBMovie.MPAA End If + End If If bwIMDB.CancellationPending Then Return Nothing @@ -308,6 +376,7 @@ Namespace IMDB 'Find all cast of the movie 'Match the table only 1 time Dim ActorsTable As String = Regex.Match(HTML, ACTORTABLE_PATTERN).ToString + Dim ThumbsSize = AdvancedSettings.GetSetting("ActorThumbsSize", "SY275_SX400") Dim rCast As MatchCollection = Regex.Matches(ActorsTable, TR_PATTERN) @@ -318,7 +387,7 @@ Namespace IMDB Select New MediaContainers.Person(Web.HttpUtility.HtmlDecode(m1.Groups("name").ToString.Trim), _ Web.HttpUtility.HtmlDecode(m2.ToString.Trim), _ If(m3.Groups("thumb").ToString.IndexOf("addtiny") > 0 OrElse m3.Groups("thumb").ToString.IndexOf("no_photo") > 0, String.Empty, Strings.Replace(Web.HttpUtility.HtmlDecode(m3.Groups("thumb").ToString.Trim), _ - "._SX23_SY30_.jpg", "._SY275_SX400_.jpg"))) Take If(Master.eSettings.ActorLimit > 0, Master.eSettings.ActorLimit, 999999) + "._SX23_SY30_.jpg", String.Concat("._", ThumbsSize, "_.jpg")))) Take If(Master.eSettings.ActorLimit > 0, Master.eSettings.ActorLimit, 999999) If Master.eSettings.CastImagesOnly Then Cast1 = Cast1.Where(Function(p As MediaContainers.Person) (Not String.IsNullOrEmpty(p.Thumb))) @@ -389,9 +458,20 @@ Namespace IMDB Select Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString) If Cou.Count > 0 Then - IMDBMovie.Country = Strings.Join(Cou.ToArray, " / ").Trim + + 'fix for display country flag in XBMC! + If Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("USA") Then + IMDBMovie.Country = "United States of America" + ElseIf Strings.Join(Cou.ToArray, " / ").Trim.ToUpper.Contains("UK") Then + IMDBMovie.Country = "United Kingdom" + Else + IMDBMovie.Country = Strings.Join(Cou.ToArray, " / ").Trim() + End If + End If End If + + End If If bwIMDB.CancellationPending Then Return Nothing @@ -413,8 +493,11 @@ Namespace IMDB Dim Gen = From M In rGenres _ Select N = Web.HttpUtility.HtmlDecode(DirectCast(M, Match).Groups("name").ToString) Where Not N.Contains("more") Take If(Master.eSettings.GenreLimit > 0, Master.eSettings.GenreLimit, 999999) If Gen.Count > 0 Then - 'force splitting of /ed genres - IMDBMovie.Genre = Strings.Join(Gen.ToArray, "/").Trim.Replace("/", " / ").Trim + Dim tGenre As String = Strings.Join(Gen.ToArray, "/").Trim + tGenre = StringUtils.GenreFilter(tGenre) + If Not String.IsNullOrEmpty(tGenre) Then + IMDBMovie.Genre = Strings.Join(tGenre.Split(Convert.ToChar("/")), " / ").Trim + End If End If End If End If @@ -637,9 +720,9 @@ mPlot: Dim b As Boolean = False Dim imdbMovie As MediaContainers.Movie = dbMovie.Movie - r.PopularTitles.Sort() - r.ExactMatches.Sort() - r.PartialMatches.Sort() + 'r.PopularTitles.Sort() + 'r.ExactMatches.Sort() + 'r.PartialMatches.Sort() Try Select Case iType @@ -655,7 +738,7 @@ mPlot: Master.tmpMovie.Clear() Using dIMDB As New dlgIMDBSearchResults dIMDB.IMDBURL = IMDBURL - If dIMDB.ShowDialog(r, sMovieName) = Windows.Forms.DialogResult.OK Then + If dIMDB.ShowDialog(r, sMovieName, dbMovie.Filename) = Windows.Forms.DialogResult.OK Then If String.IsNullOrEmpty(Master.tmpMovie.IMDBID) Then b = False Else @@ -689,8 +772,16 @@ mPlot: 'End If If r.ExactMatches.Count = 1 Then b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True) - ElseIf r.ExactMatches.Count > 1 AndAlso (r.ExactMatches(If(exactHaveYear >= 0, exactHaveYear, 0)).Lev <= 5 OrElse useAnyway) Then - b = GetMovieInfo(r.ExactMatches.Item(If(exactHaveYear >= 0, exactHaveYear, 0)).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True) + ElseIf r.ExactMatches.Count > 1 AndAlso exactHaveYear >= 0 Then + b = GetMovieInfo(r.ExactMatches.Item(exactHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True) + ElseIf r.PopularTitles.Count > 0 AndAlso popularHaveYear >= 0 Then + b = GetMovieInfo(r.PopularTitles.Item(popularHaveYear).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCrew, False, Options, True) + ElseIf r.ExactMatches.Count > 0 AndAlso (r.ExactMatches(0).Lev <= 5 OrElse useAnyway) Then + b = GetMovieInfo(r.ExactMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True) + ElseIf r.PopularTitles.Count > 0 AndAlso (r.PopularTitles(0).Lev <= 5 OrElse useAnyway) Then + b = GetMovieInfo(r.PopularTitles.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True) + ElseIf r.PartialMatches.Count > 0 AndAlso (r.PartialMatches(0).Lev <= 5 OrElse useAnyway) Then + b = GetMovieInfo(r.PartialMatches.Item(0).IMDBID, imdbMovie, Master.eSettings.FullCrew, Master.eSettings.FullCast, False, Options, True) End If End Select @@ -843,84 +934,95 @@ mPlot: Dim D, W As Integer Dim R As New MovieSearchResults - Dim sHTTP As New HTTP - Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie, System.Text.Encoding.GetEncoding("ISO-8859-1")), "&s=all")) - Dim HTMLm As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie, System.Text.Encoding.GetEncoding("ISO-8859-1")), "&s=tt&ttype=ft&ref_=fn_ft")) - Dim HTMLe As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie, System.Text.Encoding.GetEncoding("ISO-8859-1")), "&s=tt&ttype=ft&exact=true&ref_=fn_tt_ex")) - Dim rUri As String = sHTTP.ResponseUri - sHTTP = Nothing - - 'Check if we've been redirected straight to the movie page - If Regex.IsMatch(rUri, IMDB_ID_REGEX) Then - Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(Regex.Match(rUri, IMDB_ID_REGEX).ToString, _ - StringUtils.ProperCase(sMovie), Regex.Match(Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString, "(?<=\()\d+(?=.*\))").ToString, 0) + If Regex.IsMatch(sMovie.ToLower, IMDB_ID_REGEX) Then + Dim sHTTP As New HTTP + Dim eIMDBID = Regex.Match(sMovie.ToLower, IMDB_ID_REGEX).ToString + Dim HTMLe As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/title/", eIMDBID)) + Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(eIMDBID, StringUtils.ProperCase(sMovie), Regex.Match(Regex.Match(HTMLe, MOVIE_TITLE_PATTERN).ToString, "(?<=\()\d+(?=.*\))").ToString, 0) R.ExactMatches.Add(lNewMovie) Return R - End If + Else + Dim sHTTP As New HTTP + Dim HTML As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft")) + Dim HTMLp As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_tt_pop")) + Dim HTMLm As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&ref_=fn_ft")) + Dim HTMLe As String = sHTTP.DownloadData(String.Concat("http://", IMDBURL, "/find?q=", Web.HttpUtility.UrlEncode(sMovie), "&s=tt&ttype=ft&exact=true&ref_=fn_tt_ex")) + Dim rUri As String = sHTTP.ResponseUri + sHTTP = Nothing + + 'Check if we've been redirected straight to the movie page + If Regex.IsMatch(rUri.ToLower, IMDB_ID_REGEX) Then + Dim lNewMovie As MediaContainers.Movie = New MediaContainers.Movie(Regex.Match(rUri.ToLower, IMDB_ID_REGEX).ToString, _ + StringUtils.ProperCase(sMovie), Regex.Match(Regex.Match(HTML, MOVIE_TITLE_PATTERN).ToString, "(?<=\()\d+(?=.*\))").ToString, 0) + R.ExactMatches.Add(lNewMovie) + Return R + End If - D = HTML.IndexOf("Titles") - If D <= 0 Then GoTo mPartial - W = HTML.IndexOf("", D) + 8 + 'popular titles + D = HTMLp.IndexOf("Titles") + If D <= 0 Then GoTo mPartial + W = HTMLp.IndexOf("", D) + 8 - Dim Table As String = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString + Dim Table As String = Regex.Match(HTML.Substring(D, W - D), TABLE_PATTERN).ToString - Dim qPopular = From Mtr In Regex.Matches(Table, TITLE_PATTERN) _ - Where Not DirectCast(Mtr, Match).Groups("name").ToString.Contains("") - If W > 0 Then + Wq = tmpHTML.IndexOf("Quelle:") + If Wq > 0 Then + Wqq = tmpHTML.IndexOf("
", Wq) + B = tmpHTML.IndexOf("", Wqq + 8) + FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(Wqq + 8, B - (Wqq + 8)).Replace("
", String.Empty).Replace(vbCrLf, " ").Trim) + ElseIf W > 0 Then B = tmpHTML.IndexOf("", W + 16) FullPlot = Web.HttpUtility.HtmlDecode(tmpHTML.Substring(W + 16, B - (W + 16)).Replace("
", String.Empty).Replace(vbCrLf, " ").Trim) End If @@ -153,30 +158,60 @@ Public Class OFDB If Not String.IsNullOrEmpty(Html) Then 'title If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then - Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, "
([^<]+)
([^<]+)
0 Then
+ debug.print("GetIMDBPoster 1 - {0}", mcIMDB(0).Value)
+ 'Dim sUrl1 As String = sHTTP.DownloadData(mcIMDB(0).Value)
+ mcIMDB = Regex.Matches(HTML, "http://ia.media-imdb.com/images/.{3,80}?.jpg")
+ If mcIMDB.Count > 0 Then
+ 'just use the first one if more are found
+ Debug.Print("GetIMDBPoster 2 - {0}", mcIMDB(0).Value)
+ alPoster.Add(New MediaContainers.Image With {.Description = "cover", .URL = mcIMDB(0).Value})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(2)
+ End If
+
+ Dim aSP As String() = Regex.Split(mcIMDB(0).Value, "._V\d+?_SY\d+?_CR\d+?,\d+?,\d+?,\d+?_")
+ Dim sUrl1 = aSP(0) + aSP(1)
+ Debug.Print("GetIMDBPoster 3 - {0}", sUrl1)
+ alPoster.Add(New MediaContainers.Image With {.Description = "poster", .URL = sUrl1})
+ End If
+
+ If bwIMDBimg.WorkerReportsProgress Then
+ bwIMDBimg.ReportProgress(3)
+ End If
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ End Try
+
+ Return alPoster
+ End Function
+
+ Private Sub bwIMDBimg_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwIMDBimg.DoWork
+ Dim Args As Arguments = DirectCast(e.Argument, Arguments)
+ Try
+ e.Result = GetIMDBPosters(Args.Parameter)
+ Catch ex As Exception
+ Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
+ e.Result = Nothing
+ End Try
+ End Sub
+
+ Private Sub bwIMDBimg_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwIMDBimg.ProgressChanged
+ If Not bwIMDBimg.CancellationPending Then
+ RaiseEvent ProgressUpdated(e.ProgressPercentage)
+ End If
+ End Sub
+
+ Private Sub bwIMDBimg_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwIMDBimg.RunWorkerCompleted
+ If Not IsNothing(e.Result) Then
+ RaiseEvent PostersDownloaded(DirectCast(e.Result, List(Of MediaContainers.Image)))
+ End If
+ End Sub
+
+
+#End Region 'Methods
+
+#Region "Nested Types"
+
+ Private Structure Arguments
+
+#Region "Fields"
+
+ Dim Parameter As String
+ Dim sType As String
+
+#End Region 'Fields
+
+ End Structure
+
+ Private Structure Results
+
+#Region "Fields"
+
+ Dim Result As Object
+ Dim ResultList As List(Of MediaContainers.Image)
+
+#End Region 'Fields
+
+ End Structure
+
+#End Region 'Nested Types
+
+ End Class
+
+End Namespace
+
diff --git a/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeIMPA.vb b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeIMPA.vb
new file mode 100644
index 0000000..cfe43a1
--- /dev/null
+++ b/Addons/scraper.FanartTV.Poster/Scraper/clsScrapeIMPA.vb
@@ -0,0 +1,189 @@
+' ################################################################################
+' # EMBER MEDIA MANAGER #
+' ################################################################################
+' ################################################################################
+' # This file is part of Ember Media Manager. #
+' # #
+' # Ember Media Manager is free software: you can redistribute it and/or modify #
+' # it under the terms of the GNU General Public License as published by #
+' # the Free Software Foundation, either version 3 of the License, or #
+' # (at your option) any later version. #
+' # #
+' # Ember Media Manager is distributed in the hope that it will be useful, #
+' # but WITHOUT ANY WARRANTY; without even the implied warranty of #
+' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+' # GNU General Public License for more details. #
+' # #
+' # You should have received a copy of the GNU General Public License #
+' # along with Ember Media Manager. If not, see ") + If W > 0 Then + B = tmpHTML.IndexOf("
", String.Empty).Replace(vbCrLf, " ").Trim) + End If + End If + End If + + Catch ex As Exception + Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error") + End Try + + Return FullPlot + End Function + + Private Sub GetOFDBDetails() + Dim sURL As String = GetOFDBUrlFromIMDBID() + + Try + If Not String.IsNullOrEmpty(sURL) Then + Dim sHTTP As New HTTP + Dim HTML As String = sHTTP.DownloadData(sURL) + sHTTP = Nothing + + If Not String.IsNullOrEmpty(Html) Then + 'title + If String.IsNullOrEmpty(OFDBMovie.Title) OrElse Not Master.eSettings.LockTitle Then + Dim OFDBTitle As String = CleanTitle(Web.HttpUtility.HtmlDecode(Regex.Match(Html, "
([^<]+)
+
+
+
+<$/MOVIE>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Director: |
+ <$DIRECTOR> |
+
Genre: |
+ <$GENRES> |
+
Runtime: |
+ <$RUNTIME> |
+
VideoBitrate: |
+ <$VIDEOBITRATE> |
+
AudioBitrate: |
+ <$AUDIOBITRATE> |
+
FSK: |
+ <$MPAA> years |
+
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Links:
+
+
+
+
+
<$PLOT>
++
+
+ + +
+
+
+
+
+
+
+My Movie Collection
+ + ++ + +
| + + | ++ | ++ + | + + +
+
+
+
+
+
+
+
+
+
+ Help/Support: Ember Media Manager
+ Template v1.70 design by Cocotus