MelayuNakal downloader

'PHANTOMCREWS'
'2011-2014'
'PROJEK : MYNAKAL DOWNLOADER VB.NET'
'Bypass PRIVATE video'
'Give credits to me'
'https://www.facebook.com/DuniaSiberPhc'
'Form Design : http://s30.postimg.org/wj2kiys0h/Untitled.png'
'Binary download : http://rghost.net/57829231 '
Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            gileha.Text = "Masukkan link video!!"
        Else
            TextBox2.Text = ""
            TextBox3.Text = ""
            gileha.Text = "Checking Video.."
            try
            Dim request As HttpWebRequest = HttpWebRequest.Create(TextBox1.Text)
            request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
            Dim response As HttpWebResponse = request.GetResponse
            Dim source As String = New IO.StreamReader(response.GetResponseStream).ReadToEnd
            If source.Contains("The video was deleted. You can watch suggested videos below for free or use the search function.") Then
                gileha.Text = "Video not founded"
                TextBox1.Text = ""
            Else
                gileha.Text = "Generating download link"
                If TextBox1.Text.Contains("http://www.mynakal.com/video/") Then
                    TextBox1.Text = TextBox1.Text.Replace("http://www.mynakal.com/video/", "")
                    If TextBox1.Text.Contains("/") Then
                        TextBox1.Text = TextBox1.Text.Replace("/", "")
                    End If

                    Dim jaja As HttpWebRequest = HttpWebRequest.Create("http://www.mynakal.com/media/player/config.php?vkey=" + TextBox1.Text)
                    jaja.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
                    Dim response2 As HttpWebResponse = jaja.GetResponse
                    Dim source2 As String = New IO.StreamReader(response2.GetResponseStream).ReadToEnd

                    Dim formula As String = "<src>([^<]*)</src>"
                    For Each item As Match In (New Regex(formula)).Matches(source2)
                        TextBox2.AppendText(item.Groups(1).Value)
                        TextBox3.Text = TextBox1.Text
                        gileha.Text = "Done"
                    Next

                    If TextBox2.Text.Contains("http://www.mynakal.com/media/player/ads.php") Then
                        TextBox2.Text = TextBox2.Text.Replace("http://www.mynakal.com/media/player/ads.php", "")

                    End If

                    TextBox1.Text = "http://www.mynakal.com/video/" + TextBox1.Text
                End If
            End If
            Catch ex As Exception
             msgbox("Error..please try again!!")
            End Try
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox3.Enabled = False
        Textbox1.text = "http://www.mynakal.com/video/75/"
    End Sub
End Class