تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عندي سؤال في التعامل مع صفحات الويب
#1
السلام عليكم يا اصدقاء اريد الضغط على زر في صفحة ويب 
[صورة مرفقة: uEHiKJV.jpg]
ثم اظهار ما بعد كلمة Downloaded في textbox
[صورة مرفقة: baHgKUy.jpg]
هذا الرابط كمثال https://www.up-4.net/t6rv79w9kkwd
و شكراااا لكم
الرد
تم الشكر بواسطة:
#2
يا اصدقاء لا يوجد حل ؟؟؟
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

خلال 24 ساعة بامر الله
اذا لم يقوم احد بالرد عليك هنا

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: farfour
#4
(04-11-18, 01:27 AM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

خلال 24 ساعة بامر الله
اذا لم يقوم احد بالرد عليك هنا

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

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

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

شكرا لك اخي elgokr ربي يحفظك
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 7)
.zip   Try Get Number.zip (الحجم : 13.32 ك ب / التحميلات : 7)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: Mohamed Magdy , Mohamed Magdy , anes , farfour , ابراهيم ايبو
#6
(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

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


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

شكرا لك اخي العزيز و جزاك الله كل الخير
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال اسيل1 2 84 أمس, 03:27 AM
آخر رد: trakktour
  سؤال فى بحث بالتاريخ احمد خطاب 4 76 12-12-18, 11:53 PM
آخر رد: احمد خطاب
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 77 08-12-18, 08:36 PM
آخر رد: masry4u
Heart سؤال عن حساب السن (العمر) عن طريق تاريخ الميلاد ahmadpal 10 185 07-12-18, 04:52 PM
آخر رد: ahmadpal
  سؤال بخصوص الكتابة داخل داتا جريد احمد خطاب 3 81 05-12-18, 11:35 AM
آخر رد: احمد خطاب
  [VB.NET] سؤال عن الداتا جريد فيو M.SOFT 1 64 04-12-18, 04:31 AM
آخر رد: محمد كريّم
Star سؤال بخصوص جدول فاتوره المشتريات ، vb2010 0 61 30-11-18, 08:57 PM
آخر رد: vb2010
  [سؤال] سؤال عن موضوع الكريستال ريبورت m_eljabo 1 59 29-11-18, 10:57 PM
آخر رد: baha
  سؤال في إضافة مكتبه Emam emam 1 62 29-11-18, 04:24 PM
آخر رد: ابراهيم ايبو
  سؤال بخصوص الديف اكسبرس ابو روضة 15 264 28-11-18, 01:23 PM
آخر رد: ابو روضة

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


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