small fixes

small fixes
This commit is contained in:
hama3254 2020-10-20 19:32:58 +02:00
parent 1c309ef781
commit 57efa19966
14 changed files with 36 additions and 107 deletions

Binary file not shown.

View File

@ -34,7 +34,7 @@ Namespace My
Try Try
Dim sUserAgent As String = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:70.0) Gecko/20100101 Firefox/79.0" Dim sUserAgent As String = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:81.0) Gecko/20100101 Firefox/81.0"
'sUserAgent = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36" 'sUserAgent = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36"
'MsgBox(Xpcom.XulRunnerVersion) 'MsgBox(Xpcom.XulRunnerVersion)

View File

@ -338,9 +338,10 @@ Public Class CRD_List_Item
If InStr(text, "RESOLUTION=") Then 'master m3u8 no fragments If InStr(text, "RESOLUTION=") Then 'master m3u8 no fragments
Dim new_m3u8_2() As String = text.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries) Dim new_m3u8_2() As String = text.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
If TargetReso = 42 Then If TargetReso = 42 Then
TargetReso = 1080
End If
Else For i As Integer = 0 To new_m3u8_2.Count - 1
For i As Integer = 0 To new_m3u8_2.Count - 1
'MsgBox("x" + Main.Resu.ToString) 'MsgBox("x" + Main.Resu.ToString)
If CBool(InStr(new_m3u8_2(i), "x" + TargetReso.ToString)) = True Then If CBool(InStr(new_m3u8_2(i), "x" + TargetReso.ToString)) = True Then
m3u8_url_1 = new_m3u8_2(i + 1) m3u8_url_1 = new_m3u8_2(i + 1)
@ -360,10 +361,9 @@ Public Class CRD_List_Item
text = client0.DownloadString(m3u8_url_3) text = client0.DownloadString(m3u8_url_3)
End If End If
End If End If
End If
Dim LoadedKeys As New List(Of String) Dim LoadedKeys As New List(Of String)
LoadedKeys.Add("Nothing") LoadedKeys.Add("Nothing")
Dim KeyFileCache As String = Nothing Dim KeyFileCache As String = Nothing
@ -543,7 +543,7 @@ Public Class CRD_List_Item
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe" Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim startinfo As New System.Diagnostics.ProcessStartInfo
Dim cmd As String = "-allowed_extensions ALL " + DL_URL + " " + DL_Pfad '+ " " + ffmpeg_command + " " + DL_Pfad 'start ffmpeg with command strFFCMD string Dim cmd As String = "-headers " + Chr(34) + "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:81.0) Gecko/20100101 Firefox/81.0" + Chr(34) + " -allowed_extensions ALL " + DL_URL + " " + DL_Pfad '+ " " + ffmpeg_command + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
If Debug2 = True Then If Debug2 = True Then
MsgBox(cmd) MsgBox(cmd)
@ -584,7 +584,7 @@ Public Class CRD_List_Item
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe" Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim startinfo As New System.Diagnostics.ProcessStartInfo
Dim cmd As String = DLCommand + " " + DL_Pfad 'start ffmpeg with command strFFCMD string Dim cmd As String = "-headers " + Chr(34) + "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:81.0) Gecko/20100101 Firefox/81.0" + Chr(34) + " " + DLCommand + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
If Debug2 = True Then If Debug2 = True Then
MsgBox(cmd) MsgBox(cmd)
@ -736,7 +736,7 @@ Public Class CRD_List_Item
'MsgBox(BaseURL + SiteList(i) + vbNewLine + Pfad_DL + "\" + SiteList(i)) 'MsgBox(BaseURL + SiteList(i) + vbNewLine + Pfad_DL + "\" + SiteList(i))
Dim iWert As Integer = i Dim iWert As Integer = i
Using client As New WebClient() Using client As New WebClient()
client.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:70.0) Gecko/20100101 Firefox/79.0") client.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:81.0) Gecko/20100101 Firefox/81.0")
client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i)) client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
Pause(1) Pause(1)
End Using End Using

