تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الكود سليم لكنه لا يعمل _HtmlAgilityPack
#1
السلام عليكم ورحمة الله وبركاته...
بحاول جلب هذه المواضيع الموجودة هنا  داخل ليست بوكس لكنه لا يعمل وأعتقد أن الكود صحيح من وجهه نظرى انا لكن أكيد سيكون عند أحدكم رأى أخر وبكل تأكيد سيكون أجمل..


كود :
 Dim url As String = "https://islamweb.net/ar/consult/index.php?page=listing&pid=5064"
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       Dim html As String = wc.DownloadString(url)
       Dim doc As New HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(html)
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@class='oneitems']/ul/li/h2/a[1]")
           ListBox1.Items.Add(n.InnerText)
           lst.Add("https://islamweb.net" & n.Attributes("href").Value)
       Next
الرد
تم الشكر بواسطة:
#2
هل اصبت الهدف ام لا
اقصد هل هذا هو المطلوب؟

PHP كود :
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Private Sub gd(url As String)
 
       lst.Clear()
 
       ListBox1.Invoke(Sub() ListBox1.Items.Clear())
 
       Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d 
As HtmlAgilityPack.HtmlDocument h.Load(url"Get")
 
       For Each n As HtmlAgilityPack.HtmlNode In d.DocumentNode.SelectNodes("//ul[@class='oneitems']//li/h2/a")
 
           ListBox1.Invoke(Sub() ListBox1.Items.Add(n.InnerText.Trim))
 
           lst.Add(n.Attributes("href").Value)
 
       Next
        Button1
.Invoke(Sub() Button1.Enabled True)
 
       Button1.Invoke(Sub() Button1.Text "تم")

 
   End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim u 
As String TextBox1.Text
        Dim th 
As New Threading.Thread(AddressOf gd)
 
       If th.IsAlive False Then
            Button1
.Enabled False
            Button1
.Text "انتظر..."
 
           th.Start(u)
 
       End If
 
   End Sub
End 
Class 
الرد
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو
#3
(06-02-21, 08:21 PM)سعود كتب :
هل اصبت الهدف ام لا
اقصد هل هذا هو المطلوب؟

PHP كود :
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Private Sub gd(url As String)
 
       lst.Clear()
 
       ListBox1.Invoke(Sub() ListBox1.Items.Clear())
 
       Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d 
As HtmlAgilityPack.HtmlDocument h.Load(url"Get")
 
       For Each n As HtmlAgilityPack.HtmlNode In d.DocumentNode.SelectNodes("//ul[@class='oneitems']//li/h2/a")
 
           ListBox1.Invoke(Sub() ListBox1.Items.Add(n.InnerText.Trim))
 
           lst.Add(n.Attributes("href").Value)
 
       Next
        Button1
.Invoke(Sub() Button1.Enabled True)
 
       Button1.Invoke(Sub() Button1.Text "تم")

 
   End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim u 
As String TextBox1.Text
        Dim th 
As New Threading.Thread(AddressOf gd)
 
       If th.IsAlive False Then
            Button1
.Enabled False
            Button1
.Text "انتظر..."
 
           th.Start(u)
 
       End If
 
   End Sub
End 
Class 

حبيبى أخى سعود تسلم من كل شر...
أكيد الكود صحيح الذى أرسلته حضرتك لكن أكيد يوجد شيئ ناقص بجهازى او خطأ فى نسخة
الويندوز أو أو ... لا أعلم صراحة ما سبب الخطأ هذا


الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
(06-02-21, 08:36 PM)ابو روضة كتب :
(06-02-21, 08:21 PM)سعود كتب :
هل اصبت الهدف ام لا
اقصد هل هذا هو المطلوب؟

PHP كود :
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Private Sub gd(url As String)
 
       lst.Clear()
 
       ListBox1.Invoke(Sub() ListBox1.Items.Clear())
 
       Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d 
As HtmlAgilityPack.HtmlDocument h.Load(url"Get")
 
       For Each n As HtmlAgilityPack.HtmlNode In d.DocumentNode.SelectNodes("//ul[@class='oneitems']//li/h2/a")
 
           ListBox1.Invoke(Sub() ListBox1.Items.Add(n.InnerText.Trim))
 
           lst.Add(n.Attributes("href").Value)
 
       Next
        Button1
.Invoke(Sub() Button1.Enabled True)
 
       Button1.Invoke(Sub() Button1.Text "تم")

 
   End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim u 
As String TextBox1.Text
        Dim th 
As New Threading.Thread(AddressOf gd)
 
       If th.IsAlive False Then
            Button1
.Enabled False
            Button1
.Text "انتظر..."
 
           th.Start(u)
 
       End If
 
   End Sub
End 
Class 

