Phata Browser v.2.1, un browser per internet che sfrutta IE.au3

« Older   Newer »
  Share  
MHack
CAT_IMG Posted on 29/4/2010, 22:10     +1   -1




Questo è il mio browser per internet che sfrutta Internet Explorer.
Ne ho fatte due versioni, una per un monitor con risoluzione pari a 1440x900(19") e un'altra a 800x600(15" se non sbaglio)

Versione 1440x900:
SPOILER (click to view)
CODICE
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Phata Browser v1.exe
#AutoIt3Wrapper_Res_Fileversion=1.2.0.0
#AutoIt3Wrapper_Res_LegalCopyright=CreativeCommons
#AutoIt3Wrapper_Res_Language=1040
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs 0/1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <IE.au3>
#include <Process.au3>

#cs ----------------------------------------------------------------------------

       AutoIt Version: 3.3.4.0
       Author:         MHack

       Script Function:
       Un browser per internet

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

If FileExists(@UserProfileDir&"\home.ini") = 1 Then

;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
ProgressOn("Download","Downloading file...","Downloading file...")
ProgressSet(1)
Sleep(350)
ProgressSet(20)
InetGet("http://autoitprogrammer.altervista.org/imm/agg.bmp",@TempDir&"\agg.bmp")
Sleep(500)
ProgressSet(60)
Sleep(150)
ProgressSet(65)
InetGet("http://autoitprogrammer.altervista.org/imm/go.bmp",@TempDir&"\go.bmp")
Sleep(250)
ProgressSet(82)
Sleep(150)
ProgressSet(85)
InetGet("http://autoitprogrammer.altervista.org/imm/home.bmp",@TempDir&"\home.bmp")
Sleep(450)
ProgressSet(100)
Sleep(100)
ProgressOff()


_IEErrorHandlerRegister()

$IE = _IECreateEmbedded()

;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa


;create gui
Global $title = "Phata Browser"
$gui = GUICreate($title,1410,810,-1,-1, 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), BitOR($WS_EX_OVERLAPPEDWINDOW, $WS_EX_WINDOWEDGE))
GUISetState(@SW_SHOW)


;menu
$file = GUICtrlCreateMenu("File")
$esci = GUICtrlCreateMenuItem("Esci",$file)
$opzioni = GUICtrlCreateMenu("Opzioni")
$homeset = GUICtrlCreateMenuItem("Setta Home Page",$opzioni)
$info = GUICtrlCreateMenu("Info")
$autore = GUICtrlCreateMenuItem("Autore",$info)