View File

@ -26,28 +26,31 @@ Public Class GeckoFX
Main.LoginOnly = "US_UnBlock" Main.LoginOnly = "US_UnBlock"
Else Else
Try Try
Dim cookieGrapp As String = WebBrowser1.Document.Body.OuterHtml '.Replace(vbTab, "").Replace(" ", "")
If Main.Debug2 = True Then If CBool(InStr(WebBrowser1.Document.Uri, "https://api.crunchyroll.com/login.0.json")) Then
MsgBox(cookieGrapp) Main.LoginOnly = "US_UnBlock_Finsihed"
End If Else
Dim cookieGrapp2() As String = cookieGrapp.Split(New String() {"<a class=" + Chr(34) + "cookie" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries) Dim cookieGrapp As String = WebBrowser1.Document.Body.OuterHtml '.Replace(vbTab, "").Replace(" ", "")
Dim cookieGrapp3() As String = cookieGrapp2(1).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries) If Main.Debug2 = True Then
keks = cookieGrapp3(0) MsgBox(cookieGrapp)
If Main.Debug2 = True Then End If
MsgBox(keks) Dim cookieGrapp2() As String = cookieGrapp.Split(New String() {"<a class=" + Chr(34) + "cookie" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim cookieGrapp3() As String = cookieGrapp2(1).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
keks = cookieGrapp3(0)
If Main.Debug2 = True Then
MsgBox(keks)
End If
WebBrowser1.Navigate("https://www.crunchyroll.com/logout")
Main.Pause(5)
WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "session_id=" + keks + "; expires=Thu, 04 Jan 2022 00:00:00 UTC; path=/;" + Chr(34) + ";")
Main.Pause(1)
WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "sess_id=" + keks + "; expires=Thu, 04 Jan 2022 00:00:00 UTC; path=/;" + Chr(34) + ";")
Main.Pause(1)
WebBrowser1.Navigate("https://www.crunchyroll.com/")
Main.LoginOnly = "US_UnBlock_Finsihed"
End If End If
WebBrowser1.Navigate("https://www.crunchyroll.com/logout")
Main.Pause(5)
WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "session_id=" + keks + "; expires=Thu, 04 Jan 2022 00:00:00 UTC; path=/;" + Chr(34) + ";")
Main.Pause(1)
WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "sess_id=" + keks + "; expires=Thu, 04 Jan 2022 00:00:00 UTC; path=/;" + Chr(34) + ";")
Main.Pause(1)
If Main.LoginDialog = True Then
'Login.ShowDialog()
Else
WebBrowser1.Navigate("https://www.crunchyroll.com/")
End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.ToString) MsgBox(ex.ToString)
End Try End Try

View File

@ -346,7 +346,7 @@ Public Class Main
Dim Thumbnail As Image = My.Resources.main_del Dim Thumbnail As Image = My.Resources.main_del
Try Try
Dim wc As New WebClient() Dim wc As New WebClient()
wc.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:70.0) Gecko/20100101 Firefox/79.0") wc.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:81.0) Gecko/20100101 Firefox/81.0")
Dim bytes As Byte() = wc.DownloadData(ThumbnialURL) Dim bytes As Byte() = wc.DownloadData(ThumbnialURL)
Dim ms As New MemoryStream(bytes) Dim ms As New MemoryStream(bytes)
Thumbnail = System.Drawing.Image.FromStream(ms) Thumbnail = System.Drawing.Image.FromStream(ms)

View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.5.4")> <Assembly: AssemblyVersion("3.5.5")>
<Assembly: AssemblyFileVersion("3.5.4")> <Assembly: AssemblyFileVersion("3.5.5")>
<Assembly: NeutralResourcesLanguage("en")> <Assembly: NeutralResourcesLanguage("en")>

