mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-11-15 12:45:07 +01:00
89 lines
2.8 KiB
VB.net
89 lines
2.8 KiB
VB.net
Module Subfolder
|
|
Public SubFolder_automatic As String = "[automatic by Series and Season]"
|
|
Public SubFolder_automatic2 As String = "[automatic by Series]"
|
|
Public SubFolder_automatic_old As String = "[automatic: Series/Season]"
|
|
Public SubFolder_Nothing As String = "[ ignore subfolder ]"
|
|
|
|
Public SubFolder_Value As String = "[ ignore subfolder ]"
|
|
|
|
|
|
Public Function UseSubfolder(ByVal Series As String, ByVal Season As String, ByVal Path As String) As String
|
|
Dim newPath As String = Path + "\"
|
|
|
|
If SubFolder_Value = SubFolder_automatic Or SubFolder_Value = SubFolder_automatic_old Then
|
|
|
|
newPath = Path + "\" + Series + "\" + Season + "\"
|
|
|
|
ElseIf SubFolder_Value = SubFolder_automatic2 Then
|
|
|
|
newPath = Path + "\" + Series + "\"
|
|
|
|
ElseIf SubFolder_Value = SubFolder_Nothing Then
|
|
|
|
newPath = Path + "\"
|
|
|
|
Else
|
|
|
|
newPath = Path + "\" + SubFolder_Value + "\"
|
|
|
|
End If
|
|
Debug.WriteLine(newPath)
|
|
|
|
Return newPath.Replace("\\", "\")
|
|
End Function
|
|
|
|
|
|
|
|
Public Function GeräteID() As String
|
|
Dim rnd As New Random
|
|
Dim possible As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
|
|
Dim HWID As String = Nothing
|
|
|
|
For i As Integer = 0 To 15
|
|
Dim ZufallsZahl As Integer = rnd.Next(1, 33)
|
|
HWID = HWID + possible(ZufallsZahl)
|
|
Next
|
|
Return "CRD-Temp-File-" + HWID
|
|
End Function
|
|
|
|
Public Function GeräteID2() As String
|
|
Dim rnd As New Random
|
|
Dim possible As String = "56789abcdefghijklmnopqrstuvwxyz01234ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
Dim HWID As String = Nothing
|
|
|
|
For i As Integer = 0 To 15
|
|
Dim ZufallsZahl As Integer = rnd.Next(1, 33)
|
|
HWID = HWID + possible(ZufallsZahl)
|
|
Next
|
|
Return "CRD-Temp-File-" + HWID
|
|
End Function
|
|
|
|
Class TextBoxTraceListener
|
|
Inherits TraceListener
|
|
|
|
Private tBox As RichTextBox
|
|
Dim lastmsg As String = Nothing
|
|
Public Sub New(ByVal box As RichTextBox)
|
|
Me.tBox = box
|
|
End Sub
|
|
|
|
Public Overrides Sub Write(ByVal msg As String)
|
|
Try
|
|
tBox.Parent.Invoke(New MethodInvoker(Sub()
|
|
If msg <> lastmsg Then
|
|
lastmsg = msg
|
|
tBox.AppendText(msg)
|
|
|
|
End If
|
|
End Sub))
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Public Overrides Sub WriteLine(ByVal msg As String)
|
|
Write(msg & vbCrLf)
|
|
End Sub
|
|
End Class
|
|
|
|
End Module
|