Autoit.ES

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Ie.au3>
#NoTrayIcon

$Form1 = GUICreate("Radio milos by C0dex", 488, 143, 192, 124)
GUISetBkColor(0x0000FF)
$Label1 = GUICtrlCreateLabel("Listen : ", 8, 8, 126, 20, -1, BitOR($WS_EX_STATICEDGE,$GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
$input1 = GUICtrlCreateInput("", 136, 8, 345, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$cmdPlay = GUICtrlCreateRadio("Play |Radio Milos", 8, 68, 473, 17, BitOR($GUI_SS_DEFAULT_RADIO,$BS_CENTER), $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0x00FF00)
$Slider1 = GUICtrlCreateSlider(123, 32, 358, 21, -1, $WS_EX_STATICEDGE)
$Label2 = GUICtrlCreateLabel("Volume: ", 8, 32, 112, 20, $SS_CENTER, BitOR($WS_EX_STATICEDGE,$GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
$Button1 = GUICtrlCreateButton("Exit", 8, 104, 171, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
$Button2 = GUICtrlCreateButton("Info", 192, 104, 179, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("By C0dex", 384, 104, 98, 26, $SS_CENTER, BitOR($WS_EX_CLIENTEDGE,$GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 12, 800, 4, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)



While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $cmdPlay




		case $Button1
			Exit(-1)
		Case $Button2
			MsgBox(4096, "radio", "by C0dex |[email protected]", 10)


	EndSwitch
WEnd