(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