(04-07-16, 02:44 AM)سعود كتب : [ -> ]قلت لك فيه مشكلة واظنها تخص الحماية اما تحديد الطلب او غيرها جرب خذ رابط صورة واسندها لمربع صورة عبر خاصية Load
يعني
وجرب اي صورة بالمنتدى وشوفPHP كود :
pic.load("كامل رابط الصورة اللي بالموقع وشوف ايش اللي يصير")
__testPublic 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.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)
'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.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
' Dim d() As Byte = wc.DownloadData(ListBox1.SelectedItem)
' PictureBox1.Image = Image.FromStream(New IO.MemoryStream(TryCast(d, Array)))
'End Sub
End Class
(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.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)
'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.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
' Dim d() As Byte = wc.DownloadData(ListBox1.SelectedItem)
' PictureBox1.Image = Image.FromStream(New IO.MemoryStream(TryCast(d, Array)))
'End Sub
End Class
(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.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)
'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.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
' Dim d() As Byte = wc.DownloadData(ListBox1.SelectedItem)
' PictureBox1.Image = Image.FromStream(New IO.MemoryStream(TryCast(d, Array)))
'End Sub
End Class
(07-07-16, 12:46 AM)الوادي كتب : [ -> ]لاحظت أن Document.Cookie في وصفه
Gets or sets the HTTP cookies associated with this document
يعني ممكن تضع له set وتقرأ منه get
إلا إذا الموضوع ما تقصد مختلف!
<Runtime.InteropServices.DllImport("wininet.dll")> _
Public Shared Function InternetGetCookie(url As String, cookieName As String, cookieData As System.Text.StringBuilder, ByRef size As Integer) As Boolean
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim url As String = "http://******.com/"
InternetSetCookie(url, "Name", "Value")
WebBrowser1.Navigate(url)
End Sub
Dim url As String = "http://******.com/"
InternetSetCookie(url, "Name1", "Value1")
InternetSetCookie(url, "Name2", "Value2")
InternetSetCookie(url, "Name3", "Value3")
WebBrowser1.Navigate(url)
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