تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحميل فولد من على الموقع
#11
(04-07-16, 02:44 AM)سعود كتب : قلت لك فيه مشكلة واظنها تخص الحماية اما تحديد الطلب او غيرها جرب خذ رابط صورة واسندها لمربع صورة عبر خاصية Load
يعني

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

جزاك الله خير شكرآ على مساعدتك اخى سوف احاول ان اشوف الحماية من CP
تم الحل بتغير host الى host جديد بحمد الله شكرآ اخى سعود وجزاك الله الف خير و عافية
الرد
تم الشكر بواسطة:
#12
يا سعود

المشكلة تكمن في كوكيز تتغير قيمته من الصفحة الأولى بواسطة جافاسكريبت واسمه
كود :
__test
الرد
تم الشكر بواسطة: أسامة
#13
تم استغلال أداة WebBrowser لجلب الكوكيز

جرب هذه الطريقة لحفظ جميع الصور png في مجلد Images بجوار ملف التشغيل، عند التشغيل انتظر حتى تظهر رسالة تفيد بالانتهاء
PHP كود :
Public Class Form1

    Dim wb 
As New WebBrowser With {.ScriptErrorsSuppressed False}
    
Dim wc As New Net.WebClient()
    Private 
url As String "http://downloadinfo.html-5.me/Profile/"
    
Private htmlSource As String
    
Private cookie As String

    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Button1
.Enabled False
        wb
.Navigate(url)
        
AddHandler wb.DocumentCompletedAddressOf wb_DocumentCompleted
    End Sub

    
