diff --git a/.vs/Crunchyroll Downloader/v15/.suo b/.vs/Crunchyroll Downloader/v15/.suo index 6ba30ec..2e348aa 100644 Binary files a/.vs/Crunchyroll Downloader/v15/.suo and b/.vs/Crunchyroll Downloader/v15/.suo differ diff --git a/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide b/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide index 6eabdb0..56cea7c 100644 Binary files a/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide and b/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide differ diff --git a/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-shm b/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-shm index d36b09e..7d9f068 100644 Binary files a/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-shm and b/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-shm differ diff --git a/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-wal b/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-wal index 3577756..3660c5d 100644 Binary files a/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-wal and b/.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-wal differ diff --git a/Crunchyroll Downloader/Anime_Add.vb b/Crunchyroll Downloader/Anime_Add.vb index 19e14bf..244ef87 100644 --- a/Crunchyroll Downloader/Anime_Add.vb +++ b/Crunchyroll Downloader/Anime_Add.vb @@ -199,8 +199,17 @@ Public Class Anime_Add End If ElseIf CBool(InStr(textBox1.Text, "Test=true")) Then GeckoFX.WebBrowser1.Navigate(textBox1.Text) - Else - MsgBox(Main.URL_Invaild, MsgBoxStyle.OkOnly) + Else 'If CBool(InStr(textBox1.Text, "vrv.co")) Then + If MessageBox.Show("This in NOT a Crunchyroll URL, try anyway?", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then + GeckoFX.WebBrowser1.Navigate(textBox1.Text) + StatusLabel.Text = "Status: looking for non CR video file" + Else + Exit Sub + pictureBox4.Enabled = True + End If + + 'Else + ' MsgBox(Main.URL_Invaild, MsgBoxStyle.OkOnly) End If Catch ex As Exception Main.b = True diff --git a/Crunchyroll Downloader/GeckoFX.vb b/Crunchyroll Downloader/GeckoFX.vb index 0d904e9..a2025ea 100644 --- a/Crunchyroll Downloader/GeckoFX.vb +++ b/Crunchyroll Downloader/GeckoFX.vb @@ -149,13 +149,34 @@ Public Class GeckoFX Me.Close() End If End If - + If Main.UserBowser = False Then + Main.WebbrowserURL = WebBrowser1.Url.ToString + Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml + Main.WebbrowserTitle = WebBrowser1.DocumentTitle + Me.Close() + End If + Else + If Main.UserBowser = False Then + 'My.Computer.Clipboard.SetText(WebBrowser1.Document.Body.OuterHtml) + 'If InStr(WebBrowser1.DocumentTitle, " - Watch on VRV") Then + Main.WebbrowserURL = WebBrowser1.Url.ToString + Main.WebbrowserTitle = WebBrowser1.DocumentTitle + WebBrowser1.Navigate("view-source:" + Main.WebbrowserURL) + Main.Pause(3) + If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, ".m3u8")) Then + 'MsgBox("test3") + Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml + Main.b = True + t = New Thread(AddressOf Main.Grapp_non_CR) + t.Priority = ThreadPriority.Normal + t.IsBackground = True + t.Start() + End If + 'End If + End If End If End If If Main.UserBowser = False Then - Main.WebbrowserURL = WebBrowser1.Url.ToString - Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml - Main.WebbrowserTitle = WebBrowser1.DocumentTitle Me.Close() End If End Sub @@ -164,7 +185,7 @@ Public Class GeckoFX If WebBrowser1.Url.ToString = "about:blank" Then 'WebBrowser1.Navigate("about:preferences") 'WebBrowser1.Navigate("about:addons") - WebBrowser1.Navigate("https://www.crunchyroll.com/login") '") + WebBrowser1.Navigate("https://duckduckgo.com/") '") 'WebBrowser1.Navigate("https://www.crunchyroll.com/de/rwby/episode-45-world-of-remnant-1-dust-658499") 'WebBrowser1.Navigate("https://www.crunchyroll.com/de/rwby") End If @@ -176,4 +197,6 @@ Public Class GeckoFX Private Sub GeckoFX_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing Main.UserBowser = False End Sub + + End Class \ No newline at end of file diff --git a/Crunchyroll Downloader/Main.vb b/Crunchyroll Downloader/Main.vb index 89172c3..9da3a45 100644 --- a/Crunchyroll Downloader/Main.vb +++ b/Crunchyroll Downloader/Main.vb @@ -34,10 +34,11 @@ Public Class Main Dim URL_DL As String Dim Pfad_DL As String Public Grapp_RDY As Boolean = True + Public Grapp_non_cr_RDY As Boolean = True Public Grapp_Abord As Boolean = False Public MaxDL As Integer Public TaskCount As Integer = 0 - Public Event UpdateUI(ByVal sender As String, ByVal Int As Integer) + Public Event UpdateUI(ByVal sender As String, ByVal Int As Integer, ByVal Size As Double, ByVal Finished As Double) Public ResoNotFoundString As String Public ResoBackString As String Dim PB_list As New List(Of PictureBox) @@ -230,7 +231,7 @@ Public Class Main Dim ZeroPoint As Point = New Point(0, 0) Dim TextPoint As Point = New Point(195, 15) Dim TextPointL2 As Point = New Point(195, 42) - Dim TextPointL3 As Point = New Point(773, 95) + Dim TextPointL3 As Point = New Point(773, 100) Dim TextPointL4 As Point = New Point(195, 101) Dim TextPointL4A2 As Point = New Point(300, 101) Dim ThumbnialPoint As Point = New Point(11, 20) @@ -243,8 +244,8 @@ Public Class Main Dim ms As New MemoryStream(bytes) img = System.Drawing.Image.FromStream(ms) Catch ex As Exception - MsgBox(ex.ToString) - MsgBox(ThumbnialURL) + 'MsgBox(ex.ToString) + 'MsgBox(ThumbnialURL) End Try g.DrawImage(newImage, ZeroPoint) Dim Thumnail As New Bitmap(168, 95, System.Drawing.Imaging.PixelFormat.Format24bppRgb) @@ -930,7 +931,7 @@ Public Class Main End Function)) - MsgBox(ResoBackString) + 'MsgBox(ResoBackString) If UserCloseDialog = True Then Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34)) Else @@ -1071,9 +1072,12 @@ Public Class Main Dim sr As StreamReader ' Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " -c copy -bsf:a aac_adtstoasc " + Pfad_DL 'start ffmpeg with command strFFCMD string '-bsf:a aac_adtstoasc - Dim cmd As String = "-i " + DL_URL + " " + ffmpeg_command + " " + DL_Pfad 'start ffmpeg with command strFFCMD string + Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " " + ffmpeg_command + " " + DL_Pfad 'start ffmpeg with command strFFCMD string 'MsgBox(cmd) + + '22050 + ' Dim ffmpegOutput As String = Nothing Dim ffmpegOutput2 As String = Nothing @@ -1090,6 +1094,8 @@ Public Class Main sr = proc.StandardError 'standard error is used by ffmpeg Dim x As Boolean = False Dim Grundwert As Integer + Dim EndFileSize As Double = Nothing + Dim Debug As String = Nothing Do 'If BG.CancellationPending Then 'check if a cancellation request was made ' proc.Kill() @@ -1099,37 +1105,61 @@ Public Class Main ffmpegOutput = ffmpegOutput + vbNewLine + sr.ReadLine ffmpegOutput2 = sr.ReadLine - Try If x = False Then - Dim ZeitGesamt As String() = ffmpegOutput.Split(New String() {"Duration: "}, System.StringSplitOptions.RemoveEmptyEntries) - Dim ZeitGesamt2 As String() = ZeitGesamt(1).Split(New [Char]() {System.Convert.ToChar(".")}) - Dim ZeitGesamtSplit() As String = ZeitGesamt2(0).Split(New [Char]() {System.Convert.ToChar(":")}) - Dim ZeitGesamtInteger As Integer = CInt(ZeitGesamtSplit(0)) * 3600 + CInt(ZeitGesamtSplit(1)) * 60 + CInt(ZeitGesamtSplit(2)) - Grundwert = ZeitGesamtInteger - x = True + If InStr(ffmpegOutput, "Duration: ") Then + Dim ZeitGesamt As String() = ffmpegOutput.Split(New String() {"Duration: "}, System.StringSplitOptions.RemoveEmptyEntries) + Dim ZeitGesamt2 As String() = ZeitGesamt(1).Split(New [Char]() {System.Convert.ToChar(".")}) + Dim ZeitGesamtSplit() As String = ZeitGesamt2(0).Split(New [Char]() {System.Convert.ToChar(":")}) + Dim ZeitGesamtInteger As Integer = CInt(ZeitGesamtSplit(0)) * 3600 + CInt(ZeitGesamtSplit(1)) * 60 + CInt(ZeitGesamtSplit(2)) + Grundwert = ZeitGesamtInteger + x = True + End If End If If Me.Visible = False Or AbourtList.Contains(Filename) Then proc.Kill() - RaiseEvent UpdateUI(Filename, 200) + RaiseEvent UpdateUI(Filename, 200, 0, 0) Return Nothing Exit Function End If - Dim ZeitFertig As String() = sr.ReadLine.Split(New String() {"time="}, System.StringSplitOptions.RemoveEmptyEntries) - Dim ZeitFertig2 As String() = ZeitFertig(1).Split(New [Char]() {System.Convert.ToChar(".")}) + If InStr(ffmpegOutput2, "time=") Then - Dim ZeitFertigSplit() As String = ZeitFertig2(0).Split(New [Char]() {System.Convert.ToChar(":")}) - Dim ZeitFertigInteger As Integer = CInt(ZeitFertigSplit(0)) * 3600 + CInt(ZeitFertigSplit(1)) * 60 + CInt(ZeitFertigSplit(2)) - Dim percent As Integer = (CInt(ZeitFertigInteger / Grundwert * 100)) - RaiseEvent UpdateUI(Filename, percent) + Dim ZeitFertig As String() = ffmpegOutput2.Split(New String() {"time="}, System.StringSplitOptions.RemoveEmptyEntries) + Debug = ZeitFertig(0) + Debug = ZeitFertig(0) + ZeitFertig(1) + Dim ZeitFertig2 As String() = ZeitFertig(1).Split(New [Char]() {System.Convert.ToChar(".")}) + Dim ZeitFertigSplit() As String = ZeitFertig2(0).Split(New [Char]() {System.Convert.ToChar(":")}) + Dim ZeitFertigInteger As Integer = CInt(ZeitFertigSplit(0)) * 3600 + CInt(ZeitFertigSplit(1)) * 60 + CInt(ZeitFertigSplit(2)) + Dim bitrate3 As String = 0 + If InStr(ffmpegOutput2, "bitrate=") Then + Dim bitrate As String() = ffmpegOutput2.Split(New String() {"bitrate="}, System.StringSplitOptions.RemoveEmptyEntries) + Dim bitrate2 As String() = bitrate(1).Split(New String() {"kbits/s"}, System.StringSplitOptions.RemoveEmptyEntries) + + If InStr(bitrate2(0), ".") Then + Dim bitrateTemo As String() = bitrate2(0).Split(New String() {"."}, System.StringSplitOptions.RemoveEmptyEntries) + bitrate3 = bitrateTemo(0) + ElseIf InStr(bitrate2(0), ",") Then + Dim bitrateTemo As String() = bitrate2(0).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) + bitrate3 = bitrateTemo(0) + End If + End If + Dim bitrateInt As Double = CInt(bitrate3) / 1024 + Dim FileSize As Double = Grundwert * bitrateInt / 8 + Dim DownloadFinished As Double = ZeitFertigInteger * bitrateInt / 8 + Dim percent As Integer = (CInt(ZeitFertigInteger / Grundwert * 100)) + EndFileSize = FileSize + RaiseEvent UpdateUI(Filename, percent, Math.Round(DownloadFinished, 2, MidpointRounding.AwayFromZero), Math.Round(FileSize, 2, MidpointRounding.AwayFromZero)) + End If 'AsyncWorkerX.RunAsync(AddressOf Main_Update_Gecko, Filename, percent) Catch ex As Exception - + 'MsgBox(ex.ToString + vbNewLine + Debug) End Try Loop Until proc.HasExited And ffmpegOutput2 = Nothing Or ffmpegOutput2 = "" 'AsyncWorkerX.RunAsync(AddressOf Main_Update_Gecko, Filename, 100) - RaiseEvent UpdateUI(Filename, 100) + 'MsgBox(ffmpegOutput) + + RaiseEvent UpdateUI(Filename, 100, Math.Round(EndFileSize, 2, MidpointRounding.AwayFromZero), Math.Round(EndFileSize, 2, MidpointRounding.AwayFromZero)) TaskCount = TaskCount - 1 'MsgBox(ffmpegOutput) Return Nothing @@ -1144,7 +1174,7 @@ Public Class Main End Sub - Private Sub Main_UpdateUI(sender As String, ByVal int As Integer) Handles Me.UpdateUI + Private Sub Main_UpdateUI(sender As String, ByVal int As Integer, ByVal Size As Double, ByVal Finished As Double) Handles Me.UpdateUI For i As Integer = 0 To PB_list.Count - 1 If PB_list(i).Name = sender Then @@ -1155,16 +1185,19 @@ Public Class Main p.Image = p.BackgroundImage Dim g As Graphics = Graphics.FromImage(p.Image) Dim ProgressbarPoint As Point = New Point(195, 70) - Dim WeißeBox As Point = New Point(750, 93) - Dim ProzentText As Point = New Point(773, 95) + Dim WeißeBox As Point = New Point(450, 93) + Dim ProzentText As Point = New Point(773, 100) Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242)) - g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 50, 20) + g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 350, 30) g.DrawString("-%", FontLabel2.Font, Brushes.Black, ProzentText) Dim brGradient As Brush = New SolidBrush(Color.FromArgb(125, 0, 0)) g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, 600, 19) g.Dispose() AbourtList.Remove(sender) Else + Dim stringFormat As New StringFormat() + stringFormat.Alignment = StringAlignment.Far + stringFormat.LineAlignment = StringAlignment.Center Dim p As PictureBox = PB_list(i) Dim c As Integer = CInt(ListView1.Items.Item(i).Text) ListView1.Items.Item(i).Text = int @@ -1172,16 +1205,16 @@ Public Class Main Dim g As Graphics = Graphics.FromImage(p.Image) Dim ProgressbarPoint As Point = New Point(195, 70) - Dim WeißeBox As Point = New Point(750, 93) - Dim ProzentText As Point = New Point(755, 95) + Dim WeißeBox As Point = New Point(450, 93) + Dim ProzentText As Point = New Point(795, 113) Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242)) - If int < 10 Then - ProzentText = New Point(773, 95) - ElseIf int < 100 Then - ProzentText = New Point(768, 95) - End If - g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 50, 20) - g.DrawString(int.ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText) + 'If int < 10 Then + ' ProzentText = New Point(773, 95) + 'ElseIf int < 100 Then + ' ProzentText = New Point(768, 95) + 'End If + g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 350, 30) + g.DrawString(Size.ToString + "MB/" + Finished.ToString + "MB " + int.ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText, stringFormat) Dim brGradient As Brush = New SolidBrush(Color.FromArgb(247, 140, 37)) g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, int * 6, 19) g.Dispose() @@ -1405,4 +1438,203 @@ Public Class Main 'Dim VLC_URI_1 As String() = str.Split(New String() {Resu2 + ","}, System.StringSplitOptions.RemoveEmptyEntries) 'Dim VLC_URI_2 As String() = VLC_URI_1(1).Split(New [Char]() {Chr(34)}) 'Dim VLC_URI_3 As String() = VLC_URI_2(2).Split(New [Char]() {System.Convert.ToChar("#")}) + + + Public Sub Grapp_non_CR() + 'Try + 'MsgBox(WebbrowserTitle) + + Grapp_non_cr_RDY = False + TaskCount = TaskCount + 1 + Dim Video_Title As String = WebbrowserTitle.Replace(" - Watch on VRV", "") +#Region "Name + Pfad" + Dim Video_FilenName As String = Video_Title + Video_FilenName = System.Text.RegularExpressions.Regex.Replace(Video_FilenName, "[^\w\\-]", " ") + Video_FilenName = RemoveExtraSpaces(Video_FilenName + ".mp4") + 'MsgBox(Video_FilenName) +#End Region +#Region "m3u8 suche" + Dim ii As Integer = 0 + Dim Video_URI_Master As String = Nothing + Dim Video_URI_Master_Split1 As String() = WebbrowserText.Split(New String() {".m3u8?"}, System.StringSplitOptions.RemoveEmptyEntries) + Dim hls_List As New List(Of String) + For i As Integer = 0 To Video_URI_Master_Split1.Count - 2 + Dim Video_URI_Master_Split_Top As String() = Video_URI_Master_Split1(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) + Dim Video_URI_Master_Split_Bottom As String() = Video_URI_Master_Split1(i + 1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) + hls_List.Add(Video_URI_Master_Split_Top(Video_URI_Master_Split_Top.Count - 1) + ".m3u8?" + Video_URI_Master_Split_Bottom(0)) + Next + + Me.Invoke(New Action(Function() + Anime_Add.StatusLabel.Text = "Status: m3u8 found, looking for resolution" + Return Nothing + End Function)) + +#End Region + +#Region "lösche doppel download" + + Dim Pfad5 As String = Path.Combine(Pfad + Video_FilenName) + If My.Computer.FileSystem.FileExists(Pfad5) Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung + If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then + Try + My.Computer.FileSystem.DeleteFile(Pfad5) + Catch ex As Exception + End Try + Else + Grapp_non_cr_RDY = True + TaskCount = TaskCount - 1 + Exit Sub + End If + + End If +#End Region + Dim str As String = Nothing + Dim StreamSuccess = False + For i2 As Integer = 0 To hls_List.Count - 1 + Dim client As New System.Net.WebClient + client.Encoding = Encoding.UTF8 + 'MsgBox(CR_URI_Master) + Dim urlnow As String = hls_List.Item(i2).Replace("&", "&") + urlnow = urlnow.Replace("/u0026", "&") + 'MsgBox(urlnow) + str = client.DownloadString(urlnow) + 'MsgBox(str) + If CBool(InStr(str, "x" + Resu.ToString + ",")) Then + Resu2 = "x" + Resu.ToString + Else + 'MsgBox(str) + If CBool(InStr(str, ResuSave + ",")) Then + Resu2 = Resu2 + Else + Me.Invoke(New Action(Function() + DialogTaskString = "Resolution" + ResoNotFoundString = str + Reso.ShowDialog() + Return Nothing + End Function)) + 'MsgBox(ResoBackString) + If UserCloseDialog = True Then + Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34)) + Else + ResuSave = ResoBackString + End If + End If + End If + Dim Video_URI_1 As String() = str.Split(New String() {Resu2 + ","}, System.StringSplitOptions.RemoveEmptyEntries) + Dim Video_URI_2 As String() = Video_URI_1(1).Split(New [Char]() {Chr(34)}) + Dim Video_URI_3 As String() = Video_URI_2(2).Split(New [Char]() {System.Convert.ToChar("#")}) + Dim clientIndex As New System.Net.WebClient + clientIndex.Encoding = Encoding.UTF8 + 'MsgBox(CR_URI_Master) + Dim DRM_Check As String = clientIndex.DownloadString(Video_URI_3(0).Trim()) + If InStr(DRM_Check, "drm") Then + Else + URL_DL = Video_URI_3(0).Trim() + 'MsgBox(URL_DL) + StreamSuccess = True + Exit For + End If + Next + If StreamSuccess = False Then + Grapp_non_cr_RDY = True + TaskCount = TaskCount - 1 + Exit Sub + End If +#Region "thumbnail" + 'Dim thumbnail As String() = WebbrowserText.Split(New String() {My.Resources.thumbnailString}, System.StringSplitOptions.RemoveEmptyEntries) + 'Dim thumbnail2 As String() = thumbnail(1).Split(New String() {Chr(34) + "}"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"}) + Dim thumbnail3 As String = "None, will usese fail image" 'thumbnail2(0).Replace("\/", "/") +#End Region +#Region "
  • constructor" + Dim Subsprache3 As String = "undefined" 'HardSubValuesToDisplay(SubSprache2) + Dim ResoHTMLDisplay As String = Nothing + If ResoBackString = Nothing Then + ResoHTMLDisplay = Resu.ToString + "p" + ResoBackString = Nothing + Else + Dim ResoHTML As String() = ResoBackString.Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries) + If ResoHTML.Count > 1 Then + ResoHTMLDisplay = ResoHTML(1) + "p" + + Else + ResoHTMLDisplay = ResoHTML(0) + "p" + End If + End If + Dim L2Name As String = WebbrowserTitle.Replace(" - Watch on VRV", "") + Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) + Dim L1Name As String = L1Name_Split(1) + Me.Invoke(New Action(Function() + ListAdd(Video_FilenName, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL) + Return Nothing + End Function)) +#End Region + + Pfad_DL = Chr(34) + Pfad + "\" + Video_FilenName + Chr(34) + AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, Video_FilenName) + Grapp_non_cr_RDY = True + Me.Invoke(New Action(Function() + + Anime_Add.StatusLabel.Text = "Status: idle" + Return Nothing + End Function)) + ' ManageWorker(URL_DL, Pfad_DL, CR_FilenName)() + 'Catch ex As Exception + ' TaskCount = TaskCount - 1 + ' Me.Invoke(New Action(Function() + + ' Anime_Add.StatusLabel.Text = "Status: idle" + ' Return Nothing + ' End Function)) + ' 'StatusLabel.Text = "Status: idle" + ' Grapp_RDY = True + ' 'MsgBox(ex.ToString) + ' If CBool(InStr(ex.ToString, "Could not find the sub language")) Then + ' MsgBox(Sub_language_NotFound + SubSprache) + ' ElseIf CBool(InStr(ex.ToString, "RESOLUTION Not Found")) Then + ' MsgBox(Resolution_NotFound) + ' ElseIf CBool(InStr(ex.ToString, "Premnium Episode")) Then + ' MsgBox(Premium_Stream, MsgBoxStyle.Information) + ' ElseIf CBool(InStr(ex.ToString, "System.UnauthorizedAccessException")) Then + ' MsgBox(ErrorNoPermisson + vbNewLine + ex.ToString, MsgBoxStyle.Information) + ' ElseIf CBool(InStr(ex.ToString, Chr(34) + "UserAbort" + Chr(34))) Then + ' MsgBox(ex.ToString, MsgBoxStyle.Information) + ' Else + ' ' MsgBox(ex.ToString, MsgBoxStyle.Information) + + ' If MessageBox.Show(Error_unknown, "Error!", MessageBoxButtons.YesNo) = DialogResult.Yes Then + + ' Dim CCC As String() = WebbrowserText.Split(New String() {Chr(34) + "country_code" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) + ' Dim CCC1 As String() = CCC(1).Split(New String() {Chr(34) + "});"}, System.StringSplitOptions.RemoveEmptyEntries) + ' 'MsgBox(CCC1(0)) + ' Dim SaveString As String = "Operating System: " + My.Computer.Info.OSFullName + vbNewLine + vbNewLine + "Crunchyroll URL: " + WebbrowserURL + vbNewLine + vbNewLine + "subtitle language: " + SubSprache + vbNewLine + vbNewLine + "video resolution: " + Resu.ToString + vbNewLine + vbNewLine + "error message: " + ex.ToString + vbNewLine + ex.StackTrace.ToString + vbNewLine + vbNewLine + "softsubs enabled?: " + SoftSubs.ToString + vbNewLine + vbNewLine + "Crunchyroll Downloader Version: " + Application.ProductVersion + vbNewLine + vbNewLine + "detected location from Crunchyroll: " + CCC1(0) + ' 'MsgBox(SaveString) + ' File.WriteAllText("Error " + DateTime.Now.ToString("dd.MM.yyyy HH.mm") + ".txt", SaveString) + ' Dim Request As HttpWebRequest = CType(WebRequest.Create("https://docs.google.com/forms/d/e/1FAIpQLSdR1QI19Lh-c-XO_iXNkDwsTUZhCMEu84boQkgW5AOBUxyiyA/formResponse"), HttpWebRequest) + ' Request.Method = "POST" + ' Request.ContentType = "application/x-www-form-urlencoded" + ' Dim Post As String = "entry.240217066=" + My.Computer.Info.OSFullName + "&entry.358200455=" + WebbrowserURL + "&entry.618751432=" + SubSprache + "&entry.924054550=" + Resu.ToString + "&entry.679000538=" + ex.ToString + "&entry.1789515979=" + SoftSubsString + "&entry.683247287=" + Application.ProductVersion + "&entry.377264428=" + CCC1(0) + "&fvv=1&draftResponse=[null,null," + Chr(34) + "-3005021683493723280" + Chr(34) + "] &pageHistory=0&fbzx=-3005021683493723280" + ' Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post) + ' Request.ContentLength = byteArray.Length + ' Dim DataStream As Stream = Request.GetRequestStream() + ' DataStream.Write(byteArray, 0, byteArray.Length) + ' DataStream.Close() + ' Dim Response As HttpWebResponse = Request.GetResponse() + ' DataStream = Response.GetResponseStream() + ' Dim reader As New StreamReader(DataStream) + ' Dim ServerResponse As String = reader.ReadToEnd() + ' reader.Close() + ' DataStream.Close() + ' Response.Close() + ' Dim Version_Check As String() = ServerResponse.Split(New String() {"
    "}, System.StringSplitOptions.RemoveEmptyEntries) + ' Dim Version_Check2 As String() = Version_Check(1).Split(New String() {"
    "}, System.StringSplitOptions.RemoveEmptyEntries) + ' If Application.ProductVersion = Version_Check2(0) Then + ' Else + ' MsgBox("A newer version is available: v" + Version_Check2(0)) + ' End If + ' End If + ' End If + + 'End Try + End Sub + End Class \ No newline at end of file diff --git a/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.exe b/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.exe index adfdf00..7606684 100644 Binary files a/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.exe and b/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.exe differ diff --git a/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.pdb b/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.pdb index c2b35fd..b48ceb2 100644 Binary files a/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.pdb and b/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.pdb differ diff --git a/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll-Downloader-v3.0.1.zip b/Crunchyroll Downloader/bin/x86/Debug/Dev-build-51-19-Crunchyroll-Downloader-v3.x.zip similarity index 83% rename from Crunchyroll Downloader/bin/x86/Debug/Crunchyroll-Downloader-v3.0.1.zip rename to Crunchyroll Downloader/bin/x86/Debug/Dev-build-51-19-Crunchyroll-Downloader-v3.x.zip index 28f4ecf..2f4351a 100644 Binary files a/Crunchyroll Downloader/bin/x86/Debug/Crunchyroll-Downloader-v3.0.1.zip and b/Crunchyroll Downloader/bin/x86/Debug/Dev-build-51-19-Crunchyroll-Downloader-v3.x.zip differ diff --git a/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.exe b/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.exe index adfdf00..7606684 100644 Binary files a/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.exe and b/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.exe differ diff --git a/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.pdb b/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.pdb index c2b35fd..b48ceb2 100644 Binary files a/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.pdb and b/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.pdb differ diff --git a/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbproj.GenerateResource.cache b/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbproj.GenerateResource.cache index 8bc7be2..9152acc 100644 Binary files a/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbproj.GenerateResource.cache and b/Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbproj.GenerateResource.cache differ diff --git a/Crunchyroll Downloader/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache b/Crunchyroll Downloader/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache index fdd1748..9bfede5 100644 Binary files a/Crunchyroll Downloader/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache and b/Crunchyroll Downloader/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache differ