#cs-------------------------------------------
Nome : WebZ |
Author : KillerZ |
Version : 2.0 |
#ce-------------------------------------------
#include <guiconstants.au3>
#Include <ie.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
$Gino = 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")
$menu4 = GuictrlCreateMenu("Segnalibri")
$menu5 = GUICtrlCreateMenu("Cronologia")
$menu3 = GUICtrlCreateMenu("Impostazioni")
$menu2 = GUICtrlCreateMenu("?")
$item7 = GUICtrlCreateMenuItem("Nuovo Segnalibro",$menu4)
$item5 = GUICtrlCreateMenuItem("Home Page",$menu3)
$Item6 = GuictrlCreateMenuItem("Scarica",$menu)
$Item4 = GUICtrlCreateMenuItem("Proxy",$menu)
$Item = GUICtrlCreateMenuItem("Esci",$menu)
$Item2 = GUICtrlCreateMenuItem("About",$menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$menu2)
$Web = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($Web,25,60,1150,800)
$Re = IniRead(@ScriptDir& "\Data.ini","","","")
_IENavigate($Web,($Re),1)
While 1
$msg=GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $But1
$link = GuiCtrlRead($Input)
_IENavigate($Web,($link))
GUICtrlSetData($Input,$link)
GUICtrlCreateMenuItem($link,$menu5)
Case $But2
_IEAction($Web,"Back")
Case $But3
_IEAction($Web,"Forward")
Case $But4
_IENavigate($Web,($Re),1)
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]")
Case $Item4
$Box = InputBox("Proxy","Scrivi l'indirizzo in cui vuoi proxarti")
$Proxy ="http://anonymouse.org/cgi-bin/anon-www.cgi/http://"& $Box
GUICtrlSetData($Input,$Proxy)
_IENavigate($Web,$Proxy)
Case $Item5
$Rig = InputBox("Scegli l'Home Page","Inserisci l'URL")
IniWrite(@ScriptDir& "\Data.ini","","",$Rig)
Case $Item6
$Directory = "C:\Users\Luciano\Desktop"
$down = InputBox("Inserisci Url","Inserisci Url")
MsgBox(64,"Attenzione","Ricorda che alla fine del nome devi mettere l'estensione!!!")
MsgBox(64,"Esempio","Se è un immagine salvalo come Immagine.jpg")
$path = FileSaveDialog("Dove vuoi salvare il file?",$Directory,"")
INetGet($down,$path)
Case $item7
$Segnalibro = InputBox("Nuovo Segnalibro","Inserisci l'URL")
GUICtrlCreateMenuItem($Segnalibro,$menu4)
EndSwitch
WEnd