[VB] Streamcloud mp4 link grabber source

Imports System.Text.RegularExpressions
Imports System.Text

Public Class Form1
Dim falsification as string = "nicht gefunden werden."
    Dim a(0 To 0) As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Msgbox("The mp4 link is: " & getStreamcloud("http://streamcloud.eu/jx1243rs6l77/Hustle.S04E06.Casino.German.WS.DVDRip.XviD-GTVG.avi.html"))

    End Sub
    Private Sub getStreamcloud(ByVal Stlink)
        Dim wc As New Net.WebClient
        wc.Proxy = Nothing
        Dim split As String = wc.DownloadString(Stlink)
        If split.Contains(falsification) = true Then
            Exit Sub

        End If
        Dim between As String = (Splitbetween(split, My.Resources.over, My.Resources.down))
        Dim getr = Regex.Matches(between, "<input type="".*?"">")

        Dim id As String = getr.Item(2).Value().Replace("<input type=""hidden"" name=""id"" value=""", "").Replace(""">", "")
        Dim fname As String = getr.Item(3).Value.Replace("<input type=""hidden"" name=""fname"" value=""", "").Replace(""">", "")
        Dim Human As String = getr.Item(6).Value.Replace("<input type=""submit"" name=""imhuman"" id=""btn_download"" class=""button gray"" value=""", "").Replace(""">", "")
        Dim sendparam(0 To 6, 0 To 1) As String
        sendparam(0, 0) = "fname"
        sendparam(0, 1) = fname
        sendparam(1, 0) = "hash"
        sendparam(1, 1) = ""
        sendparam(2, 0) = "id"
        sendparam(2, 1) = id
        sendparam(3, 0) = "imhuman"
        sendparam(3, 1) = "Weiter zum Video"
        sendparam(4, 0) = "op"
        sendparam(4, 1) = "download1"
        sendparam(5, 0) = "referer"
        sendparam(5, 1) = ""
        sendparam(6, 0) = "usr_login"
        sendparam(6, 1) = ""
        For i = 0 To 10
            Threading.Thread.Sleep(1000)
            Me.Text = i
        Next
        Dim ret As String = Getvid(sendparam, Stlink)
        Dim FEDDICH = Regex.Matches(ret, "file: "".*?"",")




        MsgBox(FEDDICH.Item(0).Value().Replace("file: """, "").Replace(""",", ""))
    End Sub
    Public Function Splitbetween(ByVal input As String, ByVal anfang As String, ByVal ende As String)
        Dim quellcode As String = input
        Dim Result As String
        Result = Split(quellcode, anfang, 5)(1)
        Result = Split(Result, ende, 6)(0)
        Return Result
    End Function


    Public Function Getvid(ByVal param(,) As String, ByVal side As String)


        Dim wc As New Net.WebClient
        wc.Proxy = Nothing


        Dim reqparm As New Specialized.NameValueCollection

        For i = 0 To param.Length / 2 - 1
            reqparm.Add(param(i, 0), param(i, 1))
        Next i
        Dim responsebytes = wc.UploadValues(side, "POST", reqparm)
        Dim responsebody = (New UTF8Encoding).GetString(responsebytes)
        MsgBox(responsebody)
        Return responsebody
    End Function

End Class