تقييم الموضوع :
  • 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
لكن كتر الف خيرك والله فدائما تمّد لى يدى المساعدة فى ألوقت المناسب ولم تبخل
فجزاك الله كل خير استاذى
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  د عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW HASNI14 8 883 02-02-23, 06:51 PM
آخر رد: trakktour
  روابط برنامج الفيجوال المناسب hous 1 464 16-01-23, 08:25 PM
آخر رد: Taha Okla
  [VB.NET] فتح روابط عماد سلمان منذر 6 971 23-09-22, 11:17 PM
آخر رد: عماد سلمان منذر
  السلام عليكم اريد روابط متاجر الكترونية لمتاجر ملابس مع السورس للمتجر مرام العتيبي 1 1,419 21-02-22, 04:21 PM
آخر رد: رسرس
  ممكن روابط شروحات في برنامج التقارير تبع اوراكل reports builder oracle غدير الصليحي 0 1,005 19-12-21, 11:25 AM
آخر رد: غدير الصليحي
  {طلب} كود حماية روابط القنوات Hatem Zahran 7 1,927 15-07-21, 03:33 PM
آخر رد: rijivaw
  العبارات الموجودة في الصفحة غير موجودة في سوسرس الصفحة ؟؟ سامي محمد 7 1,704 20-03-21, 10:07 PM
آخر رد: سامي محمد
  [مشروع] موضوع اليوم الصفحة هد لزم تكون بدي لمفهوم Regular Expression Ali 2020 0 1,145 03-10-20, 09:16 PM
آخر رد: Ali 2020
  [VB.NET] هل يوجد مشغل بديل لي vlc يقوم بتشغيل روابط بث مباشرة ميدو الفنان 1 1,083 16-09-20, 11:49 PM
آخر رد: ميدو الفنان
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 4,265 05-09-20, 03:36 PM
آخر رد: معاند الحظ

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


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