Encontrar URLs en un richtextbox

Iniciado por Jubjub, 22 Marzo 2008, 16:19 PM

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario

Jubjub

22 Marzo 2008, 16:19 PM
Estoy haciendo un bot y necesitaria saber como puedo sacar las URLs de un Richtextbox y guardarlas en un txt, en distintas lineas.
Gracias!  ;)
Jugando con Fósforos,  hacking con un tono diferente


.
porno

Hadess_inf

#1
22 Marzo 2008, 16:27 PM
Te refieres a capturar las url que se escriben en un textbox. ??? Seria algo asi como en el chat, que cuando yo escribo www.google.com sabe que es una pagina web ¿ ?.(Perdonen la redundancia).

Haber si explicas mejor porque no entiendo.
Saludos

Sin Nick xD

#3
23 Marzo 2008, 06:26 AM
Yo lo intente con lincks y no pude XD pero con url's si, se me ocurio copiar el texto de el foco en el portapapeles y despues vaciarlo en el textbox despues de haverlo pasdo por un filtro (solo queria cierto tipo de urls)

ojala te sirva eso por que de momento no tengo el codigo y no lo recuerdo

salu2
Yo solo creería en un Dios que supiese bailar.

Hadess_inf

#4
23 Marzo 2008, 14:26 PM
Recorre todas las posiciones del control y almacenalos en una variable, si empieza a capturar una similitud con una web, pues esa es un url.

Jubjub

#5
23 Marzo 2008, 21:04 PM
Muchas gracias por las respuestas, a ver si lo consigo  :)
Jugando con Fósforos,  hacking con un tono diferente


.
porno

Jubjub

#6
24 Marzo 2008, 19:56 PM
Ya esta solucionado usando if. Muchas gracias por la ayuda!  :)


Código (vbnet) [Seleccionar]
        Text1.Select(ze, 1)
        ze = ze + 1
        cont = (Text1.SelectedText)
        If cont = "h" Then
            Text1.Select(ze, 1)
            ze = ze + 1
            cont = (Text1.SelectedText)
            If cont = "t" Then
                Text1.Select(ze, 1)
                ze = ze + 1
                cont = (Text1.SelectedText)
                If cont = "t" Then
                    Text1.Select(ze, 1)
                    ze = ze + 1
                    cont = (Text1.SelectedText)
                    If cont = "p" Then
                        Text1.Select(ze, 1)
                        ze = ze + 1
                        cont = (Text1.SelectedText)
                        If cont = ":" Then
                            Text1.Select(ze, 1)
                            ze = ze + 1
                            cont = (Text1.SelectedText)
                            If cont = "/" Then
                                Text1.Select(ze, 1)
                                ze = ze + 1
                                cont = (Text1.SelectedText)
                                If cont = "/" Then
                                    For i = 0 To 53
                                        Text1.Select(ze, 1)
                                        ze = ze + 1
                                        temp = (Text1.SelectedText)
                                        dir = dir + temp
                                        If i = 53 Then
                                            fox.Navigate(dir)
                                            dir = ""
                                            Timer1.Enabled = False
                                            Timer3.Enabled = True


                                        End If
                                    Next



                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
Jugando con Fósforos,  hacking con un tono diferente


.
porno
Imprimir
Ir Arriba Páginas1
Acciones del Usuario