Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :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=<username>&password=<password>&...&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
Add Comment
Please, Sign In to add comment