Foro de elhacker.net

hola, necesito vuestra ayuda urgentemente, estoy haciendo un robot actualizador para paginas webs, y lo que hago es extraer el codigo fuente de la pagina que lo extrae,pero lo que me hace falta es que me busque en el textbox que extrae el codigo fuente una direccion que varia en cada juego, es decir, necesito que me busque entre bastante texto lo siguiente:

viene asi en el codigo fuente:

<embed src="http://es.minijuegosgratis.com/miniswf/no_hotlink/zombiegolfriot.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="550" height="413" class="FlashGame">                        </embed>

Pues necesito que me copie la url del juego, es decir;: http://es.minijuegosgratis.com/miniswf/no_hotlink/zombiegolfriot.swf

pero claro esta url va a variar, y por ejemplo en otro juego sera
http://es.minijuegosgratis.com/miniswf/no_hotlink/otrojuego.swf

necesito que me buske ese enlace aunque cambie el nombre del swf, alguien lo sabe como podria hacerlo??? es muy importante, kien me ayude le podre reconpensar con algo.

gracias

Buenas, pues mira he retocado una función para que te funcione:

Public Function Nam(ruta As String)
    fullname = Mid$(ruta, InStrRev(ruta, "hotlink/") + 8)
    Nam = Mid$(fullname, 1, InStrRev(fullname, "swf") + 2)
End Function

Luego para sacar el nombre que es lo que varia pues haces Nam(Text1.Text) y sacará la última parte del enlace, es decir el nombre.

Espero que te sirva  ;)

no consigo hacerlo funcionar, explicame un poco mas como utilizo este code.

No a ver la función va fuera de ahí, digamos que va "suelta" luego en el command5_click tienes que poner por ejemplo:

Private Sub Command5_Click()
  text2.text =  Nam(text1.text)
End Sub

Bueno también tienes que declarar fullname en general como string. Bueno si aun no lo consigues pregunta

Nork, eres el puñetero amo, gracias a ti ya esta a punto de terminar mi bot, te mando un mp

De nada  ;)