;button mod
$aggiorna = GUICtrlCreateButton("",188,10,35,35,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Aggiorna")
GUICtrlSetImage($aggiorna,@TempDir&"\agg.bmp")
GUICtrlSetResizing($aggiorna,1)
$vai = GUICtrlCreateButton("Vai",1350,13,36,36,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Vai a...")
GUICtrlSetImage($vai,@TempDir&"\go.bmp")
GUICtrlSetResizing($vai,1)
$home = GUICtrlCreateButton("",128,7,45,45,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Home")
GUICtrlSetImage($home,@TempDir&"\home.bmp")
GUICtrlSetResizing($home,1)


;button
$back = GUICtrlCreateButton("<--",8,15,50,30)
GUICtrlSetTip(-1,"Indietro")
GUICtrlSetResizing($back,1)
$forward = GUICtrlCreateButton("-->",70,15,50,30)
GUICtrlSetTip(-1,"Avanti")
GUICtrlSetResizing($forward,1)


;input
$site = GUICtrlCreateInput("",250,20,1080,20)
GUICtrlSetTip(-1,"URL")
GUICtrlSetResizing($site,1)


;label
$labeldesc = GUICtrlCreateLabel("Phata Browser (C) Sotto licenza CreativeCommons  |  Autore : MHack --> http://autoitprogrammer.altervista.org/",5,55)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$myIP = GUICtrlCreateLabel("Il tuo IP:",1290,55,50,20)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-2,0x0000FF)
$labelip = GUICtrlCreateLabel(@IPAddress1,1335,55,100,20)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-2,0xFF0000)


;oggetti
$GUIActiveX = GUICtrlCreateObj($IE,5,70,1400,720)
GUICtrlSetResizing($GUIActiveX,1)

Sleep(1500)
_IENavigate($IE,FileRead(@ScriptDir&"\home.ini"))


While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
Case $GUI_EVENT_CLOSE
       Exit
Case $esci
   Exit
Case $autore
   $MsgBox = MsgBox(4,$title,"Autore : MHack"& @CRLF &"Visitare il sito?")
       If $MsgBox = 6 Then
               _IENavigate($IE,"http://autoitprogrammer.altervista.org/")
       Else
       ContinueLoop
   EndIf
Case $vai
       If GUICtrlRead($site) <> "" Then
       _IENavigate($IE,GUICtrlRead($site))
   Else
       MsgBox(16,"Attenzione!","Attenzione, nessun indirizzo inserito!"& @CRLF &"Riprovare!")
       EndIf
Case $home
       _IENavigate($IE,FileRead(@ScriptDir&"\home.ini"))
Case $back
   _IEAction($IE,"back")
Case $forward
   _IEAction($IE,"forward")
Case $aggiorna
   _IEAction($IE,"refresh")
Case $homeset
   $InputBox = InputBox($title,"Setta Home Page:")
   If $InputBox <> "" Then
       FileWrite(@ScriptDir&"\home.ini",$InputBox)
       If FileExists(@ScriptDir&"\home.ini") = 1  Then
                       MsgBox(0,$title,"L'home page è stata caricata correttamente!")
           Else
                       MsgBox(0,$title,"L'home page non è stata caricata correttamente,riprovare!")
               EndIf
       Else
       MsgBox(16,$title,"Inserire indirizzo home page!")
   EndIf
EndSwitch
WEnd
Else
       $InputBox2 = InputBox("Phata Browser","Setta Home Page:")
   If $InputBox2 <> "" Then
       FileWrite(@UserProfileDir&"\home.ini",$InputBox2)
       If FileExists(@UserProfileDir&"\home.ini") = 1  Then
                       MsgBox(0,"Phata Browser","L'home page è stata caricata correttamente!")
           Else
                       MsgBox(0,"Phata Browser","L'home page non è stata caricata correttamente,riprovare!")
               EndIf
       Else
       MsgBox(16,"Phata Browser","Inserire indirizzo home page!")
   EndIf
EndIf


Versione 800x600:
SPOILER (click to view)
CODICE
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Phata Browser v1.exe
#AutoIt3Wrapper_Res_Fileversion=1.2.0.0
#AutoIt3Wrapper_Res_LegalCopyright=CreativeCommons
#AutoIt3Wrapper_Res_Language=1040
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs 0/1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <IE.au3>
#include <Process.au3>

#cs ----------------------------------------------------------------------------

       AutoIt Version: 3.3.4.0
       Author:         MHack

       Script Function:
       Un browser per internet

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

If FileExists(@UserProfileDir&"\home.ini") = 1 Then

;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
If FileExists(@UserProfileDir&"\agg.bmp") = False Then _DownloadFile() EndIf
If FileExists(@UserProfileDir&"\go.bmp") = False Then _DownloadFile() EndIf
If FileExists(@UserProfileDir&"\home.bmp") = False Then _DownloadFile() EndIf

Func _DownloadFile()
ProgressOn("Download","Downloading file...","Downloading file...")
ProgressSet(1)
Sleep(350)
ProgressSet(20)
InetGet("http://autoitprogrammer.altervista.org/imm/agg.bmp",@UserProfileDir&"\agg.bmp")
Sleep(500)
ProgressSet(60)
Sleep(150)
ProgressSet(65)
InetGet("http://autoitprogrammer.altervista.org/imm/go.bmp",@UserProfileDir&"\go.bmp")
Sleep(250)
ProgressSet(82)
Sleep(150)
ProgressSet(85)
InetGet("http://autoitprogrammer.altervista.org/imm/home.bmp",@UserProfileDir&"\home.bmp")
Sleep(450)
ProgressSet(100)
Sleep(100)
ProgressOff()
EndFunc


_IEErrorHandlerRegister()

$IE = _IECreateEmbedded()

;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa


;create gui
Global $title = "Phata Browser"
$gui = GUICreate($title,720,520,-1,-1, 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), BitOR($WS_EX_OVERLAPPEDWINDOW, $WS_EX_WINDOWEDGE))
GUISetState(@SW_SHOW)


