Untitled diff
0 removals
| Words removed | 0 |
| Total words | 325 |
| Words removed (%) | 0.00 |
92 lines
37 additions
| Words added | 170 |
| Total words | 495 |
| Words added (%) | 34.34 |
129 lines
Imports System.Reflection
Imports System.Reflection
Imports System.Deployment
Imports System.Deployment
Imports System.Text
Imports System.Text
Imports System.Threading
Imports System.Threading
<Assembly: AssemblyTitle("Streamlink for Windows")>
<Assembly: AssemblyTitle("Streamlink for Windows")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Streamlink")>
<Assembly: AssemblyCompany("Streamlink")>
<Assembly: AssemblyProduct("Streamlink for Windows")>
<Assembly: AssemblyProduct("Streamlink for Windows")>
<Assembly: AssemblyCopyright("Streamlink")>
<Assembly: AssemblyCopyright("Streamlink")>
<Assembly: AssemblyTrademark("Streamlink for Windows")>
<Assembly: AssemblyTrademark("Streamlink for Windows")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
Module Module1
Module Module1
Public url_trabajo_app As String = System.Reflection.Assembly.GetExecutingAssembly().CodeBase
Public url_trabajo_app As String = System.Reflection.Assembly.GetExecutingAssembly().CodeBase
Sub Main()
Sub Main()
On Error Resume Next
On Error Resume Next
SetConsoleCtrlHandler(New HandlerRoutine(AddressOf ControlHandler), True)
SetConsoleCtrlHandler(New HandlerRoutine(AddressOf ControlHandler), True)
url_trabajo_app = url_trabajo_app.Replace("file:///", "")
url_trabajo_app = url_trabajo_app.Replace("file:///", "")
url_trabajo_app = url_trabajo_app.Replace("file:\", "")
url_trabajo_app = url_trabajo_app.Replace("file:\", "")
url_trabajo_app = System.IO.Path.GetDirectoryName(url_trabajo_app)
url_trabajo_app = System.IO.Path.GetDirectoryName(url_trabajo_app)
url_trabajo_app = url_trabajo_app.Replace("file:///", "")
url_trabajo_app = url_trabajo_app.Replace("file:///", "")
url_trabajo_app = url_trabajo_app.Replace("file:\", "")
url_trabajo_app = url_trabajo_app.Replace("file:\", "")
Dim deteccion_path As String = url_trabajo_app.Remove(3)
Dim deteccion_path As String = url_trabajo_app.Remove(3)
deteccion_path = deteccion_path.Remove(0, 1)
deteccion_path = deteccion_path.Remove(0, 1)
deteccion_path = deteccion_path.Replace("/", "\")
deteccion_path = deteccion_path.Replace("/", "\")
If deteccion_path = ":\" = False And url_trabajo_app.StartsWith("\\") = False Then
If deteccion_path = ":\" = False And url_trabajo_app.StartsWith("\\") = False Then
If url_trabajo_app.StartsWith("\") Then
If url_trabajo_app.StartsWith("\") Then
url_trabajo_app = "\" & url_trabajo_app
url_trabajo_app = "\" & url_trabajo_app
Else
Else
url_trabajo_app = "\\" & url_trabajo_app
url_trabajo_app = "\\" & url_trabajo_app
End If
End If
End If
End If
Console.OutputEncoding = Encoding.UTF8
Console.OutputEncoding = Encoding.UTF8
Console.InputEncoding = Encoding.UTF8
Console.InputEncoding = Encoding.UTF8
Dim argumentos_finales As String = Environment.CommandLine
Dim argumentos_finales As String = Environment.CommandLine
If argumentos_finales.StartsWith(Chr(34)) Then
If argumentos_finales.StartsWith(Chr(34)) Then
argumentos_finales = argumentos_finales.Remove(0, 1)
argumentos_finales = argumentos_finales.Remove(0, 1)
argumentos_finales = argumentos_finales.Remove(0, argumentos_finales.IndexOf(Chr(34)))
argumentos_finales = argumentos_finales.Remove(0, argumentos_finales.IndexOf(Chr(34)))
If argumentos_finales.Contains(" ") Then
If argumentos_finales.Contains(" ") Then
argumentos_finales = argumentos_finales.Remove(0, argumentos_finales.IndexOf(" "))
argumentos_finales = argumentos_finales.Remove(0, argumentos_finales.IndexOf(" "))
Else
Else
argumentos_finales = ""
argumentos_finales = ""
End If
End If
Else
Else
If argumentos_finales.Contains(" ") Then
If argumentos_finales.Contains(" ") Then
argumentos_finales = argumentos_finales.Remove(0, argumentos_finales.IndexOf(" "))
argumentos_finales = argumentos_finales.Remove(0, argumentos_finales.IndexOf(" "))
Else
Else
argumentos_finales = ""
argumentos_finales = ""
End If
End If
End If
End If
If IO.File.Exists(url_trabajo_app & "\Streamlink\streamlink_cli\constants.py") Then
Dim textbox_analisis_StreamlinkConstants As New TextBox
Dim StreamlinkConstants_final_modded As String = ""
textbox_analisis_StreamlinkConstants.Text = IO.File.ReadAllText(url_trabajo_app & "\Streamlink\streamlink_cli\constants.py", Encoding.UTF8)
Dim WIN32_CHK_READY As Boolean = False
For i_linea_analisis_StreamlinkConstants As Integer = 0 To textbox_analisis_StreamlinkConstants.Lines.Count - 1
Dim linea_analisis_StreamlinkConstants As String = textbox_analisis_StreamlinkConstants.Lines(i_linea_analisis_StreamlinkConstants)
If String.IsNullOrWhiteSpace(linea_analisis_StreamlinkConstants) = False Then
If linea_analisis_StreamlinkConstants.Contains("if is_win32:") Then
WIN32_CHK_READY = True
End If
If WIN32_CHK_READY = True And linea_analisis_StreamlinkConstants.Contains("APPDATA =") Then
linea_analisis_StreamlinkConstants = linea_analisis_StreamlinkConstants.Remove(linea_analisis_StreamlinkConstants.IndexOf("APPDATA ="))
linea_analisis_StreamlinkConstants += "APPDATA = os.path.normpath(" & chr(34) & url_trabajo_app.Replace("\", "/") & chr(34) & ")"
End If
If WIN32_CHK_READY = True And linea_analisis_StreamlinkConstants.Contains("CONFIG_FILES =") Then
linea_analisis_StreamlinkConstants = linea_analisis_StreamlinkConstants.Remove(linea_analisis_StreamlinkConstants.IndexOf("CONFIG_FILES ="))
linea_analisis_StreamlinkConstants += "CONFIG_FILES = [os.path.join(APPDATA, " & chr(34) & "streamlinkrc" & chr(34) & ")]"
End If
If WIN32_CHK_READY = True And linea_analisis_StreamlinkConstants.Contains("PLUGINS_DIR =") Then
linea_analisis_StreamlinkConstants = linea_analisis_StreamlinkConstants.Remove(linea_analisis_StreamlinkConstants.IndexOf("PLUGINS_DIR ="))
linea_analisis_StreamlinkConstants += "PLUGINS_DIR = os.path.join(APPDATA, " & chr(34) & "plugins" & chr(34) & ")"
End If
If WIN32_CHK_READY = True And linea_analisis_StreamlinkConstants.Contains("else:") Then
WIN32_CHK_READY = False
End If
End If
StreamlinkConstants_final_modded += linea_analisis_StreamlinkConstants & vbNewLine
Next
textbox_analisis_StreamlinkConstants.Dispose()
IO.File.WriteAllText(url_trabajo_app & "\Streamlink\streamlink_cli\constants.py", StreamlinkConstants_final_modded, Encoding.UTF8)
End If
Dim DATOS_VER_ACTUAL As String = url_trabajo_app & "\VERSION.txt"
Dim DATOS_VER_ACTUAL As String = url_trabajo_app & "\VERSION.txt"
If IO.File.Exists(DATOS_VER_ACTUAL) Then
If IO.File.Exists(DATOS_VER_ACTUAL) Then
DATOS_VER_ACTUAL = IO.File.ReadAllText(DATOS_VER_ACTUAL, Encoding.UTF8)
DATOS_VER_ACTUAL = IO.File.ReadAllText(DATOS_VER_ACTUAL, Encoding.UTF8)
Console.WriteLine("[Streamlink for Windows " & DATOS_VER_ACTUAL & "]")
Console.WriteLine("[Streamlink for Windows " & DATOS_VER_ACTUAL & "]")
Else
Else
Console.WriteLine("[Streamlink for Windows]")
Console.WriteLine("[Streamlink for Windows]")
End If
End If
Dim info = New ProcessStartInfo(Chr(34) & url_trabajo_app & "\Python 3.5.2\python.exe" & Chr(34), Chr(34) & url_trabajo_app & "\Streamlink\Streamlink.py" & Chr(34) & " --config " & Chr(34) & url_trabajo_app & "\streamlinkrc" & Chr(34) & " --rtmp-rtmpdump " & Chr(34) & url_trabajo_app & "\Streamlink\rtmpdump\rtmpdump.exe" & Chr(34) & " --ffmpeg-ffmpeg " & Chr(34) & url_trabajo_app & "\Streamlink\ffmpeg\ffmpeg.exe" & Chr(34) & " " & argumentos_finales)
Dim info = New ProcessStartInfo(Chr(34) & url_trabajo_app & "\Python 3.5.2\python.exe" & Chr(34), Chr(34) & url_trabajo_app & "\Streamlink\Streamlink.py" & Chr(34) & " --config " & Chr(34) & url_trabajo_app & "\streamlinkrc" & Chr(34) & " --rtmp-rtmpdump " & Chr(34) & url_trabajo_app & "\Streamlink\rtmpdump\rtmpdump.exe" & Chr(34) & " --ffmpeg-ffmpeg " & Chr(34) & url_trabajo_app & "\Streamlink\ffmpeg\ffmpeg.exe" & Chr(34) & " " & argumentos_finales)
info.UseShellExecute = False
info.UseShellExecute = False
Dim proc = Process.Start(info)
Dim proc = Process.Start(info)
proc.WaitForExit()
proc.WaitForExit()
'Threading.Thread.Sleep(Threading.Timeout.Infinite)
'Threading.Thread.Sleep(Threading.Timeout.Infinite)
Console.WriteLine("[End of Streamlink for Windows]")
Console.WriteLine("[End of Streamlink for Windows]")
Environment.Exit(Proc.ExitCode)
Environment.Exit(Proc.ExitCode)
End Sub
End Sub
Public Function ControlHandler(ByVal ctrlType As CtrlTypes) As Boolean
Public Function ControlHandler(ByVal ctrlType As CtrlTypes) As Boolean
Threading.Thread.Sleep(Timeout.Infinite)
Threading.Thread.Sleep(Timeout.Infinite)
End Function
End Function
Public Declare Auto Function SetConsoleCtrlHandler Lib "kernel32.dll" (ByVal Handler As HandlerRoutine, ByVal Add As Boolean) As Boolean
Public Declare Auto Function SetConsoleCtrlHandler Lib "kernel32.dll" (ByVal Handler As HandlerRoutine, ByVal Add As Boolean) As Boolean
Public Delegate Function HandlerRoutine(ByVal CtrlType As CtrlTypes) As Boolean
Public Delegate Function HandlerRoutine(ByVal CtrlType As CtrlTypes) As Boolean
Public Enum CtrlTypes
Public Enum CtrlTypes
CTRL_C_EVENT = 0
CTRL_C_EVENT = 0
CTRL_BREAK_EVENT
CTRL_BREAK_EVENT
CTRL_CLOSE_EVENT
CTRL_CLOSE_EVENT
CTRL_LOGOFF_EVENT = 5
CTRL_LOGOFF_EVENT = 5
CTRL_SHUTDOWN_EVENT
CTRL_SHUTDOWN_EVENT
End Enum
End Enum
End Module
End Module