[m.sami.ak]

بسم الله الرحمن الرحيم

تفضلي ست فاتن الحل مرفق

PHP كود :

Imports System
Imports System.IO
Imports System.Data
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim href As String
        Dim links As New Collection
        Dim NumPage As New ArrayList()
        Dim cunter = 0


        Wb.Navigate(TextBox2.Text & "&pp=200&sort=lastpost&order=desc")
        Do Until Wb.ReadyState = WebBrowserReadyState.Complete
            My.Application.DoEvents()
        Loop


        For Each link As HtmlElement In Wb.Document.Links
            href = link.GetAttribute("href")

            If href.Contains("&pp=200&sort=lastpost&order=desc&page") Then



                Dim spliter() As String
                spliter = href.Split("=")

                NumPage.Insert(cunter, spliter(spliter.Length - 1))
                cunter += 1



            End If

        Next
       

        Dim str = (NumPage.Item(NumPage.Count - 1))    'Microsoft.VisualBasic.Right(NumPage.Item(NumPage.Count - 1), 1) 


        Dim strArr() As String
        strArr = str.Split("=")

        Dim xx = (strArr(strArr.Length - 1))



        For i As Integer = 1 To xx
            Me.TextBox1.Text &= TextBox2.Text & "&pp=200&sort=lastpost&order=desc&page=" & i & vbNewLine


        Next
    End Sub


    Public Function GetMaxValue(ByVal itemList As ArrayList)

        Dim max As Integer = Nothing

        For i As Integer = 0 To (itemList.Count - 1)
            If i = 0 Then
                max = itemList(i)
            Else
                If itemList(i) > max Then max = itemList(i)
            End If
        Next

        GetMaxValue = max

    End Function

End Class 


تحياتــــي للجميع
ابــــو ســـــامــــي