Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

makingon

Navegador Automatico para PTC.

Mensagens Recomendadas

makingon

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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
jpaulino

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 :D

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
makingon

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

acgagabux.png

Agradeço ajuda e comentarios.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.