كيف يمكن تنزيل مجموعة صور مرفوعة على موقع http://downloadinfo.html-5.me/Profile/
هل يمكن الربط بى Prograssbar و معرفت كام عدد الصور التى تم تنزيلها و الباقى مثلآ 2of/80
04-07-16, 01:03 AM (آخر تعديل لهذه المشاركة : 04-07-16, 01:36 AM {2} بواسطة سعود.)
استغربت هذه الرسالة اتوقع تحتاج كود يفعل الجافاسكريبت لـ webclient.
الان توصلت لحل
لحظات
PHP كود :
Dim Str As String = "<a.*?href=""(.*?)"">" Dim reg As New Regex(Str, RegexOptions.IgnoreCase) For Each ma As Match In reg.Matches(wb.DocumentText) ListBox1.Items.Add(ma.Groups(1).Value) Next
كنت اريد استخدم الباكقراون ووركر لكن واجهت اشكال مع المستعرض webbrowser
wb = webbrowser
استغربت هذه الرسالة اتوقع تحتاج كود يفعل الجافاسكريبت لـ webclient.
الان توصلت لحل
لحظات
PHP كود :
Dim Str As String = "<a.*?href=""(.*?)"">" Dim reg As New Regex(Str, RegexOptions.IgnoreCase) For Each ma As Match In reg.Matches(wb.DocumentText) ListBox1.Items.Add(ma.Groups(1).Value) Next
كنت اريد استخدم الباكقراون ووركر لكن واجهت اشكال مع المستعرض webbrowser
wb = webbrowser
بحثت و جربت و لم اجد حل ايضآ هل المشكلة من الموقع ؟
Public Class Form1 Dim wb As WebBrowser Private Sub download_Click(sender As Object, e As EventArgs) Handles download.Click p.Maximum = ListBox1.Items.Count - 1 For a = 0 To ListBox1.Items.Count - 1 ListBox1.SetSelected(a, True)
Next End Sub
Private Sub ww(sender As Object, e As 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 Object, e As EventArgs) Handles MyBase.Load wb = New WebBrowser AddHandler wb.DocumentCompleted, AddressOf ww wb.Navigate(TextBox1.Text)
Public Class Form1 Dim wb As WebBrowser Private Sub download_Click(sender As Object, e As EventArgs) Handles download.Click p.Maximum = ListBox1.Items.Count - 1 For a = 0 To ListBox1.Items.Count - 1 ListBox1.SetSelected(a, True) p.Value = a Dim wc As New WebClient Try wc.DownloadFile("http://downloadinfo.html-5.me/Profile/" & ListBox1.Text, IO.Path.GetFileName(ListBox1.Text))
Catch ex As Exception
End Try
Next End Sub
Private Sub ww(sender As Object, e As 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 Object, e As EventArgs) Handles MyBase.Load wb = New WebBrowser AddHandler wb.DocumentCompleted, AddressOf ww wb.Navigate(TextBox1.Text)
Public Class Form1 Dim wb As WebBrowser Private Sub download_Click(sender As Object, e As EventArgs) Handles download.Click p.Maximum = ListBox1.Items.Count - 1 For a = 0 To ListBox1.Items.Count - 1 ListBox1.SetSelected(a, True)
Next End Sub
Private Sub ww(sender As Object, e As 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 Object, e As EventArgs) Handles MyBase.Load wb = New WebBrowser AddHandler wb.DocumentCompleted, AddressOf ww wb.Navigate(TextBox1.Text)
Public Class Form1 Dim wb As WebBrowser Private Sub download_Click(sender As Object, e As EventArgs) Handles download.Click p.Maximum = ListBox1.Items.Count - 1 For a = 0 To ListBox1.Items.Count - 1 ListBox1.SetSelected(a, True) p.Value = a Dim wc As New WebClient Try wc.DownloadFile("http://downloadinfo.html-5.me/Profile/" & ListBox1.Text, IO.Path.GetFileName(ListBox1.Text))
Catch ex As Exception
End Try
Next End Sub
Private Sub ww(sender As Object, e As 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 Object, e As EventArgs) Handles MyBase.Load wb = New WebBrowser AddHandler wb.DocumentCompleted, AddressOf ww wb.Navigate(TextBox1.Text)
End Sub
End Class
حملت كل الصور ومش شغالة
اذا كان يمككنا عرض الصورة http://downloadinfo.html-5.me/Profile/Th...n-icon.png ! كيف لم تعمل ! هل من ممكن ان تكون الصور او الصور تلفة عند تنزيلها !
وجدت المشكلة انه يحمل الصور بحجم 1kb يختلف عن حجم الصور لقد ارفقت الصور