(30-08-17, 01:55 AM)سعود كتب :إقتباس :هل يمكن تطبيق الفكرة على هذا الموقع وجزاكم الله خيرا
بكل تاكيد
![]()
كود :
Imports System.Net
Public Class Form1
Dim lst As New List(Of String)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim url As String = "http://ourquraan.com/shyookh/%D8%B3%D8%B9%D9%88%D8%AF-%D8%A7%D9%84%D8%B4%D8%B1%D9%8A%D9%85/"
url = WebUtility.HtmlDecode(url)
Dim hweb As New HtmlAgilityPack.HtmlWeb
Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//div[@class='btn-group']/p[2]")
For r As Integer = 0 To nod.Count - 1
ListBox1.Items.Add(nod.Item(r).InnerText.Trim)
For Each n As HtmlAgilityPack.HtmlNode In nod(r).SelectNodes("//a[2]")
If n.Attributes("href").Value.ToString.ToLower.Contains("/quran/") Then
lst.Add(n.Attributes("href").Value)
End If
Next
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
AxWindowsMediaPlayer1.URL = lst(sender.selectedindex)
End Sub
End Class
تقييم الموضوع :
| المواضيع المحتمل أن تكون متشابهة . | |||||
| الموضوع : | الكاتب | الردود : | المشاهدات : | آخر رد | |
| خطأ فى مكتبة htmlagilitypack | ابو روضة | 2 | 1,739 |
30-12-19, 05:49 PM آخر رد: ابو روضة |
|
| اختصار هذا الكود HtmlAgilityPack | ابو روضة | 2 | 1,920 |
04-10-19, 01:05 AM آخر رد: سعود |
|
| بخصوص HtmlAgilityPack الليست بوكس لا تظهر الاسماء | ابو روضة | 9 | 3,878 |
11-08-19, 09:35 PM آخر رد: سعود |
|
| سؤال لو تكرمتم بخصوص الريجيكس و ال HtmlAgilityPack | ابو روضة | 2 | 2,007 |
30-10-18, 11:33 AM آخر رد: ابو روضة |
|
| جلب جزء من نص بال HtmlAgilityPack | ابو روضة | 2 | 1,880 |
27-10-18, 01:13 PM آخر رد: asemshahen5 |
|
| [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack | mervandzz | 2 | 2,262 |
13-10-18, 03:53 PM آخر رد: mervandzz |
|
| [سؤال] الى خبراء HtmlAgilityPack كيف استطيع استخراج جميع Form من صفحة html | silverlord | 0 | 2,120 |
24-02-15, 03:01 AM آخر رد: silverlord |
|
| [سؤال] كيف نمرر الكوكيز الى HtmlAgilityPack | سعود | 1 | 1,886 |
10-05-14, 12:54 AM آخر رد: الشاكي لله |
|
| [سؤال] كيف نغير قيم بواسطة HtmlAgilityPack | سعود | 1 | 2,141 |
10-04-14, 08:02 PM آخر رد: سعود |
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم

