Foro de elhacker.net

        Dim url As String = String.Empty

        url = txtWeb.Text

        If url = String.Empty Then

            MessageBox.Show("Enter url")

        Else

            Try

                Dim pagesource As String = getHtml(url)

                txtShow.Text = pagesource

            Catch ex As Exception

                MessageBox.Show("Error In retreiving code")

            End Try

        End If


        Call FindWord()

   Private Sub Findword()

        Dim posicionStart As Long
        Dim URLExtractionTemp As String


        Dim Numerico As Boolean
        Dim Position As Long
        Dim CountWordfound As Integer
        txtBusca.Text = "name="

        Position = 0
        posicionStart = 1
        CountWordfound = 0
        Try


            Do While Numerico = False
                If posicionStart = 0 Then
                    'Position += 1
                Else
                    Position = posicionStart + 1
                End If
                posicionStart = InStr(CInt(Position), txtShow.Text, txtBusca.Text)
                'If posicionStart = 0 Then Exit Sub

                URLExtractionTemp = Mid(txtShow.Text, posicionStart + 6, 6)
                CountWordfound += 1
                If IsNumeric(URLExtractionTemp) Then
                    Numerico = True
                Else
                    'posicionStart += 1
                End If
            Loop

        Catch ex As Exception

        End Try
    End Sub

   Private Function getHtml(ByVal url As String) As String

        Dim myWebRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)

        myWebRequest.Method = "GET"

        ' make request for web page

        Dim myWebResponse As HttpWebResponse = DirectCast(myWebRequest.GetResponse(), HttpWebResponse)

        Dim myWebSource As New StreamReader(myWebResponse.GetResponseStream())

        Dim myPageSource As String = String.Empty

        myPageSource = myWebSource.ReadToEnd()

        myWebResponse.Close()

        Return myPageSource

    End Function