تقييم الموضوع :
  • 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 الفورم يعمل لاكن الصور لا تعمل !
الرد
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الموقع لا بفتح علي خط تليفوني معين ويفتح مع خط اخر atefkhalf2004 3 56 أمس, 08:57 PM
آخر رد: wared
  [VB.NET] تحميل الصور الى فولدر على السيرفر khairallah 10 234 15-06-19, 11:33 PM
آخر رد: elgokr
  تحميل صفحة انترنت بدون الويب براوزر ابو روضة 0 89 05-05-19, 06:04 PM
آخر رد: ابو روضة
Rainbow [VB.NET] [تم الحل] عدم تنفيذ امر الا عند تحميل الصفحة DK-x 4 142 11-04-19, 11:23 PM
آخر رد: elgokr
  أريد تحميل مكتبة أكواد للفجيول ستوديو 2010 PeterGhattas082460 5 197 10-04-19, 11:58 AM
آخر رد: elgokr
  كيف يمكن تحميل فريمورك اوتوماتيكيا في الفجوال ستوديو 2015 larbihamri 3 163 09-04-19, 02:10 AM
آخر رد: elgokr
  هل يُمكن إدراج شاشة تحميل تتزامن مع استكمال ظهور جميع أدوات المشروع؟ Hazem1 11 615 23-01-19, 02:54 PM
آخر رد: elgokr
  تشغيل progress bar مع تحميل الداتا Abou Eman 8 502 22-01-19, 03:22 PM
آخر رد: Abou Eman
  تحميل مكتبة ال.... معاذ_ابراهيم 2 282 08-12-18, 04:53 PM
آخر رد: معاذ_ابراهيم
  جلب رابط من الموقع bidaya 5 337 05-12-18, 08:10 PM
آخر رد: bidaya

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


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