Private Sub wb_DocumentCompleted(sender As System.ObjectAs System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        
cookie sender.Document.Cookie
        wc
.Headers.Add(Net.HttpRequestHeader.Cookiecookie)
        
htmlSource wc.DownloadString(url)

        
Dim Matches As System.Text.RegularExpressions.MatchCollection System.Text.RegularExpressions.Regex.Matches(htmlSource"(?<=href="").+?(?="")")

        If 
Not IO.Directory.Exists("Images"Then IO.Directory.CreateDirectory("Images")

        For 
Each s As System.Text.RegularExpressions.Match In Matches
            
If s.Value.EndsWith(".png"Then
                Dim filename 
As String = If(s.Value.StartsWith("http"), s.Valueurl s.Value)

                
'Me.ListBox1.Items.Add(filename)

                Dim d() As Byte = wc.DownloadData(filename)
                Image.FromStream(New IO.MemoryStream(TryCast(d, Array))).Save("Images\" & IO.Path.GetFileName(filename))

            End If
        Next
        Button1.Enabled = True
        MsgBox("تم حفظ الصور")
    End Sub

    '
Private Sub ListBox1_SelectedIndexChanged(sender As System.ObjectAs System.EventArgsHandles ListBox1.SelectedIndexChanged
    
'    Dim d() As Byte = wc.DownloadData(ListBox1.SelectedItem)
    '    
PictureBox1.Image Image.FromStream(New IO.MemoryStream(TryCast(d, Array)))
    
'End Sub

End Class 
الرد
تم الشكر بواسطة: سعود , أسامة
#14
(04-07-16, 12:51 PM)الوادي كتب : تم استغلال أداة WebBrowser لجلب الكوكيز

جرب هذه الطريقة لحفظ جميع الصور png في مجلد Images بجوار ملف التشغيل، عند التشغيل انتظر حتى تظهر رسالة تفيد بالانتهاء
PHP كود :
Public Class Form1

    Dim wb 
As New WebBrowser With {.ScriptErrorsSuppressed False}
 
   Dim wc As New Net.WebClient()
 
   Private url As String "http://downloadinfo.html-5.me/Profile/"
 
   Private htmlSource As String
    Private cookie 
As String

    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Button1
.Enabled False
        wb
.Navigate(url)
 
       AddHandler wb.DocumentCompletedAddressOf wb_DocumentCompleted
    End Sub

    Private Sub wb_DocumentCompleted
(sender As System.ObjectAs System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
 
       cookie sender.Document.Cookie
        wc
.Headers.Add(Net.HttpRequestHeader.Cookiecookie)
 
       htmlSource wc.DownloadString(url)

 
       Dim Matches As System.Text.RegularExpressions.MatchCollection System.Text.RegularExpressions.Regex.Matches(htmlSource"(?<=href="").+?(?="")")

 
       If Not IO.Directory.Exists("Images"Then IO.Directory.CreateDirectory("Images")

 
       For Each s As System.Text.RegularExpressions.Match In Matches
            If s
.Value.EndsWith(".png"Then
                Dim filename 
As String = If(s.Value.StartsWith("http"), s.Valueurl s.Value)

 
               'Me.ListBox1.Items.Add(filename)

                Dim d() As Byte = wc.DownloadData(filename)
                Image.FromStream(New IO.MemoryStream(TryCast(d, Array))).Save("Images\" & IO.Path.GetFileName(filename))

            End If
        Next
        Button1.Enabled = True
        MsgBox("تم حفظ الصور")
    End Sub

    '
Private Sub ListBox1_SelectedIndexChanged(sender As System.ObjectAs System.EventArgsHandles ListBox1.SelectedIndexChanged
    
'    Dim d() As Byte = wc.DownloadData(ListBox1.SelectedItem)
    ' 
   PictureBox1.Image Image.FromStream(New IO.MemoryStream(TryCast(d, Array)))
 
   'End Sub

End Class 

جزاك الله خير شكرآ اخى
الرد
تم الشكر بواسطة:
#15
(04-07-16, 12:51 PM)الوادي كتب : تم استغلال أداة WebBrowser لجلب الكوكيز

جرب هذه الطريقة لحفظ جميع الصور png في مجلد Images بجوار ملف التشغيل، عند التشغيل انتظر حتى تظهر رسالة تفيد بالانتهاء
PHP كود :
Public Class Form1

    Dim wb 
As New WebBrowser With {.ScriptErrorsSuppressed False}
 
   Dim wc As New Net.WebClient()
 
   Private url As String "http://downloadinfo.html-5.me/Profile/"
 
   Private htmlSource As String
    Private cookie 
As String

    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Button1
.Enabled False
        wb
.Navigate(url)
 
       AddHandler wb.DocumentCompletedAddressOf wb_DocumentCompleted
    End Sub

    Private Sub wb_DocumentCompleted
(sender As System.ObjectAs System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
 
       cookie sender.Document.Cookie
        wc
.Headers.Add(Net.HttpRequestHeader.Cookiecookie)
 
       htmlSource wc.DownloadString(url)

 
       Dim Matches As System.Text.RegularExpressions.MatchCollection System.Text.RegularExpressions.Regex.Matches(htmlSource"(?<=href="").+?(?="")")

 
       If Not IO.Directory.Exists("Images"Then IO.Directory.CreateDirectory("Images")

 
       For Each s As System.Text.RegularExpressions.Match In Matches
            If s
.Value.EndsWith(".png"Then
                Dim filename 
As String = If(s.Value.StartsWith("http"), s.Valueurl s.Value)

 
               'Me.ListBox1.Items.Add(filename)

                Dim d() As Byte = wc.DownloadData(filename)
                Image.FromStream(New IO.MemoryStream(TryCast(d, Array))).Save("Images\" & IO.Path.GetFileName(filename))

            End If
        Next
        Button1.Enabled = True
        MsgBox("تم حفظ الصور")
    End Sub

    '
Private Sub ListBox1_SelectedIndexChanged(sender As System.ObjectAs System.EventArgsHandles ListBox1.SelectedIndexChanged
    
'    Dim d() As Byte = wc.DownloadData(ListBox1.SelectedItem)
    ' 
   PictureBox1.Image Image.FromStream(New IO.MemoryStream(TryCast(d, Array)))
 
   'End Sub

End Class 

اخي الكريم "الوادي"
كيف نضبط الكوكيز لاداة webbrowser control
الرد
تم الشكر بواسطة: أسامة , أسامة
#16
لاحظت أن Document.Cookie في وصفه
Gets or sets the HTTP cookies associated with this document

يعني ممكن تضع له set وتقرأ منه get

إلا إذا الموضوع ما تقصد مختلف!
الرد
تم الشكر بواسطة: أسامة
#17
(07-07-16, 12:46 AM)الوادي كتب : لاحظت أن Document.Cookie في وصفه
Gets or sets the HTTP cookies associated with this document

يعني ممكن تضع له set وتقرأ منه get

إلا إذا الموضوع ما تقصد مختلف!

حاولت لكن لو اسند بيانات الكوكيز لـ wb.Document.Cookie  تظهر رسالة خطا
لم يتم تعيين مرجع كائن لمثيل كائن.

https://social.msdn.microsoft.com/Forums...msdesigner

لا ادري ماذا اعدل بالكود الموجود بالرابط بعد تحويله الى vb
الرد
تم الشكر بواسطة:
#18
يا سعود،

حاولت تعيين كوكيز عن طريق wb.Document.Cookie ما قدرت،

لكن عن طريق الكود اللي في الرابط اللي منك قدرت،

يقوم بتعيين كوكيز عن طريق InternetSetCookie الخاصة ب WinINet API والظاهر أن InternetExplorer يعتمد عليها أو ليها علاقة، وطبعا أداة WebBrowser تعتمد على InternetExplorer

هذا الكود
PHP كود :
<Runtime.InteropServices.DllImport("wininet.dll")> _
Public Shared Function InternetGetCookie(url As StringcookieName As StringcookieData As System.Text.StringBuilderByRef size As Integer) As Boolean
End 
Function

Private 
Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
    Dim url 
As String "http://******.com/"
 
   InternetSetCookie(url"Name""Value")
 
   WebBrowser1.Navigate(url)
End Sub 

وإذا كان هناك أكثر من كوكيز تريد تعيينه قبل فتح الصفحة فقط كرر سطر InternetSetCookie مثل
PHP كود :
   Dim url As String "http://******.com/"
InternetSetCookie(url"Name1""Value1")
InternetSetCookie(url"Name2""Value2")
InternetSetCookie(url"Name3""Value3")
WebBrowser1.Navigate(url

لاحظ لابد من تطابق الرابط في InternetSetCookie وNavigate عشان كذا وضعته في متغير من البداية عشان ما تسير لخبطة
الرد
تم الشكر بواسطة: سعود , أسامة
#19
الجزئية اللي فرقت معي هي تكرار الاسناد لبيانات الكوكيز هي اللي احدثت فرق.
بارك الله فيك
الرد
تم الشكر بواسطة: الوادي , أسامة
#20
عندى مشكلة صغيره مشكلة تعليق الفورم اثناء التحميل عدلت على الكود لاستخدام  Events و محاولة التخلص من التعليق لاكن لم ينجح الامر

كود :
 Dim wb As New WebBrowser With {.ScriptErrorsSuppressed = False}
   Dim WithEvents wc As New Net.WebClient()
   Private url As String = "http://downloadinfo.html-5.me/Profile/"
   Private htmlSource As String
   Private cookie As String

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Button1.Enabled = False
       wb.Navigate(url)
       AddHandler wb.DocumentCompleted, AddressOf wb_DocumentCompleted
   End Sub
   Private Sub wb_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
       cookie = sender.Document.Cookie
       wc.Headers.Add(Net.HttpRequestHeader.Cookie, cookie)
       htmlSource = wc.DownloadString(url)
       Dim Matches As System.Text.RegularExpressions.MatchCollection = System.Text.RegularExpressions.Regex.Matches(htmlSource, "(?<=href="").+?(?="")")

       If Not IO.Directory.Exists("Images") Then IO.Directory.CreateDirectory("Images")

       For Each s As System.Text.RegularExpressions.Match In Matches

           If s.Value.EndsWith(".png") Then
               Dim filename As String = If(s.Value.StartsWith("http"), s.Value, url & s.Value)
               Dim d() As Byte = wc.DownloadData(filename)
               Image.FromStream(New IO.MemoryStream(TryCast(d, Array))).Save("Images\" & IO.Path.GetFileName(filename))
           End If
       Next
   End Sub

   Private Sub wc_downlooadprogresschange(sender As Object, e As DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
       ProgressBar1.Value = e.ProgressPercentage
   End Sub

   Private Sub wc_DownloadDataCompleted(sender As Object, e As DownloadDataCompletedEventArgs) Handles wc.DownloadDataCompleted
       MsgBox("تم الحفظ")
       Button1.Enabled = True
   End Sub
lمع العلم اذا استخدمة client.DownloadFileAsync الفورم يعمل لاكن الصور لا تعمل !
الرد
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل فجوال ستوديو 2019 dr.programming 5 144 20-02-20, 08:11 PM
آخر رد: اسامه الهرماوي
Smile [VB.NET] مساعدة في مايخص برنامج تحميل من يوتيوب Bahi007 1 61 18-02-20, 05:47 PM
آخر رد: اسامه الهرماوي
  تحميل من رابط معين alshandodi 1 117 10-02-20, 05:00 AM
آخر رد: alshandodi
  [سؤال] طريقة سحاب النصوص من كمبوبوكس دخل الموقع Ali Edal 6 302 03-02-20, 09:42 PM
آخر رد: alsalamoni
  ارجو المساعدة من خبراء الموقع احمد زيدان 2 176 13-01-20, 05:40 PM
آخر رد: احمد زيدان
Sad [سؤال] رابط تحميل Crystal Reports nagm 5 241 19-12-19, 04:21 AM
آخر رد: محمد كريّم
  لو سمحتم كود تحميل بيانات سجل الى ريتش تكست samira20 2 189 15-12-19, 07:46 PM
آخر رد: samira20
  [VB.NET] ممكن لينك تحميل فيجوال بيسك 2015 bakriano30@yahoo.com 10 860 12-12-19, 09:08 PM
آخر رد: امانى السيد
  [سؤال] ممكن حل الله يكرمكم لهذا الموقع ابو روضة 10 1,008 30-11-19, 07:21 AM
آخر رد: ابو روضة
Exclamation [VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل SnTnt 2 238 15-11-19, 06:33 PM
آخر رد: SnTnt

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


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