(04-07-16, 12:36 AM)سعود كتب : طبعا يمكن ذلك خصوصا ان الصفحة التي كتبت رابطها سهلة للغاية...لو تزيد اليها الكثير من الصور لكي اجهز مثال على السريع.

(04-07-16, 01:03 AM)سعود كتب :

استغربت هذه الرسالة اتوقع تحتاج كود يفعل الجافاسكريبت لـ webclient.

---

الان توصلت لحل
لحظات

---

PHP كود :

       Dim Str As String = "<a.*?href=""(.*?)"">"
        Dim reg As New Regex(Str, RegexOptions.IgnoreCase)
        For Each ma As Match In reg.Matches(wb.DocumentText)
            ListBox1.Items.Add(ma.Groups(1).Value)
        Next 


كنت اريد استخدم الباكقراون ووركر لكن واجهت اشكال مع المستعرض webbrowser
wb = webbrowser

(04-07-16, 02:06 AM)سعود كتب : الصور يتم سردها  لكن اظن فيه حماية عليها والله اعلم

(04-07-16, 02:08 AM)سعود كتب :

PHP كود :

Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1
    Dim wb As WebBrowser
    Private Sub download_Click(sender As Object, e As EventArgs) Handles download.Click
        p.Maximum = ListBox1.Items.Count - 1
        For a = 0 To ListBox1.Items.Count - 1
            ListBox1.SetSelected(a, True)

        Next
    End Sub


    Private Sub ww(sender As Object, e As EventArgs)
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(wb.DocumentText)
        p.Maximum = doc.DocumentNode.SelectNodes("//a[@href]").Count
        For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//a[@href]")
            l.Text = nod.Attributes("href").Value
            ListBox1.Items.Add(nod.Attributes("href").Value)
            p.Value += 1
        Next

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        wb = New WebBrowser
        AddHandler wb.DocumentCompleted, AddressOf ww
        wb.Navigate(TextBox1.Text)

    End Sub


End Class 


---

PHP كود :

Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1
    Dim wb As WebBrowser
    Private Sub download_Click(sender As Object, e As EventArgs) Handles download.Click
        p.Maximum = ListBox1.Items.Count - 1
        For a = 0 To ListBox1.Items.Count - 1
            ListBox1.SetSelected(a, True)
            p.Value = a
            Dim wc As New WebClient
            Try
                wc.DownloadFile("http://downloadinfo.html-5.me/Profile/" & ListBox1.Text, IO.Path.GetFileName(ListBox1.Text))

            Catch ex As Exception

            End Try

        Next
    End Sub


    Private Sub ww(sender As Object, e As EventArgs)
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(wb.DocumentText)
        p.Maximum = doc.DocumentNode.SelectNodes("//a[@href]").Count
        For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//a[@href]")
            l.Text = nod.Attributes("href").Value
            ListBox1.Items.Add(nod.Attributes("href").Value)
            p.Value += 1
        Next

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        wb = New WebBrowser
        AddHandler wb.DocumentCompleted, AddressOf ww
        wb.Navigate(TextBox1.Text)

    End Sub


End Class 


حملت كل الصور ومش شغالة