View File

@ -1,74 +0,0 @@
<!DOCTYPE html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
</head>
<html>
<title>CRD</title>
<style>
.main-bg {margin:0 0 0 0;background-color:#F2F2F2;font-family:Consolas;font-size:16px;}
.div-spacer{width:16px;height:110px;display:block;margin-bottom:14px;position:relative}
.div-episode{width:730px;height:110px;display:block;margin-bottom:14px;position:relative}
.class-balken{width:735px;height:8px;display:block;margin-bottom:4px;margin-top:6px}
.class-cc{width:36px;height:36px;display:block;margin-bottom:4px;margin-top:-6px;float: left;margin-left:-20px;}
.imagestyle{width:156px;height:105px;display:block;margin-bottom:8px;margin-top:5px;margin-right: 10px;margin-left: 10px;float: left;}
.spacediv{width:620px;height:175px;display:block;margin-bottom:4px}
.ulStyle li{margin-left:12px;float:left;display:block;position:relative}
.liOld{margin-left:12px;display:block}
.ulStyle{margin:0 0 0 -10px;display:block;position:relative;margin-top:8px}
.listyle{width:156px;display:block;background:#fff;padding:16px;margin-bottom:14px;position:relative;background-color:#b5b3b3}
.progressbar{width:540px;height:20px;background:#dedede;margin-left: 170px;margin-top:8px;}
.progressbar-value{background:#F78C25;height:20px;font-weight:bold;}
.percenttext{float:right;text-align:right;font-size:16px;display:inline-block;margin-right:25px}
.resotext{text-align: left;font-size:18px;margin-left:0px;font-weight:550;}
.titel{font-size:18px;font-weight:550;display:block;margin-top:5px}
.main_titel{font-size:18px;font-weight:550;display:block;text-align:center;margin-top:5px}
.cc-wert{font-size:18px;font-weight:550;display:block;margin-top:-20px;margin-left:250px;text-decoration: none;color:black;}
.liClass{margin-bottom:8px}
</style>
<body id="bodypage" class="main-bg" >
<img alt="image error" src="balken.png" class="class-balken">
<a class="main_titel">Deutsch</a>
<div class="div-episode">
<img alt="image error" src="https://img1.ak.crunchyroll.com/i/spire4-tmb/43a60a9d2877b11429d71c81db6d76361408647106_fwide.jpg" class="imagestyle">
<div>
<span class="titel" dir="auto">RWBY <br> Staffel 2 Folge 4 5</span>
<div class="progressbar">
<div class="progressbar-value" style="width:100%"></div>
</div>
<span dir="auto" class='percenttext'>Finished - 133,83MB</span>
<div>
<br>
<span dir="auto" class="resotext">1080p</span>
<a href="#" class="cc-wert" title="Softsubs:
Deutsch"> <img alt="image error" src="cc.png" class="class-cc">Deutsch</a>
</div>
</div>
</div>
<img alt="image error" src="balken.png" class="class-balken"><!-- RWBY Staffel 2 Folge 4 5-->
<script>
setInterval(function loadXMLDoc() {
var xhttp = new XMLHttpRequest();
xhttp.onreadystatechange = function() {
if (this.readyState == 4 && this.status == 200) {
document.getElementById("bodypage").innerHTML = this.responseText;
//console.log(this.responseText);
}
};
xhttp.open("GET", "/", true);
xhttp.send();
}, 1000);
</script>
</body></html>

View File

@ -27,7 +27,7 @@
.liClass{margin-bottom:8px} .liClass{margin-bottom:8px}
</style> </style>
<body id="bodypage" class="main-bg" > <body id="bodypage" class="main-bg" >
<a class="main_titel">Status: no video found</a> <a class="main_titel">Crunchyroll Downloader</a>
<img alt="image error" src="balken.png" class="class-balken"> <img alt="image error" src="balken.png" class="class-balken">
<script> <script>