Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

makingon

Navegador Automatico para PTC.

Recommended Posts

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.

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites
vasco16

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.