Private Function GetAddressSteaming() As String
Dim Str As String
Dim a As String
Dim modelHtml
Dim SourceCode As String
On Error GoTo ErrorExit
SourceCode = New System.Net.WebClient().DownloadString(cbAddress.Text)
txtSourCode.Text = SourceCode
modelHtml = SourceCode
modelHtml = modelHtml.left(modelHtml, InStr(modelHtml, ".m3u8") + 4)
modelHtml = modelHtml.Right(modelHtml, Len(modelHtml) - InStr(modelHtml, "https://edge") + 1)
If Len(modelHtml) < 20 Then
modelHtml = ""
MsgBox("Sorry, is offline or does not exist!")
End If
a = modelHtml
Str = a.Replace("/live\u002Dhls/", "/live-hls/")
Str = Str.Replace("\u002Dhls/", "")
Str = Str.Replace("\u002D", "-")
information.Text = Str
ErrorExit:
End Function