تقييم الموضوع :
  • 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("كامل رابط الصورة اللي بالموقع وشوف ايش اللي يصير"
وجرب اي صورة بالمنتدى وشوف
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: أسامة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند تحميل فورم تناسيم 1 36 06-02-17, 04:53 PM
آخر رد: ابو يوسف النواوي 2
  [VB.NET] إعادة تحميل داتاجريد tifagreet 6 110 27-01-17, 03:04 PM
آخر رد: tifagreet
  مشكلة في تحميل التقرير alwasela 0 77 25-12-16, 12:48 PM
آخر رد: alwasela
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 286 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  [سؤال] كيف يمكنني ايقاف صوت تحميل الصفحة في WebBrowser ali.alfoly 2 113 16-12-16, 06:34 PM
آخر رد: ali.alfoly
  خطا فى تحميل مبتدئه برمجه 2 99 11-12-16, 06:57 AM
آخر رد: amgad525
  [سؤال] حذف او تحميل ملف بمسار محدد Program KSA 3 202 10-11-16, 08:17 PM
آخر رد: أبو عمر
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 210 09-11-16, 12:32 PM
آخر رد: نوريس
  اريد مساعدة في التعامل مع هذا الموقع بالفيجوال بيسك soper 2 172 03-11-16, 07:08 PM
آخر رد: soper
  [سؤال] سؤال في كيفية تحميل ملف من رابط خارجي الى مسار محدد mohammad.anon 1 171 26-06-16, 08:35 PM
آخر رد: mohamed haroon

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


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