[farfour]

السلام عليكم يا اصدقاء اريد الضغط على زر في صفحة ويب 

ثم اظهار ما بعد كلمة Downloaded في textbox

هذا الرابط كمثال https://www.up-4.net/t6rv79w9kkwd
و شكراااا لكم

[farfour]

يا اصدقاء لا يوجد حل ؟؟؟

[elgokr]

وعليكم السلام ورحمة الله وبركاته

خلال 24 ساعة بامر الله

اذا لم يقوم احد بالرد عليك هنا

ساقوم بعمل سورس وارفاقه لك

موضح به كيفية تخطى الزر وجلب العدد

وسامحنى على تاخيري بذلك

تحياتى لك

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

[farfour]

وعليكم السلام ورحمة الله وبركاته

خلال 24 ساعة بامر الله

اذا لم يقوم احد بالرد عليك هنا

ساقوم بعمل سورس وارفاقه لك

موضح به كيفية تخطى الزر وجلب العدد

وسامحنى على تاخيري بذلك

تحياتى لك

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

شكرا لك اخي elgokr ربي يحفظك

[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

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

تحياتى لك

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

[farfour]

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

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

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

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

السورس (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

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

تحياتى لك

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

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