makingon 0 Denunciar mensagem Publicado 27 de Maio de 2010 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 97 Denunciar mensagem Publicado 28 de Maio de 2010 VB6 ou VB.NET? Um exemplo de um site ajudava! Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
makingon 0 Denunciar mensagem Publicado 28 de Maio de 2010 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. Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
jpaulino 97 Denunciar mensagem Publicado 29 de Maio de 2010 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 Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
makingon 0 Denunciar mensagem Publicado 31 de Maio de 2010 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. Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
vasco16 0 Denunciar mensagem Publicado 18 de Outubro de 2010 Também estou com esse problema.. já conseguis-te resolver? Do género apresentar só os links do login? Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites