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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد رابط تحميل فيجوال بيسك 2015 كود برمجي 3 204 19-04-17, 07:10 PM
آخر رد: كود برمجي
  [VB.NET] عايز رابط تحميل فيجوال ستديو 2017 برابط واحد ويدعم الاستكمال اهم شئ تنصيب اوف لاين الماجيك مسعد 2 203 28-03-17, 05:47 PM
آخر رد: الماجيك مسعد
  تحميل الشاشة الرئيسية abdulla2 1 100 23-02-17, 06:47 PM
آخر رد: abdulla2
  مشكلة عند تحميل فورم تناسيم 1 97 06-02-17, 04:53 PM
آخر رد: ابو يوسف النواوي 2
  [VB.NET] إعادة تحميل داتاجريد tifagreet 6 263 27-01-17, 03:04 PM
آخر رد: tifagreet
  مشكلة في تحميل التقرير alwasela 0 141 25-12-16, 12:48 PM
آخر رد: alwasela
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 451 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  [سؤال] كيف يمكنني ايقاف صوت تحميل الصفحة في WebBrowser ali.alfoly 2 201 16-12-16, 06:34 PM
آخر رد: ali.alfoly
  خطا فى تحميل مبتدئه برمجه 2 150 11-12-16, 06:57 AM
آخر رد: amgad525
  [سؤال] حذف او تحميل ملف بمسار محدد Program KSA 3 284 10-11-16, 08:17 PM
آخر رد: أبو عمر

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


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