mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 00:02:17 +00:00
60b459e217
Added downloading groups Added downloading Twitter saved posts Added scripts when closing and completing the download Opening Info and Progress forms when downloads start Disabling the opening of forms Info and Progress at the start of downloads if it was once closed Added focusing the main window when opening Info or Progress forms Fixed downloading Instagram tagged data Fixed forbidden characters Instagram stories Updated form field checkers Fixed downloading Imgur and Gfycat if they were posted on Reddit Fixed separate Instagram posts were not downloading via the Video Downloader form. Date time filenames Twitter 4K images
44 lines
1.7 KiB
VB.net
44 lines
1.7 KiB
VB.net
' Copyright (C) 2022 Andy
|
|
' This program 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.
|
|
'
|
|
' This program is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY
|
|
Imports SCrawler.API
|
|
Imports SCrawler.API.Base
|
|
Friend Class MainFrameObjects
|
|
Private ReadOnly Property MF As MainFrame
|
|
Friend Sub New(ByRef f As MainFrame)
|
|
MF = f
|
|
End Sub
|
|
Friend Sub ImageHandler(ByVal User As IUserData)
|
|
ImageHandler(User, False)
|
|
ImageHandler(User, True)
|
|
End Sub
|
|
Friend Sub ImageHandler(ByVal User As IUserData, ByVal Add As Boolean)
|
|
Try
|
|
If Add Then
|
|
AddHandler User.OnUserUpdated, AddressOf MF.User_OnUserUpdated
|
|
Else
|
|
RemoveHandler User.OnUserUpdated, AddressOf MF.User_OnUserUpdated
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
Friend Sub CollectionHandler(ByVal [Collection] As UserDataBind)
|
|
Try
|
|
AddHandler Collection.OnCollectionSelfRemoved, AddressOf MF.CollectionRemoved
|
|
AddHandler Collection.OnUserRemoved, AddressOf MF.UserRemovedFromCollection
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
Friend Sub Focus()
|
|
If MF.Visible Then MF.BringToFront() : MF.Activate()
|
|
End Sub
|
|
Friend Sub ChangeCloseVisible()
|
|
Dim a As Action = Sub() MF.BTT_TRAY_CLOSE_NO_SCRIPT.Visible = Settings.ClosingCommand.Attribute And Not Settings.ClosingCommand.IsEmptyString
|
|
If MF.TRAY_CONTEXT.InvokeRequired Then MF.TRAY_CONTEXT.Invoke(a) Else a.Invoke
|
|
End Sub
|
|
End Class |