(06-11-18, 09:38 PM)rmnr كتب : فقط لأسهل عليك العملية

هذا الكود يعطيك عدد الصفحات لموضوع ما،
ويعطيك أيضاً رابط كل صفحة

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

   Dim url As String = "http://vb4arb.com/vb/showthread.php?tid=4271"
   Dim wc As New WebClient With {.Encoding = Encoding.UTF8}
   Dim html As String = wc.DownloadString(url)

   Dim pagesCount As Integer = Val(Regex.Match(html, "<span\sclass=""pages"">الصفحات\s\((.+?)\).+?</span>").Groups(1).Value)
   If pagesCount = 0 Then pagesCount = 1

   MsgBox("عدد الصفحات: " & pagesCount)

   For pn = 1 To pagesCount ' لاحظ بدأ بالرقم واحد وليس صفر
       Dim pagelink As String = url & "&page=" & pn
       MsgBox("رابط الصفحة رقم: " & pn & vbNewLine & pagelink)
   Next

End Sub

(06-11-18, 09:39 PM)dasktop كتب : تفضل عملت لك مشروع مفتوح للفكره مع الاكواد بسيطه

https://www.upload.ee/download/9160206/9f717b2b1fa614686b46/_____________.zip