geonu/SCrawler
1
0
Fork 0
mirror of https://github.com/AAndyProgram/SCrawler.git synced 2026-03-14 15:52:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

2023.12.6.1

Browse Source 
Update updater
YT: add new version check at start
This commit is contained in:
Andy
2023-12-06 18:28:36 +03:00
parent c92314d8e8
commit 0657f3d195
22 changed files with 591 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SCrawler.YouTube/MainModShared.vb
View File

@@ -41,9 +41,8 @@ Public Module MainModShared
End Sub
Public Sub CheckNewReleaseFolder()
Try
Const NewReleaseFolderName$ = "__NewRelease"
Const updaterFolderName$ = "Updater\"
Dim f As SFile = NewReleaseFolderName.CSFileP
Dim f As SFile = SCrawler.Shared.NewReleaseFolderName.CSFileP
If f.Exists(SFO.Path, False) Then
Dim updater As SFile = updaterFolderName
Dim updaterNR As SFile = f.PathWithSeparator & updaterFolderName
@@ -58,7 +57,7 @@ Public Module MainModShared
End Sub
Public Sub ShowProgramInfo(ByVal ProgramText As String, ByVal CurrentVersion As Version, ByVal CheckForUpdate As Boolean, ByVal Force As Boolean,
ByVal EnvirData As IDownloaderSettings, ByVal IsYouTube As Boolean,
Optional ByRef NewVersionDestination As String = Nothing, Optional ByVal ShowNewVersionNotification As Boolean = True,
Optional ByRef NewVersionDestination As String = Nothing, Optional ByRef ShowNewVersionNotification As Boolean = True,
Optional ByVal AdditText As String = Nothing)
Try
Dim GoToSite As New MsgBoxButton("Go to site") With {.CallBack = Sub(r, n, b) Process.Start("https://github.com/AAndyProgram/SCrawler/releases/latest")}