tv

Discussion forum for all Windows batch related topics.

Moderator: DosItHelp

Post Reply
Message
Author
tea
Posts: 8
Joined: 14 Oct 2019 11:58

tv

#1 Post by tea » 13 Dec 2019 20:18

Any testers out there for my iptv channel grabber program? Or how to fix it up. First batch program.

you need VLC


:start
cls
@ECHO ******** FIND MY STREAM ********
@ECHO OFF >NUL
@echo off
::SETLOCAL DisableDelayedExpansion
:FOR /F "usebackq delims=" %%a in (`"findstr /n ^^ C:\Users\laptop\Desktop\us.txt"`) do (
:: set "var=%%a"
:: SETLOCAL EnableDelayedExpansion
:: set "var=!var:*:=!"
:: echo(!var!
:: ENDLOCAL
::)
ECHO Type in a TV channel.

ECHO -------------------------------------------------------
ECHO ENTER CHANNEL TO SEARCH
set "input1="
set /p"input1="

SETLOCAL EnableExtensions EnableDelayedExpansion
set "chromepath=c:\Program Files (x86)\Google\Chrome\Application" path to chrome
set "site=http://visearch.net/iptv/web"
set "site2=https://iptvextreme.eu/"
set "engine=?q"
start "" !site!/!engine!=!input1!"
setlocal enableExtensions enableDelayedExpansion
:: uri encoded input of form: http://name.com:8080/<username>/<password>/30356
:pass
set "input="
ECHO ---------------------------

ECHO Outputs that have .m3u8 extenstions will be rejected.
ECHO If this happens select a new channel from web page then paste.

ECHO Paste from Website channel URL
set /p "input="
if not "x%input:u8=%" == "x%input%" goto :pass
:main
echo Options;
echo 1 : View channel on VLC
echo 2 : Full account channel list -download list-
echo 3 : Check account status
echo 4 : Add to playlist
echo 5 : If stream fails .Paste new channel
echo 6 : If you want a new channel select this option to Enter Another channel
:: Prompt for input,
set /p "strMenu=Enter desired number:"

:: Compare input through if commands,
:: `if not defined strMenu goto :menu` can be used here if prefered.
echo %strMenu%
if "%strMenu%" equ "1" goto vlc
if "%strMenu%" equ "2" goto CL
if "%strMenu%" equ "3" goto CS
if "%strMenu%" equ "4" goto ML
if "%strMenu%" equ "5" goto pass
if "%strMenu%" equ "6" goto start
pause
::Set "LogFile=C:\Users\laptop\Desktop\test.txt"
:vlc
start "" "C:\Program Files\VideoLAN\VLC\vlc.exe" !input! :sout=#display :sout-all :sout-keep
goto main
:CL
:: variables of form
:: "%%~a" = "http:"
:: "%%~b" = "name.com:8080"
:: "%%~c" = "<username>"
:: "%%~d" = "<password>"
:: "%%~e" = "30356"
:: output of form http://name.com:8080/get.php?username=< ... .&type=m3u
set "output="
for /f "tokens=1-5 delims=/" %%a in ("!input!") do (
set "output=%%~a//%%~b/get.php?username=%%~c&password=%%~d&type=m3u"
)
start "" !output!
goto main
:ML
echo #EXTINF:-1, %input1%>> TV.M3U
echo %input%>> TV.M3U

goto main
:CS
Echo Web page opens go to bottom of page and paste in last field.
pause
@echo off
et "output="
for /f "tokens=1-5 delims=/" %%a in ("!input!") do (
set "output=%%~a//%%~b/get.php?username=%%~c&password=%%~d&type=m3u"
)

echo(!output!
@(
cmd /E:ON /V:ON /cecho(!output!
)|clip
@echo off

start "" !site2!

cls
goto main
echo off
goto :eof

Hackoo
Posts: 78
Joined: 15 Apr 2014 17:59

Re: tv

#2 Post by Hackoo » 19 Dec 2019 01:47

I have tested it and it worked like a charm for me :wink: :D
Thank you for this nice share bro :wink:

Hackoo
Posts: 78
Joined: 15 Apr 2014 17:59

Re: tv

#3 Post by Hackoo » 21 Dec 2019 04:37

Hi :wink:
Can you please try my draft version and tell me if this script will work or not on your side ?
All your comments are welcomed to improve it :lol:
Thank you !

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 
::--------------------------------------------------------------------------------------

tea
Posts: 8
Joined: 14 Oct 2019 11:58

Re: tv

#4 Post by tea » 24 Dec 2019 00:54

That looks good, if I have some time I can see what I can do.

tea
Posts: 8
Joined: 14 Oct 2019 11:58

Re: tv

#5 Post by tea » 24 Dec 2019 01:02

I've found some dead links from searches how can we remove them from the final output? How hard would it be to disallow mp4 as well?
You did an awesome job Hackoo!

Post Reply