تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحميل فولد من على الموقع
#1
كيف يمكن تنزيل مجموعة صور مرفوعة على موقع   
http://downloadinfo.html-5.me/Profile/
هل يمكن الربط بى Prograssbar و معرفت كام عدد الصور التى تم تنزيلها و الباقى مثلآ 2of/80
الرد }}}
تم الشكر بواسطة:
#2
طبعا يمكن ذلك خصوصا ان الصفحة التي كتبت رابطها سهلة للغاية...لو تزيد اليها الكثير من الصور لكي اجهز مثال على السريع.
الرد }}}
تم الشكر بواسطة: أسامة , أسامة
#3
(04-07-16, 12:36 AM)سعود كتب : طبعا يمكن ذلك خصوصا ان الصفحة التي كتبت رابطها سهلة للغاية...لو تزيد اليها الكثير من الصور لكي اجهز مثال على السريع.

حسنآ اخى دقيقة واحدة
تم اخى
الرد }}}
تم الشكر بواسطة:
#4


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

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

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

كنت اريد استخدم الباكقراون ووركر لكن واجهت اشكال مع المستعرض webbrowser
wb = webbrowser
الرد }}}
تم الشكر بواسطة: أسامة
#5
(04-07-16, 01:03 AM)سعود كتب :

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

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

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

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

بحثت و جربت و لم اجد حل ايضآ هل المشكلة من الموقع ؟
الرد }}}
تم الشكر بواسطة:
#6
الصور يتم سردها لكن اظن فيه حماية عليها والله اعلم
الرد }}}
تم الشكر بواسطة:
#7
(04-07-16, 02:06 AM)سعود كتب : الصور يتم سردها  لكن اظن فيه حماية عليها والله اعلم

لايوجد حماية
الرد }}}
تم الشكر بواسطة:
#8
PHP كود :
Imports System.IO
Imports System
.Net
Imports System
.Text.RegularExpressions

Public Class Form1
    Dim wb 
As WebBrowser
    Private Sub download_Click
(sender As ObjectAs EventArgsHandles download.Click
        p
.Maximum ListBox1.Items.Count 1
        For a 
0 To ListBox1.Items.Count 1
            ListBox1
.SetSelected(aTrue)

 
       Next
    End Sub


    Private Sub ww
(sender As ObjectAs 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 ObjectAs EventArgsHandles MyBase.Load
        wb 
= New WebBrowser
        AddHandler wb
.DocumentCompletedAddressOf 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 ObjectAs EventArgsHandles download.Click
        p
.Maximum ListBox1.Items.Count 1
        For a 
0 To ListBox1.Items.Count 1
            ListBox1
.SetSelected(aTrue)
 
           p.Value a
            Dim wc 
As New WebClient
            Try
                wc
.DownloadFile("http://downloadinfo.html-5.me/Profile/" ListBox1.TextIO.Path.GetFileName(ListBox1.Text))

 
           Catch ex As Exception

            End 
Try

 
       Next
    End Sub


    Private Sub ww
(sender As ObjectAs 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 ObjectAs EventArgsHandles MyBase.Load
        wb 
= New WebBrowser
        AddHandler wb
.DocumentCompletedAddressOf ww
        wb
.Navigate(TextBox1.Text)

 
   End Sub


End 
Class 
حملت كل الصور ومش شغالة
الرد }}}
تم الشكر بواسطة:
#9
(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 ObjectAs EventArgsHandles download.Click
        p
.Maximum ListBox1.Items.Count 1
        For a 
0 To ListBox1.Items.Count 1
            ListBox1
.SetSelected(aTrue)

 
       Next
    End Sub


    Private Sub ww
(sender As ObjectAs 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 ObjectAs EventArgsHandles MyBase.Load
        wb 
= New WebBrowser
        AddHandler wb
.DocumentCompletedAddressOf 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 ObjectAs EventArgsHandles download.Click
        p
.Maximum ListBox1.Items.Count 1
        For a 
0 To ListBox1.Items.Count 1
            ListBox1
.SetSelected(aTrue)
 
           p.Value a
            Dim wc 
As New WebClient
            Try
                wc
.DownloadFile("http://downloadinfo.html-5.me/Profile/" ListBox1.TextIO.Path.GetFileName(ListBox1.Text))

 
           Catch ex As Exception

            End 
Try

 
       Next
    End Sub


    Private Sub ww
(sender As ObjectAs 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 ObjectAs EventArgsHandles MyBase.Load
        wb 
= New WebBrowser
        AddHandler wb
.DocumentCompletedAddressOf ww
        wb
.Navigate(TextBox1.Text)

 
   End Sub


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

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


الملفات المرفقة
.rar   profile.rar (الحجم : 352.64 ك ب / التحميلات : 27)
الرد }}}
تم الشكر بواسطة:
#10
قلت لك فيه مشكلة واظنها تخص الحماية اما تحديد الطلب او غيرها جرب خذ رابط صورة واسندها لمربع صورة عبر خاصية Load
يعني

PHP كود :
pic.load("كامل رابط الصورة اللي بالموقع وشوف ايش اللي يصير"
وجرب اي صورة بالمنتدى وشوف
الرد }}}
تم الشكر بواسطة: أسامة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1
Photo [سؤال] ظور رسالة خطأ عند تحميل قاعدة بيانات تحتوي على صور أبو خالد الشكري 4 396 11-09-23, 09:51 PM
آخر رد: أبو خالد الشكري
  يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات new_programer 6 755 11-06-23, 06:47 PM
آخر رد: new_programer
  خطأ في تحميل البيانات من الداتا جريد الي ليست فيو Emam emam 2 512 11-04-23, 01:13 AM
آخر رد: Emam emam
Exclamation [سؤال] اريد تحميل فيجوال بيسك 2010 وعمل قواعد بيانات داخله لكن عند تنصيبه تظهر رساله؟؟؟؟؟ Tame 0 344 22-03-23, 01:41 AM
آخر رد: Tame
  كود تحديد الموقع حماده ممدوح البحيرى 2 382 21-12-22, 10:13 AM
آخر رد: حماده ممدوح البحيرى
  كيفية استخراج كود من الموقع عن طريق vb.net crazykinko 2 529 06-12-22, 05:42 PM
آخر رد: crazykinko
  [VB.NET] مشكلة عند تحميل البيانات داخل الكمبوبوكس ل combobox MahmoudZabady 0 563 12-09-22, 05:12 PM
آخر رد: MahmoudZabady

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


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