[أسامة]

كيف يمكن تنزيل مجموعة صور مرفوعة على موقع   
http://downloadinfo.html-5.me/Profile/
هل يمكن الربط بى Prograssbar و معرفت كام عدد الصور التى تم تنزيلها و الباقى مثلآ 2of/80

[سعود]

طبعا يمكن ذلك خصوصا ان الصفحة التي كتبت رابطها سهلة للغاية...لو تزيد اليها الكثير من الصور لكي اجهز مثال على السريع.

[أسامة]

(04-07-16, 12:36 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, 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)سعود كتب : الصور يتم سردها  لكن اظن فيه حماية عليها والله اعلم

لايوجد حماية

[سعود]

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 


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

[أسامة]

(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 


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

اذا كان يمككنا  عرض الصورة http://downloadinfo.html-5.me/Profile/Th...n-icon.png ! كيف لم تعمل ! هل من ممكن ان تكون الصور او الصور تلفة عند تنزيلها !

---

وجدت المشكلة انه يحمل الصور بحجم 1kb يختلف عن حجم الصور لقد ارفقت الصور

[سعود]

قلت لك فيه مشكلة واظنها تخص الحماية اما تحديد الطلب او غيرها جرب خذ رابط صورة واسندها لمربع صورة عبر خاصية Load
يعني

PHP كود :

pic.load("كامل رابط الصورة اللي بالموقع وشوف ايش اللي يصير") 


وجرب اي صورة بالمنتدى وشوف