Ecco qua il mio programma ...
CODICE
#Region ; Created by EzSkinConvert
; ----------------------------------------------------------------
; ***** Code re-written by EzSkinConvert, Created by JScript *****
;
; Author of original EzSkin_1-2-3 code: Valuater
; For personal use only, All Rights Reserved
; Thank you big_daddy and Joscpe
; Thanks to SmOke_N for EnCodeIt
;
; ***** Based on the: EzSkin_1-2-3, ver 1.0.2 - Feb 17, 2007 *****
; ----------------------------------------------------------------
#include <EzSkin.au3>
#EndRegion ; Created by EzSkinConvert
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <process.au3>
;Creato by *Kuja*
EzSkinProgressOn("Progress", "Sto aprendo full: " & @ComputerName, "0 percento")
For $i = 10 to 100 step 10
sleep(400)
EzSkinProgressSet( $i, $i & " percento")
Next
EzSkinProgressSet(100 , "Fatto", "Completo")
sleep(500)
EzSkinProgressOff()
; EzSkinGUICreate( "title" [, width [, height [, left [, top [, style [, ExStyle [, parent [, gui_icon = True [, drag_window = True ]]]]]]]]] )
; If Left or/and Top = -2 then active Random Position
; If Style += $SS_RIGHT (Right-aligns the Caption), If Style += $SS_CENTER (Center-aligns the Caption)
$Form1 = EzSkinGuiCreate("Full", 633, 447, 189, 127)
; EzSkinSetIconTips( ToolTips = "tip1|tip2|tip3" [, cursorStyle = -1 [, winhandle = "" ]] )
;EzSkinSetIconTips("Example 1|Example 2|Example 3")
; EzSkinCreateButton( "text", left, top [, width [, height [, Style [, ExStyle [, Icon = -1 [, File = "shell32.dll" ]]]]]])
; Note: If the parameter ExStyle += $LVS_EX_SNAPTOGRID (0x00080000),
; you can cross the coordinates limit in the top of the window, imposed by the Menu and the ToolBar buttons.
$Button1 = EzSkinCreateButton("Apri cmd", 16, 16, 137, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Button2 = EzSkinCreateButton("Apri internet", 168, 16, 129, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Button3 = EzSkinCreateButton("Apri msn", 320, 16, 129, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Button4 = EzSkinCreateButton("Apri il task manager", 472, 16, 145, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Group1 = EzSkin_GUICtrlCreateGroup("", 496, 368, 129, 73)
$Label1 = EzSkin_GUICtrlCreateLabel("Creatore:Kuja", 504, 384, 78, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Label2 = EzSkin_GUICtrlCreateLabel("Ver:1.0", 512, 416, 46, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
EzSkin_GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = EzSkin_GUICtrlCreateGroup("Radio", 72, 96, 433, 241)
$Combo1 = EzSkin_GUICtrlCreateCombo("Ascolta la radio", 168, 136, 241, 25)
EzSkinCtrlSetData(-1,"Subasio|Kiss kiss|Radio 105|Radio montecarlo|Rds|Radio margherita|Disco radio")
$Date1 = EzSkin_GUICtrlCreateDate("2009/01/31 18:39:43", 168, 200, 241, 25)
EzSkin_GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button5 = EzSkinCreateButton("Apri Winrar ", 19, 393, 137, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Button6 = EzSkinCreateButton("Apri il mio forum", 176, 392, 145, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Button7 = EzSkinCreateButton("Disegna", 344, 392, 129, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
EzSkinGUISetState(@SW_SHOW)
While 1
$nMsg = EzSkinGuiGetMsg()
; EzSkinGUItoTray( "title", "text", timeout [, option]) - same as TrayTip
;If @extended = 2 Then EzSkinGUItoTray("EzSkinGUItoTray", "Thanks to: Valuater, big_daddy and Joscpe, for this great job!", 10, 1)
; EzSkinRollUpDown( [winhandle] )
;If @extended = 3 Then EzSkinRollUpDown()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_RunDOS("start cmd.exe")
Case $Button2
_RunDOS("start http://www.google.it")
Case $Button3
_RunDOS("start msnmsgr.exe")
Case $Button4
_RunDOS("start taskmgr.exe")
Case $Button5
_RunDOS("start WinRAR.exe")
Case $Button6
_RunDOS("start http://the-pc-world.forumcommunity.net")
Case $Button7
_RunDOS("start mspaint.exe")
Case $Combo1
if EzSkinCtrlRead ($combo1) = "Subasio" then
_RunDOS("start http://www.radiosubasio.it/subasiopiu.html")
elseif EzSkinCtrlRead ($combo1) = "Kiss kiss" then
_RunDOS("start http://players.creacast.com/creacast/kisskiss/playlist_s.asx")
elseif EzSkinCtrlRead ($combo1) = "Radio 105" then
_RunDOS("start http://www.105.net/sezioni/inradio/radio/asx/ch_0.asx")
elseif EzSkinCtrlRead ($combo1) = "Radio montecarlo" then
_RunDOS("start http://www.radiomontecarlo.net/Radio/asx/rmcfm.asx")
elseif EzSkinCtrlRead ($combo1) = "Rds" then
_RunDOS("start http://www.rds.it/streaming/rds.asx")
elseif EzSkinCtrlRead ($combo1) = "Radio margherita" then
_RunDOS("start http://www.radiomargherita.com/live/radiomargherita.asx")
elseif EzSkinCtrlRead ($combo1) = "Disco radio" then
_RunDOS("start http://discoradio.fabbricadigitale.it/asx/discoradio.asx")
endif
EndSwitch
WEnd