Al detectar un texto, realizar acción

[jmordenata]

Hola, mira, querría hacer esto

Tenemos un archivo sacado de una web.

¿Cómo hacemos que cuando, en algún punto del texto detecte algo como: -DReader.MsgBox- en cualquier punto de la web ejecute una acción?

Me sería de gran ayuda, asias

Salu3!

[NemeSys]

Puedes especificar más?

El archivo sacado de la web es un texto plano? La accion se debe ejecutar en la misma web? El texto es variable?

Si tienes un archivo txt. Haz una funcion de busqueda o usa alguna de las que vienen con el VB y cuando encuentres la palabra clave lanza la funcion que necesitas.

InStr (Función)  Devuelve la posición del primer caso de una cadena dentro de otra.
InStrRev (Función)  Devuelve la posición de la aparición de una cadena dentro de otra, desde el final de la cadena. 

Saludos.

[jmordenata]

Holas, este código me funciona parcialmente

Código [Seleccionar] Expandir



If Dir("C:\imgs.txt") <> "" Then
        Open "C:\imgs.txt" For Input As #2
            While Not EOF(2)
                Line Input #2, prog
                If Mid$(prog, 1, InStr(prog, "!") - 1) = WebBrowser1.LocationURL Then
                 If MsgBox("Hay una imagen disponible para el post actual. Deseas cargarla?", vbYesNo) = vbYes Then
                  URLDownloadToFile 0, Mid$(prog, InStr(prog, "!") + 1, Len(prog) - InStr(prog, "!")), "C:\ipost.jpg", 0, 0
                End If
                End If
                DoEvents
            'Wend
        Close #2
        Kill "C:\imgs.txt"
   
Timer1.Enabled = False
Wend

End If



Funciona y realiza la acción de mostrar el Form11, pero luego dice que el número de archivo no es válido en la línea de

Código [Seleccionar] Expandir


While Not EOF(2)


Este es el contenido de imgs.txt

Código [Seleccionar] Expandir


http://www.nintendo-europe.com/wii/index_esES.html!http://www.bultza.arrakis.es/blogspot/37marbella2.jpg
http://www.ownmac.com/!http://www.brainythoughts.com/wp-content/einstein.jpg


Se supone que al cargar una web muestra esas fotos. ¿Alguien ve algún error al code?


Salu3!