تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عندي سؤال في التعامل مع صفحات الويب
#5
الشكر لله والحمد لله
والحمد لله على كل حال

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

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


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


الملفات المرفقة
.zip   Pro.zip (الحجم : 8.19 ك ب / التحميلات : 32)
.zip   Try Get Number.zip (الحجم : 13.32 ك ب / التحميلات : 33)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: Mohamed Magdy , Mohamed Magdy , anes , farfour , ابراهيم ايبو


الردود في هذا الموضوع
RE: عندي سؤال في التعامل مع صفحات الويب - بواسطة elgokr - 04-11-18, 12:18 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم