Test Foro de elhacker.net SMF 2.1

Estoy haciendo un bot y necesitaria saber como puedo sacar las URLs de un Richtextbox y guardarlas en un txt, en distintas lineas.
Gracias!  ;)

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

Hay un rich textbox con texto, y dispersas por el texto hay URLs, lo que quiero hacer es sacar esas URLs u guardarlas en un txt.

Texto inicial:

Citar
(PTP)payingcash-bosman

http://et-mails.com/scripts/runner.php?EA=200801259879518636


(PTP)xray-cash-netpig

http://et-mails.com/scripts/runner.php?EA=200365251339518636


(PTP)aceptr-ivymails

http://et-mails.com/scripts/runner.php?EA=208801251789518636


(PTP)xray-cashs-redrose

http://et-mails.com/scripts/runner.php?EA=200801259845518636


(PTP)xray-cash-bosman

http://et-mails.com/scripts/runner.php?EA=200133978980125636


(PTP)cosplaymails-cccfl

http://et-mails.com/scripts/runner.php?EA=208703395125118636

Txt final

Citar
http://et-mails.com/scripts/runner.php?EA=200801259879518636
http://et-mails.com/scripts/runner.php?EA=200365251339518636
http://et-mails.com/scripts/runner.php?EA=208801251789518636
http://et-mails.com/scripts/runner.php?EA=200801259845518636
http://et-mails.com/scripts/runner.php?EA=200133978980125636
http://et-mails.com/scripts/runner.php?EA=208703395125118636

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

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.

Muchas gracias por las respuestas, a ver si lo consigo  :)

Ya esta solucionado usando if. Muchas gracias por la ayuda!  :)


        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