Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: Jubjub en 22 Marzo 2008, 16:19 pm


Título: Encontrar URLs en un richtextbox
Publicado por: Jubjub en 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!  ;)

Título: Re: Encontrar URLs en un richtextbox
Publicado por: Hadess_inf en 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

Título: Re: Encontrar URLs en un richtextbox
Publicado por: Jubjub en 22 Marzo 2008, 16:40 pm
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

Título: Re: Encontrar URLs en un richtextbox
Publicado por: Sin Nick xD en 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

Título: Re: Encontrar URLs en un richtextbox
Publicado por: Hadess_inf en 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.

Título: Re: Encontrar URLs en un richtextbox
Publicado por: Jubjub en 23 Marzo 2008, 21:04 pm
Muchas gracias por las respuestas, a ver si lo consigo  :)

Título: Re: Encontrar URLs en un richtextbox [SOLUCIONADO]
Publicado por: Jubjub en 24 Marzo 2008, 19:56 pm
Ya esta solucionado usando if. Muchas gracias por la ayuda!  :)


Código
  1.         Text1.Select(ze, 1)
  2.         ze = ze + 1
  3.         cont = (Text1.SelectedText)
  4.         If cont = "h" Then
  5.             Text1.Select(ze, 1)
  6.             ze = ze + 1
  7.             cont = (Text1.SelectedText)
  8.             If cont = "t" Then
  9.                 Text1.Select(ze, 1)
  10.                 ze = ze + 1
  11.                 cont = (Text1.SelectedText)
  12.                 If cont = "t" Then
  13.                     Text1.Select(ze, 1)
  14.                     ze = ze + 1
  15.                     cont = (Text1.SelectedText)
  16.                     If cont = "p" Then
  17.                         Text1.Select(ze, 1)
  18.                         ze = ze + 1
  19.                         cont = (Text1.SelectedText)
  20.                         If cont = ":" Then
  21.                             Text1.Select(ze, 1)
  22.                             ze = ze + 1
  23.                             cont = (Text1.SelectedText)
  24.                             If cont = "/" Then
  25.                                 Text1.Select(ze, 1)
  26.                                 ze = ze + 1
  27.                                 cont = (Text1.SelectedText)
  28.                                 If cont = "/" Then
  29.                                     For i = 0 To 53
  30.                                         Text1.Select(ze, 1)
  31.                                         ze = ze + 1
  32.                                         temp = (Text1.SelectedText)
  33.                                         dir = dir + temp
  34.                                         If i = 53 Then
  35.                                             fox.Navigate(dir)
  36.                                             dir = ""
  37.                                             Timer1.Enabled = False
  38.                                             Timer3.Enabled = True
  39.  
  40.  
  41.                                         End If
  42.                                     Next
  43.  
  44.  
  45.  
  46.                                 End If
  47.                             End If
  48.                         End If
  49.                     End If
  50.                 End If
  51.             End If
  52.         End If


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines