Ulisse Browser, il nome fa un po schifo XD

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <IE.au3>
MsgBox (0,"Ulisse Browser","Benvenuto in Ulisse Browser =)")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ulisse Browser", 1263, 731, 1, 3)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 8, 64, @DesktopWidth-38,@DesktopHeight-200)
$MenuItem1 = GUICtrlCreateMenu("Browser")
$MenuItem10 = GUICtrlCreateMenu("File", $MenuItem1)
$salvapaginaconnome = GUICtrlCreateMenuItem("Salva pagina con nome", $MenuItem10)
$ricarica = GUICtrlCreateMenuItem("Ricarica", $MenuItem10)
$stampa = GUICtrlCreateMenuItem("Stampa", $MenuItem10)
$esci = GUICtrlCreateMenuItem("Esci", $MenuItem10)
$MenuItem3 = GUICtrlCreateMenu("Modifica", $MenuItem1)
$Taglia = GUICtrlCreateMenuItem("Taglia", $MenuItem3)
$Copia = GUICtrlCreateMenuItem("Copia", $MenuItem3)
$Incolla = GUICtrlCreateMenuItem("Incolla", $MenuItem3)
$MenuItem11 = GUICtrlCreateMenu("Visualizza ", $MenuItem3)
$Sorgentepagina = GUICtrlCreateMenuItem("Sorgente Pagina", $MenuItem11)
$MenuItem17 = GUICtrlCreateMenuItem("Cronologia", $MenuItem11)
$MenuItem2 = GUICtrlCreateMenu("Cronologia", $MenuItem1)
$Cancella = GUICtrlCreateMenuItem("Cancella", $MenuItem2)
$Visualizza=GUICtrlCreateMenuItem("Visualizza", $MenuItem2)
$Copiasutxt = GUICtrlCreateMenuItem("Copia su file *.txt", $MenuItem2)
$Homepage = GUICtrlCreateMenuItem("HomePage", $MenuItem1)
$indietro = GUICtrlCreateButton("<=", 8, 0, 33, 25)
$avanti = GUICtrlCreateButton("=>", 48, 0, 33, 25)
$http = GUICtrlCreateInput("http://", 88, 0, 1009, 21)
$aggiorna = GUICtrlCreateButton("R", 1136, 0, 25, 25, $BS_ICON)
$ferma = GUICtrlCreateButton("X", 1168, 0, 25, 25)
$cerca = GUICtrlCreateButton("C", 1104, 0, 25, 25, $BS_ICON)
$home = GUICtrlCreateButton("H", 1200, 0, 25, 25, $BS_ICON)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$link="http://www.google.it"
GUICtrlSetData ($http,$link)
_IENavigate($oIE,$link)
$cronologia="www.google.it"

While 1
  $oldlink=GUICtrlRead ($http)
       $nMsg = GUIGetMsg()
       Switch $nMsg
        Case $GUI_EVENT_CLOSE
                       ExitLoop
                Case $cerca

                       $link=GUICtrlRead ($http)
                       _IENavigate($oIE,$link)
                       $cronologia=$cronologia&@crlf&$link
                       
                Case $Home
                       $oldlink=GUICtrlRead ($http)
                       $link="http://www.google.it"
                       GUICtrlSetData ($http,$link)
                       _IENavigate($oIE,$link)
                       $cronologia=$cronologia&@crlf&$link
                Case $aggiorna
                       _IEAction($oIE,"Refresh")
                Case $salvapaginaconnome
                       _IEAction($oIE, "SaveAs")
                Case $ricarica
                       _IEAction($oIE,"Refresh")
                Case $stampa
                       _IEAction($oIE, "Print")
                Case $esci
                       Exit
                       Case $Taglia
        _IEAction($oIE,"Cut")
           Case $Copia
        _IEAction($oIE,"Copy")
           Case $Incolla
        _IEAction($oIE,"Paste")
         Case $Sorgentepagina
                $Sorgentepagina1=_IEDocReadHTML($oIE)
                $sorgente=FileWrite("sorgente.txt", $Sorgentepagina1)
                ShellExecute(@ScriptDir & "\sorgente.txt")
                FileDelete($sorgente)
         Case $ferma
                 _IEAction($oIE,"Stop")
          Case $Cancella
                 $cronologia=""
          Case $Visualizza
                 MsgBox (64,"Cronologia",$cronologia)
          Case $Copiasutxt
                 FileWrite ("cronologia",$cronologia)
          Case $indietro
                 _IEAction($oIE, "Back")
          Case $avanti
                 _IEAction($oIE,"Forward")
       EndSwitch
WEnd
MsgBox (0,"Ulisse Browser","A presto =)")
Exit