الشكر لله والحمد لله
والحمد لله على كل حال
تم عمل السورس ويمكنك تحميلهم من المرفقات
مرفق السورس + برنامج للاختبار
السورس (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
صورة الناتج النهائي عند جلب القيمة المطلوبة
تحياتى لك
وتمنياتى لك التوفيق