Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2024-11-15 04:35:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

smaller changes

Browse Source 
smaller changes
This commit is contained in:
hama3254 2022-10-24 18:42:44 +02:00
parent c4a832cbb3
commit e659df955a
2 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/Crunchyroll Downloader/v17/.suo
View File

Binary file not shown.

18
Crunchyroll Downloader/Main.vb
View File

@ -94,7 +94,6 @@ Public Class Main
Public LabelUpdate As String = "Status: idle" Public LabelUpdate As String = "Status: idle"
Public LabelEpisode As String = "..." Public LabelEpisode As String = "..."
Public b As Boolean Public b As Boolean
Public c As Boolean = True
Public LoginOnly As String = "False" Public LoginOnly As String = "False"
Public Pfad As String = My.Computer.FileSystem.CurrentDirectory Public Pfad As String = My.Computer.FileSystem.CurrentDirectory
Public TempFolder As String = Pfad Public TempFolder As String = Pfad
@ -3514,6 +3513,7 @@ Public Class Main
Debug.WriteLine("LoadedUrls: " + LoadedUrls(i)) Debug.WriteLine("LoadedUrls: " + LoadedUrls(i))
Next Next
If LoadedUrls.Count > 0 Then
If Application.OpenForms().OfType(Of Anime_Add).Any = True Then If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
Anime_Add.StatusLabel.Text = "Status: Processing... " Anime_Add.StatusLabel.Text = "Status: Processing... "
End If End If
@ -3521,15 +3521,13 @@ Public Class Main
ProcessUrls() ProcessUrls()
Debug.WriteLine("ProcessUrls") Debug.WriteLine("ProcessUrls")
Exit Sub Exit Sub
Else
ElseIf c = False Then If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
If CBool(InStr(localHTML, "hardsub_lang")) Then Anime_Add.StatusLabel.Text = "Status: nothing found"
c = True End If
WebbrowserURL = Address Me.Text = "Status: nothing found"
WebbrowserText = localHTML ProcessUrls()
WebbrowserTitle = DocumentTitle Debug.WriteLine("3530: nothing found")
WebbrowserHeadText = localHTML
'SoftSub.DownloadSubs()
Exit Sub Exit Sub
End If End If