Leer html, modificarlo e Inyectarlo en una página facil

[BasicOs]

Al estilo de php, autoit puede hacer algo parecido en el cliente, creando páginas personalizadas para por ejemplo una empresa que solo necesita una parte de los dátos de la página, o bien, poner el logo porque es algo más "corporativo", o porque queremos quitar partes superfluas de la página y que el usuario se concentre con su atención en una parte
El código es muy sencillo, solo hay que

• designar una página a "retocar"
• hacer un cámbio de código HTML, que se puede hacer con un editor perfectamente, o bien cambiando variables. Es leer el código fuente desde el cliente web, y pasar el código fuente a una variable para después poder modificarlo
• cuando tenemos el código lo modificamos como queramos
• Activamos el código que tenemos en la página

(en el ejemplo se abre visible la página original para que se vea la diferencia, pero se puede abrir novisible, y luego visualizar la página

Aquí en esta página del mundo, la retocamos para hacer que el resultado del Real Madrid frente al Espanyol, fuera de que perdiera el equipo blanco 3-0, f, y encima Mourinho se disculpa por el error. Cambiamos dos graficos o photos.

Código: Seleccionar todo

#include <INet.au3>
#include <IE.au3>
#include <Array.au3>
#include <Misc.au3>
$PaginaAControlar = "http://www.elmundo.es/elmundodeporte/futbol.html"
$oIE = _IECreate($PaginaAControlar, 0, 1)
$sText = _IEDocReadHTML($oIE)
;============ cambio de código
$sText = StringReplace($sText, "Real Madrid", "1234333")
$sText = StringReplace($sText, "Espanyol", "1234444")
$sText = StringReplace($sText, "Espanyol", "1234444")
$sText = StringReplace($sText, "Goleada blanca al 'estilo Mourinho'", "Goleada al Madrid, Mourinho en huelga por una subida de sueldo! ")
$sText = StringReplace($sText, "Espanyol", "1234444")
$sText = StringReplace($sText, "1234333", "Espanyol")
$sText = StringReplace($sText, "1234444", "Real Madrid")
$sText = StringReplace($sText, "http://estaticos.elmundo.es/elmundodeporte/imagenes/2010/09/22/futbol/1285093880_g_0.jpg", "http://www.emesn.com/autoitforum/styles/prosilver/imageset/site_logo.gif")
;============= cambio de código
_IEDocWriteHTML($oIE, $sText)
_IEAction($oIE, "refresh")
_IEQuit($oIE)

Aquí nos podemos hacer la ilusión de que ganamos la lotería, poniendo el número nuestro en la página de los resultados en que ganamos 2.000 millones de Euros.... no apto para enseñar a familiares con problemas cardiacos!!!
Vale para retocar críticas a actores o grupos de música en declive, que necesiten animarse :) Lo que se ve es lo que vale.

Código: Seleccionar todo

#include <INet.au3>
#include <IE.au3>
#include <Array.au3>
#include <Misc.au3>
$PaginaAControlar="http://www.onlae.es/loteria/resultados.aspx?idSorteo=954"
$oIE = _IECreate($PaginaAControlar, 0, 1)
$sText = _IEDocReadHTML($oIE)
;============ cambio de código HTML para poner el número de lotería que hemos comprado
;$sText=StringReplace($sText,"Especial","123456")
;$sText=StringReplace($sText,"52642","66666")
;$sText=StringReplace($sText,"/css/imagenes/logos/terra.gif","http://www.emesn.com/autoitforum/styles/prosilver/imageset/site_logo.gif")
;$sText=StringReplace($sText,"Observaciones:","Observaciones: Esto es una prueba de que se pueden editar paginas al vuelo")
;============= cambio de código
_IEDocWriteHTML($oIE, $sText)
_IEAction($oIE, "refresh")
_IEQuit($oIE)

[/code]

Salu22:)

[smjars]

Cosas y cosas interesantes....

Autoit: ¿Qué más tienes para mí?