; visitanos! http://pilaresdelcodigo.wordpress.com/
#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

$Form1 = GUICreate("Injector! - Ejemplo de Inyeccion.", 308, 327, -1, -1)
GUISetBkColor(0x99B4D1)
$Group1 = GUICtrlCreateGroup("", 8, 8, 289, 313)
$Label1 = GUICtrlCreateLabel(".:[Injector!]:.", 32, 32, 247, 42)
GUICtrlSetFont(-1, 24, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 24, 136, 257, 137)
GUICtrlSetData(-1, "<!-- Tu Codigo HTML Aqui -->")
$Button1 = GUICtrlCreateButton("Realizar Prueba", 72, 280, 171, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Verdana")
$Input1 = GUICtrlCreateInput("http://pilaresdelcodigo.wordpress.com/" , 24, 104, 257, 21)
$Label2 = GUICtrlCreateLabel("Sitio:", 24, 88, 33, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			$pagina = GUICtrlRead($Input1)
			$codigo = GUICtrlRead($Edit1)
			Local $oIE = _IECreate($pagina)
			Local $oBody = _IETagNameGetCollection($oIE, "body", 0)
			_IEDocInsertHTML($oBody, "" & $codigo, "afterbegin")

	EndSwitch
WEnd