تقييم الموضوع :
  • 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 ك ب / التحميلات : 12)
الرد }}}}
تم الشكر بواسطة:
#10
قلت لك فيه مشكلة واظنها تخص الحماية اما تحديد الطلب او غيرها جرب خذ رابط صورة واسندها لمربع صورة عبر خاصية Load
يعني

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل فاتورة جديدة ahmedgamal 3 56 18-09-17, 06:23 AM
آخر رد: khodor1985
  [سؤال] ممكن رابط تحميل الفيجوال بيسك 2012 استوديو Mina Botros 5 181 13-07-17, 03:01 PM
آخر رد: Mina Botros
  [VB.NET] شنو الموقع هذا بية احد لو لا A-R 0 73 25-06-17, 07:49 PM
آخر رد: A-R
  مشكلة في تحميل فورم يحتوي على كريستال ريبورت تناسيم 1 135 12-06-17, 02:28 PM
آخر رد: Amir_alzubidy
  اريد رابط تحميل فيجوال بيسك 2015 كود برمجي 3 348 19-04-17, 07:10 PM
آخر رد: كود برمجي
  [VB.NET] عايز رابط تحميل فيجوال ستديو 2017 برابط واحد ويدعم الاستكمال اهم شئ تنصيب اوف لاين الماجيك مسعد 2 446 28-03-17, 05:47 PM
آخر رد: الماجيك مسعد
  تحميل الشاشة الرئيسية abdulla2 1 174 23-02-17, 06:47 PM
آخر رد: abdulla2
  مشكلة عند تحميل فورم تناسيم 1 174 06-02-17, 04:53 PM
آخر رد: ابو يوسف النواوي 2
  [VB.NET] إعادة تحميل داتاجريد tifagreet 6 387 27-01-17, 03:04 PM
آخر رد: tifagreet
  مشكلة في تحميل التقرير alwasela 0 219 25-12-16, 12:48 PM
آخر رد: alwasela

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


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