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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حذف او تحميل ملف بمسار محدد Program KSA 3 115 10-11-16, 08:17 PM
آخر رد: أبو عمر
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 108 09-11-16, 12:32 PM
آخر رد: نوريس
  اريد مساعدة في التعامل مع هذا الموقع بالفيجوال بيسك soper 2 82 03-11-16, 07:08 PM
آخر رد: soper
  [سؤال] سؤال في كيفية تحميل ملف من رابط خارجي الى مسار محدد mohammad.anon 1 115 26-06-16, 08:35 PM
آخر رد: mohamed haroon
  ماهي فكرة جعل برنامجك يقبل التحديث وليس تحميل البرنامج من جديد honest 5 292 12-06-16, 11:44 PM
آخر رد: honest
  كيف تضيف ايقونه الموقع في tabcontrol nansy2016 5 198 26-05-16, 05:43 PM
آخر رد: الوادي
  [مشروع] عمل برنامج تحميل ملفات من الانترنت عبد الرحمن متولي 0 214 12-04-16, 05:35 PM
آخر رد: عبد الرحمن متولي
  لوحة تحكم الأدمن في الموقع الراجية عفو ربها 0 118 30-03-16, 05:06 PM
آخر رد: الراجية عفو ربها
  [VB.NET] اعادة تحميل dataset bumb 1 128 06-03-16, 12:22 PM
آخر رد: adel27
  اريد اظهار جز معين من الموقع داخل WeBrowsers demon 0 138 01-03-16, 12:06 PM
آخر رد: demon

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


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