SHARE
TWEET

Find my stream Batch

4funn Dec 16th, 2019 130 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. :start
  2. cls
  3. @ECHO   ******** FIND MY STREAM ********
  4. @ECHO OFF >NUL
  5. @echo off
  6. ::SETLOCAL DisableDelayedExpansion
  7. :FOR /F "usebackq delims=" %%a in (`"findstr /n ^^ C:\Users\laptop\Desktop\us.txt"`) do (
  8. ::    set "var=%%a"
  9. ::    SETLOCAL EnableDelayedExpansion
  10. ::    set "var=!var:*:=!"
  11.  ::   echo(!var!
  12.  ::   ENDLOCAL
  13. ::)
  14. ECHO Type in a TV channel.
  15.  
  16. ECHO -------------------------------------------------------
  17. ECHO ENTER CHANNEL TO SEARCH
  18. set "input1="
  19. set /p"input1="
  20.  
  21. SETLOCAL EnableExtensions EnableDelayedExpansion
  22. set "chromepath=c:\Program Files (x86)\Google\Chrome\Application" path to chrome
  23. set "site=http://visearch.net/iptv/web"
  24. set "site2=https://iptvextreme.eu/"
  25. set "engine=?q"                              
  26. start "" !site!/!engine!=!input1!"
  27. setlocal enableExtensions enableDelayedExpansion
  28. :: uri encoded input of form:  http://name.com:8080/<username>/<password>/30356
  29. :pass
  30. set "input="
  31. ECHO ---------------------------
  32.  
  33. ECHO Outputs that have .m3u8 extenstions will be rejected.
  34. ECHO If this happens select a new channel from web page then paste.
  35.  
  36. ECHO Paste from Website channel URL
  37. set /p "input="
  38. if  not "x%input:u8=%" == "x%input%"  goto :pass
  39. :main
  40. echo Options;
  41. echo 1 : View channel on VLC
  42. echo 2 : Full account channel list -download list-
  43. echo 3 : Check account status
  44. echo 4 : Add to playlist
  45. echo 5 : If stream fails .Paste new channel
  46. echo 6 : If you want a new channel select this option to Enter Another channel
  47. :: Prompt for input,
  48. set /p "strMenu=Enter desired number:"
  49.  
  50. :: Compare input through if commands,
  51. :: `if not defined strMenu goto :menu` can be used here if prefered.
  52. echo %strMenu%
  53.  if "%strMenu%" equ "1" goto vlc
  54.  if "%strMenu%" equ "2" goto CL
  55.  if "%strMenu%" equ "3" goto CS
  56.  if "%strMenu%" equ "4" goto ML
  57.  if "%strMenu%" equ "5" goto pass
  58.  if "%strMenu%" equ "6" goto start
  59. pause
  60. ::Set "LogFile=C:\Users\laptop\Desktop\test.txt"
  61. :vlc
  62. start "" "C:\Program Files\VideoLAN\VLC\vlc.exe" !input! :sout=#display :sout-all :sout-keep
  63. goto main
  64. :CL
  65. :: variables of form
  66. :: "%%~a" = "http:"
  67. :: "%%~b" = "name.com:8080"
  68. :: "%%~c" = "<username>"
  69. :: "%%~d" = "<password>"
  70. :: "%%~e" = "30356"
  71. :: output of form http://name.com:8080/get.php?username=<username>&password=<password>&...&type=m3u
  72. set "output="
  73. for /f "tokens=1-5 delims=/" %%a in ("!input!") do (
  74.     set "output=%%~a//%%~b/get.php?username=%%~c&password=%%~d&type=m3u"
  75. )
  76. start "" !output!
  77. goto main
  78. :ML
  79. echo #EXTINF:-1, %input1%>> TV.M3U
  80. echo %input%>> TV.M3U
  81.  
  82. goto main
  83. :CS
  84. Echo Web page opens go to bottom of page and paste in last field.
  85. pause
  86. @echo off
  87. et "output="
  88. for /f "tokens=1-5 delims=/" %%a in ("!input!") do (
  89.     set "output=%%~a//%%~b/get.php?username=%%~c&password=%%~d&type=m3u"
  90. )
  91.  
  92. echo(!output!
  93.  @(
  94.         cmd /E:ON /V:ON /cecho(!output!
  95.     )|clip
  96.     @echo off
  97.  
  98. start "" !site2!
  99.  
  100. cls
  101. goto main
  102. echo off
  103. goto :eof
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top