[Hackoo]

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 :

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
'*****************************************************************