MediaFire direk indirme (Source + Kod)

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        LinkLabel1.Text = LinkAL(TextBox1.Text)
    End Sub
    Function LinkAL(ByVal MediafireURL As String) As String
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(MediafireURL)
        Dim response As System.Net.HttpWebResponse = request.GetResponse

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim kaynak As String = sr.ReadToEnd
        If kaynak.Contains("kNO") Then
            Return Split(kaynak, "kNO = """)(1).Split(""";")(0)
        Else
            Return "Bulunamadı"
        End If
    End Function

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

        WebBrowser1.Navigate(LinkLabel1.Text)
    End Sub
End Class