Skip to content
This repository has been archived by the owner on Jul 13, 2024. It is now read-only.

Commit

Permalink
beta for Crunchyroll beta
Browse files Browse the repository at this point in the history 
beta for Crunchyroll beta
improved code for any network scan related tasks
added simple adblock (via domain list)
possible errorhandling certificate issues
  • Loading branch information
hama3254 committed Apr 5, 2021
1 parent 55ef64d commit 2bf5ee0
Show file tree
Hide file tree
Showing 100 changed files with 1,185 additions and 656 deletions.
Binary file modified .vs/Crunchyroll Downloader/v15/.suo
View file
Binary file not shown.
Binary file modified .vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide
View file
Binary file not shown.
Binary file modified .vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-shm
View file
Binary file not shown.
Binary file modified .vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-wal
View file
Binary file not shown.
2 changes: 1 addition & 1 deletion Crunchyroll Downloader/Anime_Add.Designer.vb
View file

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

403 changes: 185 additions & 218 deletions Crunchyroll Downloader/Anime_Add.vb
View file

Large diffs are not rendered by default.

26 changes: 20 additions & 6 deletions Crunchyroll Downloader/CRD_List_Item.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -559,7 +559,7 @@ Public Class CRD_List_Item
End Function

Public Function DownloadHybrid(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
'MsgBox(DL_URL)
MsgBox(DL_URL)
Dim Folder As String = Einstellungen.GeräteID()
Dim Pfad2 As String = Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + Folder + "\"
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
Expand Down Expand Up @@ -649,7 +649,8 @@ Public Class CRD_List_Item

'Dim archive As Zipfi = New ZipArchive(ms)
'Dim m3u8String As String = client.DownloadString(TextBox1.Text)

'MsgBox(DL_URL)
'MsgBox(m3u8_url(1))
Try
Dim m3u8 As String = DecompressString(client.DownloadData(m3u8_url(1)))
text = m3u8
Expand Down Expand Up @@ -688,14 +689,22 @@ Public Class CRD_List_Item

'Dim archive As Zipfi = New ZipArchive(ms)
'Dim m3u8String As String = client.DownloadString(TextBox1.Text)
Dim m3u8 As String = DecompressString(client.DownloadData(m3u8_url(1)))
Text = m3u8
Try
Dim m3u8 As String = DecompressString(client.DownloadData(m3u8_url(1)))
text = m3u8
Catch ex As Exception
Dim m3u8 As String = client.DownloadString(m3u8_url(1))
text = m3u8
End Try
'Dim m3u8 As String = DecompressString(client.DownloadData(m3u8_url(1)))
'text = m3u8
'MsgBox(m3u8)
End Using
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Else
'MsgBox("false postive")
Dim c() As String = New Uri(m3u8_url_3).Segments
Dim path As String = "https://" + New Uri(m3u8_url_3).Host
For i3 As Integer = 0 To c.Count - 2
Expand All @@ -712,8 +721,13 @@ Public Class CRD_List_Item

'Dim archive As Zipfi = New ZipArchive(ms)
'Dim m3u8String As String = client.DownloadString(TextBox1.Text)
Dim m3u8 As String = DecompressString(client.DownloadData(m3u8_url(1)))
Text = m3u8
Try
Dim m3u8 As String = DecompressString(client.DownloadData(m3u8_url(1)))
text = m3u8
Catch ex As Exception
Dim m3u8 As String = client.DownloadString(m3u8_url(1))
text = m3u8
End Try
'MsgBox(m3u8)
End Using
Catch ex As Exception
Expand Down
14 changes: 7 additions & 7 deletions Crunchyroll Downloader/Crunchyroll Downloader.vbproj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -88,11 +88,11 @@
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<ItemGroup>
<Reference Include="Geckofx-Core, Version=60.0.50.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86">
<HintPath>..\packages\Geckofx60.32.60.0.50\lib\net45\Geckofx-Core.dll</HintPath>
<Reference Include="Geckofx-Core, Version=60.0.55.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86">
<HintPath>..\packages\Geckofx60.32.60.0.55\lib\net45\Geckofx-Core.dll</HintPath>
</Reference>
<Reference Include="Geckofx-Winforms, Version=60.0.50.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86">
<HintPath>..\packages\Geckofx60.32.60.0.50\lib\net45\Geckofx-Winforms.dll</HintPath>
<Reference Include="Geckofx-Winforms, Version=60.0.55.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86">
<HintPath>..\packages\Geckofx60.32.60.0.55\lib\net45\Geckofx-Winforms.dll</HintPath>
</Reference>
<Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
Expand Down Expand Up @@ -260,14 +260,14 @@
<Content Include="Firefox\softokn3.dll" />
<Content Include="Firefox\xul.dll" />
<Content Include="icon.ico" />
<None Include="packages.config" />
<None Include="Resources\main-mini_red.png" />
<None Include="Resources\main-mini_dark.png" />
<None Include="Resources\main-mini.png" />
<None Include="Resources\main-setting_invert_dark.png" />
<None Include="Resources\main-close_dark.png" />
<None Include="Resources\main-browser_invert_dark.png" />
<None Include="Resources\main-add_invert_dark.png" />
<None Include="packages.config" />
<None Include="Resources\main-setting_invert.png" />
<None Include="Resources\main-browser_invert.png" />
<None Include="Resources\main-add_invert.png" />
Expand Down Expand Up @@ -315,11 +315,11 @@
<WCFMetadata Include="Connected Services\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Project="..\packages\Geckofx60.32.60.0.50\build\Geckofx60.32.targets" Condition="Exists('..\packages\Geckofx60.32.60.0.50\build\Geckofx60.32.targets')" />
<Import Project="..\packages\Geckofx60.32.60.0.55\build\Geckofx60.32.targets" Condition="Exists('..\packages\Geckofx60.32.60.0.55\build\Geckofx60.32.targets')" />
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
<PropertyGroup>
<ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\Geckofx60.32.60.0.50\build\Geckofx60.32.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Geckofx60.32.60.0.50\build\Geckofx60.32.targets'))" />
<Error Condition="!Exists('..\packages\Geckofx60.32.60.0.55\build\Geckofx60.32.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Geckofx60.32.60.0.55\build\Geckofx60.32.targets'))" />
</Target>
</Project>
Loading

0 comments on commit 2bf5ee0

Please sign in to comment.