[farfour]

(04-11-18, 12:18 PM)elgokr كتب :

الشكر لله والحمد لله

والحمد لله على كل حال

تم عمل السورس ويمكنك تحميلهم من المرفقات

مرفق السورس + برنامج للاختبار 

السورس (2015)

السورس يحتوى على كلاً من 

عدد [ 2 ] TextBox

عدد [ 2 ] Button

عدد [ 1 ] Timer

كود السورس كاملاً

كود :

Public Class Form1

   Private WB As New WebBrowser

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If Not TextBox2.Text = Nothing Or Not TextBox2.Text = "" Then
           If Not TextBox2.Text.Contains("https://www.up-4.net/") Then MsgBox("يجب ادخال رابط التحميل لاتمام العملية") : Exit Sub
           Timer1.Stop()
           WB.Navigate(TextBox2.Text)
           WB.ScriptErrorsSuppressed = True
           Do While WB.ReadyState <> WebBrowserReadyState.Complete
               Application.DoEvents()
               Button1.Enabled = True
           Loop
       End If
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       WB.Document.GetElementById("freeDownload").InvokeMember("click")
       Button1.Enabled = False
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       For Each XOne As HtmlElement In WB.Document.GetElementsByTagName("table")
           If XOne.GetAttribute("className") = "filepanel table table-bordered" Then
               Dim SPx_ As String() = Split(XOne.InnerHtml, "<tr>")
               Dim SPy_ As String() = Split(SPx_(4), "<td>")
               TextBox1.Text = SPy_(2).Replace(Space(1), Nothing).Replace("</td>", Nothing).Replace("</tr>", Nothing).Replace("t", Space(1) & "t")
           End If
       Next
       Timer1.Stop()
   End Sub
End Class

صورة الناتج النهائي عند جلب القيمة المطلوبة

تحياتى لك

وتمنياتى لك التوفيق

شكرا لك اخي العزيز و جزاك الله كل الخير