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
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)
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.
![:smt026](./images/smilies/026.gif)
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)
Salu22:)