Foro de elhacker.net

  {"error":false,"title":"Alan Walker - Diamond Heart (feat. Sophia Somajo)","duration":218,"file":"http:\/\/michaelbelgium.me\/ytconverter\/download\/sJXZ9Dok7u8.mp3"}

Dim jsonStr As String =
    <json>
    {
       "error":false,
       "title":"Alan Walker - Diamond Heart (feat. Sophia Somajo)",
       "duration":218,
       "file":"http:\/\/michaelbelgium.me\/ytconverter\/download\/sJXZ9Dok7u8.mp3"
    }
    </json>.Value

Dim dict As Dictionary(Of String, Object) =
    New JavaScriptSerializer().Deserialize(Of Dictionary(Of String, Object))(jsonStr)

For Each item As KeyValuePair(Of String, Object) In dict
    Console.WriteLine("{0}: {1}", item.Key, item.Value.ToString())
Next item

Console.WriteLine(CBool(dict("error")))
Console.WriteLine(CStr(dict("title")))
Console.WriteLine(CInt(dict("duration")))
Console.WriteLine(CStr(dict("file")))

<Serializable>
Public NotInheritable Class MyType
    Public Property [Error] As Boolean
    Public Property Title As String
    Public Property Duration As Integer
    Public Property File As String
 
    Public Sub New()
    End Sub
 
    Public Overrides Function ToString() As String
        Return New JavaScriptSerializer().Serialize(Me).ToString
    End Function
End Class

Dim obj As MyType = New JavaScriptSerializer().Deserialize(Of MyType)(jsonStr)
Console.WriteLine(obj.ToString())

Dim URLDATA As String = cliente.DownloadString(url)
TextBox2.Text = URLDATA

    <Serializable>
    Public NotInheritable Class MyType
        Public Property [Error] As Boolean
        Public Property Title As String
        Public Property Duration As Integer
        Public Property File As String
 
        Public Sub New()
        End Sub
 
        Public Overrides Function ToString() As String
            Return New JavaScriptSerializer().Serialize(Me).ToString
        End Function
    End Class

Dim obj As MyType = New JavaScriptSerializer().Deserialize(Of MyType)(URLDATA)

cliente.DownloadFile(obj.File, IO.Path.GetFileName(obj.File))

    Private Function getID(ByVal url As String) As String 'Function by Stack Overflow Forum. 
        Try
 
            Dim myMatches As System.Text.RegularExpressions.Match
            Dim MyRegEx As New System.Text.RegularExpressions.Regex("youtu(?:\.be|be\.com )/(?:.*v(?:/|=)|(?:.*/)?)([a-zA-Z0-9-_]+)", RegexOptions.IgnoreCase) 'This is where the magic happens/SHOULD work on all normal youtube links including youtu.be
            myMatches = MyRegEx.Match(url)
            If myMatches.Success = True Then
                Return myMatches.Groups(1).Value
            Else
                Return ""
            End If
        Catch ex As Exception
            Return ex.ToString
        End Try
    End Function
 

Public Shared Function GetQuery(ByVal url As String) As NameValueCollection
    Return GetQuery(url, Encoding.UTF8)
End Function
 
Public Shared Function GetQuery(ByVal url As String, ByVal enc As Encoding) As NameValueCollection
    Return GetQuery(New Uri(url), enc)
End Function
 
Public Shared Function GetQuery(ByVal uri As Uri) As NameValueCollection
    Return GetQuery(uri, Encoding.UTF8)
End Function
 
Public Shared Function GetQuery(ByVal uri As Uri, ByVal enc As Encoding) As NameValueCollection
    Dim queryString As String = uri.GetComponents(UriComponents.Query, UriFormat.UriEscaped)
    Return HttpUtility.ParseQueryString(queryString, enc)
End Function

Dim query As NameValueCollection = GetQuery("https://www.youtube.com/watch?v=FtcVlSytJF4&feature=em-uploademail")
Dim id As String = query("v")
If String.IsNullOrEmpty(id) Then
    Throw New NullReferenceException()
Else
    ' ...
End If

'HttpUtility' no está declarado. Puede que esté inaccesible debido a su nivel de protección.	

• https://docs.microsoft.com/en-us/dotnet/api/system.net.webclient.downloadstringasync?view=netframework-4.7.2

• https://stackoverflow.com/a/24901590/1248295

Private Sub descarga(ByVal url As String)
 
    Dim isCompleted As Boolean
 
    Dim t As New Task(
        Sub()
            Try
                Dim URLDATA As String = cliente.DownloadString(url)
                Me.Invoke(Sub()
                              TextBox2.Text = URLDATA
                              If TextBox2.Text = "" Then
                                  alert("error", "No response was obtained from the server.")
                              Else
                                  alert("alert", "Data Obtained, Descripting ...")
                              End If
                          End Sub)
            Catch ex As Exception
                Me.Invoke(Sub() alert("error", ex.Message))
 
            Finally
                isCompleted = True
            End Try
        End Sub)
 
    t.Start()
 
    Do Until isCompleted
        Application.DoEvents()
    Loop
 
End Sub

• https://github.com/i3arnon/libvideo