تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] جلب روابط هذه الصفحة
#1
السلام عليكم ورحمة الله وبركاته
كنت اريد جلب مواضيع هذا الموقع بالويب براوزر
داخل الليست بوكس وتكون بالاسماء
وجربت هذا الكود ولم يفلح للأسف

كود :
Public Class Form1
   Dim aaa As New List(Of String)
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim aa As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
       For Each s As HtmlElement In aa
           If s.GetAttribute("className").Contains("ItemTitle") Then
               aaa.Add(s.GetAttribute("href"))
               ListBox1.Items.Add(s.InnerText)

           End If
       Next
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       Process.Start(aaa(sender.selectedindex))
   End Sub
End Class
الرد
تم الشكر بواسطة:
#2
وجدت لك هذه الطريقة بدون ويب براوزر
PHP كود :
Imports System.Text.RegularExpressions

Public Class Form1

    Dim dt 
As New DataTable

    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        dt
.Columns.Add("Title")
 
       dt.Columns.Add("URL")
 
   End Sub

    Private Sub Button1_Click
(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click
        Dim wc 
As New Net.WebClient
        Dim a 
As String wc.DownloadString("http://articles.islamweb.net/media/index.php?page=maincategory&lang=A&vPart=49")
 
       Dim b As MatchCollection Regex.Matches(a"(<div class=""ItemTitle"">).+?(</div>)"RegexOptions.Singleline)

 
       ListBox1.Items.Clear()
 
       For Each c As Match In b
            Dim d 
As String Regex.Match(c.Value"(?<=<font.+>).+?(?=</font>)").Value
            Dim u 
As String "http://articles.islamweb.net/media/" Regex.Match(c.Value"(?<=href="").+?(?="")").Value
            dt
.Rows.Add(du)
 
       Next
        ListBox1
.DataSource dt
        ListBox1
.DisplayMember "Title"
 
       ListBox1.ValueMember "URL"
 
   End Sub

    Private Sub ListBox1_SelectedIndexChanged
(ByVal sender As ObjectByVal e As EventArgsHandles ListBox1.SelectedIndexChanged
        If ListBox1
.SelectedValue.GetType IsNot GetType(DataRowViewThen
            Process
.Start(sender.SelectedValue)
 
       End If
 
   End Sub

End 
Class 
الرد
تم الشكر بواسطة: ابو روضة
#3
(04-02-18, 04:58 AM)طالب برمجة كتب : وجدت لك هذه الطريقة بدون ويب براوزر
PHP كود :
Imports System.Text.RegularExpressions

Public Class Form1

    Dim dt 
As New DataTable

    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        dt
.Columns.Add("Title")
 
       dt.Columns.Add("URL")
 
   End Sub

    Private Sub Button1_Click
(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click
        Dim wc 
As New Net.WebClient
        Dim a 
As String wc.DownloadString("http://articles.islamweb.net/media/index.php?page=maincategory&lang=A&vPart=49")
 
       Dim b As MatchCollection Regex.Matches(a"(<div class=""ItemTitle"">).+?(</div>)"RegexOptions.Singleline)

 
       ListBox1.Items.Clear()
 
       For Each c As Match In b
            Dim d 
As String Regex.Match(c.Value"(?<=<font.+>).+?(?=</font>)").Value
            Dim u 
As String "http://articles.islamweb.net/media/" Regex.Match(c.Value"(?<=href="").+?(?="")").Value
            dt
.Rows.Add(du)
 
       Next
        ListBox1
.DataSource dt
        ListBox1
.DisplayMember "Title"
 
       ListBox1.ValueMember "URL"
 
   End Sub

    Private Sub ListBox1_SelectedIndexChanged
(ByVal sender As ObjectByVal e As EventArgsHandles ListBox1.SelectedIndexChanged
        If ListBox1
.SelectedValue.GetType IsNot GetType(DataRowViewThen
            Process
.Start(sender.SelectedValue)
 
       End If
 
   End Sub

End 
Class 

برغم انى كنت محتاج وبشدة ان اجلبها بالويب براوزر لانى لا افهم Regex
لكن كتر الف خيرك والله فدائما تمّد لى يدى المساعدة فى ألوقت المناسب ولم تبخل
فجزاك الله كل خير استاذى
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] موضوع اليوم الصفحة هد لزم تكون بدي لمفهوم Regular Expression Ali 2020 0 91 03-10-20, 09:16 PM
آخر رد: Ali 2020
  [VB.NET] هل يوجد مشغل بديل لي vlc يقوم بتشغيل روابط بث مباشرة ميدو الفنان 1 130 16-09-20, 11:49 PM
آخر رد: ميدو الفنان
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 1,116 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  جلب روابط وصيغ ابو روضة 5 1,228 05-09-20, 03:48 AM
آخر رد: Ali 2020
  أريد كود عند اكتمال تحميل الصفحة في Chorme Driver selenium developermedo111 1 350 27-04-20, 05:42 AM
آخر رد: mohamedahmed1
  عرض جزء محدد من الصفحة داخل اداة ويب براوزر ابو روضة 8 872 29-12-19, 10:26 PM
آخر رد: ابو روضة
Exclamation [VB.NET] كود عندما يتم تحميل الصفحة كاملة في WebBrowser يكمل تنفيذ الكود SnTnt 4 735 16-09-19, 01:25 AM
آخر رد: SnTnt
  مشكلة فى جلب كامل الصفحة ابو روضة 11 1,618 07-06-19, 03:51 AM
آخر رد: ابو روضة
Rainbow [VB.NET] [تم الحل] عدم تنفيذ امر الا عند تحميل الصفحة DK-x 4 624 11-04-19, 11:23 PM
آخر رد: elgokr
  كيف عمل مشغل واستدعاء روابط القنوات عن بعد مع حمايتها حاتمي 3 730 23-03-19, 08:08 PM
آخر رد: حاتمي

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


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