Code
#include #include #include #include #include #NoTrayIcon
$Form1 = GUICreate("Radio AutoiT", 183, 220, 192, 124, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))GUISetBkColor(0xC0C0C0)$Radio1 = GUICtrlCreateRadio("ProFM (Romania) ", 48, 64, 129, 17)GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")$Label1 = GUICtrlCreateLabel("Selectati :", 8, 8, 167, 22, $SS_CENTER, $WS_EX_STATICEDGE)GUICtrlSetFont(-1, 12, 800, 2, "Monotype Corsiva")GUICtrlSetColor(-1, 0xFF0000)GUICtrlSetBkColor(-1, 0x00FF00)GUICtrlSetCursor (-1, 3)$Radio2 = GUICtrlCreateRadio("Maxima Fm (Spania)", 16, 88, 129, 17)GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")$Radio3 = GUICtrlCreateRadio("Europa FM (Romania) ", 8, 40, 161, 17)GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")$Button1 = GUICtrlCreateButton("Stop", 8, 120, 75, 25, $WS_GROUP, $WS_EX_STATICEDGE)GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")$Button2 = GUICtrlCreateButton("Play", 96, 120, 75, 25, $WS_GROUP, $WS_EX_STATICEDGE)GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")$Button3 = GUICtrlCreateButton("Exit", 8, 152, 75, 25, $WS_GROUP, $WS_EX_STATICEDGE)GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")$Button4 = GUICtrlCreateButton("Info", 96, 152, 75, 25, $WS_GROUP, $WS_EX_STATICEDGE)GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")$Label2 = GUICtrlCreateLabel("Radio . Pro ", 24, 184, 136, 26, BitOR($SS_CENTER,$WS_BORDER))GUICtrlSetFont(-1, 14, 800, 2, "Monotype Corsiva")GUICtrlSetColor(-1, 0x0000FF)GUICtrlSetBkColor(-1, 0xFF0000)GUISetState(@SW_SHOW)
While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit
Case $Button2 PlayRadio()
Case $Button4;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=InfoMsgBox(64,"Info","Acest Soft a fost Creat de catre : " & @CRLF & "Dennis Programmer :" & @CRLF & "Email = Hellshare60@gmail.com:")
Case $Button3;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=WarningMsgBox(48,":)","By Dennys Programmer")Exit(-1)
EndSwitchWEnd
Func PlayRadio()GUICtrlRead($Radio1)_SoundPlay("")GUICtrlRead($Radio2)_SoundPlay("")
EndFunc
Alles anzeigen