;menu
$file = GUICtrlCreateMenu("File")
$esci = GUICtrlCreateMenuItem("Esci",$file)
$opzioni = GUICtrlCreateMenu("Opzioni")
$homeset = GUICtrlCreateMenuItem("Setta Home Page",$opzioni)
$info = GUICtrlCreateMenu("Info")
$autore = GUICtrlCreateMenuItem("Autore",$info)


;modden button
$aggiorna = GUICtrlCreateButton("",140,10,30,30,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Aggiorna")
GUICtrlSetImage($aggiorna,@UserProfileDir&"\agg.bmp")
GUICtrlSetResizing($aggiorna,1)
$vai = GUICtrlCreateButton("",683,8,30,30,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Vai a...")
GUICtrlSetImage($vai,@UserProfileDir&"\go.bmp")
GUICtrlSetResizing($vai,1)
$home = GUICtrlCreateButton("",95,8,30,30,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Home")
GUICtrlSetImage($home,@UserProfileDir&"\home.bmp")
GUICtrlSetResizing($home,1)


;button
$back = GUICtrlCreateButton("<--",8,8,30,25)
GUICtrlSetTip(-1,"Indietro")
GUICtrlSetResizing($back,1)
$forward = GUICtrlCreateButton("-->",52,8,30, 25)
GUICtrlSetTip(-1,"Avanti")
GUICtrlSetResizing($forward,1)


;input
$site = GUICtrlCreateInput("",176,16,497,21)
GUICtrlSetTip(-1,"URL")
GUICtrlSetResizing($site,1)


;label
$labeldesc = GUICtrlCreateLabel("Phata Browser (C) CreativeCommons  |  Autore : MHack --> http://autoitprogrammer.altervista.org/",5,42)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$myIP = GUICtrlCreateLabel("Il tuo IP:",590,42,50,20)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-2,0x0000FF)
$labelip = GUICtrlCreateLabel(@IPAddress1,640,42,100,20)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-2,0xFF0000)


;oggetti
$GUIActiveX = GUICtrlCreateObj($IE,5,60,710,438)
GUICtrlSetResizing($GUIActiveX,1)

Sleep(1500)
_IENavigate($IE,FileRead(@ScriptDir&"\home.ini"))


While 1
       $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
       Exit
Case $esci
   Exit
Case $autore
   $MsgBox = MsgBox(4,$title,"Autore : MHack"& @CRLF &"Visitare il sito?")
       If $MsgBox = 6 Then
               _IENavigate($IE,"http://autoitprogrammer.altervista.org/")
       Else
       ContinueLoop
   EndIf
Case $vai
       If GUICtrlRead($site) <> "" Then
       _IENavigate($IE,GUICtrlRead($site))
   Else
       MsgBox(16,"Attenzione!","Attenzione, nessun indirizzo inserito!"& @CRLF &"Riprovare!")
       EndIf
Case $home
       _IENavigate($IE,FileRead(@ScriptDir&"\home.ini"))
Case $back
   _IEAction($IE,"back")
Case $forward
   _IEAction($IE,"forward")
Case $aggiorna
   _IEAction($IE,"refresh")
Case $homeset
   $InputBox = InputBox($title,"Setta Home Page:")
   If $InputBox <> "" Then
       FileWrite(@ScriptDir&"\home.ini",$InputBox)
       If FileExists(@ScriptDir&"\home.ini") = 1  Then
                       MsgBox(0,$title,"L'home page è stata caricata correttamente!")
           Else
                       MsgBox(0,$title,"L'home page non è stata caricata correttamente,riprovare!")
               EndIf
       Else
       MsgBox(16,$title,"Inserire indirizzo home page!")
   EndIf
EndSwitch
WEnd
Else
       $InputBox2 = InputBox("Phata Browser","Setta Home Page:")
   If $InputBox2 <> "" Then
       FileWrite(@UserProfileDir&"\home.ini",$InputBox2)
       If FileExists(@UserProfileDir&"\home.ini") = 1  Then
                       MsgBox(0,"Phata Browser","L'home page è stata caricata correttamente!")
           Else
                       MsgBox(0,"Phata Browser","L'home page non è stata caricata correttamente,riprovare!")
               EndIf
       Else
       MsgBox(16,"Phata Browser","Inserire indirizzo home page!")
   EndIf
EndIf

Ditemi tutti i bug, consigli e critiche sul mio browser internet
Spero vi piaccia :D ^_^ ;)

For Lamer: If you post these scripts as if I had written you, I'll break your ass ;) Byebye and....Write me soon! :P
 
Top
Kurt_Black_hat 2.0
CAT_IMG Posted on 29/4/2010, 22:18     +1   -1




CITAZIONE (MHack @ 29/4/2010, 23:10)
I'll break your ass ;)

aahhahahahahahahahhahahahaahahahah!
Hai vinto tu xDDD

Good xD
 
Top
xMasteRx
CAT_IMG Posted on 29/4/2010, 22:20     +1   -1




bravo :D
ah si i consigli xD
quando entri in una pagina, fallo aggiornare la barra indirizzo ;D
quando non ci sono pagine da andare indietro/avanti, disattiva i pulsati ^_^
l'unico bug è che la barra del Il tuo IP vai fuori, mettilo un po più a sinistra, magari
$myIP = GUICtrlCreateLabel("Il tuo IP:",1270,55,50,20)
missa che basterebbe ^^
(sulla ver. 1440x900)
 
Top
MHack
CAT_IMG Posted on 29/4/2010, 23:04     +1   -1




CITAZIONE (Kurt_Black_hat 2.0 @ 29/4/2010, 23:18)
CITAZIONE (MHack @ 29/4/2010, 23:10)
I'll break your ass ;)

aahhahahahahahahahhahahahaahahahah!
Hai vinto tu xDDD

Good xD

Grazie, ma intendi con l'inglese? XD
CITAZIONE (xMasteRx @ 29/4/2010, 23:20)
bravo :D
ah si i consigli xD
quando entri in una pagina, fallo aggiornare la barra indirizzo ;D
quando non ci sono pagine da andare indietro/avanti, disattiva i pulsati ^_^
l'unico bug è che la barra del Il tuo IP vai fuori, mettilo un po più a sinistra, magari
$myIP = GUICtrlCreateLabel("Il tuo IP:",1270,55,50,20)
missa che basterebbe ^^
(sulla ver. 1440x900)

Ora correggo,comunque disattivare i pulsanti è un pò difficile ^_^
Grazie
 
Top
xMasteRx
CAT_IMG Posted on 30/4/2010, 00:17     +1   -1




ho provato a corregerlo e mettere le modifiche che avevo proposto ;)
ho la leggera impressione di essermi dimenticato qualcosa... avvisatemi eh xD
SPOILER (click to view)
CODICE
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Phata Browser v1.exe
#AutoIt3Wrapper_Res_Fileversion=1.2.0.0
#AutoIt3Wrapper_Res_LegalCopyright=CreativeCommons
#AutoIt3Wrapper_Res_Language=1040
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs 0/1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <IE.au3>
#include <Process.au3>

#cs ----------------------------------------------------------------------------

      AutoIt Version: 3.3.4.0
      Author:         MHack

      Script Function:
      Un browser per internet

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

If FileExists(@UserProfileDir&"\home.ini") = 1 Then

;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
ProgressOn("Download","Downloading file...","Downloading file...")
ProgressSet(1)
Sleep(350)
ProgressSet(20)
InetGet("http://autoitprogrammer.altervista.org/imm/agg.bmp",@TempDir&"\agg.bmp")
Sleep(500)
ProgressSet(60)
Sleep(150)
ProgressSet(65)
InetGet("http://autoitprogrammer.altervista.org/imm/go.bmp",@TempDir&"\go.bmp")
Sleep(250)
ProgressSet(82)
Sleep(150)
ProgressSet(85)
InetGet("http://autoitprogrammer.altervista.org/imm/home.bmp",@TempDir&"\home.bmp")
Sleep(450)
ProgressSet(100)
Sleep(100)
ProgressOff()


_IEErrorHandlerRegister()

$IE = _IECreateEmbedded()

;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa


;create gui
Global $title = "Phata Browser"
$gui = GUICreate($title,1410,810,-1,-1, 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), BitOR($WS_EX_OVERLAPPEDWINDOW, $WS_EX_WINDOWEDGE))
GUISetState(@SW_SHOW)


;menu
$file = GUICtrlCreateMenu("File")
$esci = GUICtrlCreateMenuItem("Esci",$file)
$opzioni = GUICtrlCreateMenu("Opzioni")
$homeset = GUICtrlCreateMenuItem("Setta Home Page",$opzioni)
$info = GUICtrlCreateMenu("Info")
$autore = GUICtrlCreateMenuItem("Autore",$info)


;button mod
$aggiorna = GUICtrlCreateButton("",188,10,35,35,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Aggiorna")
GUICtrlSetImage($aggiorna,@TempDir&"\agg.bmp")
GUICtrlSetResizing($aggiorna,1)
$vai = GUICtrlCreateButton("Vai",1350,13,36,36,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Vai a...")
GUICtrlSetImage($vai,@TempDir&"\go.bmp")
GUICtrlSetResizing($vai,1)
$home = GUICtrlCreateButton("",128,7,45,45,$BS_BITMAP + $BS_FLAT)
GUICtrlSetTip(-1,"Home")
GUICtrlSetImage($home,@TempDir&"\home.bmp")
GUICtrlSetResizing($home,1)


;button
$back = GUICtrlCreateButton("<--",8,15,50,30)
GUICtrlSetTip(-1,"Indietro")
GUICtrlSetResizing($back,1)
GUICtrlSetState(-1, $GUI_DISABLE)
$forward = GUICtrlCreateButton("-->",70,15,50,30)
GUICtrlSetTip(-1,"Avanti")
GUICtrlSetResizing($forward,1)
GUICtrlSetState(-1, $GUI_DISABLE)


;input
$site = GUICtrlCreateInput("",250,20,1080,20)
GUICtrlSetTip(-1,"URL")
GUICtrlSetResizing($site,1)


;label
$labeldesc = GUICtrlCreateLabel("Phata Browser (C) Sotto licenza CreativeCommons  |  Autore : MHack --> http://autoitprogrammer.altervista.org/",5,55)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$myIP = GUICtrlCreateLabel("Il tuo IP:",1270,55,50,20)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-2,0x0000FF)
$labelip = GUICtrlCreateLabel(@IPAddress1,1310,55,100,20)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-2,0xFF0000)


;oggetti
$GUIActiveX = GUICtrlCreateObj($IE,5,70,1400,720)
GUICtrlSetResizing($GUIActiveX,1)

HotKeySet("{ENTER}", "_Enter")
$PageCount=0
$PageCountCurr=0
Sleep(1500)
_IENavigate($IE,FileRead(@ScriptDir&"\home.ini"))
GUICtrlSetData($site, _IEPropertyGet($IE, "locationurl"))
_SetPageCount(1)


While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
Case $GUI_EVENT_CLOSE
      Exit
Case $esci
  Exit
Case $autore
  $MsgBox = MsgBox(4,$title,"Autore : MHack"& @CRLF &"Visitare il sito?")
      If $MsgBox = 6 Then
              _IENavigate($IE,"http://autoitprogrammer.altervista.org/")
                          GUICtrlSetData($site, _IEPropertyGet($IE, "locationurl"))
                          _SetPageCount(1)
      Else
      ContinueLoop
  EndIf
Case $vai
      If GUICtrlRead($site) <> "" Then
      _IENavigate($IE,GUICtrlRead($site))
          GUICtrlSetData($site, _IEPropertyGet($IE, "locationurl"))
          _SetPageCount(1)
  Else
      MsgBox(16,"Attenzione!","Attenzione, nessun indirizzo inserito!"& @CRLF &"Riprovare!")
      EndIf
Case $home
      _IENavigate($IE,FileRead(@ScriptDir&"\home.ini"))
          GUICtrlSetData($site, _IEPropertyGet($IE, "locationurl"))
Case $back
  _IEAction($IE,"back")
  GUICtrlSetData($site, _IEPropertyGet($IE, "locationurl"))
  _SetPageCount(-1, 1)
Case $forward
  _IEAction($IE,"forward")
  GUICtrlSetData($site, _IEPropertyGet($IE, "locationurl"))
  _SetPageCount(1, 1)
Case $aggiorna
  _IEAction($IE,"refresh")
  GUICtrlSetData($site, _IEPropertyGet($IE, "locationurl"))
Case $homeset
  $InputBox = InputBox($title,"Setta Home Page:")
  If $InputBox <> "" Then
      FileWrite(@ScriptDir&"\home.ini",$InputBox)
      If FileExists(@ScriptDir&"\home.ini") = 1  Then
                      MsgBox(0,$title,"L'home page è stata caricata correttamente!")
          Else
                      MsgBox(0,$title,"L'home page non è stata caricata correttamente,riprovare!")
              EndIf
      Else
      MsgBox(16,$title,"Inserire indirizzo home page!")
  EndIf
EndSwitch
WEnd
Else
      $InputBox2 = InputBox("Phata Browser","Setta Home Page:")
  If $InputBox2 <> "" Then
      FileWrite(@UserProfileDir&"\home.ini",$InputBox2)
      If FileExists(@UserProfileDir&"\home.ini") = 1  Then
                      MsgBox(0,"Phata Browser","L'home page è stata caricata correttamente!")
          Else
                      MsgBox(0,"Phata Browser","L'home page non è stata caricata correttamente,riprovare!")
              EndIf
      Else
      MsgBox(16,"Phata Browser","Inserire indirizzo home page!")
  EndIf
EndIf

Func _Enter()
       HotKeySet("{ENTER}")
       Send("{ENTER}")
       HotKeySet("{ENTER}", "_Enter")
       If _IEPropertyGet($IE, "locationurl")<>GUICtrlRead($site) Then
               If GUICtrlRead($site) <> "" Then
                  _IENavigate($IE,GUICtrlRead($site))
                  GUICtrlSetData($site, _IEPropertyGet($IE, "locationurl"))
                  _SetPageCount(1)
               Else
                       MsgBox(16,"Attenzione!","Attenzione, nessun indirizzo inserito!"& @CRLF &"Riprovare!")
               EndIf
       EndIf
EndFunc

Func _SetPageCount($i, $flag=0)
       If Not $flag=1 Then $PageCount+=1
       $PageCountCurr+=$i
       If $PageCountCurr<$PageCount Then GUICtrlSetState($forward, $GUI_ENABLE)
       If $PageCountCurr=$PageCount Then GUICtrlSetState($forward, $GUI_DISABLE)
       If $PageCountCurr>1 Then GUICtrlSetState($back, $GUI_ENABLE)
       If $PageCountCurr=1 Then GUICtrlSetState($back, $GUI_DISABLE)
EndFunc


;D
 
Top
Gianlu-thebest
CAT_IMG Posted on 30/4/2010, 06:01     +1   -1




g00d work :)
anche se già l'avevo provato(l'ho scaricato dal tuo sito!)
 
Top
MHack
CAT_IMG Posted on 30/4/2010, 13:17     +1   -1




CITAZIONE (Gianlu-thebest @ 30/4/2010, 07:01)
g00d work :)
anche se già l'avevo provato(l'ho scaricato dal tuo sito!)

Wow, almeno sò che c'è qualcuno che lo visita :P Grazie ;)
 
Top
6 replies since 29/4/2010, 22:10   126 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity