Quote:
Originally Posted by johncross
so a username like hackoo makes me think that you're experienced. lol
|
In streaming not yet , perhaps another Hackoo
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
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
'*****************************************************************