#cs-------------------------------------------
Nome : WebZ |
Author : KillerZ |
Non copiate, piuttosto studiate l'autoit!! |
#ce-------------------------------------------
#include <guiconstants.au3>
#Include <ie.au3>
GUICreate("WebZ v1.0",1200,900)
GUISetState(@SW_SHOW)
$Input = GUICtrlCreateInput("http://",175,25,845,25)
$But1 = GUICtrlCreateButton("Vai",1025,25,150,25)
$But2 = GuiCtrlCreateButton("Indietro",25,25,50,25)
$But3 = GUICtrlCreateButton("Avanti",120,25,50,25)
$But4 = GUICtrlCreateButton("Home",80,25,35,25)
$But5 = GuiCtrlCreateButton("Aggiorna",25,2,143,23)
$menu = GUICtrlCreateMenu("File")
$menu2 = GUICtrlCreateMenu("?")
$Item = GUICtrlCreateMenuItem("Esci",$menu)
$Item2 = GUICtrlCreateMenuItem("About",$menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$menu2)
$Web = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($Web,25,60,1150,800)
_IENavigate($Web,("http://www.google.it"),1)
While 1
$msg=GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $But1
$link = GuiCtrlRead($Input)
_IENavigate($Web,($link))
GUICtrlSetData($Input,$link)
Case $But2
_IEAction($Web,"Back")
Case $But3
_IEAction($Web,"Forward")
Case $But4
_IEAction($Web,"Home")
Case $But5
_IeAction($Web,"Refresh")
Case $Item
Exit
Case $Item2
MsgBox(0,"About","Software creato da KillerZ" & @CRLF & "Software protetto da Copyright" & @CRLF & "Vietata la riproduzione anche parziale o totale.")
Case $Item3
MsgBox(0,"Contatti","E-mail =
[email protected]" &@CRLF& "Msn =
[email protected]")
EndSwitch
WEnd
