Forum per Webmaster

InfoSicurezza · Inviato: 22-04-2009 11:57:18 Oggetto: [Auto It] Media Player

Media Player

Codice:

#include <GUIConstants.au3>
GUICtrlCreatePic("c:\a.jpg",0,0, 0,0)
$Mp3 = GUICreate("Mp3", 522, 248, 193, 125)
GUISetBkColor(0x000080)
$Scegli_La_Canzone = GUICtrlCreateGroup("Scegli_La_Canzone", 16, 24, 289, 49)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$path = GUICtrlCreateInput("path", 24, 40, 265, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Sfoglia = GUICtrlCreateButton("Sfoglia", 336, 32, 89, 41, 0)
$volume = GUICtrlCreateInput("volume", 200, 80, 49, 21)
$Set = GUICtrlCreateButton("Set", 256, 80, 33, 25, 0)
$Info = GUICtrlCreateGroup("Info", 32, 128, 161, 97)
$dimensione = GUICtrlCreateInput("dimensione", 40, 144, 97, 21)
$directory = GUICtrlCreateInput("directory", 40, 184, 97, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetCursor (-1, 7)
$PLAY = GUICtrlCreateButton("PLAY", 320, 128, 153, 57, 0)
GUICtrlSetCursor (-1, 3)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $sfoglia
$asas = FileOpenDialog("Scegli Canzone", "C:\", "Music (*.mp3;*.wav)", 1 + 4 )
GUICtrlSetData($path,$asas)
Case $Set
$vol = GUICtrlRead($volume)
SoundSetWaveVolume($vol)
Case $PLAY
$vo = GUICtrlRead($volume)
$canz = GUICtrlRead($path)
SoundSetWaveVolume($vo)
SoundPlay($canz)
GUICtrlSetData($directory,$canz)
$dim = FileGetSize($canz)
GUICtrlSetData($dimensione,$dim)
EndSwitch
WEnd

_________________
Fusione dei siti web
HackingVirtual, Infosicurezza, HelloKittyWeb... Sito In Costruzione.
Progresso : 85%