منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(20-10-17, 07:44 PM)a.ahmed كتب : [ -> ]

PHP كود :

Dim h As String = New Net.WebClient().DownloadString("http://saaid.net/gesah/410.htm")
Dim s As String = System.Text.RegularExpressions.Regex.Match(h, "(<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""7"">).+?(</table>)", System.Text.RegularExpressions.RegexOptions.Singleline).Value
Me.WebBrowser1.DocumentText = s 


جزاك الله خيرا اخى الكريم احمد...
حضرتك انا الان بجلب صفحات الموقع كلها داخل المشروع
وحضرتك حلتها بالفعل ماشاء الله عليك  لكن على صفحة واحدة فقط وانا بجلب الصفحات داخل ليست بوكس
وعاوز لما اضغط على اسم اى موقع فى الليست بوكس يتم حل حضرتك بعرض جزء من الصفحة
داخل الويب براوزر ولو لم تفهمنى فهذا هو المشروع

(20-10-17, 09:37 PM)a.ahmed كتب : [ -> ]Remove WebBrowser1
Remove ListBox2
Remove Button1
Remove Label1

PHP كود :

Public Class Form1

    Dim dic As New Dictionary(Of String, String)

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim h As String = New Net.WebClient().DownloadString(dic(sender.text))
        Dim s As String = System.Text.RegularExpressions.Regex.Match(h, "(<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""\d+"">).+?(</table>)", System.Text.RegularExpressions.RegexOptions.Singleline).Value
        Me.WebBrowser2.DocumentText = s
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim h As String = New Net.WebClient().DownloadString("http://www.saaid.net/mohamed/m.htm")
        Dim matches As System.Text.RegularExpressions.MatchCollection = System.Text.RegularExpressions.Regex.Matches(h, "<font size=""\d+""><a href=""\d+.htm""><font color="".+"">.+[\r\n]?.+</font></a></font></td>")
        For Each m As System.Text.RegularExpressions.Match In matches
            Dim v As String = m.Value.Replace(vbNewLine, " ")
            Dim l As String = "http://www.saaid.net/mohamed/" & System.Text.RegularExpressions.Regex.Match(v, "(?<=<font size=""4""><a href="")\d+\.htm?(?="">)").Value
            Dim t As String = Net.WebUtility.HtmlDecode(System.Text.RegularExpressions.Regex.Replace(v, "<.*?>", ""))
            dic.Add(t, l)
            ListBox1.Items.Add(t)
        Next
    End Sub

End Class 


Remove WebBrowser1
Remove ListBox2
Remove Button1
Remove Label1


    Updated