منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

حسنآ اخى دقيقة واحدة
تم اخى

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

---

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

---

كنت اريد استخدم الباكقراون ووركر لكن واجهت اشكال مع المستعرض 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)سعود كتب : [ -> ]الصور يتم سردها  لكن اظن فيه حماية عليها والله اعلم

لايوجد حماية

---

(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
يعني

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