Audio/video stream recording forums (http://stream-recorder.com/forum/index.php)
-   rtmpdump (http://stream-recorder.com/forum/forumdisplay.php?f=54)
-   -  

How can i create a batch file that can read the stream with rtmpdump piped to VLC ?

(http://stream-recorder.com/forum/showthread.php?t=20613)

Hackoo 01-06-2016 04:31 AM

How can i create a batch file that can read the stream with rtmpdump piped to VLC ?


 
Hi :)
I'm a new member here ! and i want to learn more how can i use rtmpdump to read and pipe it to VLC.
So my question is :
For example if i have this URL : http://paf-tv.com/player4.php
How can i create a batch file that can read or save its stream with rtmpdump piped to VLC ?
Thank you in advance for any help ! ;)

johncross 01-06-2016 07:57 AM

Re: How can i create a batch file that can read the stream with rtmpdump piped to VLC


 
so a username like hackoo makes me think that you're experienced. lol

Hackoo 01-06-2016 08:05 AM

Re: How can i create a batch file that can read the stream with rtmpdump piped to VLC


 
Quote:

Originally Posted by johncross (Post 82079)
so a username like hackoo makes me think that you're experienced. lol

In streaming not yet , perhaps another Hackoo :D
So, can you help me on my first project of streaming like this one ?

EDIT 06/01/2016 at 22:45 :
I think it is working now 5/5 :D
I create a vbscript to catch the rtmp source like this :
Code:

Option Explicit
Dim RTMP,Title
Title = "Extracting rtmp source by Hackoo 2016"
RTMP = Navigate("http://paf-tv.com/player4.php")
MsgBox RTMP,vbInformation,Title
'****************************************************************
Function Navigate(URL)
        Dim ie,DataHTML
        Set ie = CreateObject("InternetExplorer.Application")
        ie.Visible = False
        ie.Navigate(URL)
        Do until ie.ReadyState = 4
                WScript.Sleep 50
        Loop
        DataHTML = ie.document.documentElement.innerHTML
        Navigate = Extract(DataHTML)
        ie.Quit
        Set ie=Nothing
End Function
'****************************************************************
Function Extract(Data)
        Dim oRE,oMatches,Match,Line
        set oRE = New RegExp
        oRE.IgnoreCase = True
        oRE.Global = True
        oRE.Pattern = "file.?.*"
        set oMatches = oRE.Execute(Data)
        If not isEmpty(oMatches) then
                For Each Match in oMatches 
                        Line = Match.Value
                        Line = Replace(Line,"""","")
                        Line = Replace(Line,"file:","")
                        Line = Replace(Line,",","")
                        Extract = Line
                Next
        End if
End Function
'*****************************************************************



All times are GMT -6. The time now is 02:10 AM.