[اليوم السابع]

السلام عليكم دلوقتي انا جلبت من الصفحه دي 
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'">

[سعود]

PHP كود :

Public Class Form1
    Dim ax, ay As Integer, dr As Boolean
    Dim WithEvents wb As New WebBrowser
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.mloc
    End Sub
    Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub
    Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub
    Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        dr = False
    End Sub
    Private Sub btnget_Click(sender As System.Object, e As System.EventArgs) Handles btnget.Click
        wb.Navigate(TextBox1.Text)
    End Sub
    Private Sub wb_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles 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 

لاستخراج ما تريد من اي صفحة

[اليوم السابع]

PHP كود :

Public Class Form1
    Dim ax, ay As Integer, dr As Boolean
    Dim WithEvents wb As New WebBrowser
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.mloc
    End Sub
    Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub
    Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub
    Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        dr = False
    End Sub
    Private Sub btnget_Click(sender As System.Object, e As System.EventArgs) Handles btnget.Click
        wb.Navigate(TextBox1.Text)
    End Sub
    Private Sub wb_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles 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 انا بجد نفسي اتعلمها 

[سعود]

ولو فيه دروس لشرح HtmlAgilityPack انا بجد نفسي اتعلمها 

اكيد توجد دروس لكن متفرقة هنا و هناك اليوتيوب و غيره.
تحتاج التفكير بفكرة معينة تجعلك تتقن طرقا متعددة بعد ذلك سيسهل عليك فعل اي شيء تريده باكواد اقل مما سبق.

[ابو روضة]

ولو فيه دروس لشرح HtmlAgilityPack انا بجد نفسي اتعلمها 

اكيد توجد دروس لكن متفرقة هنا و هناك اليوتيوب و غيره.
تحتاج التفكير بفكرة معينة تجعلك تتقن طرقا متعددة بعد ذلك سيسهل عليك فعل اي شيء تريده باكواد اقل مما سبق.

سؤال أخى سعود لو سمحت..

ما فائدة هذا الموديل وهذا الكلاس

[سعود]

ولو فيه دروس لشرح HtmlAgilityPack انا بجد نفسي اتعلمها 

اكيد توجد دروس لكن متفرقة هنا و هناك اليوتيوب و غيره.
تحتاج التفكير بفكرة معينة تجعلك تتقن طرقا متعددة بعد ذلك سيسهل عليك فعل اي شيء تريده باكواد اقل مما سبق.

سؤال أخى سعود لو سمحت..

ما فائدة هذا الموديل وهذا الكلاس

فائدة الـ ApplicationEvents.vb انه يحتوي احداث  كالتالي:

PHP كود :

MyApplication_NetworkAvailabilityChanged
MyApplication_Shutdown
MyApplication_Startup
MyApplication_StartupNextInstance
MyApplication_UnhandledException 


حدث بدء التشغيل لاي فورم وقبل مسالة الفورم استخدمته للتحقق من وجود ملف معين لانه ربما يتم حذف ملف مهم بالخطأ فاذا لم يجده يقوم باستخراج ذلك الملف من الريسورس الى مجلد البرنامج وهذا ضمن حدث MyApplication_Startup

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

[ابو روضة]

فائدة الـ ApplicationEvents.vb انه يحتوي احداث  كالتالي:

PHP كود :

MyApplication_NetworkAvailabilityChanged
MyApplication_Shutdown
MyApplication_Startup
MyApplication_StartupNextInstance
MyApplication_UnhandledException 


حدث بدء التشغيل لاي فورم وقبل مسالة الفورم استخدمته للتحقق من وجود ملف معين لانه ربما يتم حذف ملف مهم بالخطأ فاذا لم يجده يقوم باستخراج ذلك الملف من الريسورس الى مجلد البرنامج وهذا ضمن حدث MyApplication_Startup

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

ربنا يكرمك ويبارك بعمرك أخى سعود...

[سعود]

ربنا يكرمك ويبارك بعمرك أخى سعود...

و يكرمك و يبارك فيك اكثر و كل من يقرا هذا الكلام.