تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السلام عليكم محتاج اعرف شئ في loop
#1
السلام عليكم دلوقتي انا جلبت من الصفحه دي 
view-source:https://www.olx.com.eg/home-furniture-decor/bedroom/alexandria/
الرابط عن طريق الريجكس 
اريد عمل لوب ليتم جلب جميع الروابط اللي في الصفحه في و الوسم ده 
<div class="ads__item" onclick="window.location = 'https://www.olx.com.eg/ad/-IDbJ7Ig.html'">
الرد
تم الشكر بواسطة:
#2
PHP كود :
Public Class Form1
    Dim ax
ay As Integerdr As Boolean
    Dim WithEvents wb 
As New WebBrowser
    Private Sub Form1_FormClosing
(sender As ObjectAs System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing
        My
.Settings.mloc Me.Location
        My
.Settings.Save()
 
   End Sub
    Private Sub Form1_Load
(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        Me
.Location My.Settings.mloc
    End Sub
    Private Sub Form1_MouseDown
(sender As System.ObjectAs System.Windows.Forms.MouseEventArgsHandles MyBase.MouseDown
        If e
.Button Windows.Forms.MouseButtons.Left Then
            dr 
True
            ax 
MousePosition.Me.Left
            ay 
MousePosition.Me.Top
        End 
If
 
   End Sub
    Private Sub Form1_MouseMove
(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles Me.MouseMove
        If dr Then
            Me
.Left MousePosition.ax
            Me
.Top MousePosition.ay
        End 
If
 
   End Sub
    Private Sub Form1_MouseUp
(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles Me.MouseUp
        dr 
False
    End Sub
    Private Sub btnget_Click
(sender As System.ObjectAs System.EventArgsHandles btnget.Click
        wb
.Navigate(TextBox1.Text)
 
   End Sub
    Private Sub wb_DocumentCompleted
(sender As ObjectAs System.Windows.Forms.WebBrowserDocumentCompletedEventArgsHandles wb.DocumentCompleted
        Dim doc 
As New HtmlAgilityPack.HtmlDocument
        doc
.LoadHtml(wb.DocumentText)
 
       For Each t As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='ads__item__info']//a")
 
           ListBox1.Items.Add(t.InnerText.Trim)
 
       Next
    End Sub
End 
Class 

وسوم الـ Html الصافية و غير المشفرة لن تجد افضل من ملف HtmlAgilityPack.dll 
لاستخراج ما تريد من اي صفحة


الملفات المرفقة
.zip   For_SeventhDay.zip (الحجم : 74.86 ك ب / التحميلات : 3)
اشكر كل من نقر زر شكرا و كل من قيم و ثمن المجهود مهما كان بسيطا.
الرد
تم الشكر بواسطة: ابو روضة , اليوم السابع
#3
(14-01-21, 02:02 AM)سعود كتب :
PHP كود :
Public Class Form1
    Dim ax
ay As Integerdr As Boolean
    Dim WithEvents wb 
As New WebBrowser
    Private Sub Form1_FormClosing
(sender As ObjectAs System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing
        My
.Settings.mloc Me.Location
        My
.Settings.Save()
 
   End Sub
    Private Sub Form1_Load
(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        Me
.Location My.Settings.mloc
    End Sub
    Private Sub Form1_MouseDown
(sender As System.ObjectAs System.Windows.Forms.MouseEventArgsHandles MyBase.MouseDown
        If e
.Button Windows.Forms.MouseButtons.Left Then
            dr 
True
            ax 
MousePosition.Me.Left
            ay 
MousePosition.Me.Top
        End 
If
 
   End Sub
    Private Sub Form1_MouseMove
(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles Me.MouseMove
        If dr Then
            Me
.Left MousePosition.ax
            Me
.Top MousePosition.ay
        End 
If
 
   End Sub
    Private Sub Form1_MouseUp
(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles Me.MouseUp
        dr 
False
    End Sub
    Private Sub btnget_Click
(sender As System.ObjectAs System.EventArgsHandles btnget.Click
        wb
.Navigate(TextBox1.Text)
 
   End Sub
    Private Sub wb_DocumentCompleted
(sender As ObjectAs System.Windows.Forms.WebBrowserDocumentCompletedEventArgsHandles wb.DocumentCompleted
        Dim doc 
As New HtmlAgilityPack.HtmlDocument
        doc
.LoadHtml(wb.DocumentText)
 
       For Each t As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='ads__item__info']//a")
 
           ListBox1.Items.Add(t.InnerText.Trim)
 
       Next
    End Sub
End 
Class 

وسوم الـ Html الصافية و غير المشفرة لن تجد افضل من ملف HtmlAgilityPack.dll 
لاستخراج ما تريد من اي صفحة
الله يبارك في حضرتك انا حلتها بطريقه اخري بس حل حضرتك لا يعلي عليه

ولو فيه دروس لشرح HtmlAgilityPack انا بجد نفسي اتعلمها 
الرد
تم الشكر بواسطة: سعود , ابو روضة
#4
إقتباس :ولو فيه دروس لشرح HtmlAgilityPack انا بجد نفسي اتعلمها 
اكيد توجد دروس لكن متفرقة هنا و هناك اليوتيوب و غيره.
تحتاج التفكير بفكرة معينة تجعلك تتقن طرقا متعددة بعد ذلك سيسهل عليك فعل اي شيء تريده باكواد اقل مما سبق.
اشكر كل من نقر زر شكرا و كل من قيم و ثمن المجهود مهما كان بسيطا.
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة
#5
(14-01-21, 04:22 AM)سعود كتب :
إقتباس :ولو فيه دروس لشرح HtmlAgilityPack انا بجد نفسي اتعلمها 
اكيد توجد دروس لكن متفرقة هنا و هناك اليوتيوب و غيره.
تحتاج التفكير بفكرة معينة تجعلك تتقن طرقا متعددة بعد ذلك سيسهل عليك فعل اي شيء تريده باكواد اقل مما سبق.

سؤال أخى سعود لو سمحت..
ما فائدة هذا الموديل وهذا الكلاس
الرد
تم الشكر بواسطة: سعود
#6
(14-01-21, 05:53 AM)ابو روضة كتب :
(14-01-21, 04:22 AM)سعود كتب :
إقتباس :ولو فيه دروس لشرح HtmlAgilityPack انا بجد نفسي اتعلمها 
اكيد توجد دروس لكن متفرقة هنا و هناك اليوتيوب و غيره.
تحتاج التفكير بفكرة معينة تجعلك تتقن طرقا متعددة بعد ذلك سيسهل عليك فعل اي شيء تريده باكواد اقل مما سبق.

سؤال أخى سعود لو سمحت..
ما فائدة هذا الموديل وهذا الكلاس

فائدة الـ ApplicationEvents.vb انه يحتوي احداث  كالتالي:
PHP كود :
MyApplication_NetworkAvailabilityChanged
MyApplication_Shutdown
MyApplication_Startup
MyApplication_StartupNextInstance
MyApplication_UnhandledException 
حدث بدء التشغيل لاي فورم وقبل مسالة الفورم استخدمته للتحقق من وجود ملف معين لانه ربما يتم حذف ملف مهم بالخطأ فاذا لم يجده يقوم باستخراج ذلك الملف من الريسورس الى مجلد البرنامج وهذا ضمن حدث MyApplication_Startup

اما الموديول فعرفت فيه متغير عمومي  AppPath ياخذ مسار مجلد البرنامج لكي استخدمه في ملف الـ ApplicationEvents
اشكر كل من نقر زر شكرا و كل من قيم و ثمن المجهود مهما كان بسيطا.
الرد
تم الشكر بواسطة: ابو روضة
#7
(14-01-21, 06:26 AM)سعود كتب :
فائدة الـ ApplicationEvents.vb انه يحتوي احداث  كالتالي:
PHP كود :
MyApplication_NetworkAvailabilityChanged
MyApplication_Shutdown
MyApplication_Startup
MyApplication_StartupNextInstance
MyApplication_UnhandledException 
حدث بدء التشغيل لاي فورم وقبل مسالة الفورم استخدمته للتحقق من وجود ملف معين لانه ربما يتم حذف ملف مهم بالخطأ فاذا لم يجده يقوم باستخراج ذلك الملف من الريسورس الى مجلد البرنامج وهذا ضمن حدث MyApplication_Startup

اما الموديول فعرفت فيه متغير عمومي  AppPath ياخذ مسار مجلد البرنامج لكي استخدمه في ملف الـ ApplicationEvents


ربنا يكرمك ويبارك بعمرك أخى سعود...
الرد
تم الشكر بواسطة: سعود
#8
(14-01-21, 07:09 AM)ابو روضة كتب :
ربنا يكرمك ويبارك بعمرك أخى سعود...

و يكرمك و يبارك فيك اكثر و كل من يقرا هذا الكلام.
اشكر كل من نقر زر شكرا و كل من قيم و ثمن المجهود مهما كان بسيطا.
الرد
تم الشكر بواسطة: ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] السلام عليكم حسن الجلب 3 102 19-01-21, 09:21 PM
آخر رد: htrjyt
  السلام عليك مشكل في رقم التسجيل برنامج المكتبة ساعدوني ارجوكم crazykinko 0 85 15-01-21, 04:55 PM
آخر رد: crazykinko
  بالله عليكم عايز حل للمشكله دى ضرورى جدا على زهران 2 176 13-01-21, 02:17 AM
آخر رد: على زهران
  [نقاش] عايز اعرف اسم القالب في هذا الموقع ahmed samir 1 111 12-01-21, 06:18 AM
آخر رد: ahmed samir
  السلام عليكم ممكن سؤال في اضافه اكثر من ليبل اليوم السابع 4 211 31-12-20, 02:33 PM
آخر رد: اليوم السابع
  [VB.NET] السلام عليكم مشكل في combobox crazykinko 2 170 25-12-20, 05:48 PM
آخر رد: crazykinko
  [سؤال] محتاج مساغده من اخوني محمد ايمن 0 82 25-12-20, 02:21 PM
آخر رد: محمد ايمن
  السلام عليكم مساعد ة في login و password crazykinko 4 212 22-12-20, 09:59 PM
آخر رد: crazykinko
  محتاج مساعدة بكود فتح الأكسس من الفجول بيسك أبو عبدالله الحلواني 5 284 07-12-20, 12:55 AM
آخر رد: أبو عبدالله الحلواني
  [سؤال] السلام عليكم موضوعي بخصوص ضغط وفك الضغط ولدي استفسارات اليوم السابع 0 163 11-11-20, 11:41 PM
آخر رد: اليوم السابع

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


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