Navegador Automatico para PTC.

[makingon 0]

Boas Pessoal.

Gostaria de obter ajuda se possível em como criar uma aplicação que aceda a um site e que guarde os links contidos nesse site...

De momento consigo por o vb a fazer a leitura do source code do site em questão no entanto apesar de conseguir encontrar a unha os links que la estão, não estou a conseguir fazelo no vb.

Exemplo :

<script type="text/javascript" src="http://youtube.com"></script>

<script type="text/javascript" src="http://google.pt"></script>

<script type="text/javascript" src="http://pdclinks.net"></script>

Ou seja a app vai ao source code, procura por algo que comece por "http", detecta as "aspas" e copia o que esta entre elas...

Agradecia imenso uma ajuda.

Obrigado.

[jpaulino 97]

VB6 ou VB.NET?

Um exemplo de um site ajudava!

[makingon 0]

VB6 ou VB.NET?

Um exemplo de um site ajudava!

Isto é em vb 2008.

Mas se me poderes dizer como o faço em vb6 eu ca me arranjo depois...

Tens aqui aquilo que já fiz para poderes compreender melhor.

http://www.megaupload.com/?d=RN9UZ6Q2

o site que a app esta a navegar é o http://gagabux.com/ads.php.

Obrigado.

[jpaulino 97]

Tens aqui aquilo que já fiz para poderes compreender melhor.

http://www.megaupload.com/?d=RN9UZ6Q2

o site que a app esta a navegar é o http://gagabux.com/ads.php.

Pois, mas apenas mostraste o executável

Tens aqui um exemplo que mostra com usar um WebClient e o método IndexOfAny(), que pode ser feito de outras formas também, usando regex (por exemplo);

        Dim client As New Net.WebClient
        Dim source As String = client.DownloadString("http://gagabux.com/ads.php")

        Dim startText As String = "http://"
        Dim pos As Integer = source.IndexOf(startText)
        While pos <> -1
            Dim result As String = source.Substring(pos, source.IndexOfAny(New Char() {"""", "'", ")"}, pos + 1) - pos)
            Debug.WriteLine(result)
            pos = source.IndexOf(startText, pos + 1)
        End While

[makingon 0]

Boas ppl,

jpaulino o código bombou nas horas.

No Entanto existem algumas arestas a limar.

O problema neste momento é que ele me esta a ler cerca de 30 links, ou seja ele verifica bem no entanto não verifica no sitio certo.

Neste tipo de sites é suposto fazer um login no site e verificar os links que estão associados a minha conta que são cerca de 15/20 links.

ao fazer " Dim source As String = client.DownloadString("http://gagabux.com/ads.php")" aquilo que aparentemente ele faz é assumir o site como se eu n tivesse logado... é estranho...

Talvez uma forma de contornar a situação seria através da simulação do click não?

Eu tentei com "WebBrowser1.Navigate.Click("http://gagabux.com/ads.php")", mas não funciona...

Update de código :

Public Class Form1
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.All("l_username").InnerText = TxtUsername.Text
        WebBrowser1.Document.All("L_password").InnerText = TxtPassword.Text
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Abre o site no WebBrowser
        WebBrowser1.Navigate("http://gagabux.com/ads.php")
        'Procura Links
        Dim client As New Net.WebClient
        Dim source As String = client.DownloadString("http://gagabux.com/ads.php")
        Dim startText As String = "cks.php?k="
        Dim pos As Integer = source.IndexOf(startText)
        While pos <> -1
            Dim result As String = source.Substring(pos, source.IndexOfAny(New Char() {"""", "'", ")"}, pos + 1) - pos)
            Debug.WriteLine(result)
            ListBox1.Items.Add("http://gagabux.com/" & result)
            pos = source.IndexOf(startText, pos + 1)
        End While
        Label1.Text = "Found " & ListBox1.Items.Count & " links."
        Label1.Visible = True
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Navigate(ListBox1.Text)
    End Sub

End Class

Agradeço ajuda e comentarios.

[vasco16 0]

Também estou com esse problema.. já conseguis-te resolver? Do género apresentar só os links do login?