حبيبى أخى سعود تسلم من كل شر...
أكيد الكود صحيح الذى أرسلته حضرتك لكن أكيد يوجد شيئ ناقص بجهازى او خطأ فى نسخة
الويندوز أو أو ... لا أعلم صراحة ما سبب الخطأ هذا


جرب حط الكود ده في الفورم لود
كود :
ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3
            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls
            ServicePointManager.SecurityProtocol = DirectCast(3072, SecurityProtocolType)
الرد
تم الشكر بواسطة: ابو روضة , سعود , ابراهيم ايبو
#5
اخي الكريم انت خذ فقط الباترن ...احب دوما اجرب القصد الباترن فقطSmile
لكن تاكد من الرابط.

كنت مشغل vpn ولما قفلته ظهرت لي رسالة مماثلة.
الرد
#6
(06-02-21, 08:52 PM)سعود كتب : كنت مشغل vpn ولما قفلته ظهرت لي رسالة مماثلة.

والله يا أخى أنا عثرت عليه من سنتين تقريبا وضعه لى الأخ الكريم معاند الحظ كان بسبب مشكله مثل هذه
ونسيت وظيفته لكن أعتقد والله تعالى أعلى وأعلم بأنه يسمح بالولوج داخل المواقع فى وضع التخفى من خلال الأكواد وأعتقد أيضا أنه على ويندوز 7 لن تحتاجه لآن ويندوز 10 حمايته قوية بعض الشيئ.
الرد
#7
(06-02-21, 08:47 PM)ابو روضة كتب :
(06-02-21, 08:40 PM)اليوم السابع كتب : جرب حط الكود ده في الفورم لود
كود :
ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3
            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls
            ServicePointManager.SecurityProtocol = DirectCast(3072, SecurityProtocolType)

والله كنت ببحث عن هذا الكود لآنى نسيتو وضاع من جهازى لآنه حل لى مشاكل كبيرة.

فعلا إكتمل الحل بفضل الله ثم بكود الاخ سعود ثم بهذا الكود...
جزاكم الله كل الخير والسعادة...
ملحوظة :-
لما ببعد شوية عن البرمجة بنسى أغلب ما تعلمته خلال يومين بالضبط  Big Grin

(06-02-21, 08:52 PM)سعود كتب :
اغلقت الـvpn وجربت الكود ولم يعمل 
ماهو عمل هذا الكود؟

والله يا أخى أنا عثرت عليه من سنتين تقريبا وضعه لى الأخ الكريم معاند الحظ كان بسبب مشكله مثل هذه
ونسيت وظيفته لكن أعتقد والله تعالى أعلى وأعلم بأنه يسمح بالولوج داخل المواقع فى وضع التخفى من خلال الأكواد وأعتقد
أيضا أنه على ويندوز 7 لن تحتاجه لآن ويندوز 10 حمايته قوية بعض الشيئ.

الحمدلله رب العالمين 
الكود ده بيعمل تخطي ل Ssl و Tls علشان حمايه المواقع 
و وبيعمل علي ويندوز 10 فقط 
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بناء مشروع يعمل على جميع نسخ الويندوز Lathe1 1 74 26-02-21, 08:50 PM
آخر رد: Ronald
  ممكن تحويل الكود من سي شارب لي فيجوال بيسك اليوم السابع 2 138 24-02-21, 05:57 PM
آخر رد: الماجيك مسعد
  [VB.NET] الكود التالي ينفذ كل 10 من الشهر اريد ان ينفذ كل سنة وشكرا للمساعدة alim54 0 95 19-02-21, 11:01 PM
آخر رد: alim54
  كيف أكتب الكود ( Sql ) علي سطرين جرب كل المحاولات ؟؟ Abdh111 6 2,865 17-02-21, 09:07 PM
آخر رد: أبو عبدالله الحلواني
  [VB.NET] اريد مساعدة في حل الكود asrar 4 253 31-01-21, 09:19 PM
آخر رد: asrar
  [VB.NET] الكود الخاص ب بتعديل قاعدة البيانات عند تغيير ال Datagridview mmaalmesry 5 281 30-01-21, 10:15 AM
آخر رد: سعود
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 32 3,506 23-01-21, 03:43 PM
آخر رد: qqqwwweee
  [SQL] البرنامج يعمل في جهازي ولا يعمل على جهاز اخر deiaafrwana 5 479 19-01-21, 10:26 AM
آخر رد: deiaafrwana
  [VB.NET] [مساعدة] ... كيفية تنفيذ هذا الكود بشكل صحيح ...؟ Mahmoud41 1 235 01-01-21, 02:14 AM
آخر رد: اليوم السابع
Information [VB.NET] [مساعدة] ... كيف انفذ هذا الكود ...؟ Mahmoud41 1 196 31-12-20, 03:44 AM
آخر رد: trakktour

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


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