diff --git a/Changelog.md b/Changelog.md index 5f6c2a9..353eb58 100644 --- a/Changelog.md +++ b/Changelog.md @@ -1,3 +1,12 @@ +# 2023.1.24.1 + +*2023-01-24* + +- Added + - Icon for standalone downloader +- Fixed + - (Issue #100) some Imgur albums won't download + # 2023.1.24.0 *2023-01-24* diff --git a/SCrawler/API/Imgur/Envir.vb b/SCrawler/API/Imgur/Envir.vb index ddf8690..b9b7d09 100644 --- a/SCrawler/API/Imgur/Envir.vb +++ b/SCrawler/API/Imgur/Envir.vb @@ -15,7 +15,7 @@ Imports PersonalUtilities.Tools.Web.Documents.JSON Namespace API.Imgur Namespace Declarations Friend Module Imgur_Declarations - Friend ReadOnly PostRegex As RParams = RParams.DMS("/([\w\d]+?)(|\.[\w]{0,4})\Z", 1) + Friend ReadOnly PostRegex As RParams = RParams.DMS("/([^/]+?)(|#.*?|\.[\w]{0,4})(|\?.*?)\Z", 1) End Module End Namespace Friend NotInheritable Class Envir diff --git a/SCrawler/Download/VideosDownloaderForm.Designer.vb b/SCrawler/Download/VideosDownloaderForm.Designer.vb index 1657b8c..e097019 100644 --- a/SCrawler/Download/VideosDownloaderForm.Designer.vb +++ b/SCrawler/Download/VideosDownloaderForm.Designer.vb @@ -151,10 +151,10 @@ Namespace DownloadObjects Me.Controls.Add(Me.LIST_VIDEOS) Me.Controls.Add(Me.ToolbarBOTTOM) Me.Controls.Add(Me.ToolbarTOP) + Me.Icon = Global.SCrawler.My.Resources.Resources.ArrowDownIcon_Blue_24 Me.KeyPreview = True Me.MinimumSize = New System.Drawing.Size(540, 400) Me.Name = "VideosDownloaderForm" - Me.ShowIcon = False Me.Text = "Download videos" Me.ToolbarTOP.ResumeLayout(False) Me.ToolbarTOP.PerformLayout() diff --git a/SCrawler/MainFrame.Designer.vb b/SCrawler/MainFrame.Designer.vb index 4b87c54..194579e 100644 --- a/SCrawler/MainFrame.Designer.vb +++ b/SCrawler/MainFrame.Designer.vb @@ -121,10 +121,10 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form Me.BTT_TRAY_PAUSE_AUTOMATION = New System.Windows.Forms.ToolStripMenuItem() Me.BTT_TRAY_SILENT_MODE = New System.Windows.Forms.ToolStripMenuItem() Me.BTT_TRAY_FEED_SHOW = New System.Windows.Forms.ToolStripMenuItem() + Me.BTT_TRAY_CHANNELS = New System.Windows.Forms.ToolStripMenuItem() Me.BTT_TRAY_SHOW_HIDE = New System.Windows.Forms.ToolStripMenuItem() Me.BTT_TRAY_CLOSE = New System.Windows.Forms.ToolStripMenuItem() Me.BTT_TRAY_CLOSE_NO_SCRIPT = New System.Windows.Forms.ToolStripMenuItem() - Me.BTT_TRAY_CHANNELS = New System.Windows.Forms.ToolStripMenuItem() SEP_1 = New System.Windows.Forms.ToolStripSeparator() SEP_2 = New System.Windows.Forms.ToolStripSeparator() CONTEXT_SEP_1 = New System.Windows.Forms.ToolStripSeparator() @@ -419,7 +419,7 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form 'BTT_DOWN_VIDEO ' Me.BTT_DOWN_VIDEO.AutoToolTip = True - Me.BTT_DOWN_VIDEO.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.BTT_DOWN_VIDEO.Image = Global.SCrawler.My.Resources.Resources.ArrowDownPic_Blue_24 Me.BTT_DOWN_VIDEO.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_DOWN_VIDEO.Name = "BTT_DOWN_VIDEO" Me.BTT_DOWN_VIDEO.Size = New System.Drawing.Size(231, 22) @@ -856,6 +856,13 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form Me.BTT_TRAY_FEED_SHOW.Text = "Feed" Me.BTT_TRAY_FEED_SHOW.ToolTipText = "Show feed of recently downloaded data." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+Click the tray icon to show the feed" & "." + ' + 'BTT_TRAY_CHANNELS + ' + Me.BTT_TRAY_CHANNELS.Image = Global.SCrawler.My.Resources.SiteResources.RedditPic_512 + Me.BTT_TRAY_CHANNELS.Name = "BTT_TRAY_CHANNELS" + Me.BTT_TRAY_CHANNELS.Size = New System.Drawing.Size(170, 22) + Me.BTT_TRAY_CHANNELS.Text = "Channels" ' 'BTT_TRAY_SHOW_HIDE ' @@ -885,13 +892,6 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form Me.BTT_TRAY_CLOSE_NO_SCRIPT.ToolTipText = "Close the program without executing the script" Me.BTT_TRAY_CLOSE_NO_SCRIPT.Visible = False ' - 'BTT_TRAY_CHANNELS - ' - Me.BTT_TRAY_CHANNELS.Name = "BTT_TRAY_CHANNELS" - Me.BTT_TRAY_CHANNELS.Size = New System.Drawing.Size(170, 22) - Me.BTT_TRAY_CHANNELS.Text = "Channels" - Me.BTT_TRAY_CHANNELS.Image = Global.SCrawler.My.Resources.SiteResources.RedditPic_512 - ' 'MainFrame ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SCrawler/My Project/AssemblyInfo.vb b/SCrawler/My Project/AssemblyInfo.vb index c1dbd3d..c020c8e 100644 --- a/SCrawler/My Project/AssemblyInfo.vb +++ b/SCrawler/My Project/AssemblyInfo.vb @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - - + +