[trakktour]

مرحبا
تفضل اخي 

كود :

Dim iddownload As String = ""
   Sub main()
       Using req As New HttpRequest
           With req
               .UserAgent = Http.ChromeUserAgent
               .Cookies = New CookieDictionary
               .AddParam("op", "download1")
               .AddParam("method_free", "Free Download")
               .AddParam("id", iddownload)
               Dim res As String = .Post(TextBox1.Text).ToString
               Dim downloaded As String = Regex.Match(res, "              (.*?)<\/td>").Groups(1).Value
               'Label2.Text = "Downloaded :-  " + downloaded
           End With
       End Using
   End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim add = TextBox1.Text + "Trakktour"
       iddownload = Regex.Match(add, "net\/(.*?)Trakktour").Groups(1).Value
       main()
   End Sub