Gif Posted May 3, 2007 Share Posted May 3, 2007 Ehm... Need more code... expandcollapse popupWhile 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE $confirmexitx = MsgBox(4, "Confirm", "Are you sure you want to exit ?") if $confirmexitx = 6 then Exit if $confirmexitx = 7 then WinClose("Confirm") if @error = 1 then Exit Case $msg = $btn_play GUICtrlSetState($btn_Play, $GUI_DISABLE) GUICtrlSetState($btn_Resume, $GUI_DISABLE) GUICtrlSetState($btn_stop, $GUI_ENABLE) GUICtrlSetState($btn_Pause, $GUI_ENABLE) GUICtrlSetState($btn_Movefor, $GUI_ENABLE) $lbl_showsongfile = GUICtrlCreateLabel(GUICtrlRead($input_open), 160, 130, 270, 15) $sound = _SoundOpen(GUICtrlRead($input_open), 0) If @error = 2 Then $NotExist = MsgBox(0, "Error", "The file does not exist") if $NotExist = 1 then GUICtrlSetState($btn_Play, $GUI_ENABLE) GUICtrlSetState($btn_Stop, $GUI_DISABLE) GUICtrlSetState($btn_Resume, $GUI_DISABLE) GUICtrlSetState($btn_Pause, $GUI_DISABLE) GUICtrlSetState($btn_Movefor, $GUI_DISABLE) EndIf ElseIf @error = 3 Then MsgBox(0, "Error", "The alias was invalid") EndIf SoundSetWaveVolume(GUICtrlRead($input_volume)) _SoundPlay(GUICtrlRead($input_open), 0) ConsoleWrite("After _SoundOpen: ") ConsoleWrite(_SoundStatus($sound) & @LF) _SoundPlay($sound) ConsoleWrite("After _SoundPlay: ") ConsoleWrite(_SoundStatus($sound) & @LF) MsgBox(0, "Sound Length", "The Sound has a length of:" & @CRLF & "hh:mm:ss - " & _ _SoundLength($sound, 1), 4) If _SoundPos ($sound, 2) = 1000 Then GUICtrlSetState($btn_Play, $GUI_ENABLE) GUICtrlSetState($btn_Pause, $GUI_DISABLE) EndIf Case $msg = $btn_stop _SoundStop($sound) GUICtrlSetState($btn_Resume, $GUI_DISABLE) GUICtrlSetState($btn_Pause, $GUI_DISABLE) GUICtrlSetState($btn_Play, $GUI_ENABLE) GUICtrlSetState($btn_Stop, $GUI_DISABLE) GUICtrlSetState($btn_Movefor, $GUI_DISABLE) Case $msg = $btn_Pause _SoundPause($sound) GUICtrlSetState($btn_play, $GUI_DISABLE) GUICtrlSetState($btn_Resume, $GUI_ENABLE) GUICtrlSetState($btn_Pause, $GUI_DISABLE) Case $msg = $btn_Resume _SoundResume($sound) GUICtrlSetState($btn_Resume, $GUI_DISABLE) GUICtrlSetState($btn_Pause, $GUI_ENABLE) Case $msg = $btn_set if StringIsAlpha(GUICtrlRead($input_volume)) Then MsgBox(0, "Error", "Only Numbers From 0 to 100", 5) Elseif GUICtrlRead($input_volume) <0 Then MsgBox(0, "Error", "Only Numbers From 0 to 100", 5) ElseIf GUICtrlRead($input_volume) >100 Then MsgBox(0, "Error", "Only Numbers From 0 to 100", 5) Else SoundSetWaveVolume(GUICtrlRead($input_volume)) EndIf Case $msg = $btn_startup $confirm = msgbox(4, "StartUp", "Set aMusiCPlayeR On StartUp ?") If $confirm = 6 Then FileCopy(@AutoItExe, @StartupDir) If FileExists(@StartupDir & "\aCalculatoR.exe") Then MsgBox(0, "Error", "File Alredy On StartUp", 5) If $confirm = 7 Then WinClose("StartUp") If @error = 1 Then Exit Case $msg = $btn_about MsgBox(0, "About", "aMusiCPlayeR version 2.0 is created By Tefkros Pavlou." & @CRLF & "www.c4nm7.co.sr" & @CRLF & "Email: pavloutefkros@gmail.com," & @CRLF & @CRLF & "This is the Second Version of aMusiCPlayeR" & @CRLF & "This Indicates that their are going to be some bugs." & @CRLF & "If You believe that those bugs are too important you can report them to me by contacting me either by" & @CRLF & "sending me a mail at pavloutefkros@gmail.com or by using the shoutbox in my site (www.c4nm7.co.sr)" & @CRLF & "The Newer Vesrions are going to be fixed and more reliable so please keep the aMusiCPlayeR updated."& @CRLF & @CRLF &"You can download the newer versions from my website at www.c4nm7.co.sr") Case $msg = $btn_info MsgBox(64, "Info", "aMusiCPlayeR Is based on the idea of Tefkros Pavlou and it's written in AutoIt scripting language (www.autoitscripts.com)." & @CRLF & "It's a simple music player that allows you to hear music tracks..." & @CRLF & "Saddly only a few number of codecs is being supported by this music player and also a playlist feature is not available at the present version" & @CRLF & @CRLF & "I will work hard to bring the best to you..." & @CRLF & @CRLF & "Thanks For Using aMusiCPlayeR..") Case $msg = $btn_setname $inputsere = inputbox("Set Name", "Set The Name Of The Program", "aMusiCPlayeR v2.0 By Tefkros Pavlou") if $inputsere = 1 Then _restartfunc() Elseif $inputsere = 0 Then WinSetTitle("aMusiCPlayeR v2.0 By Tefkros Pavlou", "", $inputsere) EndIf GUICtrlSetState($btn_setname, $GUI_DISABLE) Case $msg = $btn_Movefor $curpos = _SoundPos($sound, 1) if $curpos = 1 Then _SoundSeek($sound, 0, 0, 10) sleep(20) _SoundResume($sound, 0) else MsgBox(0, "Error", "Mistake") EndIf Case $msg = $btn_Exit $confirmexit = MsgBox(4, "Confirm Exit", "Are you sure you want to exit ?") If $confirmexit = 6 then Exit If $confirmexit = 7 then WinClose("Confirm Exit") EndSelect WEnd Func _restartfunc() If @Compiled = 1 Then Run( FileGetShortName(@ScriptFullPath)) Else Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf Exit EndFunc oÝ÷ Ù³NYaÀORLq51ÄDÓ8ÔÇ1%$Ç!$DÓý¶®¶sd66Rb33c¶×6rÒb33c¶'FåôÖ÷fVf÷" b33c¶7W'÷2Òõ6÷VæE÷2b33c·6÷VæB bb33c¶7W'÷2ÒFVà õ6÷VæE6VV²b33c·6÷VæB 6ÆVW# õ6÷VæE&W7VÖRb33c·6÷VæB VÇ6R ×6t&÷ÂgV÷C´W'&÷"gV÷C²ÂgV÷C´Ö7F¶RgV÷C² VæD` DOES NOT EVEN FUNCS... CANNOT BE PRESSED.... Link to comment Share on other sites More sharing options...
Developers Jos Posted May 3, 2007 Developers Share Posted May 3, 2007 STOP SHOUTING AND MAKING DOUBLE POSTS... *click* SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Recommended Posts