SLameratore 1.0, Programma illudi-lamer

#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <ie.au3>
#include <guiedit.au3>
#include <skincrafter.au3>
_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()

SkinStartLibrary('Skin.dll')

$gui = GUICreate("Site distructor 1.0.0.0", 640, 580, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)

$file = @ScriptDir & "Skin.skf"
AddSkin($gui,$file,1)

$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
$GUI_Button_link = GUICtrlCreateButton("GO", 450, 420, 100, 30)
$GUI_Button_SPAM = GUICtrlCreateButton("Modify !!", 530, 520, 100, 30)
$guiedit = GUICtrlCreateInput ( "http://", 1, 10, 400, 20 )

GUISetState()


$url =_IENavigate ($oIE, "http://hacking2.0.forumcommunity.net")

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
_IENavigate ($oIE, $url)
Case $msg = $GUI_Button_Back
_IEAction ($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction ($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction ($oIE, "stop")
Case $msg = $GUI_Button_link
$urlo = _GUICtrlEdit_GetText ($guiedit)
_IENavigate ($oIE, $urlo)
Case $msg = $GUI_Button_SPAM
MsgBox ( 0, "Ready", "You can modify the site" )
_IENavigate ( $oIE, "javascript:document.body.contentEditable='true';document.designMode='on'; void 0 " )

EndSelect
WEnd

GUIDelete()

Exit