Fix AoD Dub/OmU

Fix AoD Dub/OmU

Crunchyroll Downloader/Anime_Add.Designer.vb

@@ -273,9 +273,9 @@ Partial Class Anime_Add
         Me.ClientSize = New System.Drawing.Size(630, 275)
         Me.Controls.Add(Me.pictureBox3)
         Me.Controls.Add(Me.pictureBox4)
+        Me.Controls.Add(Me.groupBox2)
         Me.Controls.Add(Me.groupBox1)
         Me.Controls.Add(Me.GroupBox3)
-        Me.Controls.Add(Me.groupBox2)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Name = "Anime_Add"
         Me.Text = "Add"

Crunchyroll Downloader/Anime_Add.vb

@@ -766,7 +766,16 @@ Public Class Anime_Add
                                      TargetReso = 1080
                                  End If
 
-                                 If ComboBox1.Enabled = False Then
+                                 If ComboBox1.Text = "Dub" Then
+                                     For i As Integer = 0 To AoD_DubList.Count - 1
+                                         ProcessList.Add(AoD_DubList(i))
+                                     Next
+
+                                 ElseIf ComboBox1.Text = "OmU" Then
+                                     For i As Integer = 0 To AoD_OmUList.Count - 1
+                                         ProcessList.Add(AoD_OmUList(i))
+                                     Next
+                                 ElseIf ComboBox1.Enabled = False Then
 
                                      If AoD_DubList.Count > 0 Then
                                          For i As Integer = 0 To AoD_DubList.Count - 1
@@ -782,15 +791,6 @@ Public Class Anime_Add
                                          SubExit = True
                                      End If
 
-                                 ElseIf ComboBox1.Text = "Dub" Then
-                                     For i As Integer = 0 To AoD_DubList.Count - 1
-                                         ProcessList.Add(AoD_DubList(i))
-                                     Next
-
-                                 ElseIf ComboBox1.Text = "OmU" Then
-                                     For i As Integer = 0 To AoD_OmuList.Count - 1
-                                         ProcessList.Add(AoD_OmuList(i))
-                                     Next
                                  Else
                                      MsgBox("error 2")
                                      SubExit = True
@@ -999,7 +999,11 @@ Public Class Anime_Add
             Dim client As New WebClient
             client.Encoding = System.Text.Encoding.UTF8
             Dim text As String = client.DownloadString(m3u8_Master_url)
-
+            'Me.Invoke(New Action(Function()
+            '                         MsgBox(m3u8_Master_url)
+            '                         Return Nothing
+            '                     End Function))
+            'My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\Test.txt", text, False)
 
             If InStr(text, "RESOLUTION=") Then 'master m3u8 no fragments 
                 Dim new_m3u8() As String = text.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)

Crunchyroll Downloader/Main.vb

@@ -1369,7 +1369,7 @@ Public Class Main
             End If
 
             Pfad2 = Chr(34) + Pfad2 + "\" + CR_FilenName + ".mp4" + Chr(34)
-
+            Pfad2 = Pfad2.Replace("\\", "\")
 #End Region
 #Region "Subs"
             Dim SoftSubs2 As New List(Of String)
@@ -2108,6 +2108,7 @@ Public Class Main
 
 
             Dim DefaultPath As String = Pfad + "\" + DefaultName + ".mp4"
+            DefaultPath = DefaultPath.Replace("\\", "\")
 #End Region
 
 #Region "Pfad"
@@ -2746,7 +2747,7 @@ Public Class Main
             bytes = clientSocket.Receive(recvBytes, 0, clientSocket.Available, SocketFlags.None)
             htmlReq = Encoding.UTF8.GetString(recvBytes, 0, bytes)
             'MsgBox(htmlReq)
-            My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\log.txt", htmlReq + vbNewLine, True)
+            'My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\log.txt", htmlReq + vbNewLine, True)
             Dim rootPath As String = Directory.GetCurrentDirectory() & "\WebInterface\"
             ' Set default page
             Dim defaultPage As String = "index.html"

Crunchyroll Downloader/bin/x86/Debug/WebInterface/index.html

@@ -27,37 +27,9 @@
 	.liClass{margin-bottom:8px}
   </style>
 <body id="bodypage" class="main-bg" >
-<a class="main_titel">Status: 1 / 1</a>
+<a class="main_titel">Crunchyroll Downloader</a>
 <img alt="image error" src="balken.png" class="class-balken">
 
-		<div class="div-episode">
-
-<img alt="image error" src="https://s3-eu-central-1.amazonaws.com/aod-static/episodes/screenshots/000/004/804/thumb/6a79285bebb22617eff6795cacf59a9e0bfb8407.jpg?1583855488" class="imagestyle">
-
-<div>
-
-<span class="titel" dir="auto"><br>ARIFURETA Sub Episode 3 Die goldene Vampirprinzessin</span>
-
-<div class="progressbar">
-
-<div class="progressbar-value" style="width:100%"></div>
-
-</div>
-<span  dir="auto" class='percenttext'>Finished - 224,72MB</span>
-<div>
-<br>
-<span dir="auto" class="resotext">[Auto]</span>
-
-<a href="#" class="cc-wert" title="Softsubs:
-None"> <img alt="image error" src="cc.png" class="class-cc">null</a>
-
-</div>
-
-</div>
-
-</div>
-
-<img alt="image error" src="balken.png" class="class-balken"><!-- ARIFURETA Sub Episode 3 Die goldene Vampirprinzessin-->
 <script>
 
 setInterval(function loadXMLDoc() {

Crunchyroll Downloader/bin/x86/Debug/log.txt

@@ -1,42 +0,0 @@
-
-GET /balken.png HTTP/1.1
-Host: 127.0.0.1
-User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:83.0) Gecko/20100101 Firefox/83.0
-Accept: image/webp,*/*
-Accept-Language: de,en-US;q=0.7,en;q=0.3
-Accept-Encoding: gzip, deflate
-Referer: http://127.0.0.1/
-Connection: keep-alive
-
-
-GET / HTTP/1.1
-Host: 127.0.0.1
-User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:83.0) Gecko/20100101 Firefox/83.0
-Accept: */*
-Accept-Language: de,en-US;q=0.7,en;q=0.3
-Accept-Encoding: gzip, deflate
-Referer: http://127.0.0.1/
-Connection: keep-alive
-
-
-
-GET /balken.png HTTP/1.1
-Host: 127.0.0.1
-User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:83.0) Gecko/20100101 Firefox/83.0
-Accept: image/webp,*/*
-Accept-Language: de,en-US;q=0.7,en;q=0.3
-Accept-Encoding: gzip, deflate
-Referer: http://127.0.0.1/post
-Connection: keep-alive
-
-
-GET / HTTP/1.1
-Host: 127.0.0.1
-User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:83.0) Gecko/20100101 Firefox/83.0
-Accept: */*
-Accept-Language: de,en-US;q=0.7,en;q=0.3
-Accept-Encoding: gzip, deflate
-Referer: http://127.0.0.1/post
-Connection: keep-alive
-
-