Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2024-11-14 20:25: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.

32
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,22 +3513,21 @@ Public Class Main
Debug.WriteLine("LoadedUrls: " + LoadedUrls(i)) Debug.WriteLine("LoadedUrls: " + LoadedUrls(i))
Next Next
If Application.OpenForms().OfType(Of Anime_Add).Any = True Then If LoadedUrls.Count > 0 Then
Anime_Add.StatusLabel.Text = "Status: Processing... " If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
End If Anime_Add.StatusLabel.Text = "Status: Processing... "
Me.Text = "Status: Processing... " End If
ProcessUrls() Me.Text = "Status: Processing... "
Debug.WriteLine("ProcessUrls") ProcessUrls()
Exit Sub Debug.WriteLine("ProcessUrls")
Exit Sub
ElseIf c = False Then Else
If CBool(InStr(localHTML, "hardsub_lang")) Then If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
c = True Anime_Add.StatusLabel.Text = "Status: nothing found"
WebbrowserURL = Address End If
WebbrowserText = localHTML Me.Text = "Status: nothing found"
WebbrowserTitle = DocumentTitle ProcessUrls()
WebbrowserHeadText = localHTML Debug.WriteLine("3530: nothing found")
'SoftSub.DownloadSubs()
Exit Sub Exit Sub
End If End If