CODICE
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FirefoxObj.au3>
#include <IE.au3>
Global Const $autoit_site = "http://autoit.forumcommunity.net/"
Global Const $tipo = BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS)
Global $oFF
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("myBrowser - Autoit Fanclub - Beta Version 1.0",898, 582, 84, 107,$tipo)
$Button1 = GUICtrlCreateButton("<<", 8, 8, 33, 33, 0)
$Button2 = GUICtrlCreateButton(">>", 48, 8, 33, 33, 0)
$Input1 = GUICtrlCreateInput("http://www.google.it", 144, 16, 473, 21)
$Button3 = GUICtrlCreateButton("->", 632, 8, 33, 33, 0)
$Button4 = GUICtrlCreateButton("Home", 88, 8, 41, 33, 0)
$Input2 = GUICtrlCreateInput("Cerca", 672, 16, 97, 21)
$Button5 = GUICtrlCreateButton("Cerca",771,15,45,25,0)
$MenuItem1 = GUICtrlCreateMenu("File")
$MenuItem3 = GUICtrlCreateMenuItem("Aggiorna", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Interrompi", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Indietro", $MenuItem1)
$MenuItem6 = GUICtrlCreateMenuItem("Avanti", $MenuItem1)
$Menuitem = GUICtrlCreateMenu("Volume",$menuitem1)
$menuitem11= GUICtrlCreateMenuItem("Disattiva Suono",$MenuItem)
$menuitem12= GUICtrlCreateMenuItem("Attiva Suono",$menuItem)
$menuitem9 = GUICtrlCreateMenuItem("",$MenuItem1)
$menuItem10= GUICtrlCreateMenuItem("Esci",$MenuItem1)
$MenuItem7 = GUICtrlCreateMenu("?")
$MenuItem8 = GUICtrlCreateMenuItem("Autore", $MenuItem7)
$MenuItem2 = GUICtrlCreateMenuItem("Sito Web", $MenuItem7)
GUISetState(@SW_SHOW)
#region Firefox
$oFF = _FirefoxInit()
If $oFF = 0 Then
GUIDelete()
MsgBox(16,"Errore","Sul tuo pc non sono installati gli oggetti di firefox.")
Global $var = MsgBox(68,"Scaricare","Scaricare Gli ACTIVEX necessari?")
If $var = 7 Then
Exit
ElseIf $var = 6 Then
ShellExecute("http://www.iol.ie/~locka/mozilla/MozillaControl1712.exe")
Exit
EndIf
Else
Sleep(5)
EndIf
GUICtrlCreateObj($oFF,5,45,888,500)
GUICtrlSetResizing(-1,$GUI_DOCKBORDERS)
_FirefoxNavigate($oFF,"http://autoit.forumcommunity.net/")
#endregion Firefox
#EndRegion ### END Koda GUI section ###
HotKeySet("{F5}","Aggiorna")
While 1
$URL=GUICtrlRead($input1)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
SoundSetWaveVolume(100)
Exit
Case $button1
_FirefoxBack($oFF)
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $Button2
_FirefoxNext($oFF)
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $Button3
_FirefoxNavigate($oFF,$URL)
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $Button4
_FirefoxNavigate($oFF,"http://www.google.it")
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $Button5
_FirefoxNavigate($oFF,"http://www.google.it/search?hp&q="&GUICtrlRead($input2))
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $MenuItem3
_FirefoxRefresh($oFF)
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $MenuItem4
_FirefoxStop($oFF)
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $MenuItem5
_FirefoxBack($oFF)
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $MenuItem6
_FirefoxNext($oFF)
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $MenuItem10
Exit
Case $MenuItem11
SoundSetWaveVolume(0)
Case $menuItem12
SoundSetWaveVolume(100)
Case $MENUITEM2
_FirefoxNavigate($oFF,$autoit_site)
Sleep(1000)
$url_location=_FirefoxLocation($oFF)
GUICtrlSetData($input1,$url_location)
Case $menuitem8
MsgBox(64,"Creato da","Questo programma č stato creato da: Gianlu-thebest")
EndSwitch
WEnd
Func Aggiorna()
_FirefoxRefresh($oFF)
EndFunc
