CODICE
; ###################################
; # NET.Browser! 3 by FrontBack #
; # Copyright 2010-2011 #
; # Powered by AutoIt v3 #
; # Skin By SkinCrafter #
; # Based On Internet Explorer #
; ###################################
; Don't Touch the code section "#include"
#include <guiconstants.au3>
#include <IE.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
#include <Skin.au3>
global $Url, $MainGUI, $InsertUrl, $Refresh, $Undo, $Redo, $NewTab, $skin, $File, $Modify, $View, $Chronology, $Bookmarks, $Tools, $Help, $GUIIcon, $Go, $Home, $Search, $SearchField, $Stop, $Volume, $VolumeUp, $VolumeDown
global $Author, $WebSite, $CloseTab, $Options, $DeleteChronology, $HomePage, $oFF, $Exit, $UsedSkin, $Tab
global $autoit_site = "http:\\autoit.forumcommunity.net"
global $HomePage = "www.google.it"
#cs
GNU/GPL License
Auutorun Maker Copyright (C) 2010 Nicolò Di Domenico
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
#ce
;Reads Ini Files
$HomePage = IniRead(@ScriptDir&"\Options\general.ini","GeneralSettings","HomePage","www.google.it")
$UsedSkin = IniRead(@ScriptDir&"\Options\general.ini","GeneralSettings","UsedSkin","")
;Create the main Skin
$skin=$UsedSkin
SkinStartLibrary()
AddSkin($MainGUI,$skin)
$MainGUI = GUICreate("NET.Browser! 3", 898, 582, 84, 107, $WS_MINIMIZEBOX+$WS_MAXIMIZEBOX+$WS_CAPTION+$WS_POPUP+$WS_SYSMENU+$WS_SIZEBOX)
$GUIIcon = GuiSetIcon(@ScriptDir & "Options\icon.ico", 0)
$Undo = GUICtrlCreateButton("<<", 8, 8, 33, 33, 0)
$Redo = GUICtrlCreateButton(">>", 48, 8, 33, 33, 0)
$InsertUrl = GUICtrlCreateInput($HomePage, 144, 16, 473, 21)
$Go = GUICtrlCreateButton("Vai", 632, 8, 33, 33, 0)
$Home = GUICtrlCreateButton("Home", 88, 8, 41, 33, 0)
$SearchField = GUICtrlCreateInput("", 672, 16, 97, 21)
$Search = GUICtrlCreateButton("Cerca",771,15,45,25,0)
$File = GUICtrlCreateMenu("File")
$Refresh = GUICtrlCreateMenuItem("Aggiorna", $File)
$Stop = GUICtrlCreateMenuItem("Interrompi", $File)
$Undo = GUICtrlCreateMenuItem("Indietro", $File)
$Redo = GUICtrlCreateMenuItem("Avanti", $File)
$Volume = GUICtrlCreateMenu("Volume",$File)
$VolumeUp= GUICtrlCreateMenuItem("Disattiva Suono",$Volume)
$VolumeDown= GUICtrlCreateMenuItem("Attiva Suono",$Volume)
GUICtrlCreateMenuItem("",$File)
;$NewTab = GUICtrlCreateMenuItem("Nuova Scheda", $File)
;$CloseTab = GUICtrlCreateMenuItem("Chiudi Scheda", $File)
GUICtrlCreateMenuItem("",$File)
$Exit= GUICtrlCreateMenuItem("Esci",$File)
$Chronology = GUICtrlCreateMenu("Cronologia")
$Tools = GUICtrlCreateMenu("Strumenti")
$Options = GUICtrlCreateMenuItem("Opzioni Internet", $Tools)
$DeleteChronology = GUICtrlCreateMenuItem("Cancella Cronologia", $Tools)
$Help = GUICtrlCreateMenu("Aiuto")
$Author = GUICtrlCreateMenuItem("Autore", $Help)
$WebSite = GUICtrlCreateMenuItem("Sito Web", $Help)
$Web = _IECreateEmbedded()
GUICtrlCreateObj($Web,5,60,@DesktopWidth - 25, @DesktopHeight - 175)
GUISetState(@SW_SHOW,$MainGUI)
_IENavigate($Web,($HomePage),1)
HotKeySet("{F5}","Aggiorna")
HotKeySet("{F3}","Cerca")
HotKeySet("{ENTER}","Vai")
While 1
$Url=GUICtrlRead($InsertUrl)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
SoundSetWaveVolume(100)
Exit
Case $Undo
_IEAction($Web,"Back")
Case $Redo
_IEAction($Web,"Forward")
Case $Go
$link = GuiCtrlRead($InsertURL)
_IENavigate($Web,$link)
GUICtrlSetData($InsertURL,$link)
GUICtrlCreateMenuItem($URL,$Chronology)
Case $Home
_IENavigate($Web,($HomePage),1)
Case $Search
$link = GuiCtrlRead($SearchField)
_IENavigate($Web,("http://www.google.it/search?hp&q="&$link))
GUICtrlSetData($InsertURL,$URL)
GUICtrlCreateMenuItem($URL,$Chronology)
Case $Refresh
_IeAction($Web,"Refresh")
Case $Stop
_IEAction($oFF, "Stop")
Case $Undo
_IEAction($Web,"Back")
Case $Redo
_IEAction($Web,"Forward")
Case $Exit
Exit
Case $VolumeUp
SoundSetWaveVolume(0)
Case $VolumeDown
SoundSetWaveVolume(100)
Case $WebSite
_IENavigate($Web,($autoit_site))
Case $Options
; ##########################################
; # NET.Browser! 3 Config by TechWeb #
; # Copyright 2010-2011 #
; # Powered by AutoIt v3 #
; # Skin By SkinCrafter #
; ##########################################
global $HomePageInsert, $OptionsOK, $OptionsCancel, $OptionsGUI, $OptionsGUIIcon, $SkinInsert, $InstalledSkins, $ActualSkin, $SkinPath2
global $UsedSkin = ""
global $UsedSkin = $ActualSkin
;Searches the used Skin
$ActualSkin = IniRead(@ScriptDir&"\general.ini","GeneralSettings","UsedSkin","")
If FileExists($ActualSkin) Then
$skin=$ActualSkin
Else
$skin=""
EndIf
;Searches all Installed Skins
$InstalledSkins = IniRead(@ScriptDir&"\skins.ini","InstalledSkins","SkinsList","NET.Browser! 3 Classic|Kaerollaut")
SkinStartLibrary()
AddSkin($OptionsGUI,$skin)
$OptionsGUI = GUICreate("NET.Browser! 3 - Opzioni",400,400,-1,-1,$WS_CAPTION+$WS_POPUP+$WS_SYSMENU,-1)
$OptionsGUIIcon = GuiSetIcon(@ScriptDir & "\icon.ico", 0)
GUICtrlCreateLabel("Home Page:",5,50,70,20)
$HomePageInsert = GUICtrlCreateInput("http://",85,50,250,20)
GUICtrlCreateLabel("Skin Utilizzata:",5,80,70,20)
$SkinInsert = GUICtrlCreateButton("Seleziona Skin...",295,75,100,30)
$SkinPath = GUICtrlCreateInput($SkinPath2,85,80,200,20)
$OptionsOK = GUICtrlCreateButton("OK",295,325,100,30)
$OptionsCancel = GUICtrlCreateButton("Annulla",195,325,100,30)
GUISetState(@SW_SHOW,$OptionsGUI)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $SkinInsert
$UsedSkin = FileOpenDialog("Seleziona Skin...",@ScriptDir&"\Skins\","Skin di NET.Browser! 3 (*.skf)",1)
$SkinPath2 = GUICtrlSetData($SkinPath,$UsedSkin)
Case $GUI_EVENT_CLOSE
Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(308,"NET.Browser! 3 - Opzioni","Sei sicuro di Uscire dalle Opzioni del Browser?" & @CRLF & "Se sì, perderai tutta la configurazione modificata fino ad ora!")
Select
Case $iMsgBoxAnswer = 6 ;Yes
GUIDelete ($OptionsGUI)
ExitLoop
Case $iMsgBoxAnswer = 7 ;No
$bLoop = 1
EndSelect
Case $OptionsOK
If $HomePageInsert = "" OR $HomePageInsert = "http://" Then
$HomePageInsert = "about:blank"
Else
$HomePageInsert = $HomePageInsert
EndIf
IniWrite(@ScriptDir&"\general.ini","GeneralSettings","HomePage",GUICtrlRead($HomePageInsert))
IniWrite(@Scriptdir&"\general.ini","GeneralSettings","UsedSkin",$UsedSkin)
MsgBox(64,"NET.Browser! 3 - Opzioni","La Configurazione è stata salvata!" & @CRLF & "La Configurazione sarà visibile solo dopo aver riavviato NET.Browser! 3.")
GUIDelete ($OptionsGUI)
ExitLoop
Case $OptionsCancel
Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(308,"NET.Browser! 3 - Opzioni","Sei sicuro di Uscire dalle Opzioni del Browser?" & @CRLF & "Se sì, perderai tutta la configurazione modificata fino ad ora!")
Select
Case $iMsgBoxAnswer = 6 ;Yes
GUIDelete ($OptionsGUI)
ExitLoop
Case $iMsgBoxAnswer = 7 ;No
$bLoop = 1
EndSelect
EndSwitch
WEnd
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
SkinCloseLibrary()
EndSwitch
WEnd
Case $Author
MsgBox(64,"NET.Browser! 3 - Informazioni","Questo programma è stato creato da: TechWeb")
EndSwitch
WEnd
Func Aggiorna()
_IEAction($Web, "Refresh")
EndFunc
Func Cerca()
$link = GuiCtrlRead($SearchField)
_IENavigate($Web,("http://www.google.it/search?hp&q="&$link))
GUICtrlSetData($InsertURL,$URL)
GUICtrlCreateMenuItem($URL,$Chronology)
EndFunc
Func Vai()
$link = GuiCtrlRead($InsertURL)
_IENavigate($Web,($URL))
GUICtrlSetData($InsertURL,$URL)
GUICtrlCreateMenuItem($URL,$Chronology)
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
SkinCloseLibrary()
EndSwitch
WEnd