DosTips.com

Code: Select all

@echo off & color 0A & Mode 95,3
Title Stream IPTV Grabber by Hackoo 2019
echo(
echo      Type your favorite Channel Name for trying to catch and extract its link :
Set /p "Channel_Name="
Set "OutPut_All_Streams=%~dp0%Channel_Name%_All_Streams.txt"
Set "OutPut_Filter_Streams=%~dp0%Channel_Name%_Filter_Streams.txt"
Cls 
echo(
echo     Please wait a while ... trying to get all links about your favorite channel "%Channel_Name%"
REM Just to show links into console
::Call :GRAB_IPTV_STREAM_LINK "%Channel_Name%" CON
Call :GRAB_IPTV_STREAM_LINK "%Channel_Name%" "%OutPut_All_Streams%"
REM To get rid from all links that cointains m3u8 and firstonetv strings
Type "%OutPut_All_Streams%" | find /I /V "m3u8" | find /I /V "firstonetv">"%OutPut_Filter_Streams%"
::If Exist "%OutPut_All_Streams%" Start "" "%OutPut_All_Streams%" 
::If Exist "%OutPut_Filter_Streams%" Start "" "%OutPut_Filter_Streams%" & Exit
Call :M3U_PlayList_Creator %Channel_Name% %OutPut_Filter_Streams% 
Exit
::--------------------------------------------------------------------------------------
:GRAB_IPTV_STREAM_LINK <Channel_Name> <OutPutFile>
Set "VBSFILE=%Temp%\GrabIPTV.vbs"
(
	echo SourceCode = GetSourceCode("http://visearch.net/iptv/web?q="^& %1^)
	echo Stream_Link = Extract(SourceCode^)
	echo wscript.echo Stream_Link
	echo '------------------------------------------------
	echo Function Extract(Channel_Name^)
	echo 	Dim regEx, Match, Matches
	echo 	Set regEx = New RegExp
	echo 	regEx.Pattern = "(data-url=\x22)(http.*)(\x22)"
	echo 	regEx.IgnoreCase = True
	echo 	regEx.Global = True
	echo 	Set Matches = regEx.Execute(Channel_Name^)
	echo 	For each Match in Matches
	echo 		Stream_Link = Stream_Link ^& Match.SubMatches(1^) ^& vbCrlf
	echo 	Next
	echo 	Extract = Stream_Link
	echo End Function
	echo '------------------------------------------------
	echo Function GetSourceCode(Channel_Name^)
	echo Dim http
	echo Set http = CreateObject("Microsoft.XMLHTTP"^)
	echo http.open "GET",Channel_Name,False
	echo On Error Resume Next
	echo http.send
	echo	If Err.Number = 0 Then
	echo		If http.Status = "200" Then
	echo			GetSourceCode = http.ResponseText
	echo		Else
	echo 			GetSourceCode = "HTTP " ^& http.Status ^& " " ^& _
	echo 			http.StatusText
	echo		End If
	echo	Else
	echo		GetSourceCode = "Error " ^& Err.Number ^& " " ^& Err.Source ^& " " ^& _
	echo		Err.Description
	echo	End If
	echo	On Error GoTo 0
	echo End Function
	echo '------------------------------------------------
)>"%VBSFILE%"
Cscript //NoLogo "%VBSFILE%" > "%~2"
If Exist "%VBSFILE%" Del "%VBSFILE%"
Exit /b
::--------------------------------------------------------------------------------------
:M3U_PlayList_Creator <Channel_Name> <InputFile> 
echo #EXTM3U>"%~n2.m3u"
set /a "N=0"
SetLocal EnableDelayedExpansion
@for /f "delims=" %%a in ('Type %2') do (
	Set /a N+=1
	(
		echo #EXTINF:-1,!N!-%1
		echo %%a
	)>>"%~n2.m3u"
)
If Exist "%~n2.m3u" Start "" "%~n2.m3u"
Exit /b 
::--------------------------------------------------------------------------------------

Code: Select all

cls
#Powershell Script Created by Hackoo on 05/04/2021 to get and parse an IPTV JSON file and to build from it a M3U file
$url="https://iptv-org.github.io/iptv/channels.json"
$JSON_File = $psscriptroot +"\iptv-channels.json"
$M3U_File  = $psscriptroot +"\iptv-channels.m3u" 
$start_time = Get-Date

Try {
	$http_request = New-Object -ComObject Msxml2.ServerXMLHTTP
	$http_request.open('GET', $url, $false)
	$http_request.send()
	Write-Host "Sever Web Response : "$http_request.status - $http_request.statusText -ForegroundColor Green -BackgroundColor Black
	}
Catch
	{
		Write-Host "Message: $($_.Exception.Message)" -ForegroundColor Red -BackgroundColor Black
		Exit
	}

$BS = New-Object -ComObject ADODB.Stream
$BS.type = 1
$BS.open()
$BS.Write($http_request.ResponseBody)
$BS.SaveToFile($JSON_File,2)

$jsonContent = GC $JSON_File | ConvertFrom-Json
$Channel_Count = $jsonContent.Name.count
##################################### Building M3U File ###########################################
Write-Host "Please wait a While ... Builiding M3U File is in Progress ..." -ForegroundColor Green -BackgroundColor Black
"#EXTM3U" | Out-File -FilePath $M3UFile
for ($i=0; $i -lt $Channel_Count; $i++) {
    '#EXTINF:-1,'+ $jsonContent.name[$i] | Out-File -FilePath $M3UFile -Append
	$jsonContent.url[$i] | Out-File -FilePath $M3UFile -Append
}
##################################### Building M3U File ###########################################
$Elapsed_Time = "$((Get-Date).Subtract($start_time).Minutes) Minutes(M) : $((Get-Date).Subtract($start_time).Seconds) Secondes(s)"
Write-Output "Running Script Time taken is : $Elapsed_Time"
If ((Test-Path -path $M3U_File) -eq 1) {Start $M3U_File}

Code: Select all

######################################################################################################################
#Powershell Script Created by Hackoo on 11/04/2021 to get and parse an IPTV JSON file and to build from it a M3U file
######################################################################################################################
cls
$CopyRight= [char]0x00A9 + " Hackoo 2021"
Function Show-NotifyBalloon($BalloonTipIcon,$Title,$Message)
{
	[system.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms') | Out-Null
	$Windir = $env:WINDIR #[System.Environment]::ExpandEnvironmentVariables("%WINDIR%")
	$Global:Balloon = New-Object System.Windows.Forms.NotifyIcon
	#$Balloon.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon((Get-Process -id $pid | Select-Object -ExpandProperty Path))
	$Balloon.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon($Windir+"\System32\nslookup.exe")
	$Balloon.BalloonTipIcon = $BalloonTipIcon
	$Balloon.BalloonTipText = $Message
	$Balloon.BalloonTipTitle = $Title
	$Balloon.Visible = $true
	$Balloon.ShowBalloonTip(2000)
	Start-Sleep -Seconds 10
	$Balloon.Visible =$false; $Balloon.Dispose()
}

while (!(test-connection 8.8.8.8 -Count 1 -Quiet)) {
	cls
	$Title = "NOT Connected to the Internet"
	$Message = $Title
	Write-Host $Messsage -ForegroundColor Red -BackgroundColor Blue
	Show-NotifyBalloon 'Warning' $Title $Message
	sleep 2
	cls
	$Message = "Please wait a while until the Internet Connection will be established ..."
	Write-Host $Message -ForegroundColor Cyan -BackgroundColor Blue
	Show-NotifyBalloon 'Warning' $Title $Message
	sleep 2
}
cls
$SSID = (get-netconnectionProfile).Name.Trim()
$WAN_IP = (Invoke-WebRequest ifconfig.me/ip).Content.Trim()
$LAN_IP = (Get-WmiObject -Class Win32_NetworkAdapterConfiguration -Filter IPEnabled=TRUE) | %{$_.ipaddress[0]}
$Title = "$SSID : Connected to the Internet $CopyRight"
Write-Host "`r`n   Connected to the Internet over Wi-Fi: $SSID" -ForegroundColor Yellow -BackgroundColor Blue
Write-Host "   LAN IP : $LAN_IP" -ForegroundColor Yellow -BackgroundColor Blue
Write-Host "   WAN IP : $WAN_IP" -ForegroundColor Yellow -BackgroundColor Blue
$Message = ("LAN IP : $LAN_IP" + [System.Environment]::NewLine +"WAN IP : $WAN_IP" + [System.Environment]::NewLine + "Connected to the Internet over Wi-Fi: $SSID")
Show-NotifyBalloon  'Info' $Title $Message
#------------------------------------------------------------------------------------------------------------------------------------------------------------------
$GitHub_IPTV_Channels_Folder = "$PSScriptRoot\GitHub_IPTV_Channels\"
If ((Test-Path -Path $GitHub_IPTV_Channels_Folder) -eq 0) { New-Item -Path $GitHub_IPTV_Channels_Folder -ItemType Directory | Out-Null }

$url="https://iptv-org.github.io/iptv/channels.json"
$JSON_File = $GitHub_IPTV_Channels_Folder +"\iptv-channels.json"
$M3U_File  = $GitHub_IPTV_Channels_Folder +"\iptv-channels.m3u" 
$start_time = Get-Date

Try {
	cls
	Write-Host "`r`n          Please Wait A While ... Trying To connect To IPTV Resources ..." -ForegroundColor Yellow -BackgroundColor Blue
    (New-Object System.Net.WebClient).DownloadFile($url,$JSON_File)
<#
	$http_request = New-Object -ComObject Msxml2.ServerXMLHTTP
	$http_request.open('GET', $url, $false)
	$http_request.send()
	cls
	Write-Host "`r`n  Sever Web Response : "$http_request.status - $http_request.statusText -ForegroundColor Yellow -BackgroundColor Blue
#>
	}
Catch
	{
		Write-Host "Message: $($_.Exception.Message)" -ForegroundColor Red -BackgroundColor Blue
		Exit
	}
<#
$BS = New-Object -ComObject ADODB.Stream
$BS.type = 1
$BS.open()
$BS.Write($http_request.ResponseBody)
$BS.SaveToFile($JSON_File,2)
#>
$jsonContent = GC $JSON_File | ConvertFrom-Json
$Channel_Count = $jsonContent.Name.count
##################################### Building M3U File ###########################################
cls
Write-Host "`r`n           Please Wait A While ... Building M3U File Is In Progress ..." -ForegroundColor Yellow -BackgroundColor Blue
"#EXTM3U" | Out-File -FilePath $M3U_File -Encoding utf8
for ($i=0; $i -lt $Channel_Count; $i++) {
	'#EXTINF:-1,'+ $jsonContent.name[$i] | Out-File -FilePath $M3U_File -Encoding utf8 -Append
	$jsonContent.url[$i] | Out-File -FilePath $M3U_File -Encoding utf8 -Append
}
##################################### Building M3U File ###########################################
$Elapsed_Time = "$((Get-Date).Subtract($start_time).Minutes) Minutes(M) : $((Get-Date).Subtract($start_time).Seconds) Secondes(s)"
cls
        Write-Output "`r`n           Running Script Time Taken is : $Elapsed_Time"
If ((Test-Path -path $M3U_File) -eq 1) {
	$shell = new-object -comobject "WScript.Shell"
	$Answer = $shell.popup("Running Script Time Taken is : $Elapsed_Time `r`nDo you want to launch the m3u file ?",0,"$Title",4+32+4096)
	If ($Answer -eq 6) {
		Write-Host "                      OK We are Starting the m3u File !" -ForegroundColor Yellow -BackgroundColor Blue
        Start $M3U_File
	} else {
		Write-Host "                Script Aborted without launching the m3u file !" -ForegroundColor Yellow -BackgroundColor Blue
	}
}